VB初心者質問スレ Part8 （･∀･）
■ このスレッドは過去ログ倉庫に格納されています
0613
NGNGni = InStr(1, Text1.Text, "に")
If ni > 1 Then
Dim a1 As Byte
a1 = Left(InStr(1, Left(Text1.Text, ni - 1), 1 Or 2 Or 3 Or 4 Or 5 Or 6 Or 7 Or 8 Or 9 Or 0), 1)
Text1.Text = a1
End If
これだと 0 でますが、どこがちがいますか？
■ このスレッドは過去ログ倉庫に格納されています