エラーが出るタイトルの原因とは？
- 特定の文字を検出してそれに応じた画像を表示するプログラムを作成したところ、タイトルのようなエラーが出ます。
- 宣言をしないと「宣言が必要」というエラーが出し、宣言をするとタイトルのようなエラーが出ます。
- 初心者のため、エラーメッセージの意味がわからず詳しい調査も難しく感じています。
- ベストアンサー
式はメソッドではありませんと表示されます。
特定の文字を検出すうｒと、それに応じた画像が表示されるように プログラムしたのですが、タイトルのようにエラーが出ます。 宣言をしないと「宣言が必要」で、宣言をするとタイトルのように。 正直、全くの初心者なのでタイトルが何を言っているのか全く分かりません。 ネットでも調べましたが、詳しくは分からず……。 ここならばと思い、投稿しました。 問題部分は下記の「DrawFadedImage」部分です。 エラー修正オプションをしても同じように出ます。 ElseIf InStr(Mainlabel.Text, "テスト") Then Mainlabel.Text = Replace(Mainlabel.Text, "テスト", "") Savepic = 51 'PictureBox1のGraphicsオブジェクトを取得 Dim g As Graphics = PicC.CreateGraphics() '画像を読み込む Dim img As Image = Image.FromFile("Data\Pic\132.ELS") 'フェードイン Dim i As Integer For i = 1 To 10 Console.WriteLine((i * 0.1F)) DrawFadedImage(g, img, i * 0.1F) System.Threading.Thread.Sleep(1) PicC.Image = img Next i
- ryosan991
- お礼率38% (186/488)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
お使いのDrawFadedImageですが 標準のメソッドではありませんよね 何を参考にして記述したのかを明確にしましょう 作成中のフォームやモジュールに DrawFadedImageのプロシージャは存在するのでしょうか？ また質問文中の > 宣言をしないと「宣言が必要」 とは 何を宣言したかが 明記されていませんよね
関連するQ&A
- 画像転送（ワールド変換行列）について
Dim g As Graphics = PictureBox1.CreateGraphics() Dim img As Image = Image.FromFile("○○.jpg") For i = 1 To 10 g.TranslateTransform(+10, 0) g.DrawImage(img, New Rectangle(0, 0, img.Width, img.Height)) Next i 上記のような感じで画像を左から右へとスムーズに 動かしたいのですが、移動毎の残像が残ってしまいます。 毎回Refreshするとちらつきが出てしまいますし……。 どうしたら残像が残らず画像を移動出来るでしょうか。
- ベストアンサー
- Visual Basic
- 【VB2005】画像の切り出し
こんばんは。 VB2005で、画像ファイルの一部を切り出し、Image型の変数に格納する方法が分かりません。 （DrawImageメソッドで切り出した画像を描画する事はできました） 【例】 Dim i As Integer Dim sourceImg As Image = Image.FromFile("test.bmp") Dim img(9) As Image For i = 0 To img.Length - 1 img(i) = [sourceImgの一部] Next どなたか、ご教授頂けないでしょうか?
- ベストアンサー
- Visual Basic
- VB.NET Image型データをファイルとして取り出したい
次のようなコーディングでImage型へ格納した データをファイルとして取り出す方法が解りません。 Dim img As Image img = Image.FromFile("C:\pic01.jpg") 具体的には、"C:\pic02.jpg" というように名前を 付けて保存したいのですが、可能でしょうか？
- 締切済み
- Visual Basic
- グラフィックDrawLineメソッドについて
グラフィックDrawLineメソッドについて教えてください。 下記のコードでは、開いた線になります。OK mypoints(0)=New Point(10,10) ,mypoints(1)=New Point(40,70) mypoints(2)=New Point(60,30) mypoints(3)=New Point(90,90) Dim g As Graphics = PictureBox3.CreateGraphics() g.DrawLines(New Pen(Color.Blue, 1), mypoints) ところが、下記のコードで、グラフが最後閉じられてしまいます。NG どうしてでしょうか？ For i = 0 To 48 mypoints(i) = New Point((i * 0.35), (PdaOneData(N_OneDtNo).PicData(i) * 0.05)) Debug.WriteLine(mypoints(i)) Next Dim g As Graphics = PictureBox3.CreateGraphics() g.DrawLines(New Pen(Color.Blue, 1), mypoints) 上記のmypoints(i) のイミディエイトウィンドウ表示は下記のとおりです。 X=0,Y=40}{X=0,Y=40}{X=1,Y=39}{X=1,Y=39}{X=1,Y=39}{X=2,Y=38}{X=2,Y=38}{X=2,Y=37}{X=3,Y=37} ・・・中省略・・・ {X=14,Y=43}{X=14,Y=43}{X=15,Y=43}{X=15,Y=43}{X=15,Y=44}{X=16,Y=44}{X=16,Y=43}{X=16,Y=42}
- ベストアンサー
- Visual Basic
- VB.NETのグラフィック描画について
グラフィック描画ですが、引数を持たないサブルーチンプロシージャ（固定的な 目盛り等）は、PictureBox_paint(***イベントプロシージャ内に記述すればグラフィック描画ができます（e.Graphicsでグラフィックスオブジェクトを取得できる為）が、 X、Y座標を引数としたサブルーチンプロシージャを作り、その中でLineDraw(*****で描画させたい場合サブルーチンプロシージャ内に dim g As Graphics=pictureBox1.CreateGraphics() でグラフィックオブジェクトを生成しても 描画できないのですがどのようにすれば解決できるでしょうか（イメージがわかり難いかもしれませんのでサンプルを書きました） よろしくお願いします (1)private sub pictureBox1_paint(Byval sender as Object, Byval e as system****** e.Graphics.DrawLine(****** (これは描画できる） End Sub (2)private sub zahyou() ' 座標を生成するサブルーチンプロシージャ dim i as integer for i=0 to 10 hyouji( i , i*5 ) End Sub private sub hyouji( x as integer, y as integer) ’直線を引くサブルーチンプロシージャ dim g As Graphics=pictureBox1.CreateGraphics() g.DrawLine(***,x,y**** (これは描画できない）
- ベストアンサー
- Visual Basic
- 動的に画像を作成し保存するには？
Visual Basic 2012を使用しています。 下記プログラムを実行するとエラーが表示されてしまいます。 Dim img As New Bitmap(200, 100) Dim g As Graphics = Graphics.FromImage(img) g.FillRectangle(Brushes.Black, g.VisibleClipBounds) g.Dispose() PictureBox1.Image = img img.Save("E:\EPUB_test\test.jpg", System.Drawing.Imaging.ImageFormat.Jpeg) img.Dispose() 表示されるエラーは下記です。 型 'System.ArgumentException' のハンドルされていない例外が System.Drawing.dll で発生しました どこが間違っているのでしょうか？ 正しく動作させるにはどこを修正すべきかをお教え下さい。
- ベストアンサー
- Visual Basic
- C#のGraphicsクラスについて（GDI＋)
以下のようにgraphicsクラスをつかった画像の描画をおこないました。 Graphics gr = Graphics.FromImage(mapObj); というふうにからのリソースからGraphicsオブジェクトをつくる方法です。 using System; using System.IO; using System.Windows.Forms; using System.Drawing; using System.Web; using System.Net; using System.Text; using System.Threading; using System.ComponentModel; public class MainClass{ public static void Main(string [] args){ NewForm formObj = new NewForm(); formObj.RenderMethod(); Application .Run(formObj); } } public class NewForm : Form{ public NewForm(){ this.Width = 500; this.Height = 500; } public void RenderMethod(){ Bitmap mapObj = new Bitmap(500,500); Graphics gr = Graphics.FromImage(mapObj); Image imageObj = Image.FromFile("C:\\test.jpg"); gr .DrawImage(imageObj, 0,0,150,150); this.BackgroundImage = mapObj; } } このほかに、フォームコントロールの thisl.CreateGraphics()という メソッドを使っても画像を描画できるとききました。 あるサンプルをみると public class NewForm : Form{ public NewForm(){ this.Width = 500; this.Height = 500; } public void RenderMethod(){ Graphics gr = this.CreateGraphics(); Image imageObj = Image.FromFile("C:\\test.jpg"); gr .DrawImage(imageObj, 0,0,150,150); } } とこのようにthis.CreateGraphics()をつかっていましたが 実際にはこれが描画されないのです。 Graphics gr = Graphics.FromImage(mapObj); というGraphicsクラスの静的メソッドを使う方法ではなく コントロールのCreateGraphicsメソッドをつかって描画するにはどうしたらよいのですか？ 識者のかた、ご教授ください。
- ベストアンサー
- C・C++・C#
- ＶＢ2010にて、文字を上下鏡反転したいのですが、どなたか教えていただ
ＶＢ2010にて、文字を上下鏡反転したいのですが、どなたか教えていただけないでしょうか。 マトリックスでピクチャーボックスの左下を原点としてグラフ描画できましたが、 文字が逆さまになってしまいました。 ピクチャーボックスに、グラフィクスオブジェクトを使い ビットマップイメージで描画して文字を上下反転しようと試みています。 以下のコードで、 Me.PictureBox1.Image.RotateFlip(RotateFlipType.RotateNoneFlipY) の部分がエラーとなってしまいます。 どう修正すればよいか教えていただけませんでしょうか。 どうぞよろしくお願いいたします。 Dim myPen As New Pen(Color.Red, 1) Dim myFont As New Font("MS UI Gothic", 20) Dim myMatrix As New Matrix 'Dim g As Graphics = Me.PictureBox1.CreateGraphics Dim Image2 As New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height) Dim pg As Graphics = Graphics.FromImage(Image2) Dim px, py As Long px = Me.PictureBox1.Width py = Me.PictureBox1.Height myMatrix.Scale(1, -1) '拡大縮小(y軸のみ正負の方向を逆にする) myMatrix.Translate(0, -py) '平行移動（ピクチャーボックスの高さ分,下へ平行移動） 'g.Transform = myMatrix pg.Transform = myMatrix 'g.DrawLine(myPen, 0, 0, 200, 200) pg.DrawLine(myPen, 0, 0, 200, 200) 'g.DrawString("text", myFont, Brushes.Red, 100, 100) pg.DrawString("text", myFont, Brushes.Red, 100, 100) '"text"を上下反転する 'Me.PictureBox1.Image = Image.FromFile("C:\☆test.bmp") Me.PictureBox1.Image.RotateFlip(RotateFlipType.RotateNoneFlipY) Me.PictureBox1.Refresh()
- ベストアンサー
- Visual Basic
- StrReverseメソッド
Sub test() Dim i As Long i = InStr(1, StrReverse("1234567"), "123") End Sub なぜこの場合の返り値が0なのでしょうか？ 1234567の中に123は含まれるから、右から何文字目にあるかが返ると思ったら、０です。 i = InStr(1, "1234567", "123") のように、左から何文字目かを取得するなら、1が返ります。
- 締切済み
- オフィス系ソフト
- 画面をタップしてしるしをつけたい その２
http://oshiete1.goo.ne.jp/qa4162626.html のものです。 どなたも回答がありませんので、質問を変えさせていただきます PC用、すなわち「Microsoft Visual Studio 2008」のVBでは、ピクチャコントロールに Dim g As Graphics = PictureBox1.CreateGraphics() の宣言が可能です これにより、MouseDowイベントで g.FillEllipse(Brushes.White, pos.X, pos.Y, 8, 8) のように「白のブラシで大きさが8の丸を描く」 ことができます しかし、スマートデバイス用ですと宣言できません。 できるようにするにはどのような方法がありますでしょうか
- ベストアンサー
- Visual Basic
お礼
すみません、ＨＤがクラッシュして質問のプログラムも消滅してしまい……（汗） ひとまず、回答して頂き、まことにありがとうございます。 これからもう一度作り直そうと思います。