入門者にぃや♪の質問コーナー - Visual Basic 中学校掲示板

投稿者桜 (社会人) 投稿日時 2008/12/25 20:31:36

何が聞きたいのかわかりません。
何故タイマーでは駄目なのでしょうか。

座標計算等の処理をスレッドで行いたいということですか？

0

投稿者 reo (小学生) 投稿日時 2008/12/25 13:33:10

nん。
ドボンちゃんのトコで聞こかなぁ。

0

投稿者 デカメロン (小学生) 投稿日時 2008/12/24 23:04:12

牛乳配達のバイトで忙しいです。
1日のパソ遊び時間が2時間くらいです。
効率よく覚えたく質問してます。
以前から、教えてほしいものがあります。
タイマーコンポーネントを使用せずに、下のコードを改良したいんですが。
雪の結晶を空から降らすコードの制作中なんですけど。

Option Strict On

'Vista 

'VisualBasic2008 

Imports System.Drawing.Drawing2D

Public Class Form1

    Private kyara_suu As Integer = 5

    Private kyara(kyara_suu - 1) As Image

    Private test_kakudo As Integer = 0

    Private ichi_x, ichi_y As Integer



    Public Sub New()

        ' この呼び出しは、Windows フォーム デザイナで必要です。 

        InitializeComponent()

        ' InitializeComponent() 呼び出しの後で初期化を追加します。 

        kyara(0) = My.Resources.hosi1 : kyara(1) = My.Resources.hosi2 : kyara(2) = My.Resources.hosi3

        kyara(3) = My.Resources.kouri1 : kyara(4) = My.Resources.kouri3

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        PictureBox1.Visible = False

    End Sub

    Private Sub G_B(ByVal g As Graphics, ByVal kakudo As Integer, ByVal kyarakuter As Image, ByVal x As Integer, ByVal y As Integer)

        ' Dim rotatepoint As New PointF(100.0F, 100.0F) 

        Dim rotatepoint As New PointF(x + CInt(kyarakuter.Width / 2), y + CInt(kyarakuter.Height / 2))

        Dim myMatrix As New Matrix

        myMatrix.RotateAt(kakudo, rotatepoint, MatrixOrder.Append)

        g.Transform = myMatrix

        g.DrawImage(kyarakuter, x, y)

    End Sub

    Private Sub Randamu()

        Dim random As System.Random

        random = New System.Random()

        ichi_x = random.Next(0, PictureBox1.Width - 50)

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        PictureBox1.Invalidate()

        test_kakudo += 1

        If test_kakudo > 360 Then test_kakudo = 0

        ichi_y += 1

        If ichi_y > PictureBox1.Height - kyara(3).Height Then

            ichi_y = 0 : Randamu()

        End If

    End Sub

    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

        G_B(e.Graphics, test_kakudo, kyara(3), ichi_x, ichi_y)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Start()

        Randamu() : ichi_y = 0

        PictureBox1.Visible = True

    End Sub

End Class

0

投稿者 dekaメロンIrem (小学生) 投稿日時 2008/12/24 21:19:48

魔界先生の場合、いろいろアドバイスがつくので、解決率も100パーセントだし。
・・・
さくら先生のコードで解決しました。
Dim rotatepoint As New PointF(100 + CInt(kyara(3).Width / 2), 100 + CInt(kyara(3).Height / 2))
クルクル回ってます。ありがと（＾＾）

0

投稿者鍵 (社会人) 投稿日時 2008/12/24 17:02:04

>こういう掲示板では、一般的に指名するのはマナー違反になったりすることもあるので
>気をつけてください。

前にもこんなことありましたね。
以前はるきおさんが指名されていますが、
>基本的には私であれ他の誰であれ指名することは御控え願います。
とのことです。

「silverlight2についての質問」
http://rucio.groupsite.jp/commu/ThreadDetail.aspx?ThreadId=93

0

投稿者桜 (社会人) 投稿日時 2008/12/24 15:53:50

ご指名の魔界大先生ではありませんが…
こういう掲示板では、一般的に指名するのはマナー違反になったりすることもあるので
気をつけてください。

質問の件ですが、MatrixのRotateAtの第二引数は回転する中心点を指定します。
100,100は、このコードの場合画像を表示する左上なので、左上を中心に回転します。
100F,100FじゃなくてNew PointF(100 + kyara(3).Width / 2, 100 + kyara(3).Height / 2)みたいにするとどうですか？

0

