0
“OFD是打开文件对话框DirectCast不工作
Dim img As Bitmap
Dim iscmyk As Boolean
Dim i As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ofd.Filter = "Jpg Image(*.jpg)|*.jpg"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
img = Bitmap.FromFile(ofd.FileName)
iscmyk = ((DirectCast(img.Flags, Imaging.ImageFlags) And Imaging.ImageFlags.ColorSpaceCmyk) = Imaging.ImageFlags.ColorSpaceCmyk)
End If
img = New Bitmap(img, New Size(120, 190))
MsgBox("cmyk = " & iscmyk)
PictureBox1.Image = img
End Sub
我需要检查,如果图像是CMYK或RGB 如果CMYK然后iscmyk返回true 如果它不是那么CMYK iscmyk在返回false 我Windows 7的PC其返回false每个&每个图像 但在XP它返回完美的答案
为什么它不在我的其他的win7电脑工作???
你说DirectCast不工作。你有错误吗?该行被执行时,img.Flags的值是多少? –
不是没有得到错误,但它给出了错误的结果 – Dandy
我试图CInt而不是直接播放,但CInt不工作在XP – Dandy