摘要:[Visual Basic 6.0] Android、IOS 手機模擬器 (純介面、簡易功能模擬、模擬拖曳換頁)
[Visual Basic 6.0] Android、IOS 手機模擬器 (純介面、簡易功能模擬、模擬拖曳換頁)
#註:此工具只是單純模擬 Android、IOS 手機模擬、拖曳換頁、簡易執行,並非真實可執行 Apk 之手機模擬器。
# 關機狀態
# 執行巴斯卡 App
# 執行警示燈 App
# [Code]
Dim OneX
Dim NowNumber
Private Sub Form_Load()
Main_Click
End Sub
Private Sub Labels_Click(Index As Integer)
Select Case Labels(Index).Caption
Case "關機"
Call StartLedTab
Case "警示燈"
Timers(0).Enabled = True
Case "巴斯卡"
ShowTab(NowNumber).Cls
n = 11
ReDim ans(n, n)
ans(0, 1) = 1
ShowTab(NowNumber).ForeColor = vbRed
For i = 1 To n
For j = 1 To i
ans(i, j) = ans(i - 1, j) + ans(i - 1, j - 1)
ShowTab(NowNumber).Print ans(i, j);
Next j
ShowTab(NowNumber).Print
Next i
End Select
End Sub
Private Sub Main_Click()
Call StartLedTab
NowNumber = 1
ShowTab(NowNumber).Visible = True
Tabs(1).Value = True
End Sub
Private Sub OptionsCmd_Click()
MsgBox "未開發"
End Sub
Private Sub Returns_Click()
For i = 0 To 0
Timers(i).Enabled = False
Next i
For i = 0 To 2
ShowTab(i).BackColor = vbBlack
Next i
End Sub
Private Sub ShowTab_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
OneX = X
End Sub
Private Sub ShowTab_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If (OneX - X) > 0 Then
If NowNumber + 1 <= 2 Then
NowNumber = NowNumber + 1
Tabs(NowNumber - 1).Value = False
Tabs(NowNumber).Value = True
End If
Else
If NowNumber - 1 >= 0 Then
NowNumber = NowNumber - 1
Tabs(NowNumber).Value = True
Tabs(NowNumber + 1).Value = False
End If
End If
End Sub
Private Sub Tabs_Click(Index As Integer)
Call StartLedTab
ShowTab(NowNumber).Visible = True
End Sub
Sub StartLedTab()
For i = 0 To 2
ShowTab(i).Visible = False
ShowTab(i).BackColor = vbBlack
Next i
End Sub
Private Sub Timers_Timer(Index As Integer)
Select Case Index
Case 0
Randomize
ShowTab(NowNumber).BackColor = Int(Rnd * 999999)
End Select
End Sub
[Visual Basic] 手機模擬器 (0xDe).rar
#0xDe 從分享中學習
#Facebook:ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問