投稿者 dakaメロンアイレム社 (小学生) 投稿日時 2008/12/24 14:38:14

リソース回転ですが、実は自己解決できてません。
この回答には、魔界大先生にお願いしたいです。甘えちゃっていいですか？
キャラリソース数を増やせばできる事ですが、リソース数を増やずにコードで解決したいんです。
｛質問｝キャラクターの中心X,Yで回転させたい
↓このコードでは左上X,Yで回転してしまうのだ（泣）

Option Strict On

'Vista 

'VisualBasic2008 

Imports System.Drawing.Drawing2D

Public Class Form1

    Private kyara_suu As Integer = 5

    Private kyara(kyara_suu - 1) As Image

    Private test_kakudo As Integer = 0

    Public Sub New()

        ' この呼び出しは、Windows フォーム デザイナで必要です。 

        InitializeComponent()

        ' InitializeComponent() 呼び出しの後で初期化を追加します。 

        kyara(0) = My.Resources.hosi1 : kyara(1) = My.Resources.hosi2 : kyara(2) = My.Resources.hosi3

        kyara(3) = My.Resources.kouri1 : kyara(4) = My.Resources.kouri3

    End Sub

    Private Sub G_B(ByVal g As Graphics, ByVal kakudo As Integer)

        Dim rotatepoint As New PointF(100.0F, 100.0F)

        Dim myMatrix As New Matrix

        myMatrix.RotateAt(kakudo, rotatepoint, MatrixOrder.Append)

        g.Transform = myMatrix

        g.DrawImage(kyara(3), 100, 100)

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        PictureBox1.Invalidate()

        test_kakudo += 1

        If test_kakudo > 360 Then test_kakudo = 0

    End Sub

    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

        G_B(e.Graphics, test_kakudo)

    End Sub

End Class

0

投稿者 dekaメロン () 投稿日時 2008/12/11 13:39:43

パソではオンラインgameとかやらないので。
プレ3は安全ですか？が知りたい。
同じような事になると、接続サーバーが、やはりニセとゆうことですね。
ナリスマシサーバーですよ。
ｖｂは1週間ほど休憩してたが、またちょっと始めるかなhahaha

0

投稿者桜 (社会人) 投稿日時 2008/12/11 07:03:17

もしかしてと思いますが…。
偽者というのは、デカメロンさんの家のパソコンと、別のパソコンから同一のURLにアクセスしたのに別のサイトにつなげられてしまうということでしょうか？
もし、本当にそういうことがあるのでしたら、何かしら途中で細工されているのでしょうね。

0

投稿者 dakaメロン () 投稿日時 2008/12/11 05:49:32

入門とかは関係ないですよ。
前に書いたと思いますが。
携帯やパソコンの問い合わせ内容と公衆電話の問い合わせ内容が違えば、当然、どちらかが、サギ側の
オペレーターと言う事です。
電話はハッキングは公開されてますよ。
年金連合事件でも郵便物のニセが出回ってますよ（報道済み）
まぁ、いろいろな方法で、同じ回答がでなければなりません。
ネットカフェの画面と自宅パソの画面（同サイト）であれば、電話番号も同じで
なければなりません。
違えば、どちらかのサイトの電話掲載はサギの可能性が高い。
URLがちがっても同じ事が言える。
まぁ、金融広告は特に気を付けた方がいいね。直接に店で借りたほうが安心だ。
ヤフーも（営業妨害？）危険だな、直接に店で購入したほうがいいぞ。（高級品）

0

投稿者桜 (社会人) 投稿日時 2008/12/11 04:58:27

IE8を使うということは、IEを対象にした既存のものが動かない場合の責任はすべて自分で取る覚悟くらいないと辛いと思います。
いかにセキュリティが優れていてもですね…。

正式版じゃないので、バグとかあって逆にセキュアじゃないとも言い切れないので、メインで使うのは個人的にはお勧めできません。
特に入門者には。

VB入門者クラスののデカメロンさんが、正しく偽者を判断できてるのかどうかが非常に心配です。
本物なんだけど、勝手に偽者と思い込んでいたり、名前が似てる ○○ basicを勝手に偽者と思い込んでいるのではないかと。
なので、何処からダウンロードできる何が偽者なのか教えていただけないでしょうか。
その情報が正しいのでしたら、別の方が気をつけることが出来る有益な情報になります。
間違っていた場合でも、警察が無駄に動かなくてすみます。
お互いメリットがあることだと思うのですが。

0

投稿者 dekaメロン () 投稿日時 2008/12/11 03:04:18

