Private Sub txtMain_KeyDown(KeyCode As Integer, Shift As Integer)
Call CheckMenus
End Sub
Private Sub txtMain_KeyUp(KeyCode As Integer, Shift As Integer)
Call CheckMenus
End Sub
Private Sub txtMain_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Call CheckMenus
End Sub
Private Sub txtMain_KeyPress(KeyAscii As Integer)
Dim a As String
'controle input textbox
Call CheckMenus
If KeyAscii = 1 Then ' ctrl+A = select all
frmMain.txtMain.SelStart = 0
frmMain.txtMain.SelLength = Len(frmMain.txtMain)
KeyAscii = 0
End If
If Len(frmMain.txtMain.Text) > 31999 Then
Select Case KeyAscii
Case 3, 8, 24
'allow deleting and stuff
Case Else
KeyAscii = 0
'Maximum lenghte text reached
MsgBox "Maximum lenght of text is reached.", vbExclamation
Exit Sub
End Select
End If
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'cancel write or read process
If KeyCode = 27 Then gblnCancelProcces = True
End Sub
Private Sub Form_Resize()
Call ChangeWindowSize
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
'if running, cancel exit
If gblnIsRunning = True Then Cancel = True: Exit Sub
'warn if text is changed
If gblnTextHasChanged = True Then
retVal = MsgBox("The changes to the text are not saved." & vbCrLfLf & "Do you want to close the program anyway?", vbQuestion + vbYesNo)
If retVal = vbNo Then Cancel = True: Exit Sub
End If
Call SaveWindowPos
Unload frmAbout
Unload frmRead
Unload frmWrite
Unload frmPrintProgress
Unload frmPrintSetup
Clipboard.Clear
End
End Sub
'------------------------ Get rnd seed values ----------------------------
Private Sub txtMain_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Call RandomFeed(x, y)
End Sub
Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Call RandomFeed(x, y)
End Sub
Private Sub imgPreview_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Call RandomFeed(x, y)
End Sub
Private Sub picFileContainer_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Call RandomFeed(x, y)
End Sub
Private Sub picInfo_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Call RandomFeed(x, y)
End Sub
'------------------------ Drag and Drop----------------------------
Private Sub imgIcon_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim tmpFile As String
If Not Data.GetFormat(vbCFFiles) Then Exit Sub
gstrFileName = Data.Files(1)
Call GetFile
End Sub
Private Sub imgIcon_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
Dim tmp As String
If Data.GetFormat(vbCFFiles) Then
Effect = vbDropEffectCopy
Else
Effect = vbDropEffectNone
End If
End Sub
Private Sub picFileContainer_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim tmpFile As String
If Not Data.GetFormat(vbCFFiles) Then Exit Sub
gstrFileName = Data.Files(1)
Call GetFile
End Sub
Private Sub picFileContainer_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
Dim tmp As String
If Data.GetFormat(vbCFFiles) Then
Effect = vbDropEffectCopy
Else
Effect = vbDropEffectNone
End If
End Sub
Private Sub lblFile_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim tmpFile As String
If Not Data.GetFormat(vbCFFiles) Then Exit Sub
gstrFileName = Data.Files(1)
Call GetFile
End Sub
Private Sub lblFile_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
Dim tmp As String
If Data.GetFormat(vbCFFiles) Then
Effect = vbDropEffectCopy
Else
Effect = vbDropEffectNone
End If
End Sub
Private Sub lblFileInfo_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim tmpFile As String
If Not Data.GetFormat(vbCFFiles) Then Exit Sub
gstrFileName = Data.Files(1)
Call GetFile
End Sub
Private Sub lblFileInfo_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
Dim tmp As String
If Data.GetFormat(vbCFFiles) Then
Effect = vbDropEffectCopy
Else
Effect = vbDropEffectNone
End If
End Sub
Private Sub imgPreview_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim tmpFile As String
If Not Data.GetFormat(vbCFFiles) Then Exit Sub
gstrImageName = Data.Files(1)
Call GetImage
End Sub
Private Sub imgPreview_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
Dim tmp As String
If Data.GetFormat(vbCFFiles) Then tmp = Right(Data.Files(1), 4)
If tmp = ".bmp" Or tmp = ".jpg" Or tmp = ".gif" Then
Effect = vbDropEffectCopy
Else
Effect = vbDropEffectNone
End If
End Sub
Private Sub picPreview_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim tmpFile As String
If Not Data.GetFormat(vbCFFiles) Then Exit Sub
gstrImageName = Data.Files(1)
Call GetImage
End Sub
Private Sub picPreview_OLEDragOver(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
Dim tmp As String
If Data.GetFormat(vbCFFiles) Then tmp = Right(Data.Files(1), 4)
If tmp = ".bmp" Or tmp = ".jpg" Or tmp = ".gif" Then
Effect = vbDropEffectCopy
Else
Effect = vbDropEffectNone
End If
End Sub
'------------------- Set Carrier Image Preview --------------------
Private Sub GetImage()
Dim picFactor
Dim x
Dim y
On Error GoTo errHandle
Screen.MousePointer = 11
With frmMain
'set image
.picStegano.AutoSize = True
.picStegano..bmp;*.jpg'
End Sub
'-------- vbutoSize = True
.6Mat----=6)|*Pf Data.GetFormat(vbC0e, State As Integer)
Dim tmp Asx}u0=ragOver( Butty As Single, State As Integer)