你好哦。 很高興看到你的問題。 但是又很遺憾到現(xiàn)在還沒有人回答你的問題。也可能你現(xiàn)在已經(jīng)在別的地方找到了答案,那就得恭喜你啦。 可能是你問的問題有些專業(yè)了,沒人會?;蛘邉e人沒有遇到或者接觸過你的問題,所以幫不了你。建議你去問題的相關論壇去求助,那里的人通常比較多,也比較熱心,可能能快點幫你解決問題。 祝你好運~! 希望我的回答也能夠幫到你! 謝謝
創(chuàng)新互聯(lián)網(wǎng)站建設公司一直秉承“誠信做人,踏實做事”的原則,不欺瞞客戶,是我們最起碼的底線! 以服務為基礎,以質(zhì)量求生存,以技術求發(fā)展,成交一個客戶多一個朋友!專注中小微企業(yè)官網(wǎng)定制,網(wǎng)站制作、成都網(wǎng)站建設,塑造企業(yè)網(wǎng)絡形象打造互聯(lián)網(wǎng)企業(yè)效應。
vb我不是很會,我給你說個思路吧。timer控件設定計時開始和速度,假設為一秒一下。在timer事件中調(diào)用button的單擊事件,當然timer中還需要定義一個變量,用來做自增運算,一遍計算運行的時間。當變量到100后,彈出窗口提示完成,timer控件停止就行了。如果還是不明白我可以給你編個c#的代碼,只要是vb的語法不是很會。
Public Sub GenerateDynamiceButton()
'建立 坐標位置的變數(shù), 方便一會兒安排 自動生產(chǎn)的button 的位置
Dim y As Integer = 15
Dim x As Integer = 0
' 用for loop 來建立 這些button 做 18只button
For ButtonIndex As Integer = 0 To 17
' 建造新的 button
Dim MyButton As New Button
'設定這新的button 的闊度
MyButton.Width = 80
'設定這新的button 的高度
MyButton.Height = 20
'我們暫定每行有4個BUTTON, 當每行有多個4個BUTTON 時重設行距, 令到下一行的和這一行的距離有10 個PIXEL
' 和重設x 坐標` = 0, 令到位置由頭開始
If ButtonIndex Mod 4 = 0 Then
'設定 TOP 的 坐標位置令他可以和上一排的有10個PIXEL 的距離
y += MyButton.Height + 10
x = 0
End If
'設定文字 和 位置
' Set the text and set its top and left based on its dimensions and count
MyButton.Text = "My Button" ButtonIndex
'設定 TOP 的 坐標位置
MyButton.Top = y
'下面的CODE 可以令到這個BUTTON 和另一個BUTTON 有5個PIXEL 的距離
MyButton.Left = 26 + (x * (MyButton.Width + 5))
x += 1
'設定 BUTTON CLICK EVENT
AddHandler MyButton.Click, AddressOf MyButton_Click
'把button 加到 form 中
Me.Controls.Add(MyButton)
Next
End Sub
'處理 button click event
Private Sub MyButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim btn As Button = sender
'pop up 一個自己button 的字的message
MsgBox(btn.Text)
當前標題:vb點虐
自動按鈕 vbs自動點擊
網(wǎng)頁網(wǎng)址:http://jinyejixie.com/article28/ddicpcp.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供關鍵詞優(yōu)化、商城網(wǎng)站、Google、外貿(mào)建站、網(wǎng)頁設計公司、全網(wǎng)營銷推廣
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)