Option Explicit
Public i As Integer
Dim a, b
Private Sub Command1_Click()
Dim x As Integer
x = MsgBox("你確定保存嗎？", vbYesNo + vbDefaultButton1 + vbQuestion, "友情提示") 'msgbox呼叫，創建表單
If x = 6 Then
Dim strFileName As String '檔案名
Dim lngHandle As Long '句柄
Dim strWrite As String
'要寫入的文本內容
strFileName = "進度.txt"
lngHandle = FreeFile()
'取得句柄
'準備要寫入的內容
strWrite = i
'For后面的引數表示以何種方式打開檔案，Input是讀取，Output是覆寫寫入，Append是追加寫入
Open strFileName For Output As lngHandle
'打開檔案
Print #lngHandle, strWrite
'寫入文本
Close lngHandle
'關閉檔案
a.Controls.stop
a.Close
Set a = Nothing
End
End If
End Sub
Private Sub Picture3_Click()
Dim strFileName As String
'檔案名
Dim lngHandle As Long
'檔案句柄
Dim strAll As String
'所讀取的文本檔案的所有內容
Dim strLine As String
'在回圈中存放每行的內容
strFileName = "進度.txt"
'獲得檔案的句柄
lngHandle = FreeFile()
'For后面的引數表示以何種方式打開檔案，Input是讀取，Output是覆寫寫入，Append是追加寫入
Open strFileName For Input As lngHandle
'回圈直到檔案尾
Do While Not EOF(lngHandle)
'每次讀取一行存放在strLine變數中
Line Input #lngHandle, strLine
'每次讀取都把所讀到的內容連接到strAll變數，由于Line Input去掉了換行符，所以這里補上
strAll = strAll & strLine & vbCrLf
Loop
'顯示得到的全部分內容
i = strAll
Image1.Picture = LoadPicture(App.Path & "\images\背景1.jpg")
Picture3.Visible = False
Picture4.Visible = True
Command1.Visible = True
Picture4.Picture = LoadPicture(App.Path & "\images\" & i & ".jpg")
If strAll >= 7 & strAll < 14 Then
Image1.Picture = LoadPicture(App.Path & "\images\外背景1.jpg")
Else
If strAll >= 14 & strAll < 200 Then
Image1.Picture = LoadPicture(App.Path & "\images\外背景2.jpg")
End If
End If
End Sub
Private Sub Form_Load()
Set a = CreateObject("wmplayer.ocx")
Set b = CreateObject("wmplayer.ocx")
a.url = App.Path & "\music\初始音樂.mp3"
a.settings.playCount = 99999
End Sub
Private Sub Form_Unload(Cancel As Integer)
b.Controls.stop
b.Close
Set b = Nothing
a.Controls.stop
a.Close
Set a = Nothing
End Sub
Private Sub Image2_Click()
i = 7
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Picture4.Visible = True
Image1.Picture = LoadPicture(App.Path & "\images\背景1.jpg")
Picture4.Picture = LoadPicture(App.Path & "\images\7.jpg")
Image1.Picture = LoadPicture(App.Path & "\images\外背景1.jpg")
End Sub
Private Sub Image3_Click()
i = 100
Image2.Visible = False
Image3.Visible = False
Image4.Visible = False
Picture4.Visible = True
Image1.Picture = LoadPicture(App.Path & "\images\背景1.jpg")
Picture4.Picture = LoadPicture(App.Path & "\images\7.jpg")
End Sub
Private Sub Picture1_Click()
Image1.Picture = LoadPicture(App.Path & "\IMAGES\背景1.jpg")
Picture4.Visible = True
Picture4.Picture = LoadPicture(App.Path & "\images\z.jpg")
Picture1.Visible = False
Picture2.Visible = False
Command1.Visible = True
Picture5.Visible = False
a.Controls.stop
a.Close
Set a = Nothing
Set a = CreateObject("wmplayer.ocx")
Set b = CreateObject("wmplayer.ocx")
b.url = App.Path & "\music\變化音樂.mp3"
b.settings.playCount = 99999
End Sub
Private Sub Picture2_Click()
Picture1.Visible = False
Picture2.Visible = False
Image1.Picture = LoadPicture(App.Path & "\images\讀取背景.jpg")
Picture3.Visible = True
Picture5.Visible = False
End Sub
Private Sub Picture5_Click()
Dim msg As Integer
msg = MsgBox("你確定要退出嗎？", vbYesNo + vbDefaultButton1 + vbQuestion, "友情提示") 'msgbox函式打開一個表單
If msg = 6 Then
a.Controls.stop
a.Close
Set a = Nothing
End
End If
End Sub
Private Sub Picture4_Click()
Picture4.Picture = LoadPicture(App.Path & "\images\" & i & ".jpg")
i = i + 1
If i = 6 Then
Image2.Visible = True
Image3.Visible = True
Image4.Visible = True
Image1.Picture = LoadPicture(App.Path & "\images\背景2.jpg")
Picture4.Visible = False
Image2.Picture = LoadPicture(App.Path & "\images\x1.jpg")
Image3.Picture = LoadPicture(App.Path & "\images\x2.jpg")
Image4.Picture = LoadPicture(App.Path & "\images\x3.jpg")
End If
If i = 14 Then
Image1.Picture = LoadPicture(App.Path & "\images\外背景2.jpg")
If i = 21 Then
Image1.Picture = LoadPicture(App.Path & "\images\外背景1.jpg")
If i = 21 Then
Image1.Picture = LoadPicture(App.Path & "\images\背景1.jpg")
If i = 25 Then
Image2.Visible = True
Image3.Visible = True
Image4.Visible = True
Picture4.Visible = False
Image2.Picture = LoadPicture(App.Path & "\images\2x1.jpg")
Image3.Picture = LoadPicture(App.Path & "\images\2x2.jpg")
Image4.Picture = LoadPicture(App.Path & "\images\2x3.jpg")
End If
End If
End If
End If
End Sub
我就是想知道2塊兒，一個是保存后在運行為啥提示我檔案已打開。還有就是我Picture3中strall的判斷寫的有問題嗎？為啥達不到要求啊
uj5u.com熱心網友回復：
麻煩不要糾結那個CreateObject("wmplayer.ocx")里的引數竟然是"wmplayer.ocx"起碼這地方能運行uj5u.com熱心網友回復：
自己跟蹤除錯呀......轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/119375.html
標籤：VB基礎類