Dim F1 As New Datasystem.Form2 '實(shí)例化窗體
貴陽ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書未來市場(chǎng)廣闊!成為創(chuàng)新互聯(lián)公司的ssl證書銷售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:13518219792(備注:SSL證書合作)期待與您的合作!
For Each na As Form In Application.OpenForms '打開窗體的集合
If na.ProductName = F1.ProductName AndAlso na.Name = F1.Name 0 Then '判斷程序集的產(chǎn)品名稱和窗體名稱是否已存在打開的窗體中
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("輸入有非數(shù)字字符,請(qǐng)重新輸入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
把 objWordApp = GetObject("Word.Application")
改成 objWordApp = GetObject("", "Word.Application"),同時(shí)最好不要用
On Error Resume Next,改用
Try
Catch ex As Exception
End Try
如果用戶單擊 Cancel(取消),則InputBox函數(shù)返回一個(gè)長度為零的字符串 (""),可以根zhidao據(jù)這個(gè)情況進(jìn)行判斷,如果BH="",則用戶按內(nèi)了“取消容”鍵,但如果用戶把輸入的內(nèi)容清空,這時(shí)按“確定”和按“取消”一樣,都返回一個(gè)長度為的字符串。
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