.exeファイルでエラーを出ないようにするには？ (ID:85314)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 そんな危ないものを使わなくても、ストップウォッチだったら CommandButtonとLabelとTimerを一つずつ置いて Private Declare Function timeGetTime Lib "winmm.dll" () As Long Dim lgStartTime As Long Private Sub Command1_Click() With Command1 If .Caption = "Start" Then lgStartTime = timeGetTime Timer1.Interval = 30 Timer1.Enabled = True .Caption = "Stop" Label1.Caption = "" ElseIf .Caption = "Stop" Then Timer1.Enabled = False Label1.Caption = timeGetTime - lgStartTime .Caption = "Reset" ElseIf .Caption = "Reset" Then Label1.Caption = "" .Caption = "Start" End If End With End Sub Private Sub Form_Load() Command1.Caption = "Start" End Sub Private Sub Timer1_Timer() Label1.Caption = timeGetTime - lgStartTime End Sub この位の方が良いかも、早押しも負けないし。