Ja sam to resio ovako:
Private Sub Form_Load()
SendKeys "%{TAB}", True
optStandard.TabStop = False
imgopen_f.Visible = False
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgopen_f.Visible = False
End Sub
Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgopen_f.Visible = False
End Sub
Private Sub imgClose_f_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgopen_f.Visible = True
End Sub
Private Sub imgopen_f_Click()
'****************************************************
'Ovde je postavljen uslov koji programu govori koje je
'opciono dugme odabrano
'*****************************************************
'Ako je odabrano opciono dugme standard onda
If optStandard.Value Then
'Pokreni fajl c:\program files\....\mydoc_2
Shell "c:\program files\t-media\mydoc_2.bat", vbMaximizedFocus
Else 'U suprotnom
'Pokreni fajl c:\program files\....\mydoc
Shell "c:\program files\t-media\mydoc.bat", vbMaximizedFocus
End If ' Kraj uslova
'imgopen_f.ToolTipText "Kliknite mišem" - greska u kucanju
Unload Me 'Po obavlenom zadatku isljuci program
'************************************************************
'Fajlovi mydoc i mydoc_2 sadrze komande za otvaranje foldera
'************************************************************
End Sub
Private Sub lblInfo_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgopen_f.Visible = False
End Sub
Private Sub lblIzbor_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgopen_f.Visible = False
End Sub
Private Sub optData_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgopen_f.Visible = False
End Sub
Private Sub optStandard_Click()
imgopen_f.Visible = False
End Sub
|