さくらさん＞IE8。。
private機能とかついてますよ。
クッキーは読ませない、アクセス記録も残さない。
セキュリティ機能が高いのでV6のコードはいっさい使えません。
privateをはずしてもセキュリティーは高い。
ニセbasic情報は警察には報告済みです。
こちらで書き込みしても解決しませんので。

0

投稿者ｎ (社会人) 投稿日時 2008/12/11 01:30:12

会話ができないってつらいよね。

0

投稿者 dekaメロン () 投稿日時 2008/12/11 01:02:02

プレステ3を買おうかなぁ～って思ってますが・・
不具合情報とか、ありますか？
パソはVBくらいしかやりませんが。
あと半年したら、C++かJavaSをやる予定です。

0

投稿者桜 (社会人) 投稿日時 2008/12/11 00:18:48

そこらへんの環境の違いは、Visual Basic 2008 Express Editionが偽者かどうかに依存しないのではないでしょうか？
もしかして、デカメロンさんの環境でうまくいかないことを、詐欺やハッキングされたとか偽者とかおっしゃってるのでしょうか？
Visual Studioや他のソフトも、すべての環境で必ず上手く動くようには作られてません。
ソフトウェアの動作環境を使う前に確認して、自分の環境で動くかどうか確認してから使うのがいいかと思います。
（以前の書き込みを見る限りIE8を使われていたことがあるようですが、IE8はまだ正式版じゃないので色々なものが対応していません）

0

投稿者 dekaメロン () 投稿日時 2008/12/10 15:16:27

そのへんは、個人差があるのでは？
セキュリティソフトとか、パソの詳細設定、ネットでインストールした、そのほかの物。
回線（デカはNTT）、プロバイダー（デカはソニー）、工事業者（ニセの可能性あり）
XPプロフェッショナル、Vista、パソのメーカー（デカはNEC）
無線LANとか、デカは一応、光回線だが。
とゆうわけで、サクラさんとは、色々と環境が違うと思いますね。

0

投稿者桜 (社会人) 投稿日時 2008/12/10 08:17:49

> デカメロンさん
日経さんのCDのものと、Visual Studio 2008 Express Editionのサイトからダウンロード出来る物の違いを知りたいのですが…。
教えていただけないでしょうか？

仮想マシン立てて、検証の準備万端です。

0

投稿者 dekaメロン () 投稿日時 2008/12/9 16:01:13

2番目のコードは、結構よいサンプルなんだけどねぇ。
Game好きの人にはピント来るはずだ。
飛行機をとばせるぞ。
角度直進は、まぁ計算すれば、やれる。
なかなか良いコードだが。ｗｗｗ
敵（AI）キャラにも応用できる。

0

投稿者桜 (社会人) 投稿日時 2008/12/9 15:36:44

直接被害がおありなのでしたら郵送より窓口に直接いくほうが良いと思います。
保護者の方に訴えてみてはどうでしょうか？
そちらの詐欺などのほうは、早く解決することを祈っています。

そして、日経さんのCDにものとダウンロードして手に入れるVisual Basicの仕様が違うというのは
具体的にどういうのを確認されていますか？
私も両方持っているので確認したいのですが。

0

投稿者ゐ (社会人) 投稿日時 2008/12/9 09:41:59

アレってなんですか？
そろそろ答えてください。

0

投稿者 デカメロン () 投稿日時 2008/12/8 23:27:12

桜さん＞とりあえず、郵送で特捜本部に郵送してますが・・
振込みサギと手口が同じようで、なかなかつかまらない感じです。
メカニックの達人が関係あるようです。プログラマーとは対ですよね。
一応、回線は光ですが。。NTTの工事人がニセかも。
設定CDがV6だし。
とりあえず、郵送しか手段がないので。
犯人の名前を郵送してるから、捜査してるかもしれませんよ。（＾＾）

0

投稿者桜 (社会人) 投稿日時 2008/12/8 17:48:07

具体的に何の仕様が違うのでしょう？
もし、本当に偽者だと示す根拠ある差異があるのでしたら教えて欲しいです。

マイクロソフトのUpDate（恐らくMicrosoft Update?)がおかしいのは、何がおかしいのでしょうか？
私の所では何も不都合なく使えています。

電波がなおらないというのは、デカメロンさんのPCの無線LANがおかしいということですか？
恐らく一般的な家庭ですと、無線LAN対応のルータとか使ってると思うので
そちらの設定とパソコンの設定を見直せばいいと思います。

