VB2005で、Form1にPanel1をはりつけ、その中にPicturebox1をはりつけ、Pictureboxの範囲の中で、マウスをホィールしても、イベントが発生しません。ためしに、Picturebox1とPanel1について書いてみましたが、だめでした!(Form1では、発生します)
何がダメなんでしょうか?どなたか詳しい方がいらっしゃいましたら教えて頂けないでしょうか?宜しくお願い致します。
Private Sub PictureBox1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseWheel
MsgBox("TEST_Picturebox")
End Sub
Private Sub Panel1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseWheel
MsgBox("TESUT_Panel")
End Sub
VB2005の質問です。
一度PictureBoxに表示させたファイルを削除したいと考えています。
例
--------------------------------------------------------
Private FileName As String = "C:\パス" 'パス名
'画像の表示
Sub foo()
PictureBox1.Image = Image.FromFile(FileName)
End Sub
'ファイルの削除
Sub bar()
PictureBox1.Image = Nothing
System.IO.File.Delete(FileName) 'a)エラー発生。削除できない
End Sub
--------------------------------------------------------
上記のコードですと(a)の箇所でエラーが発生します。エラー内容は、「別のプロセスで使用されているためファイルにアクセスできません」、というものです。
このファイルを削除するには、どのような処理が必要でしょうか。
以上、どうぞよろしくお願い致します。
いつもお世話になっております。
コード上でコントロールを配置したいのですが、うまくいきません。
Dim location As New Point(100, 100)
Dim button As Button
button = New Button
button.Height = 50
button.Weight = 50
button.Location = location
button.Visible = True
何が足りないのか・・教えていただきたいです。。
VB2005、SQLServer2005環境です。
DataGridでDBのレコードを表示しています。
フォームのデザイナに、データソースに表示されている
テーブルをドラッグしただけでなので、現在は以下のように
なってます。
Private Sub TestForm_Load(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Load
Me.testTableAdapter.Fill(Me.DataSet.test)
End Sub
レコードが少なければ問題ないのですが、10万や20万と増えて
くると、これでは表示に時間がかかります。
(実際には数百程度しかデータは入らないのですが)。
DataGridViewに表示するレコードの数を200件程度にして、それ以上は
スクロールさせた時に表示するような形式にしたいと思うのですが、
それを実現するための方法を教えていただけないでしょうか?
できましたら、サンプルコードを交えて教えていただけると助かります。
宜しくお願いします。
VisualBasic6.0 を使用しています。
SQLのINSERT文についての質問なのですが、
フォームのテキストに記入された内容を新規のレコードとしてデータベースに登録する場合、どのようなプログラムを組めばよいのでしょうか?
下記のように組んでみたのですが、エラー(実行時エラー'-2147217904(80040e10)':一つ以上の必要なパラメータの値が設定されていません)がでてしまいます。
以下のプログラムでは、
Form4の.Text1~7にユーザーが記入した情報をデータベースのM_USERというテーブルの新レコードとして追加しようとしています。
Private Sub Command1_Click()
Dim objcon As ADODB.Connection
Dim objrec As ADODB.Recordset
Dim strConnectString As String
Dim strMDBFilePath As String
Dim strSQL As String
strMDBFilePath = "C:\Documents and Settings\Watanabe Ryota\デスクトップ\新ダイエット\diet.mdb"
strConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strMDBFilePath & ";"
Set objcon = New ADODB.Connection
objcon.Open strConnectString
strSQL = "INSERT INTO M_USER(U_ID,U_NAME,U_PASS,U_SIZES1,U_SIZES2,U_CAL,U_IKIGOMI) VALUES(Form4.Text1,Form4.Text2,Form4.Text3,Form4.Text4,Form4.Text5,Form4.Text6,Form4.Text7)"
Set objrec = objcon.Execute(strSQL)
End Sub
おねがいします。