いつもお世話になってます。
現在VBを使用してエクセルへの書き込み？
というかエクセルに吐き出しをしているのですが、
シートの削除のところでexeが残ってしまいます。
方法が悪いのだろうと思うのですが、どこがどう悪いのかいまいち分かりません。
VB2005とExcel2000での組み合わせです。
コードは下記のとおりです。
Dim oSheets As Excel.Sheets = oBook.Worksheets
Dim myChkSht As Excel.Worksheet
For Each myChkSht In oSheets
If Not (myChkSht.Name = "Sheet1") Then
myChkSht.Delete()
End If
MRComObject(myChkSht)
Next
MRComObject(myChkSht)
VB2008 ProgressBar について教えてください。
pictureboxの走査プログラムを作成しているのですが。
走査を行いＨＩＴした結果を四角で囲むというプログラムを作成しています。
ですが、実行するとどうしてもprogressbarが最後まで進んでから四角の描画処理をしてしまいます。以下にソースを書きますので、間違っている場所を教えてください。
よろしくお願いします。
（Textbox1を閾値としてsikiiに代入し、二次元配列Cor(,)と比較して判断します。）ProgressBarの最大値とSTEP値はFormLordで指定しています。
Dim sikii = Val(TextBox1.Text)
Dim g As Graphics
g = PictureBox3.CreateGraphics()
Dim i, j As Integer
For i = 0 To PictureBox3.width
For j = 0 To PictureBox3.Height
If Cor(i, j) >= sikii Then
g.DrawRectangle(Pens.Black,i,j,16,16)
End If
ProgressBar1.PerformStep()
Next j
Next i
MsgBox("完了しました。", , "通知")
ヨロシクお願いします。
VB2005でコード書いています。
現状は
For i = 0 To 80
If i = j(20) Then 'And 4 And 5 And 12 Or 13 Or 14 Or 21 Or 22 Or 23 Or 27 Or 28 Or 29 Or _
' 36 Or 37 Or 38 Or 45 Or 46 Or 47 Or 54 Or 55 Or 56 Then
With textbox(i)
.BackColor = Color.Black
.ForeColor = Color.White
End With
End If
Next
このような感じになっています。上の数字を大量に並べているところがコメント化されていて少しゴチャゴチャした感じ（現状では変えたいテキストボックスの番号を配列化して試しています。）になっていますが、基本的には飛び飛びのをif文を使って抽出しその部分のみのテキストボックスプロパティ（背景色等）を変更することができたらと考えているのですが、色々試しても自分の考えているように動いてくれません。
どなたかご存知の方がおられましたら、良きアドバイスをお願い致します。
Windows XP SP2 上の Visual Basic 2005 で
Windows アプリケーションを開発をしています。
あらかじめ用意した画像をボタンコントロールに貼り付けて、
その画像の形に合わせて、ボタンコントロールの形を
変える方法について調べています。
できれば、デザイナ上でそういったことをする方法があればよいのですが・・・どなたかご存知の方いらっしゃいませんでしょうか。
ピクチャーボックスをボタンにしても構いませんが、できるだけコーディング量を減らしたいと考えています。
いつもお世話になっております。
VB初心者で「BV2008EE」を使っています。よろしくお願いします。
データリーダーが気に入ってよく使っています。
使い方に問題があるのかもしれませんが
***<< ソース例 >>*****************************************
'データコマンドの定義
command.CommandText = "SELECT tana_type FROM tbl_tana ORDER BY tana_type"
'データリーダーからのデータの読み出し
dr = command.ExecuteReader()
Do While dr.Read
'読み出したデータ(Null以外）をコンボボックスに追加する
If Not IsDBNull(dr("tana_type")) Then
cmbTana.Items.Add(dr("tana_type"))
End If
Loop
'データリーダーを閉じる
dr.Close()
***********************************************************
データベースの情報をコンポボックスに追加していくものですが
空白を追加する場合があります。
原因は「NULL」ではなく「""(0文字)」が登録された為です。
一度文字を書いて削除した場所はNULLではなく""になるようです。
データリーダーで""の判定がエラーになるためNULL判定にしたのですが
入力間違いで削除するケースは多いと思う為、どうしようか困っています。
""判定が出来ないのは私のプログラム構造のミスなのかもしれません。
苦肉の策で""だったら「NULL」を書き込もうと思いましたが出来ませんでした。
良い方法がございましたらご教授いただけると助かります。
宜しくお願いいたします。