本当に、そのような人物に付きまとわれているのでしたら
郵便などではなく直接警察などの施設に行った方がいいですよ。

0

投稿者 刑事（デカ）メロン (中学生) 投稿日時 2008/12/7 23:44:06

日経さんのCD版とネットのインストール版と仕様が違う（VisualBasic）
マイクロソフトUpDateもおかしい。再setUpを50回して確認した。
電波もなおらない。
とゆうより、無線系の達人がやってる感じ。
こいつは、サギ者とゆうより、ストーカーのような技術者ですかね。
ひどい悪戯は無いようです。
この人物は、やろうと思えば、なんでもやれるから。
コーエーレオが実在するかどうかは重要ですね。
実在しなければ、単なるフィッシングか悪戯ですが・・
実在する方が脅威だと思いますけどね。
まぁ、私の書き込みが反映してるかの部分も疑問だが・・
終わり。

0

投稿者桜 (社会人) 投稿日時 2008/12/7 08:14:03

ということは、デカメロンさんが偽者といってるUpDateというものがMicrosoft Updateの事だとしたら、マイクロソフトに電話で問い合わせて「Microsoft Updateは提供を停止しています」と言われたということでしょうか…？

後は、Visual Basic 2008 Express Editionの偽者もあるとおっしゃってたのですが、これもお電話で確かめられたのですか？

0

投稿者 デカメロン (中学生) 投稿日時 2008/12/6 22:29:51

公衆電話で、そのコンテンツは終了してます。と言われりゃ、アレですね。（苦笑）
携帯がハッキングされてる確率はアガール。a Girl.
1+1＝2
が
1+1＝5とかの返事であれば、疑うのは当たり前。

技術者とは違う、やり方が違うけどね。

0

投稿者桜 (社会人) 投稿日時 2008/12/6 21:57:24

>デカメロンさん
わかりました。
デカメロンさんが、気に入るか気に入らないかですね。
方法１も２も３も偽者として決め付けている前提があります。
偽者が、いかに本物らしく振舞おうとしてるかということについて話されてますね。

利用者が少ないのは、別に使いたくないからじゃないですかね？
Yahooなんて、私も登録してるけど使ってないタイプの人ですし。

0

投稿者デカ (中学生) 投稿日時 2008/12/6 18:08:50

携帯とかPcのコンテンツ配信元に電話をすると、いろいろ説明して
くれる場合がありますよね。
声だけですが。ｗｗｗ
公衆電話で同じ局番にかけると・・・
そのコンテンツは、かなり前に配信終了しました。と返答があったり。（笑）
ハッキングされると、電話の会話機能も損傷し、ニセのオペレータがでるんですよ。

0

投稿者 きんｇ (社会人) 投稿日時 2008/12/6 04:39:54

>荒らしではありません。
>とりあえず、デバイスマネージャを削除せよ。らしい。
>やってみるコトにした。すごい不信切だよNECは。
>まぁ、ココの製品は一生害、買わない
こんなことをかくとメーカーからとやかくいわれそうですが
かくいう私もNECにはひどいめにあっていますので、NECのPC
を購入することは金輪際ありませんと申しておきましょう。

0

投稿者 デカメロン (中学生) 投稿日時 2008/12/6 03:43:13

まぁ、見えてる人も居るかもしれないので。
証拠が知りたいですか？
方法の1つを教えます。
携帯のサイト情報を正確に知りたい場合、
電話をかける。
公衆電話で同じ局番に質問等をします。局番はタウンページや雑誌の番号のほうが信用が高いです。
同じ内容の返事＆確認であれば、正常な可能性の判断材料となります。
公衆電話の場合、携帯料金より割高になります。
10円玉をたくさん用意するとゆうよりは、100円玉をたくさん用意する必要があります。
会話時間によっては、千円を超えますので注意＆了承済みで、かけてね。

0

投稿者 デカメロン (中学生) 投稿日時 2008/12/6 01:10:34

ぼくは、技術者とは違う方法で偽物と本物を比べている。
カオス理論とかね。
カオス＝偶然性と考えて・・まぁアレです。
ヤフーの掲示板は400万人のユーザーに対して発言者は100人程度。
1有名人の発言を貼り付けるだけで本物らしくすることができると思う。
2デパロッパセンターの掲示板は書き込みが少ない。アメイカ版の質問版では何千以上もの質問がある
のに対して、日本版は、わんくまの人しか居ない感じである。
3オンラインGameだが、一部の同じ人間しか居ない感じである。この検証はネットカフェに
登録すれば、解明できると思うが。
4まだ、たくさんあるが、このくらいにしときますか。この掲示板自体、書き込みが反映
しているか疑問ですね（＾＾）魚拓かもしれないし。

