網路城邦
回本城市首頁 唐老鴨之家
市長:  副市長:
加入本城市推薦本城市加入我的最愛訂閱最新文章
udn城市資訊科技網路分享【唐老鴨之家】城市/討論區/
討論區VB6 字體:
上一個討論主題 回文章列表 下一個討論主題
按鈕元件之進階範例
 瀏覽264|回應0推薦0


等級:6
留言加入好友

Rem === 你對現在的薪水滿意嗎 ===

Rem === Command1, Command2, Label1

Private Sub Form_Load()

Rem Form1.BorderStyle = 0

Form1.Top = 0

Form1.Left = 0

Form1.Width = Screen.Width

Form1.Height = Screen.Height

Label1.Caption = "老闆問你:你對現在的薪水滿意嗎?"

Command1.Caption = "很滿意"

Command2.Caption = "不滿意"

End Sub

Private Sub Command1_Click()

    Label1.Caption = "老闆說:那就不用加薪了喔!"

End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Randomize

    Command2.Left = (Form1.Width - Command2.Width) * Rnd

    Command2.Top = (Form1.Height - Command2.Height) * Rnd

End Sub

回應 回應給此人 推薦文章 列印 加入我的文摘

引用
引用網址:https://city.udn.com/forum/trackback.jsp?no=58536&aid=4984082