Hey...
Ok, I have a signature capture device that draws a signature into a picture box... Everything works well, except I cannot get the Picture1.Picture item to save into it's OLE Database field. It saves a null field.
My Qustion: Is the .Picture property the correct property to export or should it be a pixel set. The snippet of code below may help out...
Private Sub GIIEPad1_PadData(ByVal abs_x As Long, ByVal abs_y As Long, ByVal abs_z As Long, ByVal fTouch As Boolean, ByVal fTap As Boolean, ByVal bmButtonState As Integer, ByVal dwTimeStamp As Long, ByVal dwSequenceNum As Long)
Dim X As Long
Dim Y As Long
X = (Picture1.Width * (abs_x - g_xMin)) / (g_xMax - g_xMin)
Y = (Picture1.Height * (abs_y - g_yMin)) / (g_yMax - g_yMin)
If (Not fTouch) Then
Picture1.PSet (X, Y)
g_fFirstTouch = True
Else
If (Not g_fFirstTouch) Then
Picture1.Line (g_lastX, g_lastY)-(X, Y)
Else
Picture1.PSet (X, Y)
g_fFirstTouch = False
End If
End If
g_lastX = X
g_lastY = Y
End Sub
Thanks for all your help....
Ok, I have a signature capture device that draws a signature into a picture box... Everything works well, except I cannot get the Picture1.Picture item to save into it's OLE Database field. It saves a null field.
My Qustion: Is the .Picture property the correct property to export or should it be a pixel set. The snippet of code below may help out...
Private Sub GIIEPad1_PadData(ByVal abs_x As Long, ByVal abs_y As Long, ByVal abs_z As Long, ByVal fTouch As Boolean, ByVal fTap As Boolean, ByVal bmButtonState As Integer, ByVal dwTimeStamp As Long, ByVal dwSequenceNum As Long)
Dim X As Long
Dim Y As Long
X = (Picture1.Width * (abs_x - g_xMin)) / (g_xMax - g_xMin)
Y = (Picture1.Height * (abs_y - g_yMin)) / (g_yMax - g_yMin)
If (Not fTouch) Then
Picture1.PSet (X, Y)
g_fFirstTouch = True
Else
If (Not g_fFirstTouch) Then
Picture1.Line (g_lastX, g_lastY)-(X, Y)
Else
Picture1.PSet (X, Y)
g_fFirstTouch = False
End If
End If
g_lastX = X
g_lastY = Y
End Sub
Thanks for all your help....