0

投稿者桜 (社会人) 投稿日時 2008/12/5 11:05:12

UpDateが偽者っておっしゃっているのは具体的に何をさしているのですか？
もし、本当にあるなら注意したいと思うので教えていただけないでしょうか？

いったい何をもって偽者としているのか…。

0

投稿者デカ (中学生) 投稿日時 2008/12/5 06:05:45

以前、サイセｔットＵＰのＤＶＤを4枚作成したが、これも、できなくなっている。
UpDateが偽物だからだ。
0コピになってる。
インターネット解約の確立が82％。
解約したら、2度とやらんぞ。
ポケ買うかな（＾＾）

0

投稿者 デカメロン (中学生) 投稿日時 2008/12/4 19:32:54

荒らしではありません。
とりあえず、デバイスマネージャを削除せよ。らしい。
やってみるコトにした。すごい不信切だよNECは。
まぁ、ココの製品は一生害、買わない。

0

投稿者デカ (中学生) 投稿日時 2008/12/4 19:22:36

NECに電話したが、つながらない。
DVDには以前、書き込みをして成功している。
頭にきたので製品のリコール届けを警察に届けようかな。
人間は頭にくると、そうゆう人も居るのだ。

0

投稿者デカ (中学生) 投稿日時 2008/12/4 08:32:19

DVD_Rに記録ができない。
NECの保証書は2年だが、エイデンの保証書は5年。
これ故障かな？
まぁ、さいやく、メーカーモチで弁償してもらえるかな？
明日、電話することにしたけど。

0

投稿者デカ (中学生) 投稿日時 2008/12/3 09:59:06

UPDateがニセだとアチコチ異状があるよな。
テンコピどころか0コピ状態だ。
まぁ、かなり頭のきたよ。

0

投稿者デカ (中学生) 投稿日時 2008/12/3 03:20:11

ああ。全Dataが消えた（笑）
コピー失敗。

0

投稿者 デカメロン (中学生) 投稿日時 2008/12/2 11:37:11

再セットUPすることにしました。
VBプログラムの発行をして、DVD_RWにコピーしました。
きちんとDVD_RWから再生できるか実験します。
.NET必須コンポーネントも自動で入るはず。
まぁ、自分で確認するしかないなぁ。

0

投稿者桜 (社会人) 投稿日時 2008/12/2 06:56:53

以前IE8をお使いだと書かれていたような気がするので、それで調子が悪いのではないでしょうか？
まだ正式版ではないので、恐らくそれが原因かと…。

IE7を使うのが今の所いいですよ。

0

投稿者 刑事メロン (中学生) 投稿日時 2008/12/2 03:18:22

飛行機をグルグル回すサンプルは完成しましたが、
次は飛行機の軌道をdataReadで制御するサンプルを作る予定です。
入門者質問で、すいません
以下のコードを元にして構築していきたいと思います。
で質問内容ですが。
1　CD化した場合に他のパソでも動く可能性はありますか？
2　注意点があればお願いします。（バグ）

 Dim a As Integer

                a = CInt(Mid(My.Resources.HO1, sampu1, 1)) '(リソース,読み込み任意位置,取得する数(1個) 

                Label1.Text = a.ToString

                sampu1 += 1

                If sampu1 > 10 Then sampu1 = 1

0

投稿者 デカメロン (中学生) 投稿日時 2008/12/1 20:19:46

名前をデカメロンに変えましたので。
2008の本のコードが動けば正常と判断してます。
本は7冊所持してます。すべてのコードが有効です。
同梱？って意味がよくわかりませんが。
EXEファイルやCDインストールも正常です。他のパソでは知りませんが。
IEは調子悪いですね。ハッキングされてます。
この件は、まぁアレですね（笑）なおりません。
1月か2月にパソレスキュウ業者に検査していただく予定です。

0

投稿者 リスナー (学生) 投稿日時 2008/12/1 10:16:49

私も２００５を使っている者ですが、実は２００８を先に使っていたんです。もちろん無償版です。
しかし必要なツールを同梱してビルドする際、どうにも２００８ではうまくできなかったのです。
それで２００５を使い、こちらでは同梱ビルドに成功しています。
２００８無償版で同梱ビルドに成功するかどうかはちょっと使っている方に訊ねてみたい気もしますが。
掲示板を見ている限りでは実行ファイルのみのやり取りの方が多いのかなと。

