本經驗是為"抖音做我女伴侶"發的,作者看到網上年夜大都是應付網友的軟件或建造方式,用記事本完當作的vbs,沒有像抖音上的有圖片的那么周全,為了幫忙網友們脫單,所以帶來這份經驗,若是大師想體驗一下軟件,經驗末從頭至尾有下載地址。
打開VB6.0,新建一個工程,尺度EXE。
把窗口拉到恰當位置。不要太小。
箭號指的是在桌面屏幕的巨細。
接下來找到抖音的圖片,我也沒素材,從網上下載下來的,和抖音的一樣。
等下發在經驗末從頭至尾。
點擊‘視圖’,選擇屬性窗口,可以看到一個叫picture的,點擊一下,右邊會呈現3個小點點,打開找你要找的圖片吧。
忘了說,在窗口上鼠標右鍵也是可以找到屬性窗口的哦!
把圖片放好就呈現了,可以改按鈕的名字哦!(見圖片)
雙擊按鈕,寫以下代碼:
Private Sub Command1_Click()
MsgBox "3號方針已拿下", , "哈哈"
End Sub
再寫:
Private Sub Command2_Click()
If MsgBox("考慮考慮唄", vbYesNo, "慢慢想,沒關系") = vbYes Then
MsgBox "有車有房",,"慢慢想,沒關系"
MsgBox "我媽會泅水",,"慢慢想,沒關系"
MsgBox "家務我做",,"慢慢想,沒關系"
MsgBox "零食你吃",,"慢慢想,沒關系"
End If
If MsgBox("考慮考慮唄", vbYesNo) = vbNo Then
MsgBox "有車有房",,"慢慢想,沒關系"
MsgBox "我媽會泅水",,"慢慢想,沒關系"
MsgBox "家務我做",,"慢慢想,沒關系"
MsgBox "零食你吃",,"慢慢想,沒關系"
End If
End Sub
--------------我是朋分線,不要復制我----------------
阿誰線它本身會加。
還要寫文字的:
最后在點擊文件-生當作exe,點擊試驗一下結果吧
作者有事,不克不及寫太多更具體的,有需要可以聯系作者。
百度網盤下載鏈接:
1gPh_calKESN24PqUwGyvWQ 暗碼:l6ev
VB6.0精簡版下載鏈接:
1PYT5sSXIP2n1BdIj3botIA 暗碼:pacd
0 篇文章
如果覺得我的文章對您有用,請隨意打賞。你的支持將鼓勵我繼續創作!