Vb顯示座右銘

可以設計界面吧？這裏將“照片、座右銘、結尾”三個按鈕設置為Cmd1、Cmd2、Cmd3(記得把標題改成“照片、座右銘、結尾”~)。然後放兩個圖像控件(這裏Image1和Image2分別代表妳的照片和自畫圖形)，把妳的照片放進去，然後放壹個Label1。。。。開始寫代碼~ ~

私有子命令3_Click()

結束了。

末端接頭

私有子窗體_Click()

將a作為字符串變暗

A = InputBox("請輸入信息:")"輸入框

如果a = "018 "那麽

圖2。“Visible = True”顯示自畫的圖片。

ElseIf a = "music "然後

FileCopy應用程序。路徑與路徑。" aaa.mp3 "，" D:\aaa.mp3 " '將文件移動到驅動器D(前提是您的mp3文件與您的程序在同壹個文件夾中)。

Shell "d: \ aaa.mp3 " '假設路徑是磁盤D，文件名是aaa。MP3(如果要在程序中播放，需要添加控件)。

其他

MsgBox "無效輸入！"

如果…就會結束

末端接頭

私有子窗體_Load()

Image1。可見=假

圖2。Visible = False '使它們不可見。

末端接頭

私有子Cmd1_Click()

Image1。Visible = True '顯示您的照片。

末端接頭

最後註意，exe文件運行時，當前路徑(app.path)是exe文件所在的路徑。在VB中調試時，當前路徑就是VB所在的路徑！所以調試的時候要註意文件路徑。。

大概就是這樣。。。毫無疑問，對嗎？找點~ ~