Visual Basic初心者です。
Button1でData Grid Viewを表示し、Data Grid Viewから更新したものを
Button2でmdbの更新を行う動作をさせたいと思っております。
http://blog.livedoor.jp/akf0/archives/51536291.html
を参考にさせていただいましたが、このまま実行すると
参照までは動作しますが、更新(Button2)の時点で
DataAdapter.SelectCommandプロパティを初期化する必要があります。
と出てしまいます。
どなたか知恵を貸してください。よろしくお願い致します。
実行コードは下記の通りです。
Private Sub Button2_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
'更新用SQLの取得
Dim builder As SqlCommandBuilder = New SqlCommandBuilder(adapter)
builder.GetUpdateCommand()
builder = New SqlClient.SqlCommandBuilder(adapter)
Dim result As Integer
'データの更新
result = adapter.Update(ds.Tables(0))
End Sub
エクセルで写真をサムネール表示するマクロを組んでいます。
ところが、Sheetに挿入した写真をコピーするところで
エラーが出ます。
いろいろ試行錯誤を繰り返したところ
コマンドボタンなどのボタン類を張り付けてあるSheetでは、
コピーできないことが分かりました。
具体的なマクロサンプルを挙げておきますので、
同じようなことが起こるか試してもらえませんでしょうか。
またその原因も教えていただければ幸いです。
Sub test()
Dim x As Variant
x = Application.GetOpenFilename("jpgFiles,*.jpg")
If VarType(x) = vbBoolean Then Exit Sub
ActiveSheet.Pictures.Insert(CStr(x)).Select
Selection.Width = 162
Selection.Height = 100
Selection.Copy
ActiveSheet.Paste
End Sub
上のtest()マクロをコマンドボタンの有るSheetと無いSheetで
実行すると、
◎コマンドボタンの有るSheet ⇒ Selection.Copyで
『PictureクラスのCopyメソッドが失敗しました』というエラーが出る。
◎コマンドボタンの無いSheet ⇒ エラーが出ずコード通り実行される
因みに、
エクセル2007は、(12.0.6425.1000)SP2 MSO(12.0.6529.5000)
OSは、XP HomeEdition Version 2002 Service Pack 3
です。
VB.NETでPictureBoxへの描画について
PictureBoxに画像を表示し、余白部分を含めて、マウスで描画できる処理を作成しているのですが、
どうも上手くいかない為、皆さんの知恵をお借りしたいと思い質問させて頂きました。
まず、880×560のPictureBoxを用意し、その中に、600×480の画像を埋め込んでいます。
そのPictureBoxの中で、画像以外の部分(余白)にもマウスで線等を書きたいのです。
画像のみに描く場合は上手くいくのですが、余白を含めると上手くいかなくなってしまい、
困っております。
プログラムの違いは以下の箇所のみです。２の場合は上手くいきます。
１．PictureBox全体に描画する(画像も含め)
Dim g As Graphics = PictureBox1.CreateGraphics
２．画像のみに描画する
Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
ちなみに、マウスではなく、ボタンクリック時に描画した時は、１の場合でも上手くいきます。
お手数ですが、ご回答の程、よろしくお願いします。
VB.NETでPictureBoxへの描画について
PictureBoxに画像を表示し、余白部分を含めて、マウスで描画できる処理を作成しているのですが、
どうも上手くいかない為、皆さんの知恵をお借りしたいと思い質問させて頂きました。
まず、880×560のPictureBoxを用意し、その中に、600×480の画像を埋め込んでいます。
そのPictureBoxの中で、画像以外の部分(余白)にもマウスで線等を書きたいのです。
画像のみに描く場合は上手くいくのですが、余白を含めると上手くいかなくなってしまい、
困っております。
プログラムの違いは以下の箇所のみです。２の場合は上手くいきます。
１．PictureBox全体に描画する(画像も含め)
Dim g As Graphics = PictureBox1.CreateGraphics
２．画像のみに描画する
Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
ちなみに、マウスではなく、ボタンクリック時に描画した時は、１の場合でも上手くいきます。
お手数ですが、ご回答の程、よろしくお願いします。
画像の取得
質問させていただきます。
開発環境
VB2010 silverlight4
ドラック&ドロップでファイルを表示させるという処理を作成して、
ボタン押下時にファイルパスを取得したいのですが
ファイルのパスのとり方がわかりません。
わかる方いたら教えてください。
ドラック＆ドロップの処理
Public Sub DropGo1(ByVal sender As Object, ByVal e As System.Windows.DragEventArgs)
txtdrop.Text = String.Empty
Dim myDataObject As IDataObject = DirectCast(e.Data, IDataObject)
Dim dropFiles() As FileInfo = DirectCast(myDataObject.GetData(DataFormats.FileDrop), FileInfo())
For Each fileItem In dropFiles
Dim myImage As Stream = fileItem.OpenRead
Dim myImageSource As New BitmapImage
myImageSource.SetSource(myImage)
Image1.Source = myImageSource
myImage.Close()
imageTextBlock.Text = fileItem.Name
txtdrop.Text = fileItem.Name
Next
End Sub
よろしくお願いいたします。
