【老若】VB.net質問ｽﾚ【男女】
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNGと憤慨しているｱﾅﾀ!
の為に立ててみました。
VB.net初心者～VB.net神
まで自由に書き込んでﾁｮ。
0159デフォルトの名無しさん
NGNGVB.NETって書いてるけど、なにが不足？
0160コギャルとHな出会い
NGNG朝までから騒ぎ！！
小中高生
コギャル～熟女まで
メル友
i/j/PC/対応
女性の子もたくさん来てね
小中高生大歓迎です
全国デ－トスポット情報も有ります。
全国エステ＆ネイル情報あります。
激安携帯情報あります。
0161デフォルトの名無しさん
NGNG家庭環境とか？
兄弟
両親
貯金
0162デフォルトの名無しさん
NGNG>>158
あちこちのVBの掲示板を見てれば答えは自ずと出る。
0164デフォルトの名無しさん
NGNG0165デフォルトの名無しさん
NGNG0166デフォルトの名無しさん
NGNG0167デフォルトの名無しさん
NGNG考えてみましたが、僕も初心者なため全然自信がありません…。
'イベントＡ
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call MsgBox("イベントＡ")
'イベントが発生した場合タイマーを戻す
Timer1.Stop()
Timer1.Start()
End Sub
'タイマー
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Call MsgBox("別のプロシージャ")
End Sub
'Timer1のInterval=600000
かなり厨房なコードだと思いますが、
上級者の方、ご指摘があればご教授願います。
0168＿
NGNG0169デフォルトの名無しさん
NGNGAPIのEnableMenuItem。
0170168
NGNG試して見ますありがとうございます。
0171デフォルトの名無しさん
NGNG0172デフォルトの名無しさん
NGNGしてる
0173デフォルトの名無しさん
NGNGどうやったら反映されますか？
0174デフォルトの名無しさん
NGNGあるがとうございますた
0175ＶＢ歴６時間のＣゲンダ-
NGNGｉｎｔ i = 9;
i /= 6;
と同じ結果得たいんですがどうすりゃいいんですか？
A = 9
A = A / 6
だと1.5になっちまう
( A - A Mod 6 ) / 6
だとスマートじゃない
おしえてくさい
0176デフォルトの名無しさん
NGNGInteger型の変数にほりこめばどうですか？
0177ＶＢ歴九時間
NGNGDim a0 As Integer
こんな感じで宣言すればいいのん？
でもだめぽ・・・
素直に参考書買ってきます
0178デフォルトの名無しさん
NGNG0179デフォルトの名無しさん
NGNG旧VBならここでもなー
0180age
NGNG0181デフォルトの名無しさん
NGNGhttp://msdn.microsoft.com/vbtv/
0182デフォルトの名無しさん
NGNGﾌﾟ
0183デフォルトの名無しさん
NGNGVC++.NETでPublicなメソッドを作って、
VB.NETでそれを使うとか。
ところで、
ｉｎｔ i = 9;
i /= 6;
このときの丸めって切捨てだったっけ？
だったら、Int関数かFix関数を使えばOK。
後さ本題と関係ないけど、VB.NETではA = A / 6はA /= 6と書けるよ。
0184ＶＢ歴二十七時間
NGNGありが㌧
0185デフォルトの名無しさん
NGNGhttp://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvssamp/html/vb_VBSamplesTop.asp
0186デフォルトの名無しさん
NGNGを
#Region " Windows フォーム デザイナで生成されたコード "
#End Region
の下につけて実行すると、
'System.NullReferenceException' のハンドルされていない例外が system.windows.forms.dll で発生しました。
追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。
というエラーメッセージが表示されるのですがなぜなのでしょうか。
0187デフォルトの名無しさん
NGNGなぜ？と思ってましたが、
他の部分に原因がありました。
エラーメッセージの通りだった・・・。
0188デフォルトの名無しさん
NGNGi \ 6じゃなかったか?
0190デフォルトの名無しさん
NGNG他のWindowとかが上に来ると、消えるので、
Paintイベントに描くのはわかったのですが、
いーっぱいいーっぱいPictureboxに描画する場合は（時間がかかる場合）
どういう具合にすればよいか教えてください。
0191デフォルトの名無しさん
NGNG必要なもの描画したら、PictureBoxに描く。
0192デフォルトの名無しさん
NGNGどうもレスありがとうございます。
0193デフォルトの名無しさん
NGNG教えていただけませんでしょうか？？
よろしくお願いいたします。
0194デフォルトの名無しさん
NGNGhttp://pc3.2ch.net/test/read.cgi/tech/1029241786/656
のらしいぞ。
0195デフォルトの名無しさん
NGNGMSCommコンポーネントは使えないのでしょうか。
ＶＢ６用のRS-232Cを使用するサンプルコードを動かしたいのですが、
ＡctiveXコントロールを使用するためのライセンスが無いゴラァと
怒られてしまいます。
0196デフォルトの名無しさん
NGNGVB6は入ってる？で、VBでMSCOMMちゃんと使えてる？
0197デフォルトの名無しさん
NGNGVB6は入ってません。
VB.NETを初めて買いました。
簡単なI/O制御がしたいのです。
参考にしてるのは「Windows2000デバイスドライバ入門」ＣＱ出版
という本です。
0198デフォルトの名無しさん
NGNG>ＡＰＩを使ってるのですが、ＶＢと．ＮＥＴでは
>用意されている型が違うくてＶＢ６．０で使ってたような
>コーディングはできないのです＜私の力不足なのでしょうが
GetPrivateProfileString/WritePrivateProfileStringで
変更しないといけないのはLongがIntegerになったぐらい。
基本的にVB6と同じ手順だ。
0199デフォルトの名無しさん
NGNGそりゃライセンスが*本当に*ないので使えない。
0200デフォルトの名無しさん
NGNGVB6ランタイム入れれば、VB6製の実行ファイルは動くだろうけど。
VB.NET standardにはアップグレードウィザードもないから、
そのソースもあんまり活用できないだろう。
0202デフォルトの名無しさん
NGNG>>200
そういうものなんですか。すっきりしました。
ありがとうございます。
もしVB.NETでI/O制御に関するキーワード、MSCOMMみたいなのが
ありましたら教えてください。
できればソースを書き換えてみたいので。
0203デフォルトの名無しさん
NGNG|∧∧ ∧ ∧ ∧ ∧ | ﾊｱﾊｱ オタ歓迎の会社はここか？
| ﾟДﾟ）（；ﾟДﾟ）（；ﾟДﾟ）. | ﾊｱﾊｱ オタでもいいのか？
| ∧ ∧ /⌒ ヽ∧ ∧ ﾊｱﾊｱ
|（；ﾟДﾟ） /| | ∧ ∧ （；ﾟДﾟ） ﾊｱﾊｱ 俺は日立ソフトに
|⌒ ∧ ∧| （；ﾟДﾟ） ∧ ∧ ﾊｱﾊｱ 入るぞ！
|） （；ﾟДﾟ） ⌒ ∧ ∧ （；ﾟДﾟ） ﾊｱﾊｱ
| /⌒ ヽ （；ﾟДﾟ）⌒ ヽ ﾊｱﾊｱ 俺も！
| /| | | |/⌒ ヽ | | 俺もだ！！ ﾊｱﾊｱ
|ﾉ ＼＼ ／|/| | | |＼.／| |
| ＼＼ ﾉ ＼＼.／| |＼＼ | |
|/⌒＼し'/ .＼＼ | |ヽ し'(ノ
| >/ /⌒＼し'(ノ > )
| ／ ／ > ) / ／
| / / つ / ／ （＿つ
| し' （＿つ |
|￣￣￣￣￣￣￣￣￣￣ ＼
| ｿﾞﾛｿﾞﾛ… ＼
| ＼
0204アニメ初心者
NGNGアニメのサンプルで、Form_paintではなく、Form_resizeをオーバライドしているけど、
この方が普通のやり方なの？？ 両方の違いを説明したものあれば紹介して欲しい。
0205アニメ初心者
NGNG何でだろう！
簡単な下のコードで、楕円の横幅がどんどん広がってくる。
'円の中心位置
Dim m_posX As Long
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
m_posX = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
m_posX = m_posX + 1
'図形描画のために変数GraphicsFunを定義する
Dim GraphicsFun As System.Drawing.Graphics
GraphicsFun = Me.CreateGraphics
GraphicsFun.Clear(BackColor)
'ブラシの色(赤)を指定して図形(円)を描く
Dim BrushColor As New SolidBrush(Color.Red)
GraphicsFun.FillEllipse(BrushColor, (m_posX - 100), 50, (m_posX + 100), 250)
GraphicsFun.Dispose()
End Sub
0206デフォルトの名無しさん
NGNG全然不思議でもなんでもないが．
0207アニメ初心者
NGNGシミマセン。分かりません。
RECTのX軸が200で一定なのに、何で伸びるの？
0208デフォルトの名無しさん
NGNG>RECTのX軸が200で一定なのに
どこがやねん！ m_posX = m_posX + 1で増えてんで。
0209185
NGNGどうやってコンパイルしたらいいのかわかりません。
コンパイル用バッチファイルも付けて欲しかった・・・。
コンパイルは一応通るんですが、例外で落ちてしまいます。
リソースまわりの扱いの問題だと思うんだが・・・。
今は、以下のようにやってます。
> ResGen /compile frmMain.resx frmAbout.resx
でfrmMain.resources,frmAbout.resourcesを作って、
それから以下のオプションでコンパイル。
> vbc @build.txt
-----------------------------
build.txt(オプション指定)の中身
-----------------------------
/t:winexe /out:ani.exe /r:System.dll,System.Drawing.dll,System.Windows.Forms.dll
/optimize+ /optionstrict+ frmMain.vb frmAbout.vb AssemblyInfo.vb
/main:frmMain
/imports:System,System.Drawing,System.Windows.Forms,Microsoft.VisualBasic
/res:frmMain.resources,frmAbout.resources,public
/debug+
SDKでコンパイルして動いた人いたら教えてください！
0210アニメ
NGNG勘違いに気がつきました。
ありがとう（＝蟻X１０）
0211アニメ初心者
NGNGバックバッファに一旦描画して、一括表示するしかないの？？
Timer1_Tick内で描画させようとするものを
Windowsがまるごとメモリを保存し、メモリから自動的に読み出して再描画するしくみあったら教えて欲しい。
0212デフォルトの名無しさん
NGNGダブルバッファ実装しろや。
0213デフォルトの名無しさん
NGNGGraphicsオブジェクトを生成。そいつにいろいろ描画しておいてから、
最後にPaintEventArgsのe.Graphics.DrawImageでBitmapを表示。
0214デフォルトの名無しさん
NGNG0215アニメ初心者
NGNGダブルバッファは、
VB6の時のように、PictureBoxをバックバッファとして、図形を書き込み、
それを同じ大きさのPictureBoxに一括表示させる方法のこと？
VB.NETでも同じことをすれば良い？？
0216アニメ初心者
NGNG以下で試してみたけど、数秒おきにチカチカと白っぽい線が流れてしまう。
どうしたら良かね。
やり方が根本的に間違っている？？
'円のビットマップ
Private bitmapBall As Bitmap
'移動用
Private m_posX As Long
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'図形描画のために変数GraphicsFunを定義する
Dim GraphicsFun As System.Drawing.Graphics
GraphicsFun = Me.CreateGraphics
'図形（円）bitmapをつくる
bitmapBall = New Bitmap(100, 100)
GraphicsFun = Graphics.FromImage(bitmapBall)
'GraphicsFun.Clear(BackColor)
'ブラシの色(赤)を指定して図形(円)を描く
Dim BrushColor As New SolidBrush(Color.Red)
GraphicsFun.FillEllipse(BrushColor, 0, 0, 100, 100)
GraphicsFun.Dispose()
Timer1.Enabled = True
Timer1.Interval = 50
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
m_posX = m_posX + 1
Me.Refresh()
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
e.Graphics.DrawImage(bitmapBall, m_posX, 0)
End Sub
0217213
NGNGBitmapオブジェクトを裏画面として使うのは常道。
>>216
それじゃ裏画面の意味がまったくないぞ(^^;;;;;
Me.CreatGraphicsはわないし、Loadイベントで描画の処理もしない。
＃GraphicsFun = Me.CreateGraphicsの行で作成したGraphicsオブジェクトが
＃Disposeメソッドが発行されていないので、GCが働くまでメモリ無駄に食いっぱなし。
＃Bitmapオブジェクトも同様。
FormのOnPaintBackgroundメソッドをオーバーライドして、
描画処理はすべてそこに書く。
このメソッドの引数はPaintEventArgsなので、
e.Graphicsに最終的に描画します。
Bitmapオブジェクトには、最終的な描画までの途中経過を書く。
Timer1_Tickの中はMe.RefreshよりMe.Invalidateの方がいいかも。
0218213
NGNGMe.CreatGraphicsは使わないし
0219仕様書無しさん
NGNGVBで、set obj = GetObject("なんたら.mdb") で *.mdb ファイルを開いてから
obj.VBE.ActiveVBProject.VBComponents を弄って、
obj.Quit するとトマソン博士が出てくる ヽ(;´д｀)ノ
obj.VBE に触らなければ問題ないようです。
どうすれば Quit できるでしょう？
0221アニメ初心者
NGNGありがとうございます。
初心者につき、完全に理解できません。
簡単な、サンプルコード頂けないでしょうか。
0222デフォルトの名無しさん
NGNG普通Redrawは、他のウィンドウなんかに隠されたウィンドウが再度
フォーカスを得たときに再描画すればいいのだから、Paintイベントが
発生すればいいので、書いた直後に反映させるためにはRefreshでも
いいのでは。
その後は勝手にイベント発生するし。
タイマーで再描画し続けるのはむしろ邪道なのでは。
タイマーでやりたいときは、オフスクリーンに一旦描画して、描画後に
Paintイベント発行そのその後はイベント発生するごとに、マターリと
オンスクリーンに転送するのが本道では。
0223213
NGNG>Refreshでもいいのでは。
駄目じゃないが、Refreshは子コントロールの再描画も呼ぶから無駄ではないかという気がする。
RefreshとInvalidateの機能の違いがヘルプにはそれ以上かかれていないので予想入ってるけど。
System.Windows.Forms.dllを逆アセしてもRefeshはRefresh、InvalidateはInvalidateまでしかわからんかった。
>その後は勝手にイベント発生するし。
この勝手にというのは、他のウィンドウなんかに隠れたときのことを言っているんでしょ？
Tickイベントが発生してもPaintイベントは起きないよ。
> タイマーで再描画し続けるのはむしろ邪道なのでは。
そこでは再描画はしない。
Tickイベントでは描画のための情報の更新(m_posX)とPaintイベントの発行(Me.Invalidate)しかやらないよ。
>タイマーでやりたいときは、オフスクリーンに一旦描画して、描画後に
>Paintイベント発行そのその後はイベント発生するごとに、マターリと
>オンスクリーンに転送するのが本道では。
タイマーで描画するものの位置情報の更新とか行って、
オフスクリーンの描画もその後のオンスクリーンへの転送もPaintイベントでやるよ。
と思ったけど、そっちのがいいね。
つうことで、>>221に答えてあげてくらはい。
0224VBB
NGNGちなみにVisual Basic .NET standard版です。
0225デフォルトの名無しさん
NGNG0226PowerBuilder
NGNG元の Formにボタンとかを載せた場合、
継承先の Formデザイン時には、やっぱり動かせないものになるのが当たり前なんでしょうかね？
0227デフォルトの名無しさん
NGNGImageプロパティに自分で作った Bitmapオブジェクトを入れとけば勝手にやってくれるらしい。
って、NetNewsに流れてた。
Dim loGraphics As Graphics
Dim loBitmap As Bitmap
loBitmap = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, PixelFormat.Format32bppArgb)
loGraphics = Graphics.FromImage(loBitmap)
loGraphics.DrawLine(New Pen(Color.Red), 0, 0, CType(Me.PictureBox1.Width / 2, Integer), CType(Me.PictureBox1.Height / 2, Integer))
Me.PictureBox1.Image = loBitmap
別の内容に変えたい場合は、また Imageから Bitmapを取り出して書き直せば良い、のか？
0228デフォルトの名無しさん
NGNGForm上のオブジェクト自身または、そのオブジェクトのLocationプロパティを
外部に公開しておけばいいのでは？
ただ、それだけではソースコード上からは変更できるけど、
デザイナからやプロパティウィンドウからは設定できないとかになると思うので、
デザイナ上での扱いも規定する場合、おそらく、属性指定を使うと思うよ。
「属性とデザイン時サポート」あたりに載ってる。
0229デフォルトの名無しさん
NGNGプロパティ、メソッドなどを付加していくわけですが、
Property ～～
0230デフォルトの名無しさん
NGNGクラスを作るときに、
プロパティ、メソッドなどを付加していくわけですが、
Public Property ～～
～～
～～
End Property
Public Sub ～～
End Sub
などと数が多くなるとどんなメンバがあるのかとかが
わかりにくくなると思うのですが、
プロトタイプ(?)みたいに、こんなメンバがありますよぉって
わかるようにするにはどうすればよいですか？
0231デフォルトの名無しさん
NGNG多くなりすぎないように努力するくらいかな。
後、IDE使ってるなら、#Regionを活用することか。
そういえば、+/-も切り替えれたと思うけど。
0232デフォルトの名無しさん
NGNGなるほど。ありがとうございました。
0233デフォルトの名無しさん
NGNG0234デフォルトの名無しさん
NGNG２つのフォーム「Form1」「Form2」があります。
Form1のプロシージャでForm2を閉じる方法を教えて下さい。
「Form2.Close」という記述だとエラーにはならないのですが、
フォームが表示されたままで困っています・・・。
0235デフォルトの名無しさん
NGNGForm2.Hide;
Form2.Close;
0236デフォルトの名無しさん
NGNGAddTabPageで追加したページにDataGridを貼り付けたいのですが、うまくいきません。
どなたか、知ってる方いましたらおしえてください。
0237デフォルトの名無しさん
NGNGparentちゃんと設定してる？
0239デフォルトの名無しさん
NGNGいろいろ見てみたんですけど、どうしてもわからない。
「できない」っていう情報でもかまいません。
よろしくお願いします。
0240デフォルトの名無しさん
NGNGそれが無くなったらVBがVBでいられなくなります。
0241デフォルトの名無しさん
NGNG自動構文チェックのチェックをはずす。
0242239
NGNGえ、あるんですか？
探したんですけど見つからなかったんですよ。
できれば教えていただけますでしょうか。
0243236
NGNG設定しておりませんでした。
設定したら、無事解決できました。
0244デフォルトの名無しさん
NGNGツールのオプションからテキストエディタでVB固有
あとは自分でチェックの組み合わせを探してみろ
探せよ
0245239
NGNGそこでしょ、真っ先に探しましたよ
いろいろやってみましたけど、できなかったんですよ
VB6ではそのものずばりの設定があったんですけどねぇ
0246デフォルトの名無しさん
NGNG0247デフォルトの名無しさん
NGNG0248デフォルトの名無しさん
NGNGまだそのチェックをはずす資格を得てないとか。
0249デフォルトの名無しさん
NGNG'選択されているタブページにボタン１を追加する。
TabControl1.SelectedTab.Controls.Add(AddButton)
AddButton.Text = "ボタン１"
上で追加した「ボタン１」をクリックした場合の処理をコード
に書きたい場合はどのように書けばよろしいのでしょうか。
0250デフォルトの名無しさん
NGNGあれおもしろいじゃん。
0251デフォルトの名無しさん
NGNGPrivate Sub AddButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddButton.Click
End Sub
0252デフォルトの名無しさん
NGNGあれ？この変数名って何だったっけ？ちょっと上の方に戻って・・・
ぼん！
「不正な構文です」
俺がVBを使うのをやめたエピソードです。
0253249
NGNGの「AddButton」のところに波線が出てコンパイルエラーになってしまいます。
0254デフォルトの名無しさん
NGNGﾜﾛﾀ。確かにうざい。
0255デフォルトの名無しさん
NGNGまず関係ないけど、AddButtonという、予約語やメソッドにありそうな
まぎらわしい名前を使うのをやめれ。使うならAddedButton。
あと、AddButton.Clickじゃない。これだとAddButtonのメソッドになるので、
そんなもん無いのでエラーになる。
AddButton_Clickが正解。（というかハンドラに結び付けられてたらいいので、
このプロシジャ名はどうでもええ）
もう一回>>251を1キャラクタの見落としもないくらい良く見てみれ。
0256デフォルトの名無しさん
NGNGあ、ハンドラの部分か。そりゃあってますね。
それじゃ255はあぼーんしといてちょ。
0257デフォルトの名無しさん
NGNG>>253よ、ボタンのインスタンスを生成する前に宣言としてこの一文を入れてるかい？
Friend WithEvents AddButton As System.Windows.Forms.Button
0258デフォルトの名無しさん
NGNG257の言うとおり。WithEventsが抜けてるびょん。
ついでに、DimじゃなくFriendにしておくのが吉。
ま、Privateでもいいけどね。
■ このスレッドは過去ログ倉庫に格納されています