Dim F1 As New Datasystem.Form2 '实例化窗体
贵阳ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景,ssl证书未来市场广阔!成为创新互联公司的ssl证书销售渠道,可以享受市场价格4-6折优惠!如果有意向欢迎电话联系或者加微信:13518219792(备注:SSL证书合作)期待与您的合作!
For Each na As Form In Application.OpenForms '打开窗体的集合
If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判断程序集的产品名称和窗体名称是否已存在打开的窗体中
If na.WindowState = FormWindowState.Minimized Then '判断窗体是否最小化
na.WindowState = FormWindowState.Normal '还原窗体
End If
na.Activate() '激活窗体
Return '返回
End If
Next
F1.Show() '如果没有打开的窗体中未找到,重新打开窗体
你用的都是vb6的代码,改成:
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符,请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
把 objWordApp = GetObject("Word.Application")
改成 objWordApp = GetObject("", "Word.Application"),同时最好不要用
On Error Resume Next,改用
Try
Catch ex As Exception
End Try
如果用户单击 Cancel(取消),则InputBox函数返回一个长度为零的字符串 (""),可以根zhidao据这个情况进行判断,如果BH="",则用户按内了“取消容”键,但如果用户把输入的内容清空,这时按“确定”和按“取消”一样,都返回一个长度为的字符串。
if Messagebox.show( "是否要退出?","提示" Messageboxbutton.YesNo).yes then...end ifif Messagebox.show( "是否要退出?","提示" Messageboxbutton.YesNo).no then...end if
For i As Integer = 1 To 8
Dim TC As CheckBox = Me.Controls("ComboBox" i)
If TC.Checked Then
TextBox1.Text = TextBox1.Text "," TC.Checked.ToString()
End If
Next