演算についてよくわからないのですが、
Dim KeiA As Integer = 80
Dim KeiB As Integer = 70
Dim KeiC As Double = 61.08
Dim KeiD, KeiE As Double
KeiD = KeiA - KeiC
KeiE = KeiB - KeiC
デバック時に自動変数で見てみると
KeiDは18.92
KeiEは8.9200000000000017
になってしまいます。なぜKeiEは8.92ではないんでしょうか。
お世話になります。
filelistboxで選択したファイル名を選択した順に
テキストボックスに表示させたいのですが、ファイル名の
後に改行コードを入れても改行して表示してくれません。
何が原因なんでしょうか？よろしく御教授願います。
例 aaa.txtを選択、テキストボックスに表示させ、
その後bbb.txtを選択するとテキストボックスの表示が
”aaa.txt‥bbb.txt”となる
---------
aaa.txt（改行）
bbb.txt
---------
と表示したい。
（コード）
Dim fname As String
Private Sub File1_Click()
fname = Dir1.Path & "\" & File1.FileName
End Sub
Private Sub Command3_Click()
Call macappend
End Sub
Private Sub macappend() 'text1に選択マクロを追加
Dim macbuff1 As String
Dim macbuff2 As String
macbuff2 = Text1.Text
macbuff1 = fname + Chr(13) + Chr(11)
macbuff2 = macbuff2 + macbuff1
Text1.Text = macbuff2
End Sub
まったくの初心者です。初歩的な質問で申し訳ありません。
カラーのところでクリックが実行できません。
なぜなのかよくわかりません。お暇なときご教授下さい。
そしてもう一つ質問ですが以下のコードを追加したいの
ですがどこに挿入すればいいのですか。
→private sub image_click()
ccolor = 7
end sub ここまでのコードを追加したいです。
ーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub Command1_Click()
Form1.Cls
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.DrawWidth = 3
If Button = 1 Then
PSet (X, Y), QBColor(ccolor)
End If
End Sub
Private Sub Label1_Click()
cccolor = 14
End Sub
Private Sub lavel2_click()
cccolor = 0
End Sub
Private Sub label3_click()
ccolor = 9
End Sub
Private Sub label4_click()
ccolor = 12
End Sub
Private Sub label5_click()
ccolor = 10
End Sub
文字列の括弧について(初心者)
http://oshiete1.goo.ne.jp/kotaeru.php3?q=1110818
の質問の続きなのですが、
文字列の中で( )を１セットで使う方法を教えてもらったので自分の使用するプログラムに少し直したのですが、やはり２つ以上の括弧(カッコ)にも対応しなければならなくなりました。
どのようなプログラムになるのでしょうか？
私はInstrは文字列を左からよんでいって最初にある指定した文字(下記の例だと"("など)の場所を何文字目か示してくれるだけなので１つの括弧にしか対応できないと考えています。
なので文字列の中に指定した文字が何個含まれているか調べて、それぞれ何文字目か示してくれるプログラムが
あればできると考えています。
どうか教えてください、おねがいします。
↓今のプログラム
Dim bucketL as Long
Dim bucketR as Long
Dim a as String
Dim b as String
a=Text1.text
bucketL = InStr(a, "(")
bucketR = InStr(a, ")")
If bucketL < bucketR And bucketL * bucketR <> 0 Then
Text2.text = "OK"
End If