２００８で同梱ビルドを成功させるには、何かファイルの位置を初期の位置から
移動しなければいけないといった記事を読んだことがあるのですが、
リンクも履歴も消してしまったので覚えていません。

0

投稿者 あにす (社会人) 投稿日時 2008/12/1 09:50:10

>VB2008無料版があるのに、VB2005無料版を使用している人がいますが、
>何故でしょうか？
インストールが面倒で未だにVB2005を使ってます。C#の方は2008使ってます。

0

投稿者 魔界の仮面弁士 (社会人) 投稿日時 2008/11/30 22:17:58

> VB2008無料版があるのに、VB2005無料版を使用している人がいますが、
> 何故でしょうか？

「2005 で特に困っていないし、2008 を入れるのも面倒だから」とか。

まぁ理由は人それぞれでしょうけれども、たとえば環境の問題を挙げる事ができます。

A さんは、「Windows XP Media Center Edition 2005」を使っていて、
B さんは、「Windows 2000 Professional」を使っていたとします。

この場合 A さんは、2005 / 2008 いずれの Express Edition も利用できますが、
B さんは、2008 を利用する事はできないので、2005 を使うことになります。

あるいは、学校の友人と皆で共同開発するような場合はどうでしょう。
この場合、使用する開発環境のバージョンを一致させねばなりませんよね。

そういえば 2010 も出てますね。まだ製品版ではなく、CTP ですけれども。
http://go.microsoft.com/fwlink/?LinkID=132855

0

投稿者 にぃや♪ () 投稿日時 2008/11/30 20:35:21

VB2008無料版があるのに、VB2005無料版を使用している人がいますが、
何故でしょうか？
私はVistaですけど。

0

投稿者 にぃや♪ () 投稿日時 2008/11/28 23:28:20

自己解決しました。
すいません。

Option Strict On

'VisualBasic2008 

Imports System.Drawing.Drawing2D

Public Class Form1

    Private hikouki As Image

    Private test_kakudo As Integer = 0

    Private test_kakudo2 As Integer = 0

    Private Sub G_A(ByVal g As Graphics, ByVal kakudo As Integer)

        g.RotateTransform(kakudo)

        g.DrawImage(hikouki, 100, 0)

    End Sub

    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

        G_A(e.Graphics, test_kakudo)

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        PictureBox1.Invalidate()

        test_kakudo += 1

        If test_kakudo > 90 Then test_kakudo = 0

        PictureBox2.Invalidate()

        test_kakudo2 += 1

        If test_kakudo2 > 360 Then test_kakudo2 = 0

    End Sub

    Private Sub G_B(ByVal g As Graphics, ByVal kakudo2 As Integer)

        Dim rotatepoint As New PointF(150.0F, 50.0F)

        Dim myMatrix As New Matrix

        myMatrix.RotateAt(test_kakudo2, rotatepoint, MatrixOrder.Append)

        g.Transform = myMatrix

        g.DrawImage(hikouki, 100, 100)

    End Sub

    Private Sub PictureBox2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox2.Paint

        G_B(e.Graphics, test_kakudo2)

    End Sub

    Public Sub New()

        ' この呼び出しは、Windows フォーム デザイナで必要です。 

        InitializeComponent()

        ' InitializeComponent() 呼び出しの後で初期化を追加します。 

        hikouki = My.Resources.houdai_kougeki

    End Sub

End Class

0

投稿者 にぃや♪ () 投稿日時 2008/11/28 21:55:52

Option Strict On

'VisualBasic2008 

Public Class Form1

    Private test_kakudo As Integer = 0

    Private Sub G_A(ByVal g As Graphics, ByVal kakudo As Integer)

        g.RotateTransform(kakudo)

        g.DrawImage(My.Resources.houdai_kougeki, 100, 0)

    End Sub



    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint

        G_A(e.Graphics, test_kakudo)

    End Sub



    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        PictureBox1.Invalidate()

        test_kakudo += 1

        If test_kakudo > 90 Then test_kakudo = 0

    End Sub

リソースの飛行機を中心点（ｘ、ｙ）を基点にグルグル回転させるサンプルを作ってますが、
0～90度しか見えません。
どうしたら良いでしょうか？

0

入門者にぃや♪の質問コーナー への返答

入門者にぃや♪の質問コーナーへの返答