If InStr(txtMen(0), ".") = Len(txtMen(0)) Or InStr(txtMen(1), ".") = Len(txtMen(1)) Or InStr(txtMen(2), ".") = Len(txtMen(2)) Or InStr(txtMen(3), ".") = Len(txtMen(3)) Then
If InStr(txtMen(0), ".") = Len(txtMen(0)) Or InStr(txtMen(1), ".") = Len(txtMen(1)) Or InStr(txtMen(2), ".") = Len(txtMen(2)) Or InStr(txtMen(3), ".") = Len(txtMen(3)) Then
MsgBox "Application is buzy generating your request. Please wait until the application has been finished what it's doing.", vbOKOnly + vbCritical + vbApplicationModal, "Java Effects"
End If
Cancel = 1
End Sub
Private Sub tmrClipboard_Timer()
If Not tmrProcess.Enabled = True Then
If Not ClipboardWatcher Then
cmdClear.Enabled = False
Else
cmdClear.Enabled = True
End If
End If
End Sub
Private Sub tmrProcess_Timer()
Randomize
If Repeat = False Then
If Wait = False Then
If Process >= 80 Then
If Process >= 90 Then
tmrProcess.Interval = (Rnd * 100) + 10
MoreThan = True
Else
tmrProcess.Interval = (Rnd * 500) + 10
End If
Else
tmrProcess.Interval = (Rnd * 1000) + 100
End If
If MoreThan = False Then
If Process >= 10 Then
Process = Process + (Rnd * 5) + 1
Else
Process = Process + (Rnd * 3) + 1
End If
Else
Process = Process + (Rnd * 3) + 1
End If
If Process > 100 Then
Process = 100
tmrProcess.Interval = (Rnd * 1000) + 100
Wait = True
End If
lblDisplay = "Generating Script..."
ProgBar picProgress, CLng(Process), , &H800000
picProgress.Refresh
Else
If HideUnhide = False Then
HideUnhide = True
Else
GoTo EndLoop
End If
End If
Else
GoTo EndLoop
End If
If Wait = True Then GoTo EndLoop
Exit Sub
EndLoop:
Mode = False
ResetValue Mode
LoopTimes = LoopTimes + 1
Sleep 3000
ProgBar picProgress, CLng(Process), , &H800000
picProgress.Refresh
Sleep 1000
Call Watcher(Me)
cmdCopy.Enabled = True
tmrProcess.Enabled = False
cmbOptions_Click
txtOutput.Enabled = True
cmbOptions.Enabled = True
cmdCreate.Enabled = True
MousePointer = FormMouse(Me, 0)
Generating = False
lblDisplay = vbNullString
End Sub
Private Sub txtInt_GotFocus()
With txtInt
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Private Sub txtInt_KeyPress(KeyAscii As Integer)
Key = Chr$(KeyAscii)
If KeyAscii = vbKeyBack Then Exit Sub
If KeyAscii = vbKeyReturn Then
If Val(Trim$(txtInt)) < VS.Max Then
txtInt = VS.Max
VS.Value = VS.Max
On Error Resume Next
With txtInt
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
End If
If Not Val(Trim$(txtInt)) > VS.Min Then
VS.Value = Val(Trim$(txtInt))
On Error Resume Next
With txtInt
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Exit Sub
Else
txtInt = VS.Min
VS.Value = VS.Min
On Error Resume Next
With txtInt
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
End If
Select Case Key
Case "0" To "9"
Case Else
KeyAscii = 0
End Select
End Sub
Private Sub txtInt_LostFocus()
If txtInt = vbNullString Or txtInt < VS.Max Then
txtInt = VS.Max
VS.Value = VS.Max
ElseIf txtInt > VS.Min Then
txtInt = VS.Min
VS.Value = VS.Min
End If
End Sub
Private Sub txtMen_GotFocus(Index As Integer)
With txtMen(Index)
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Private Sub txtMes_Change()
If Not txtMes = vbNullString Or Not ClipboardWatcher = False Then