[Visual Basic 6.0] Android、IOS 手機模擬器 (純介面、簡易功能模擬、模擬拖曳換頁)

摘要:[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) 有問題歡迎提問