請問:由button控制元件創建了兩個動態表單,每個表單里動態添加一個button控制元件,運行時兩個表單將同時出現(代碼如下)
如何實作兩個動態表單不是同時出現(如借助某個事件讓其一前一后顯示),本人想通過第一動態表單里的button控制元件來控制第二個動態表單的出現,不知如何實作,請牛人指點?
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i = 1 To 2
Dim Form1 As New Form
Form1.Show()
Form1.Name = "frmStudy" & i
Form1.Text = "Product" & i
Dim btn As New Button
Form1.Controls.Add(btn)
With btn
.Location = New Point(150, 150)
.Size = New Size(95, 35)
.Text = "下一步"
.Name = "btnOk" & i
.Tag = Form1
.Enabled = True
End With
AddHandler btn.Click, AddressOf btnOK_click
Next
End Sub
Private Sub btnOK_click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
uj5u.com熱心網友回復:
放個Timer控制元件定時顯示行不。uj5u.com熱心網友回復:
Dim after As Double
after = Now + 2# / 24# / 3600#
Do
DoEvents
If Now > after Then Exit Do
Loop
uj5u.com熱心網友回復:
#1 老師你好,因為在每個表單里還有其他一些控制元件,如文本控制元件,根據需要在里面輸入內容,時間長短是不確定的,如何用timer控制元件?如何通過第一個動態表單里面的控制元件觸發第二個動態表單的出現?uj5u.com熱心網友回復:
#2 老師你好,本人是在現學現用,都有些code代碼不是很清楚,比如after = Now + 2# / 24# / 3600#,小弟不太明白,還有你這個代碼放在什么控制元件里,其什么作用?謝謝uj5u.com熱心網友回復:
你里面Form1.Show(),就已經確定一創建起就要顯示出來啊。 改一下這兒吧。轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/115397.html
標籤:控件
