يعطيكـ العافيهـ اخوي oms والله فكره عبقرييييييييييييييييهـ جداً جداً
بااااااااااي
بااااااااااي
rivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "open_file" CommonDialog1.FileName = "" CommonDialog1.DialogTitle = "OPen Virtools Files" CommonDialog1.Filter = "Virtools Files(*.vmo)|*.vmo|All Files (*.*)|*.*" CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen If Not (CommonDialog1.FileName = "") Then Form3.Show Form3.WebBrowser1.Navigate2 (CommonDialog1.FileName) Form3.WebBrowser1.Visible = True Form3.WebBrowser1.SetFocus End If Case "print_p" MsgBox "print" Case "copy_c" SendKeys "^(c)" Case "help_h" MsgBox "help" Case "update_u" MsgBox "update" End Select End Sub
Private Sub open_Click() CommonDialog1.FileName = "" CommonDialog1.DialogTitle = "OPen Virtools Files" CommonDialog1.Filter = "Virtools Files(*.vmo)|*.vmo|All Files (*.*)|*.*" CommonDialog1.FilterIndex = 1 CommonDialog1.ShowOpen If Not (CommonDialog1.FileName = "") Then Form3.Show Form3.WebBrowser1.Navigate2 (CommonDialog1.FileName) Form3.WebBrowser1.Visible = True Form3.WebBrowser1.SetFocus End If End Sub
تعليق