VB拼图应用.pdfVIP

VB拼圖應用 資科系 林偉川 圖形式按鈕屬性 • Style屬性 0 (標準外觀) ，1(圖片外觀 ) • Picture屬性 圖形檔案 (VB6) • image屬性 圖形檔案 (VB.NET) • Left=Top=0 • Width=2052 ，Height=2052 • 共有九張圖 1.jpg … 9.jpg • Form1執行時視窗為最大化 Windowstate設為 2 2 1 執行結果 3 按鈕顯示圖形(VB6) path$ = d:\ For i = 0 To 7 C1(i).Picture = LoadPicture(path$ (i + 1) .JPG) Next C1(8).Picture = LoadPicture() 4 2 按鈕顯示圖形(VB.NET) 放圖的資料夾一定要為D:\VB10\ Dim pa as string=“D:\VB10\” b1.bitmap=new bitmap(pa “1.jpg”) … b8.bitmap=new bitmap(pa “8.jpg”) b9.bitmap=nothing 當成可以移動的空間 5 一開始要做的事(VB6) path$ = d:\“ : Open path$ hit.txt For Input As #1 Input #1, hina, hic: Close #1 L1(0).Caption = 最高紀錄保持者 :“ : L1(1).Caption = hina L1(2).Caption = 紀錄為:“ : L1(3).Caption = hic 次 Form1.Show : C2.Caption = 重新開始 na = InputBox(give me your mane, input mane,) L1(4).Caption = 移動的次數為 ：“ : L1(5).Caption = 0 次“ For i = 0 To 7 C1(i).Picture = LoadPicture(path$ (i + 1) .JPG) : Next C1(8).Picture = LoadPicture() kk = MsgBox(離開不玩嗎？, vbYesNo, CHECK) If kk = vbYes Then End Else MsgBox 啟動打亂圖形機制 “ : INI End If 6 3 啟動拼圖亂數打亂圖形 (VB6) Public Sub INI() For i = 1 To 9: a(i) = 0: Next L1(5).Caption = 0 次 randomize i = 1 Do While i = 9 k = Int(9 * Rnd()) + 1 If A(k) = 0 Then A(k) = i + 1 : i = i