修飾子が不正です。とコンパイルエラーが出るのですが、原因は、なんですか?
VB6です。
不正な修飾子を使っているのが原因では?
エラーになるコードがないので、これ以上の回答は無理です。
Private Sub set_Click()
Dim dumy As Integer
Dim allow As Integer
Dim interval As Integer
Dim time As Integer
Dim pitti As Integer
Dim speed As Integer
Dim rot As Integer
Dim msg As Long
allow = kyoyou_data.Text
interval = check_interval.Text //ここでエラーが発生
time = time.Text
pitti = check_pitti.Text
speed = check_speed.Text
rot = check_rot.Text
「不正な修飾子」という事であれば、どちらかというと、その下の
Dim time As Integer
time = time.Text
の部分に原因があるように思えますね。
「Time関数」と「整数型変数 time」と「コントロール time」とが、
それぞれ名前が競合しているようですし。
まずは、競合してしまうような time という名前を使うべきでは無いと
思いますが、どうしてもこの名前にしたいのであれば、
time = Me.time.Text
もしくは
time = Me!time.Text
time = Me("time").Text
time = Controls("time").Text
などの構文を使うようにし、かつ、標準の Time 関数の方は、
Dim D As Date
D = DateTime.Time()
のように、頭に DateTime を修飾させて使うようにすれば、
それぞれを区別させる事ができます。
上手くいきました。
今回のような場合になる時は、例えばallowと言う変数もエラーになる原因になるんですよね?
>>名無し氏
J氏の質問に割り込まないように。
ありがとうございました。
無事にエラーは解決できました。
勝手に他人の質問を解決済にしないように。
ツイート | ![]() |