VB.NET質問ｽﾚ (Part13)

VB.NETの質問全般です

過去スレ
VB.NET質問ｽﾚ (Part12)
http://pc8.2ch.net/test/read.cgi/tech/1121600038/
VB.NET質問ｽﾚ (Part11)
http://pc8.2ch.net/test/read.cgi/tech/1114217190/
VB.NET質問ｽﾚ (Part10)
http://pc5.2ch.net/test/read.cgi/tech/1109343613/
VB.NET質問ｽﾚ (Part9)
http://pc5.2ch.net/test/read.cgi/tech/1106577850/
VB.NET質問ｽﾚ (Part8)
http://pc5.2ch.net/test/read.cgi/tech/1102512868/
VB.NET質問ｽﾚ (Part7)
http://pc5.2ch.net/test/read.cgi/tech/1096683017/
VB.NET質問ｽﾚ (Part6)
http://pc5.2ch.net/test/read.cgi/tech/1088812165/
VB.NET質問ｽﾚ (Part5)
http://pc5.2ch.net/test/read.cgi/tech/1078134703/
VB.NET質問ｽﾚ (Part4)
http://pc2.2ch.net/test/read.cgi/tech/1065269043/
【老若】VB.net質問ｽﾚ【男女】 (Part3)
http://pc5.2ch.net/tech/kako/1056/10562/1056281084.html
【老若】VB.net質問ｽﾚ【男女】 (Part2)
http://pc2.2ch.net/tech/kako/1043/10436/1043629429.html
【老若】VB.net質問ｽﾚ【男女】
http://pc2.2ch.net/tech/kako/1025/10258/1025848458.html

MSDN
言語仕様などのリファレンス
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbref/html/vbmscLROverview.asp?frame=true
.NET Framework リファレンス
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/netstart/html/cpframeworkref_start.asp?frame=true
.NET Framework を使用したプログラミング
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpconprogrammingwithnetframework.asp?frame=true
正規表現
http://www.microsoft.com/japan/msdn/library/?url=/japan/msdn/library/ja/cpgenref/html/cpconregularexpressionslanguageelements.asp?frame=true
サンプルコード
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbref/html/vboriVBVCSharpSamples.asp?frame=true

どぼん！のVB道のトップページとTipsページ
http://dobon.net/vb/
http://dobon.net/vb/dotnet/index.html
Microsoftクイック スタート チュートリアル
http://ja.gotdotnet.com/quickstart/default.aspx
Insider.NET
http://www.atmarkit.co.jp/fdotnet/index.html
宇宙仮面の C# プログラミング
http://ukamen.hp.infoseek.co.jp/
.NET のつぼ
http://park16.wakwak.com/~mimi/dotnet/top.html
.NET TIPS
http://www.atmarkit.co.jp/fdotnet/dotnettips/index/index.html
緑のバイク ★ 初めてのC# プログラム全般
http://homepage3.nifty.com/midori_no_bike/CS/
VB.NETとC#でデザインパターン
http://hccweb1.bai.ne.jp/tsune-1/
匣の向こう側
http://www.ne.jp/asahi/nami/mei/index.html
WisdomSoft
http://wisdom.sakura.ne.jp/
じゃんぬねっと
http://jeanne.wankuma.com/
どっとねっとふぁん - C# Tips And Samples -
http://homepage3.nifty.com/dotnetfan/index.html
C#プログラミングTips
http://www.atmarkit.co.jp/fdotnet/csharptips/index/csharptips_index.html
CodeProject
http://www.codeproject.com/vb/net/

http://www.codeproject.com/vb/net/
the GotDotNet Home Page
http://www.gotdotnet.com/
KEN's .NET
http://www5b.biglobe.ne.jp/~yone-ken/VBNET/index.html
Cetus Links: 19,498 Links on Objects and Components / .NET
http://www.cetus-links.org/oo_dotnet.html
HIRO's.NET
http://vbdotnet.fc2web.com/index.html
＠IT：特集 .NET開発者のためのオンライン・リソース・ガイド
http://www.atmarkit.co.jp/fdotnet/special/onlineres/onlineres_01.html
.NETでいきまっしょい！
http://santamartadotnet.hp.infoseek.co.jp/
これがほしかった！厳選サンプルツール集
http://anetm.com/dev/tools/vbdotnet.htm
ぬーやんのdotNET講座
http://www.geocities.jp/nuu_yan/dotNET/index.html
PINVOKE.NET
http://www.pinvoke.net/
WinAPI Database for VB Programmer
http://www.geocities.co.jp/SiliconValley-Cupertino/5872/
Windows Api programming in C# , VB.NET, and VB6. Examples of P/Invoke and DllImport with Source code
http://custom.programming-in.net/

ConvertCSharp2VB
http://www.kamalpatel.net/ConvertCSharp2VB.aspx
＠IT：.NET Tools
http://www.atmarkit.co.jp/fdotnet/tools/index/index.html
SharpLibrary Redirector
http://www.sharplibrary.com/
MSDN アカデミック アライアンス 技術資料
http://www.microsoft.com/japan/msdn/academic/articles/
「300 秒でズバリ !!」&「10 行でズバリ !!」シリーズ
http://www.microsoft.com/japan/msdn/thisweek/wednesday/default.asp
PAPA'n VB
http://www.mitene.or.jp/~sugisita/index.html
VB レスキュー花ちゃん
http://www.bcap.co.jp/hanafusa/dotnet/index.html
（Java覚え書き）デザインパターンあれこれ
http://www.dmz.hitachi-sk.co.jp/Java/Tech/pattern/
algorithm
http://www.mnet.ne.jp/~tnomura/algorithm.html
ラムダ計算入門
http://www.kb.ecei.tohoku.ac.jp/~sumii/class/keisanki-software-kougaku-2005/lambda.pdf
数値計算の基礎
http://www7.ocn.ne.jp/~kawa1/numeric.pdf

テンプレ完

おすすめのリンクをおめーら貼れやぁぁぁぁ

厨房乙

……といいたいところだが、別のスレでこいつに馬鹿呼ばわりされて煽られてから
（もちろん俺の方は何も煽るようなレスはしてなかった訳だが）こいつは
公共心（？）でスレ立ててるんじゃなくて単に煽るための釣堀が欲しくて
やってるんじゃないかと思うようになった。

なんにしろ妙な奴だな。リアルで精神病んでるんじゃないの。

そんなに自分を責めるなよ。

Public Declare Function SetDIBits Lib "gdi32.dll" (ByVal Pic_hDC As IntPtr, ByVal hBitmap As IntPtr, ByVal nStartScan As Integer, ByVal nNumScans As Integer, ByRef lpBits As Object, ByRef lpBi As Object, ByVal wUsage As Integer) As Integer

Dim _hBMInfo, _hBMData, _loc_BMInfo, _loc_BMData As IntPtr
Dim _bmp As Bitmap
Dim _BMIHdr As _hBMDataHEADER
Dim _BMI As _hBMData
Dim _ImgX, _ImgY, _ret As Integer
Dim _hbmp, _hDC1 As IntPtr

_ret = GetPicture("DSCF0001.jpg", 0, 0, _hBMInfo, _hBMData, 0, 0)
_loc_BMInfo = LocalLock(_hBMInfo)
_loc_BMData = LocalLock(_hBMData)
MoveMemory(_BMIHdr, _loc_BMInfo, Len(_BMIHdr))
_ImgX = _BMIHdr.biWidth
_ImgY = _BMIHdr.biHeight
_hDC1 = GetDC(_form1.Picture1.Handle)
_bmp = New Bitmap(_ImgX, _ImgY)
_hbmp = _bmp.GetHbitmap()
_ret = SetDIBits(_hDC1, _hbmp, 0, _ImgY, _loc_BMData, _loc_BMInfo, 0)
_form1.Picture1.Refresh()

とやった時にsetdibitsがエラーになるのは何故なんでしょう

>ByRef lpBits As Object, ByRef lpBi As Object
少なくともここは問題。
少しは面倒がらずにMSDN読めば？理解できてなくてもとりあえず見た目動けばケンチャナヨってか。

っていうか、何で読む人間の立場にたって文書書けないのよ。
君自身は他人が書いた「エラーになる」みたいな粗雑な文章読んで事態が把握できる
エスパーなのかもしれんが、他の人間はそうじゃないんだよ。

VS2005 Expressの無償化ってどう思うよ？

お世話になります

何もしなくても常時イベントを発生させる方法はないでしょうか？
マウスポインタの位置を常時レポートするプログラムを作っているのですが
タイトル画面につけたスタート（Button)をクリックするとタイトル画面（PictureBox1）、
スタート（Button）のVisible=Falseにしてフィールド（PictureBox2）が出てくるようにします
そのフィールド（PictureBox2）上のポインタ座標を拾うソースを作っています

ご教授お願いします

変数宣言のDimって何の英単語の略ですか？

>>12
Timerコントロール。

>>13
俺はDimensionの略だと教わったような気がするけど。

>>12
あ、ごめん。
マウスポインタの座標を拾うならmousemoveイベントがいいんでね？

>>14
ありがとうございました
上手く動作させることができました
これからもよろしくお願いします

>>15
ありがとうございます
実はMouseMoveは前使ったのですがMouseが動いていないと座標を拾ってくれないので
断念した経緯があります
またお願いします

private Sub ChangeNodeValue (Byref StrXml As String,ByVal xPath As String, ByVal NodeValue As String)
doc.LoadXml(StrXml)
doc.SelectNodes(xPath).Item(0).InnerText = NodeValue

・・・とここまでは出来たんですけど
この後この要素を変更したXMLを文字列としてまた StrXml に戻すにはどうしたらいいんでしょうか？
doc.save() ってメソッドだとファイルに保存できるんですけどStringにできません。
そもそも要素を変更するのにこの方法自体が不味いのかもしれないんですけど
賢い方法ありましたらご教授宜しくお願いします。

そのXMLをstringで保持しなけりゃならない理由でもあるの？
そうでなきゃXmlDocumentで保持しておけばいいと思うんだけど。

SaveメソッドのオーバーロードにはTextWriterを引数に取るのもある。
TextWriterの派生クラスにはStringWriterもある。
後は分かるな？

doc.OuterXmlであかんの？

>>18
StringWriterクラスで作ったインスタンスでsaveして、
文字列自体はStringBuilderに入れてしまえば文字列のままですね。
ありがとうございます。

>>19
すいません、ご指摘どおりそれでいけました。
ありがとうございます。

ちなみにStringで保持したいのは最初から最後まで
ファイルに保存する事がないからでした。
どうもありがとうございました。

お世話になります

PictureBoxを計算した結果によって出てきた数字分動かすという処理をしているのですが

Private Sub BulletGenerater()
Dim BulletPositionX As Decimal
Dim BulletPositionY As Decimal
Dim AutoDistance As Decimal
AutoDistance = Sqrt(((GetMyPointerPositionOnWindowX + Canon1PositionX) ^ 2) + ((GetMyPointerPositionOnWindowY - CanonPositionY) ^ 2))
BulletPositionX = (GetMyPointerPositionOnWindowX - Canon1PositionX) / AutoDistance * 5 REM ５は試験的に挿入
BulletPositionY = (GetMyPointerPositionOnWindowY - CanonPositionY) / AutoDistance * 5 REM ５は試験的に挿入
Bullet1.Location(BulletPositionX, BulletPositionY)

End Sub

このようにするとエラーになります
何か妙案はないでしょうか　御教授ください

>>21
New()を使って自己解決できました
ありがとうございました

セッション情報をVB.NETで取得したいのですが、asp.netではなく、Windowsフォーム上で可能ですか？
調べたけどわかりません・・・

>23
　サーバー側とクライアント側、どちらでセッション情報を取得しようと
しているのよ?
　それと、セッション情報はIISのSession変数を取得したいと言う意味か?

クライアント側です。
IISのセッション変数情報です。

説明足らずですいません・・・

当方vb.net2003を使用しています。
勉強がてら２ｃｈブラウザを作成しようとしていますが、
gzip圧縮を解凍する方法がわかりません。
zlibを用いて解凍するというのはわかりましたが、具体的にzlibを
vb.netで使うにはどうしたらいいのかわかりません。

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1455364
ここを見てもわかりませんでした。易しく教えてください。
よろしくお願いします。

http://pc8.2ch.net/test/read.cgi/tech/1131282679/l50

237 ：デフォルトの名無しさん ：2005/11/14(月) 23:38:29
さあ話をそらしにかかりました

>>26
ここをわかるまで熟読してみるんだ。
ttp://dobon.net/vb/dotnet/links/createzipfile.html

うーん。よくわからんが、ICsharpなんたらっていうのを落として
#developでビルドしたDLLを使うと（namespaceにICShapがでてきた）できそうな
感じがしてきました。
京は寝ますが、この調子じゃ日が暮れますね。

できないということなんでしょうか？

セッションに格納しようとしているのですが
エラーが出て困っています・・・

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


'microsoft
' 変数を宣言します。
sc = CreateObject("ScriptControl")
sc.AllowUI = True
sc.Language = "VBScript"
' スクリプト コントロールにスクリプト コードを追加します。

sc.AddCode("Sub Main : " & _
"Session(""aaa"") = ""123""" & _
"End Sub")

' スクリプト コードを実行します。
sc.Run("Main")


End Sub

すいません・・・
VB.NETです

エラーが出ます、エラーになります。

それで読む人に何が分かるんだっての。

分からないヤツは黙って見てろっての
どうせ答える気も無いくせに

>>33に一票。

>>34みたいな馬鹿も>>31みたいに読み手の側にたって文章推敲できないお方も
救いがたいな。
人間相手にすら理解させる文章をかけない奴が、いわんやまともなコーディングなんて
出来るはずがない。可哀想だが。

>>33に一票。

自分の不出来を棚に上げっぱなしなやつに、とやかく言われたく
無い罠。エラーメッセージをぐぐるとか、まず自助努力しろって。

>>35
お前がそうだからか？w

>>37
必死すぎてｲﾀｽ。

勘で無根拠に答えると
新規に生成したスクリプトコントロールからは
Sessionが参照できないだけじゃないか

>>前974
MarshalAsを手がかりに調べて、上手く行きました。ありがとうございます。
でも固定長の構造体配列だと、やっぱり駄目みたいです。
VisualSudio2005 なら出来るという話ですが・・・

>>40
１７日にExpressの日本語無償版がダウンロードできるらしいから、
それで試してみたら？

C#2.0ならunsafeコンテキストの構造体でfixedキーワードだが、VB2005で可能なのか？
無理矢理やろうとするなら、Marshal.AllocCoTaskMemで構造体全体分を確保して独自に解釈と言うことになるかね。

>25
　Session変数は、IISのメモリ上に格納されている。
　ついでに、Sessionを特定する情報は、クライアント側のCookieに
持っている。
　このCookieの有効期限はデフォルトで20分だし、ブラウザを閉じても
有効期限が終了する設定。

　クライアント側で取得するにはサーバー側で対になるものが必要。
　上述の仕様から出てくる制約が何かを考えれば取得できるSession変数と
取得できないSession変数の予想が付くと思う。

　まぁ、↓を参考にIISのプロセス外でSessionを管理する方法を探せば別だが。
　http://www.atmarkit.co.jp/fdotnet/dotnettips/183aspsesout/aspsesout.html

VB6.0の掲示板ってありますか？

すみません、VB2005について質問させてください。

XMLのデータを読み込んで、データグリッドに出したいのですが、
従来のVB2003におけるDataGirdの場合、
dim ds as new DataSet
ds.ReadXml("Test.XML")
dataGrid1.DataSource = ds
とすれば、表示ができました。

ただ、VB2005のDataGridViewを用いて
dim ds as new DataSet
ds.ReadXml("Test.XML")
dataGridView1.DataSource = ds

と書いても、何の反応もしません。（エラーもでません）

何か別の処理が必要なのでしょうか？
くだらないことで申し訳ないですが、よろしくお願いいたします。

>>40
固定長だからできないとかとかないと思うけど。
MSDNよく読んで、（しかしMSDNは記述があいまいだから）いろいろ試したほうがいいと思うよ。
大概のアンマネージ呼び出しは可能なはずだから。

少なくともこの下のサブトピックには一通り目を通したほうがいい。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpguide/html/cpconinteropmarshaling.asp?frame=true

いや、基本型以外の構造体の固定長配列は.NET 1.0/1.1のマーシャラはサポートしていない。
いくつかの手段で対応は可能だけど、属性つければ後はマーシャラに任せてOKってわけには行かない。

Magic TabControlって使ったことある？
ttp://www.codeproject.com/cs/miscctrl/magictabcontrol.asp

ここらへんのコントロールは無料で使用できるのかな？

>>47
ソースは？
固定長かどうかなんてことは呼ばれる側にしてみれば
どうでもいいことだと思うけど。
呼ばれる側が関心があるのは、渡された領域が正しく確保されているかどうか、
バートオーダーやデータの並びが正しいかどうか、それだけでしょ。

うん。
だから、「マーシャラが」サポートしていないの。
「属性つければ後はマーシャラに任せてOK」じゃないから、
自前で領域を確保するなりあれこれしなきゃいけないの。

VB.NET+ODP.NETでOracleDataReaderクラスのGetOracleValuesをどうやって使えばいいかが分かりません。
「このメソッドは、各列の値を個々に取得するのではなく、すべての列の値を取得する方法を提供します。」
という文言にひかれてるんですが、サンプルソースとかあるところをご存知ないでしょうか？

http://otndnld.oracle.co.jp/document/products/oracle10g/101/doc_v6/win.101/B15519-01/OracleDataReaderClass.htm

>>50
VB8を手に入れて試してみたのですが、

<StructLayout(LayoutKind.Sequential)> _
Structure A
　Public x As Byte
End Structure

<StructLayout(LayoutKind.Sequential)> _
Structure B
　<MarshalAs(UnmanagedType.ByValArray, SizeConst:=10)> _
　　Public y As A()
End Structure

Dim z As B
ReDim z.y(10)

で、あとは z.y(i).x でアクセスするので正しいのでしょうか。
一見これで動いてはいるのですが……。

それでいいけど、外部関数がセットするだけならyを初期化する必要もないよ。
Dim z As B
Hoge(z)
Console.WriteLine(z.y(0).x)

>>52
そこの情報でGetOracleValuesの存在を知ったのですが、使い方が分かりませんでした。
Dim ob As Object()
While dr.Read
If ob Is Nothing Then
ob = New Object(dr.FieldCount - 1) {}
End If
dr.GetOracleValues(ob)
End While
こんな感じで使えることはなんとか分かったのですが、普通にDataReaderから読み込むよりも遅い。。。

>>54
いやマズいんじゃないの。
だって関数から帰ったとき、マーシャラー（？）はサイズ10のアンマネージ配列を
マネージド配列にコピーを試みるわけだけれども、空のマネージド配列には
コピーしようがない。

>>56
そのためのMarshalAs属性。
マーシャラはこいつを見て、アンマネージドに渡すときにSizeConstと型を見て自動的にメモリを確保する。
アンマネージドから返ってきたときには確保したメモリの内容を自動的にマネージド配列に組み立てる。
もともと確保してた場合、その配列インスタンスは到達不可能になってGCの対象になるだけ。

あ、言い忘れてたけど
> マーシャラはこいつを見て、アンマネージドに渡すときにSizeConstと型を見て自動的にメモリを確保する。
のあと、配列インスタンスを作成済みだった場合は、確保したメモリに値がコピーされる手順が加わるな。

質問です。

VB.net2003とsqlサーバーでデータベース処理を作っています。
データグリッドの1つのセルでaと押したときデータベースのコード(商品コード等)のaから始まるものを
コンボボックスで表示したいのですが、可能でしょうか？

先生にはデータグリッドのセルで押されたキーは判別できないとか言われました。

前スレでも聞いたのですが、時間無くてレス見る前にdat落ちしたのでまたお願いします。

ttp://www.codeproject.com/cs/miscctrl/RenDataGridComboBoxColumn.asp
ttp://www.codeproject.com/cs/miscctrl/WindowsDataGridColumns.asp
ttp://www.codeproject.com/cs/miscctrl/DataGridZen.asp
DataGridでComboBoxは幾つかあるが、さてオートコンプリートは可能だろうか……？

VB6．0から乗り換えたんですが、VB.NETでは実行中にソースを変更できないのでしょうか？

>>61
2005から。

>>62
ありがとうございました。

(：´д｀)英語わからない・・・
でもDataGridComboBoxColumnで検索したら日本語で説明しているのが見つかりました。
>>60さんありがとう。
後はがんばって解読して作ってみます。

VB.netで作ったﾌﾟﾛｸﾞﾗﾑってもっとメモリ使用量抑えられないのかな

>>65
ワーキングセットについてのいつものFAQ？それとも踏まえたうえでの話しか？

SystemInformation.Networkについて教えてください。
これはネットワークに接続しているかどうかを返すようですが、
コントロールパネルのネットワークの設定で接続をすべて無効（または切断）にしても、
常にTrueを返します。

単純にこのコンピュータがネットワークにつながっているのかどうかを
調べたいのですが、これは使えないのでしょうか？

お世話になります

DrawImageとタイマを組み合わせて画像を動かしているのですが
Intervalを80以下に下げるとアプリケーションを終了させた時に
なかなか終了しません(変な日本語で恐縮ですがアプリケーション
は停止するけどウィンドが閉じない、ほかのアプリケーションに
フォーカスを移すとやっとウィンドが閉じる、リソースメーターは
アプリケーション終了からずっと１００％になりウィンドウが閉じる
と０％に下がる)
これでは画像を高速で動かすことができません
何か妙案は無いでしょうか？
MSDNにはTimerクラスが3つ書いてあるけど違いがわかりません・・・orz

>>68
このアプリケーションではタイマを2つ使い１つはPictureBoxで画像を
直に操作、もうひとつはDrawImageで動かすものですがPictureBoxを
終了時にVisible=falseにすることで自己解決できました
ありがとうございました

>>67
使えないっぽいねぇ。
予想だけど、ネットワークカードが物理的に刺さってるかどうかを見ているんじゃないかなぁ。

で、代案。Win32APIだより。
ttp://support.microsoft.com/default.aspx?scid=kb;ja;821770

>>68
3つのタイマについては
ttp://www.atmarkit.co.jp/fdotnet/dotnettips/372formstimer/formstimer.html
ttp://www.atmarkit.co.jp/fdotnet/dotnettips/373threadtimer/threadtimer.html
ttp://www.atmarkit.co.jp/fdotnet/dotnettips/374timerstimer/timerstimer.html

>>70
実は私もそう思ったんですが、目的と違いますし面倒なので試しませんでした。
代案すばらしいです。ありがとうございます！きちんと動作しました。本当に助かりました。
ついさっきまでWMIでなんとかやろうとしていたところでした。

◆Q1
　　Windowフォームの上っ面の部分(Form名等青色の部分)を
　　ダブルクリックしても拡大されない様にするには
　　どうすれば良いでしょうか？

◆Q2
　　CDトレイを自動で開け閉めさせるコードは何なのでしょうか？


上記２点につきましてぜひともご伝授下さいませ。

　　　

>>56-57
これ本当か？絶対間違ってると思うけどな。

だって現に俺も最初このような動作をすると期待して書いたコードが動作しないんで
構造体に、コンストラクタ代わりに配列を初期化した自分の返す共有メソッド書いて
対応したことがあったから。

すまん>>57-58だった。

>>75
VB7じゃ駄目っすよ？ VB8ですよ？
これ全スレの最後のほうとか>>53とかの流れの話だから。

>>74
なかなか慎重だね。
じゃあサンプルを出そう。
丁度良いAPIが見あたらなかったから、GetKeyboardStateの引数をByte配列を持った構造体に置き換えてみた。

Option Strict On
Imports System
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Windows.Forms
Public Class TestForm
  Inherits Form
  Public Shared Sub Main(ByVal args() As string)
    Application.Run(New TestForm())
  End Sub
  Private Declare Function GetKeyboardState Lib "user32.dll" (ByRef state As KeyboardState) As Boolean
  Private Structure KeyboardState
    <MarshalAs(UnmanagedType.ByValArray, SizeConst:=256)> Public Keys As Byte()
  End Structure
  WithEvents Private keyStates As New Label()
  Public Sub New()
    keyStates.Dock = DockStyle.Fill
    keyStates.Font = New Font("ＭＳ ゴシック", 9F)
    Controls.Add(keyStates)
    Me.Width = 400
  End Sub

  Protected Sub CheckKey(ByVal sender As Object, ByVal e As MouseEventArgs) Handles keyStates.MouseDown
    If e.Button = MouseButtons.Left Then
      'パターンA：こちらからは確保しない。マーシャラ任せ。
      DisplayKeyboardState(GetKeyboardState())
      Me.Text = ""
    Else
      'パターンB：こちらで事前にByte配列を確保。
      Dim ref As WeakReference = Nothing
      DisplayKeyboardState(GetKeyboardState(ref))
      GC.Collect() 'WeakReference以外に参照が無くなっていれば片づけ
      Me.Text = ref.IsAlive.ToString() 'Falseなら事前に確保したByte()は無くなってると言うこと
    End If
  End Sub
  Private Sub DisplayKeyboardState(ByRef state As KeyboardState)
    Dim x As Integer, y As Integer, result As New StringBuilder()
    For y = 0 To 15
      For x = 0 To 15
        result.AppendFormat("{0:X2} ", state.Keys(y * 16 + x))
      Next
      result.Append(Environment.NewLine)
    Next
    keyStates.Text = result.ToString()
  End Sub

  Private Function GetKeyboardState(ByRef allocated As WeakReference) As KeyboardState
    Dim state As New KeyboardState()
    state.Keys = New Byte(256){}
    allocated = New WeakReference(state.Keys)
    GetKeyboardState(state)
    Return state
  End Function
  Private Function GetKeyboardState() As KeyboardState
    Dim state As New KeyboardState()
    GetKeyboardState(state)
    Return state
  End Function
End Class

誰かお願い致します。

教えて下さい。

ぐぐっても見つかりません。

.netフレームワークの1.1と2が両方インストールしてあるマシンで1.1のアプリは
問題なく動きます？

値が列挙型の中に含まれる値かどうかを調べる方法はありますか？
Private Enum exEnum
a = 1
b = 256
c = 512
End Enum
という列挙が定義してあった場合、ある変数 varA に入っている値が
exEnum に存在する値かを調べたいのですが、そんな便利なメソッドが
あれば教えてください。

>>73
'トレイを開ける
Private Sub OpenTray()
Const BUFFER_CAPACITY As Integer = 256
Dim nCommand As String 'コマンド文字列
Dim hwndCallback As Integer = 0
Dim ReturnString As System.Text.StringBuilder = _
New System.Text.StringBuilder(BUFFER_CAPACITY)
Dim ReturnSize As Integer = BUFFER_CAPACITY
Dim Ret As Integer
'CDトレイをオープンするコマンド文字列
nCommand = "set cdaudio door open"
Ret = mciSendString(nCommand, ReturnString, ReturnSize, hwndCallback)
End Sub
'トレイを閉じる
Private Sub CloseTray()
Const BUFFER_CAPACITY As Integer = 256
Dim nCommand As String 'コマンド文字列
Dim hwndCallback As Integer = 0
Dim ReturnString As System.Text.StringBuilder = _
New System.Text.StringBuilder(BUFFER_CAPACITY)
Dim ReturnSize As Integer = BUFFER_CAPACITY
Dim Ret As Integer
'CDトレイをオープンするコマンド文字列
nCommand = "set cdaudio door Closed"
Ret = mciSendString(nCommand, ReturnString, ReturnSize, hwndCallback)
End Sub
これで開閉はできるが、複数台ドライブがある時には対処できない。
mciSendCommand()を使えば任意のドライブの開閉ができるはずだけど、各ドライブのデバイス識別子を列挙する方法は、俺にも分からない。

>>81
自動的に最適な方を見つけて実行させる
とMSのサイトに書いてあった希ガス

>>82
Enum.Equals メソッド

>>82
System.Enum.GetValues(GetType(xxxx))がArray返すからそれで探せる。

APIの宣言文を忘れてたw

Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpSectorsPerCluster As System.Text.StringBuilder, _
ByVal uReturnLength As Integer, _
ByVal hwndCallback As Integer) As Integer

Imports System.Runtime.InteropServices


<DllImport("winmm.dll", EntryPoint:="mciSendString", CharSet:=CharSet.Auto)> _
Public Shared Function mciSendString(ByVal Command As String, ByVal ReturnString As String, ByVal c As Integer, ByVal d As IntPtr) As Integer
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
mciSendString("set CDaudio door open", "", 0, IntPtr.Zero)
System.Threading.Thread.Sleep(10000)
mciSendString("set CDaudio door closed", "", 0, IntPtr.Zero)
End Sub

>>73
　　Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
　　　　Const MAXPARAM As Integer = &HF032
　　　　If m.WParam.ToInt32() = MAXPARAM Then
　　　　　　Return
　　　　End If
　　　　MyBase.WndProc(m)
　　End Sub

>>82
Enum.IsDefined
ただしOrで値を組み合わせている場合は判断できないので注意。

while文で、値がnullの場合繰り返し終了させたいんだけど、
終了条件をどう書けばいいのですか？

空白文字列かNothingかどっち？

>>どちらか分かりません。
データベースから、受注Noを取り出し表示を繰り返そうと思ってます
ですので、受注Noがなくなったらそこで終了させたいです。
たぶんNothingなのでしょうか。

んー？
DataReader使うならReadメソッドの返値とか使うし、DataSetならDataTableのRowsでFor Eachとかしない？

ほとんど知識のないまま、作っていますので突っ込まれると困ります。
DataGridに表示させようと思っています。

select　受注No, 品名 from 受注M
i=1
while() ←ここに、受注Noがなくなったら、終了の条件式を書きたい
一覧.Row = 0 + i
一覧.Col = 0
一覧.Text = i
一覧.Col = 1
一覧.Text = Rs.Fields("受注No").Value
一覧.Col = 2
一覧.Text = Rs.Fields("品名").Value
Rs.MoveNext
wend

よろしくお願いします

RsとかMoveNextとか見る限りADO使ってるのかね。
ならEOFプロパティ使うとかすれば良いんじゃないの？

>>95
詳しく教えてください。何のことか分かりません

wend…….NETじゃないような気がしてきたぞ。VBAなりVB6.0なりならスレ違いだ。

Rs.EOFがあるだろ？　リファレンスでMoveNextの解説は読んだか？

while(Rs.EOF　==　True)
ウンコ

>>83,87さん

ありがとうございます。
解決しました。

おまいら優しいな

vb.net の module に関してですが、
shared なクラスにするとか、同じくシングルトンで実装すればあえて
module を使用する必要はないかと思っているのですが module を使う
メリットは何が考えられますか？

C# には module はありませんし、vb.net で module を使うべき箇所が
想定できません。アドバイスいただけるとうれしいです。
よろしくお願いします。

Module == Shared
元々過去との互換性のためのものだし。

教えてください！！VB.NETとASP.NETとADO.NETとアクセスを使用して
データベースに画像を登録する画面と、データベースに登録してある
画像を表示する画面を作成したいのですが、データベースへの画像に
関するアクセスの仕方が分かりません！どなたかご存知でしたら、ぜ
ひご教授願います。

>>103
「ADO.NET　データベース　画像」でぐぐるんだ。

VB.NET+ASP.NETで開発しております。
フォームに予めヘッダーとなるテーブル(WEBフォーム)を作成しておき
DBからデータ抽出後、動的にテーブル行を追加するという処理をしています。

DB抽出→テーブル新規行作成部分は作成済みなのですが
テーブルのレイアウトがどうもうまくいきません・・・
GridLinesかBorderStyle辺りかと思っているのですが行き詰っています
現状は新規追加した行のボーダーラインが太く表示される状況です。
(既存行の下ラインと新規行の上ラインが重なったような感覚)

ヘッダー部分のテーブルはGridLines→Both、BorderStyle→Noneに設定しています。
わかりにくい文章だと思うのですがどなたかご存知の方いたら教えて下さい。
よろしくお願いします。

VB.NETでSystem.UInt32のリテラルはどう記述すればいいの？

2005ならUIサフィックスだな
それ以前はリテラルにできない
Convert.ToUInt32でも使うか

private const UInt32 SC_CLOSE = 0x0000F060
こゆこと？

>>108
ｺﾞﾒﾝ
VBじゃなかった

こんにちわ
VB.netで、横幅が1ドット、縦幅が30ドットの縦線をフォーム外に表示させたいと思ってます
そこで、フォームを新しく生成して、そこに横幅が1ドット、縦幅が30ドットのピクチャーを置き、
フォームスタイルをNone、サイズをnew size(1,30)で表示させたのですが、
フォームのx座標が強制的に2になってしまいました

これはフォームサイズの仕様なので、別の方法をとるしかないのでしょうか?

また、その場合横幅が1ドット、縦幅が30ドットのピクチャーをフォームとして扱うみたいな事は出来るのでしょうか?

>>107
ありがとう。出来た。

Dim j As System.UInt32

j = Convert.ToUInt32(1I)
System.Console.WriteLine(j)

本職はCなんだけど面倒くさいなぁ・・・・

>>110
Regionプロパティ

>>111
U系を使わなければ問題なし

そうそう符号無しの型なんて冗長とまでは言わないけど、
なきゃないで別に困らないよねえ。

>>112
フォームの形を丸ごと変える方法もあったのですね
解決しました。ありがとうございます

レコードセットをCSV出力するメソッドってありますか？
地道に一つずつレコードセット取ってきて
do until rs.eof
print　フィールド１　& "," & フィールド２　& "," & フィールド３　& "," …
movenext
loop
ってやるしかない？

>>115
ゴリゴリやるか市販のコントロール使うしかない

CSV吐きって型やエスケープや改行を考慮すると微妙にめんどいよ。

方言も多いしな

↓CSV厨

プロセス間通信をやろうと思って
サンプルにあった
Imports System
Imports System.Runtime.Remoting
Imports System.Runtime.Remoting.Channels
Imports System.Runtime.Remoting.Channels.TCP
を記述したところ

Imports System.Runtime.Remoting.Channels.TCP
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ってなってインポートできない
なんで？？

環境はVS2003
.NET FWは1.1＋SP

なんてエラーが出てるのかぐらい書けよ

その波線にマウスポインタを持っていったら、何か表示されるから
その内容を書き込んでみよう。

‥‥と、やさしく解説してみた。

ｽﾏｿ
名前空間がありません
みたいなやつ

Imports System.Runtime.Remoting.Channels.
で候補が出てくる中にも存在しない

とりあえずFW再インスコしてみる

プログラマならメッセージをおろそかにするなよ
みたいな、じゃない


で、原因は参照不足だ。
現在参照しているDLLの中でSystem.Runtime.Remoting.Channels.Tcp名前空間を定義してるものがない時に出る。
ヘルプで使いたいクラスを開いて、その「〜〜について」を調べてみ。
どのDLLが必要が書かれているから。

>>124
ﾄﾝｸｽｺ

うまくいきました
Importsと参照設定って同じだと思ってた…

あれ・・・
おかしいね
3年もやってるのに

参照設定は絶対パス、Importsは相対パスみたいなもんだと
先輩に教えてもらったことがある。言い得て妙だなと思った。

>>126
いやそれは言い得てなくて妙だ。
Imports は名前空間を修飾するだけのものだから。外部のアセンブリを指定する参照設定とは全然別。

Importsは名前空間だけじゃなく型もOKだぜー。

VB.netで、DLL（COM）を作ってエクセルから参照しています。開発機では問題なく
動作するのですが、インストーラーを作成して他のマシンにインストールすると、

実行時エラー'429'ACtiveXコンポーネントはオブジェクトを作成できません。

とエラーになってしまいます。（インストール先の）エクセルのVBAからは、参照
を確認すると設定されたインストールフォルダーのDLLが確認できます。レジストリ
も、DLLの名前で検索するとインストール前後で、数が大幅に増えているのでレジス
トリには登録されているようです。

Regsvr32で手動で登録しようとしてみた所、

「DllRegisterServer エントリ ポイントが見つかりませんでした。 登録されて
いない可能性が…」

とダイアログが出ました。うーん、どうしたらよいのでしょうか？Web等を探してみた
のですが解決しません。どなたか、お知恵をお願いします。

VB.net 2003のWindowFormでプログラムを作っています。
画面上でデータの一覧を表示し選択させるためにComboBoxを使っているのですが、
ComboBoxだと選択だけでなく入力もできてしまいます。
これを選択だけに出来ないでしょうか？

WebだとDropDownListがあるのですが、Formでも同じようなコントロールはあるのでしょうか？
よろしくお願いします。

>>129
.NETのアセンブリをCOMに登録するのはregsvr32じゃなくてregasmだよ。
OLE viewerで.NET Categoryの登録したクラスの所にはどんなのが書かれてる？

>>130
ComboBoxのDropDownStyleプロパティ

>>131
ありがとう。できました！

> 131
OLE viewerですか。実はこれまで使ったことは無かったので。。。
いろいろ情報があるのですが、どのあたりの情報を見ればよいのでしょうか

取りあえず、Registryタブにでてる奴の内ProgIdとInprocServer32 [Assembly]、InprocServer32 [CodeBase]
エラーメッセージからしてCreateObjectするときの名前を間違えてるんじゃないかと思ってるんだが……。

ご回答有難う御座います。

Registryタブ

…
InprocServer32 [Assembly]=TaskListLib,Version=1.0.21…,Culture=neutral,PublicKey Token=null
InprocServer32 [Class] =TaskListLib.TaskListLib
InprocServer32 [CodeBase] =file:///D:/Dev/VB/TaskList/TaskListLib/bi/TaskListLib.DLL

…

ProgID=TaskListLib.TaskListLib


という感じでした。

ちなみに（開発機で無い）インストール先のマシンのインストールフォルダー
は、C:\Program Files\の下になるのですが、インストーラーでインストール
すると

「実行時エラー'429'ACtiveXコンポーネント…」

とでるのは前述の通りですが、ここで、RegAsm C:\Program … \ … .dll と
やってみらた「依存関係がみつからない」（TaskListLib.DLLは複数のDLLを
参照しています）と出ました。

　…/bi/…　ではなく　…/bin/…　です。（念の為）
OLE Viewerって、コピペできないんですね。。。。

ん〜、インストール先のマシンの方が欲しいんだが。
失敗するメッセージがでるのはインストール時なの？
それでもVBAかなんかから実行はできるの？
TaskListLib.dllの参照しているDLLはTaskListLib.dllが手に届く位置（同じディレクトリとか）にあるの？

ご親切にご相談に乗っていただき感謝します。

まず、インストーラを実行すると、インストールが成功した旨の表示が出ます。
で、エクセルのマクロからTaskListLib.dllの関数を呼び出そうとすると、

「実行時エラー'429'ACtiveXコンポーネント…」

となります。そこで、インストール先のDLLを手動で、RegAsmして再びエクセル
のマクロからTaskListLib.dllの関数を呼び出そうとすると、

「依存関係がみつからない」

となります。TaskListLib.dllの参照しているDLLはTaskListLib.dllと同一フォル
ダーに有ります。

OLE viewer等を存在を教えていただいてあれこれ調べてみました所、どうやらインス
トーラーがきちんと動作していないようです。インストールを実行すると、DLLの情報
がレジストリには入るのですが（よって、エクセルのマクロはTaskListLib.dllの場所
を見つけられるようです）、インストール後にOLE Viewerでインストール先マシンの
NET Categoryを見てみるとTaskListLib.dllが登録されていませんでした。（手動でRegasm
した後は登録されていました。）

１：TaskListLibというプロジェクトをつくりそこにTaskListLibというCOMクラスを追加。
２：SetupTaskListLibというセットアップ・プロジェクトをつくり、”プロジェクト出力の追加”
TaskListLibのプライマリ出力を追加
３：ビルド

では、何かたりないのでしょうか？（これで（たまたまなのかもしれませんが）うまく
行っているものもあったので・・・・）

VB.netでInternet Explorerのプラグインを開発しようとしています．
色々と調査した結果，Browser Helper Objectsを使用すると，
開発ができるということは分かったのですが，
これをVB.netで使用できるか否か分かりません．

どなたかご存知の方は，教えて頂けないでしょうか．
参考になるURLなどもあれば，教えて頂けないでしょうか．

原因すこし絞り込めました。

インストール先をOLE Viewで調べたときに、InprocServer32 [CodeBase] がありませんでした。
regasm /codebase　を実行すると問題なく実行できました。

そのときに「署名が無いものは云々」とメッセージが出ていたので、どうやらインストーラで
インストールした時は、署名が無い（まだ、よく理解していませんが・・・）等の理由で、
CodeBaseの値が設定されないでしょうか？

とりあえず、インストール先で使用はできる様になりました。

>>140
あー、やっとわかった。
セットアッププロジェクトの、追加したプロジェクトのプロパティでRegisterをvsdrpCOMにすれば
インストーラが登録をやってくれるようになるようだ。自動的にCodeBaseも付けてくれるっぽい。
CodeBaseつけるには本来厳密名が必要なはずなんだが、とくに要求はされないな。

>>139
BandObjectでも使えば。

オブジェクトをGCHandleを用いてpinで止めるのと同じように、関数ポインタ
（デリゲートから取得したもの）をガベージコレクタによる移動から防ぐ方法
はあるのでしょうか？

関数ポインタの固定じゃなくてその元になったデリゲートの固定だろう？

> メモ
> アンマネージ コードによって保持されるマネージ デリゲートへの関数ポインタを参照する場合、
> 共通言語ランタイムによって該当のマネージ オブジェクトに対して
> ガベージ コレクションが実行されることは回避できません。

だそうだが。MarshalやUnmanagedFunctionPointerAttributeにも特にないな。

> 141
追加したプロジェクトのプロパティのRegisterは、vsdrpCOMにしてあります。
（少し紛らわしい書き方をしてしまいましたが）インストーラでインストール
しただけでは、（CodeBaseの値のみがつかないのではなく）OLE Viewerで確認
するとNET Categoryにな何のデータも登録されていません。

インストーラでインストール。OLE Viewerでは登録されていない。
（ここで実行すると、「実行時エラー'429'ACtiveX…」）
　↓
Regasm ….dll
（ここで実行すると、「依存関係がみつからない云々」）
　↓
Regasm ….dll（「「署名が無いものは云々」といわれるも登録は成功）
（ここで実行するとOK）

ということです。ちょっと署名関係をしらべて署名したもので
試してみようと思っています（が、なんだか署名関係は面倒臭そう
ですが。。。。）

>>144
う〜ん。

私が成功したやり方。VS2002。
１）クラスライブラリプロジェクトを新しいソリューションで作成。
２）プロジェクトのプロパティ＞構成プロパティ＞ビルドのCOM相互運用機能の登録　をTrueに設定
３）同じソリューションにセットアッププロジェクトを新規作成。
４）１で作成したプロジェクトのプライマリ出力をセットアッププロジェクトに追加。
５）追加したプロジェクトのRegisterプロパティをvsdrpCOMに設定。
６）ビルド。
で開発機にもインストール先のWin98SEにも自動的にCOM登録される。
CodeBaseも設定されるので任意の位置からCOMオブジェクトを作成できる。

……んだけどなぁ。

厳密名は、
sn.exe -k [出力するキーのファイル名]
でキーファイルを作成して、AssemblyInfo.vbに
<assembly: AssemblyKeyFile("[sn.exeで作成したファイルのパス]")>
と書くだけで良いよ。大雑把には。
厳密名ほかについて詳しくは
ttp://www.atmarkit.co.jp/fdotnet/technology/idnfw11_index/index.html

>>143
　なるほど。参考になりました。どうも有り難うございます。
やはり、無理なことをやろうとしているのかも…。

ツリービューで、Slepnirのオプションみたいなのを作りたいのですが、うまく出来ません

内容は、
ルートが選択された時、選択されたルート以外のツリーは閉じる
選択されたルートの中の一番上の子要素が選択される

だと思うのですが、AfterSelectで特定のルートが選択された後の分岐までは問題ないのですが、
「選択されたルートの中の一番上の子要素が選択される」というところで詰まっています

なにか良い方法はないでしょうか？

どう試してみてどう駄目だった？

すみません、SelectedNodeの指定の仕方が悪かっただけでした
大変申し訳ないです

キーを押しっぱなしでリピートかかってキーコードが発生しているのと、手で素早く連打してる
のとを区別するにはどうすればいいでしょう

KeyUpが発生してるかどうか見ればいいだろ

リピートはなんかそういうカウンタなかったっけか？

SQL-Serverからデータ型「money」で値を引っ張ってくると「10.0000」となってしまいます
ListBoxにデータを入れているのですが、小数点以下を切り捨ててListBoxにデータを入
れる方法ってありますか?
それとも素直にint型でやった方がいいでしょぅか?

Formatするとか、そもそもINT型が別に素直でも何でもないし。
取得がADO.netならば、適切な型（多分Decimal）にマップされますよね。
それを文字型にするんだから、暗黙の型変換というかToStringじゃなく、フォーマット指定で変換すればいいだけ。

int型に入れればいい

実際使っている部分を載せます
Me.ListBox2.DataSource = dr2
Me.ListBox2.DataTextField = "mas_com_mon_money"
Me.ListBox2.DataBind()

ストアドを使ってデータを入れているのですが、formatを使うと怒られます。
ストアドの指定をする部分で型をintにするとまたまた怒られます。
また、SQLのデータには小数点は入っていません
多分2行目で小数点以下が入ると思うのですが・・・
初心者で申し訳ないです

dr2は何なのかをさらせ

これです

Dim CMD2 As New SqlCommand(select mas_com_mon_money　from com_ser", CN)
CN.Open()
Dim dr2 As SqlDataReader = CMD2.ExecuteReader()

＞146
返信遅れてすみません。ＶＳ２００３ですが私も同様の方法です。
（これで、うまくいっているものもあります。）

厳密名に関しても（ちょっと別件で忙しくなってしまったため）後
日、調べてやってみます。

色々と御教授頂き有難う御座いました。取り急ぎ、御礼まで。。。。

デスクトップ上の指定した座標を左クリックする
というのをVBのプログラム上で行うのは可能でしょうか？

API呼び出しになるが可能。

コントロールを1つ1つ懇切丁寧に、例つきで解説してくれてるところはありませんか？
MSのサイトとかヘルプ見ても、理解できません。

っていうか昨日、無償版のexpressβ2をダウンロードして使い始めたばかりでプログラム初心者なので。

>>163
テンプレの>>3-5を熟読すると大吉。

>>164
テンプレには既に目を通しましたが、私には難しかったです・・・・・

多分、全部のページを読んで情報を総合すれば、欲しい情報は載っているんでしょうが、

もっと分かりやすくまとめてあるところはないものか、と思いました。

本買って勉強しる

>>165
VBの解説書が多く置いてそうな本屋で、じっくり立ち読みしてから
買ってくるといいよ。やりたいこととコントロール(クラス)の関連だ
けを知りたいなら、ITフロンティアの逆引き大全あたりがいいかと。

VB.Net で作っているプログラム(プロジェクト?)の中に C# のクラスを混在させることって可能なんですよね?
どこかで、できると読んだ記憶があるので。

で、試してみました。
クラスを作ることはできました。
コンパイルエラーは出ませんでした。
が、VB.Net のコード中から、C# のクラスを呼ぶ方法が分かりません。
普通に C# の class で定義したクラス名を記述すると「型が見つかりません」のようにコンパイルエラーとなります。

ググって調べるうちに C# には名前空間の(明示的な)定義が必要と分かったので、VB.Net のルート名前空間と同じ
namespace で囲ってはいます。

別にC#では名前空間が必須って訳じゃないけど。
//VSのデフォルトではプロジェクトと同じ名前の名前空間が設定されるけど。

取りあえず前提として、
クロスランゲージはコードレベルの混在ではなくてアセンブリ、つまり.dllや.exe間での相互運用だ。

VB.NETのプロジェクトでC#のプロジェクト（の成果物）を使うのなら、当然参照設定しなきゃならない。

>>169 ｻﾝｸ!
えっ、てことはコンパイルかけた後のものを使うってことかぁ〜
やっぱ、VB.Net C# を混在したままコンパイルってのは無理なのかぁ〜
なんか、できちゃいそうな勢いなのになぁ・・・ 残念orz

C#<>VB.NETコード変換みたいなのもそこらに転がってるから、
言語独自機能を使ってないのならそう言うのを使えばいいかもね。

なぜDLL呼び出しじゃ駄目なんだ？

必要性があってやろうとしたわけじゃないんさ。
VB.Net で作成途中のプログラムがあって、C# の勉強がてら、
一つのクラスを C# で作ってみようかなぁ〜と軽く考えたんさ。
DLLに分離して作るほど大掛かりなものじゃないんよ。

VisualStudio 2010辺りで実装されるよ
たぶん

.netmoduleつくって al.exe でリンク。めちゃめんどい。

>>175
モジュール使っても一つのPEファイルの中に収まるようになる訳じゃないぞ。

>>176
vbc /addmodule だとそうだが。al.exeならまとめてくれない？

くれない。
> モジュール (マニフェストを含まないメタデータ) が 1 つ以上ある場合は、
> Al.exe を使用して、マニフェストを別個のファイルに含むアセンブリを作成できます。

>>174
extern "VB"
とか？

つ　ILMerge.msi

Sleipnirのオプションのようなものを作成していた者ですが、
左にツリービュー、右にツリービューで選択した各々の項目が出るプログラムの場合、
どーやるのが一番一般的で効率がいいのでしょうか?

右に出す項目分、全てフォームを作り、貼り付けると結構な量になり、スマートじゃない気がして悩んでます
因みに左にツリービューに出る項目は十数個くらいです
ヒントお願い致します

なんでフォームなんだよ
Panelあたりでいいだろ

だからさあ、パネルでもなんでもいいけど（コンテナに入れた）コントロールを
デザイン時に予めフォームに貼り付けておくのは量も大量になってロード時間もかかるだろうし、
（フォームのクライアント領域の外に配置しておく、あるいはVisible = Falseで配置しておくって
やり方は）スマートじゃないんんじゃないか、ってことでしょ。

181の書き方にも問題があるが、それぐらい読み取ってやれよ。

>>181
タブページのタブを隠す方法があればね。
実行時には、ユーザーはタブページのタブをクリックする代わりにツリービューの
アイテムを選択すると。

それならすくなくともデザインはスマートにできるんだけど確か普通のやり方では
タブは隠せなかった気がする。

まあパネルの中にタブページを配置すればできないこともないだろうけど。

タブで区分けるのと複数パネルで区分けるのと、
量的に何が違うのかと

>>184
馬鹿な奴はどこまでも馬鹿だね。
すくなくともデザインはスマートにできる、と書いてあるだろうに。

スマート……か？

そんな程度で馬鹿なヤツとか罵ってるとは・・・

デザインとユーザーインターフェースが連携してないやつって
いるよな。特にVisual系を使ってると、そのへんがおろそかに
なる。設計段階で遷移のことをしっかり詰めておかないからね。

説明不足で申し訳なかったですが、まさに>>183のおっしゃる通りです
フォームに大量にパネルを張って、ロード時にVisible = Falseにするというやり方を最初にやったのですが、
あまりにもパネルをぺたぺた張りすぎて、見た目的にもこういう作り方は普通なのかな？思ったんです

タブを使って連結させるという方法も、実際に試していたのですが、Regionを使ってタブを消せても、
やはり、ロードに多少の時間がかかり、これもどーなのかなぁと思い、別の方法を考えてみて、

次にやったのがフォームを個数分作って呼び出す方法です
これなら、少なくともフォームをロードする時間は短縮できるのですが、いかんせんフォームの個数が膨大になってしまって(´・ω・｀)

結局、答えが見つからないまま迷ってる次第です

インスタンスの生成を、暇ができたときにやれば良いんだけどな。
Application.Idleイベント辺りで。
AddHandler/RemoveHandlerする必要があるが。

ボタンを押すたびにボタンの背景色を変えるにはどうしたらいいんでしょ？

ClickイベントでBackColorプロパティをいじる。

>>192
�d、select case とカウンタで色かえられますた。

初歩的な質問ですいません。
ストアドプロシージャで取得した1つのテーブルの値を各TEXTBOXに値を入れたいのですが、
値がDBNULLとなってエラーを起こします。
SqlConnectionをOPENし、ExecuteNonQueryを実行しただけでは値を取れないのでしょうか?
ストアドプロシージャのOUTPUTからデータの取得するのは単にValueでやっているのですが、
ここが間違いですか?

ｲﾛｲﾛ間違ってる気がするのでプログラム記述汁

このプログラムです。

CMD.CommandType = CommandType.StoredProcedure
Dim com_name As SqlParameter = CMD.Parameters.Add("@com_name", SqlDbType.VarChar, 40)
com_name.Direction = ParameterDirection.Output
Dim record_id As SqlParameter = CMD.Parameters.Add("@record_id", SqlDbType.Int)
record_id.Value = Me.DataGrid1.SelectedItem.Cells(1).Text
CN.Open()
CMD.ExecuteNonQuery()
CN.Close()
Me.Tex_com_name.Text = com_name.Value

record_id.Valueには数値がきちんと入り、ストアドプロシージャの方ではデータは拾えているようです。
CN.Close()は最後にしても差はなく、com_name.ValueはDBNULLとなって帰ってきます。
DataGrid等は拾えるのですが、ひょっとしてCN.Open()の後に
Dim dr As SqlDataReader = CMD.ExecuteReader()を入れないとダメなのでしょうか?
入れてあげて、CN.Close()を最後に持っていった場合はNothingとなります・・・(涙
ﾀｽｹﾃ

ストアドファンクションならば、結果は普通のSELECTステートメントと同じ。
ストアドプロシージャならば、パラメータで受け取ればいいだけでしょ。
MSDNにまんまサンプルあるはずだけど。

>>196
適当なストアド作って実行してみたけど
com_nameにパラメータの値戻るよ？

ストアド側で
SELECT @com_name = '戻したい値'
はやってる？

>>198
ストアド側こんな感じでやってます↓
company.company_var_name AS [@com_name]
本当はそのようにしたいのですが、なんか怒られるので、ブロックデザインで作ったものを
そのままにしています。
なんかここのような気がしてきたしてきた・・
ちょっとこれから車検にいってくるのでまた後で失礼します。

>>199
ストアド側の問題なら環境依存になるから確認しとくけど、SQL Server のT-SQLでいいのか？
それなら戻し方は２種類あるから使い分けが必要。

遅くなりました。
SQL Server のT-SQLでいいと思います。
OUTPUTの値がNothingということはきちんとデータが取れていないのかな?という気がしてきました。
ということで、WHEREでIDを特定していたのですが、　ID=1みたいに条件を固定した状態でやってみましたが
Nothingでした。
ストアドの部分はクエリアナライザ使っても問題無し。
　なんで?
今は
CMD.ExecuteNonQuery() をCMD.ExecuteReader()に置き換えてます。

こんにちは。
当方vb.net2003でwebクライアントを作ろうとしています。

テキストボックスに入力された文字列をPOSTでサーバに送信するんですが、
Shift_jisを想定しています。が、vb.netの内部エンコーディングがutf-8？
であるため、正常に連携できていません。

http://dobon.net/vb/dotnet/string/getencoding.html
を参照すると、バイト型配列を変換する方法が乗っています。
しかし、テキストボックスに入力されたテキストを（textbox1.text)
バイト配列に変換する方法がわかりません。

すいませんが、よろしくお願いします。

>>201
CREATE PROCEDURE xxxx
　@record_id integer,
　@com_name varchar(40) OUTPUT
AS
　SET @com_name = '戻したい値'
または
CREATE PROCEDURE xxxx
　@record_id integer
AS
　SELECT @com_name = '戻したい値'
下の方法の場合は SqlCommand#ExecuteScalarかExecuteReader を使う必要がある。

>>203
一箇所訂正
誤）SELECT @com_name = '戻したい値'
正）SELECT '戻したい値'

気になった現象があったので報告

初回
SET @com_name = '戻したい値'
で取得しようとしたらNULLが戻り
SELECT @com_name = '戻したい値'
で値が戻る

再度
SET @com_name = '戻したい値'
でコンパイルし直して実行すると
値が戻る

>>202
バイト配列に変える前にUrlエンコードし忘れてるのかも・・・

ttp://dobon.net/vb/dotnet/internet/webrequestpost.html
System.Web.HttpUtility.UrlEncode()の第一引数をtextbox1.Textにすればいけるはず。

遅い時間に申し訳ないです。今自宅なので検証できないのですが
203を見てフト思ったのですが、
CREATE PROCEDURE xxxx
　@record_id integer,
　@com_name varchar(40) OUTPUT
AS
　SELECT @com_name = '戻したい値'
という形でやってます。
そして勘違いしていた部分というのは「戻したい値」の部分で、「SELECT」は変数に代入する
SELECTではなくてSQLのSELECTです。つまり
SELECT @com_name = mas_com_var_name FORM company where id = @record_id
実際の文ははるかに長いのですが、簡単にするとこんな感じです。
また、戻したい値というのはSELECTした結果のidの値で、IDの通称を@com_nameとしてOUTPUTで戻したいのです。
明日ストアドの部分をまとめてUPします。
遅い時間にありがとうございました。

おはようございます。少々いじりましたが、以下の文です。
ALTER PROCEDURE xxxxx
@record_id int,--登録ID
@com_name varchar(40) output,--会社名
@com_aaa int output,--郵便番号
@com_bbb varchar(100) output,--番地
@com_ccc varchar(100) output,--アパート類
@com_ddd varchar(12) output,--TEL
@com_eee varchar(12) output,--FAX
@com_fff varchar(50) output,--連絡用メール
@com_ggg varchar(255) output,--url

@com_hhh_id varchar(20) output,--メンバーID
@com_iii varchar(20) output,--パスワード
@com_jjj varchar(60) output,--当社メールアドレス
@com_kkk smalldatetime output,--登録日
@com_lll smalldatetime output,--最終更新日
@com_mmm smalldatetime output--削除日
AS
SELECT [@com_name] = company.company_var_name, [@com_aaa] = company.aaa,
[@com_bbb] = company.company_var_bbb, [@com_ccc] = company.company_var_ccc,
[@com_ddd] = company.company_var_ddd, [@com_eee] = company.company_var_eee,
[@com_fff] = company.company_var_fff, [@com_ggg] = company.company_var_ggg, [@com_iii] = company_record.record_var_iii,
[@com_jjj] = company_record.record_var_jjj, [@com_kkk] = company_record.record_smal_kkk,
[@com_lll] = company_record.record_smal_lll, [@com_mmm] = company_record.record_smal_mmm
FROM company INNER JOIN
company_record ON company.id = company_record.id
WHERE (company.id = @record_id) AND (company_record.id = @record_id)
ひょっとして複数のOUTPUTがある場合はそれぞれのOUTPUTに値を入れないとダメなのでしょうか?
1つのOUTPUTに対して、値をSETしてみたらデータは拾えました。ということは、1つのSELECT文では無理なりでしょぅか?
ブロックデザインで作ってみると「別名」と出ているので、普通にできると思ってたのですが・・・

TextとRichTextの識別の方法ってあります？
DataFormats.RtfもDataFormats.TextもどちらもTrueになってしまうのでorz

あ、GetDatePresent関数を使用しての結果です。

え？
例えばIEからD&Dした文字列はDataFormats.TextのときTrueが返って、DataFormats.RtfのときFalseが返ってくるよ？

Wordの書式付文字列をコピーしたものを
Clipboard.GetDataObjectで取得したIDataObjectでは
どちらもTrueになりますた・・・

>>212
そりゃWordならどっちの形式も含んでるだろうからどっちもTrueになるのは当然だろ
IDataObjectは異なる複数の形式のデータを同時に格納できるって点を理解できてる？

あぁぁぁ・・・
そっか、そりゃそうだわなw
ありがとござんした。

>>208
DB板向けの内容になってきたけど、このまま行っちゃいましょう。
>>207でいってるとおりSELECTが問い合わせのSELECTになってますなぁ。
SELECT 別名 = フィールド名 FROM xxxx と
SELECT フィールド名 AS 別名　FROM xxxxは同じ意味で、変数への代入の意味は無いです。
そのプロシージャで[@com_name] = company.company_var_nameやってる部分は
@com_name変数とは全然関係ない@com_nameという別名の付いたフィールドを持った
結果セットを返しているということになります。
問い合わせ結果を変数に代入したい場合、
その問い合わせがスカラー（単一行、単一フィールド）なら次のように書きます。
SELECT @com_name = (SELECT company.company_var_name FROM xxxx)
そのプロシージャの場合、複数フィールドを持っているのでこの方法は向いていません。
どうしてもOUTPUTで返すなら、カーソルを使うか、いったん一時表に突っ込んで
変数の個数分上の命令を繰り返すことになります。
結論から言えば単純に結果セットで返すのが一番です。

>>215
MSSQL2000で試してみたら代入できた。
declare @aaa integer
declare @bbb varchar
select @aaa = a1, @bbb = a2 from test1 where a1 = 1
print @aaa
print @bbb
[@aaa] と括弧で囲むと別名扱いになるようだ。[ ] は余計なのでは。

>>215
ありがとうございます。
結局は私が勘違いしていた事をお詫びします。
てっきり別名=変数名と思ってました。
結果セットという言葉が出てきましたが、初めて知りました。なんとなくイメージはつかめてると思いますが、
ストアドから帰ってきたSELECT * FROM xxxの結果。これが結果セットかと思いますが、
DataGridやListBoxなどにデータを入れることは出来ていますが、TextBoxとなるとデータの入れ方が
本には載っていないのです。
OUTPUTには全然こだわっていません。要はSELECTした結果の値をTextBoxに入れることが出来ればいいのです。
そこで、ストアド側のOUTPUTはとりあえず全部消して、別名(SELECT [@com_name] = company.company_var_name　・・・・)
を作りました。
あとはデータを取得する方法ですが、「Dim dr As SqlDataReader = CMD.ExecuteReader()」を使いますか?
Me.Tex_com_name.Text = dr("@name")やMe.Tex_com_name.Text = dr(0)では値が拾えないのです。
とおもって色々試していたら値が取れました!!
TextBoxのDataBindの事をチラッと本に書いてあった辺りを読んでいましたら「dr.Read()」の一文があり、加えてみました。
そうしたらサクッと取れました。
でも非常に勉強になりました。ストアドも含めてこのまま知らずに作っていってたらと思うと恐ろしいです。
とても助かりました。ありがとうございました。

はじめまして。
odp.netを使い簡単なプログラムを組んでいます。
ログイン画面でOracleconnectionを使いユーザー名/パスワード＠データソース名
を設定しログインしています。
次のフォームに移り、sql文を実行するためにOracleCommandを使うと
思うんですが、再び、connectionをopenしないとエラーがででしまいます。
フォームをまたぐ度に、connectionをopenしないといけないんでしょうか？
説明がわかりにくいかとおもいますが、よろしくおねがいします。

>>218
まずはコードをさらせ。
話はそれから。

VCとVB6経験者がVB.NETの派遣仕事をやりそうな勢いです。
ネットや書籍を軽く見た限りでは、
「Cっぽさが付加されて便利になった」程度の認識しかないんですけど、
派遣先は「.NETの経験」にずいぶん重きを置いているのを感じました。

確かに言語のVerUPとしては相当な変更だとは思うんですけど、
やっぱり開発者の順応も大変ってことなんでしょうか？

もうちょっとまともな日本語をしゃべってくれ

「.Japanese の経験」が浅いんだろ

>>218
スコープの問題じゃないの？
同じOracleConnectionを次のフォームでも
使えばいいじゃない

>>220
Ｃっぽくなったって言うより、Ｃ＃っぽくなった感じだね。
頑張って慣れてくれとしか言いようが無い・・・

バイナリ形式で保存されているファイルをテキスト形式に変換したいのですが、どなたか、サンプルや解説のある場所をご存じないでしょうか?
よろしくご教授願います。

そんなのサンプルも解説もしようがない。
何のバイナリなのかってところから話を始めないと。

要はバイナリダンプしたいんじゃねぇの

まずは225にバイナリファイルとテキストファイルの
違いを説明してもらおう。

鯖のアドレス、ディレクトリは既にわかっているとして
FTPでのアップロード方法ｷﾎﾞﾝ

FTPで通信

>>230
�d
windows標準のFTPをshellコマンドで通信させた

>>229
ttp://www.grapecity.com/japan/support/database/P7_195_10644_News.htm

>>229
ttp://support.microsoft.com/default.aspx?scid=kb;ja;812409

>>229
ttp://www.csharphelp.com/archives/archive9.html

>>229
ttp://www.vector.co.jp/soft/winnt/prog/se360854.html?y

ASP.NETでブラウザに表示されてる文字をExcelに出力する方法ないですか？

今からVB.NETを勉強しようかと思ってるんですが、まずはどの本で勉強するのが効率が良いでしょうか？
プログラム経験は趣味程度でVBAとperlをいじってる位です

>>225
つ System.Convert.ToBase64String

お世話になります。

タスクトレイに常駐し、あるフォルダを監視するアプリケーションを開発しています。
そのフォルダに対し、ファイルが作成された、削除されたということは検知可能なんですが、
ファイルが上書きされた時にどのように検知すればいいのかわかりません。
一体どのようにすればよいのでしょうか？

何で検知してるのかくらい書けと。FileSystemWatcherだろうけど。
LastWriteがChangeしたときでいいだろ。厳密にはもうちょっと絞込みが必要かもしれんが。

>>240
どうもありがとうございます。

今は実行環境がないので確認できませんが、

Dim watcher As New FileSystemWatcher()
watcher.NotifyFilter = NotifyFilters.LastWrite

このような感じになるのでしょうか？

イベントの扱いについて教えてください。
Form1 と Form2 があり、Form1 にて

Private Sub Button1_Click(Byval sender as...) Handles Button1.Click
dim f as new Form2
AddHandler f.Closed, AddressOf TestMethod
f.Show()
End Sub

のような事がやりたいのですが AddHandlerの行で f. のうしろで
イベントが出てきません。
で、WithEvents をつけないとだめなのかな、と思い

Dim WithEvents f as new Form2 としてみたのですが 'WithEvents' は、
ローカル変数宣言では有効ではありません。

となってしまいます。ここで f をForm1のインスタンス変数として
Private WithEvents f as New Form2 だとうまくいきます。

ここで f を Form1のインスタンス変数 ではなく、実現する方法は
ありますか？

ん？　インテリセンスに出てこなかろうが文法的には問題ないし実際動くだろ？

>>243
いや、Dim WithEvents f As New Form2

だと、'WithEvents' は、ローカル変数宣言では有効ではありません。

とコンパイルエラーになってしまいます。

だれもWithEvents使えなぞと言うとりゃせん
AddHandler f.Closed, AddressOf TestMethod
で良いだろと

>>245
うほ。勘違いすみません。
できました。インテリセンスを過信しすぎてました。
thx.

画面内に存在するコントロールのうち、
ラベルの色を全て変更したいと思います。
そのとき、いちいちラベルを一つずつ変更するのは面倒なので
For i As Integer = 0 To Me.Controls.Count - 1
Next
というループの中でラベルコントロールがラベルの型だけの
ものを取り出して色の変更をしたいのですが
どうすればラベルの型と判定できるのかがわかりません。
Me.Controls.Item(i).gettype.name
とすれば引数で"Label"と返ってくるので文字列が"Label"かどうかの判定で
当初の目的は達成できそうなのですが、型の判定をするのに
コントロールの名前の文字列比較じゃない方法はあるのでしょうか？
また方法がある場合、どうすればよいのでしょうか？

TypeOf ... Is

>>248
TypeOf って存在をすっかり忘れていました。
どうもありがとうございました。

VB.NET+ASP.NETで開発しています。
Sessionの解放に関して教えて下さい。

メンテナンス時間の概念を作りたいとの要望が挙がり
X時以降はログインをさせないという処理を追加しました。
またクライアントが処理を実行(例えば画面遷移、ボタンクリック)しようとした際に
X時以降の時間であれば強制的にメンテナンス中画面に遷移させて終了という処理も追加しました。

ここでIISを再起動せずにサーバと複数クライアント間で有効になっている
Sessionを全てクリアしたいと考えています(破棄でも構いません)
Session.Clearはサーバと単一クライアント間でのクリア処理のような気がするのですが
全てのSession情報をクリアしたい場合にはどのような処理にすればいいのでしょうか？

強制的にメンテナンス画面に遷移するタイミングでSession.Clearを流せばいい気もするのですが
一撃で全てのSessionをクリア、解放するようなことは可能でしょうか？宜しくお願いします。

>>246
つうか、使う側のフォームをコンパイルせずにインテリセンス使おうとしてたんじゃないの？
あれってコンパイルがきちんと通った後で利用可能になるような。

>>247
趣味の問題なんだけど、
For i As Integer = 0 To Me.Controls.Count - 1
Next

とやるよりは、for eachを使った方がいいかと。

For Each i As Object In Me.Controls
　 If TypeOf i Is Label Then
　End If
Next

それならAs Controlのほうが自然で便利だぜ。

ツリービューのノードに値でアクセスするにはどうすればいいんでしょう
というか、ノードをaddして、そのノードにアクセスしたい時なんですが
やっぱループ回して.textと比較しか無い？

そりゃあ同じ名前の違うノードが存在しうるわけだしなぁ

ピクチャーボックスに画像がない(･∀･)！のを判断するのはどうしたらいいでしょうか？

どうやってピクチャボックスに画像を表示させてんだ？

PictureBox1.Image = Image.FromFile(strPath)
strPathはファイルパスです。

ちなみにOpenFileDialogでひっぱったイメージファイルは削除できないのですか？
ttp://support.microsoft.com/default.aspx?scid=kb;JA;309482

クローン使えばいいんじゃね？

if PictureBox1.Image is nothing then

>>259
解決しました。
ありがとうございます。

DoCmd.TransferText acImportDelim, ,"インポートデータ", _
"C:\Documents and Settings\デスクトップ\ファイル名.csv"


ACCESSSでボタンを作ってこういうのをあてはめたら、
一応押すごとにインポートされるものは出来たんだけど、
ファイル名のところなんだけど、同じフォルダ内にある全ての
CSVをインポート処理してくれるようにならないかな？

欲をいえば、
いくつファイルをインポートしたかメッセージ出てくると、なおいいね。

４つのファイルをインポートしました。

とか

>>258
そこに解決方法も載ってるじゃん。(FileStream)

>>261
Dir関数で.csv拡張子を持ったファイルのパスを取得できるから、
ループで見つからなくなるまで回してみるとか。回った回数＝
インポートした回数になるし。

.NET風じゃないけれどね。

>>262
回答ありがとう。
でも、どうすればいいか思いつかないのさ。。。

>>262
> そこに解決方法も載ってるじゃん。(FileStream)
それで解決しなかったりするからねぇ……

Dim sFile As String

sFile = Dir("C:\Documents and Settings\Makoto\デスクトップ\適性テスト\*.csv", vbReadOnly)

Do Until (Len(sFile) = 0)
DoCmd.TransferText acImportDelim, , "今月分インポートデータ", _
"C:\Documents and Settings\Makoto\デスクトップ\適性テスト\*.csv"
Loop
MsgBox "インポートしました！"

これでどうかな？

>>263
削除するときにPictureBoxにNothingとオブジェクトDisposeを
やってないとか？　まあでも、このへんの扱いって妙な感じがし
てたような気がする。(´･ω･`)

実際に削除してるコードとエラー内容がわかるといいんだけど。

>>265
DoCmdに引数にsFileを渡して、Loopの直前にsFile = Dir()を入れ
ておけばいいかと。

Dim sFile As String

sFile = Dir("C:\Documents and Settings\Makoto\デスクトップ\適性テスト\*.csv", vbReadOnly)

Do Until (Len(sFile) = 0)
DoCmd.TransferText acImportDelim, , "今月分インポートデータ", _
"C:\Documents and Settings\Makoto\デスクトップ\適性テスト\*.csv"
sFile = Dir()
Loop
MsgBox "インポートしました！"

でしたけど、やっぱエラー出る。。。。。なんでだよー

DoCmd.TransferText acImportDelim, , "今月分インポートデータ", _
"C:\Documents and Settings\Makoto\デスクトップ\適性テスト\sFile.csv"

の部分が黄色くなってエラーでるよー

何でこのｽﾚで質問してるの？

デバッグすりゃ一発じゃん(´・ω・`)
もう少し頭使えよ

&

一通りの文法とコントール、DB接続が判った
次のステップはなに

知るかカバ

>>272 彼女作っとけ

>>274
ネタじゃなくてマジに同意。
彼女ができたら嫌が応でも精神力が鍛えられる。
プログラマにはアルゴリズムを作る知性も必要だが、それ以上に退屈なデバッグ作業に耐える精神力がなけりゃダメだからな。

彼女にINSERT INTOしようとしたら「権限がありません」とエラー
が返ってきました。どうしたらいいのでしょうか？

>>276
http://pc8.2ch.net/test/read.cgi/db/1057289721/

TreeView のノードにテキストを設定してツリー表示を行なう時に
そのノードに対して隠しデータ？みたいなのを設定する事は
できますか？

表示はテキストで行ないたいんですが、ノードがクリックされた際には
そのテキストが持つコードを取得したい、みたいな事が
やりたいんですが。。。

Tag

SQL Server上にデータベースを構築し、VB2005で作るアプリからADO.NETでアクセスしようとしています。

テーブルにはDateTime型のフィールドがあり、そこを検索してデータを取得したいのですが、
Me.TableAdapter.FillBy(DataSet.Table1, Today.ToShortString)
の行までいくとSqlExceptionで止まってしまいます。
datetime型からstring型に変換できないぞコラ、といわれているのはわかるのですが、どうしたら回避できるのでしょうか。

VB.netでLLのインスタンス生成が５秒以上かかり遅い場合があるのですが、
どうしてでしょうか？
普段は、一瞬ですむのに、原因が分からないので困ってます。
ngen.exeで事前にコンパイルをしてみましたが効果なしでした。
また、ページアドレスをそれぞれ別のアドレスにしても効果なしでした。

LLのインスタンス生成って何？

>>282

DLLの間違いです。

DLLのインスタンスってな（ｒｙ

どこかで何か変なことしてるんだろうとしか言いようが無いな

ビルドのことだと推測してみるテスト

画像の事で質問です。
ASP.NETですが、以下のHPを参考にしてHP上でSQL-SERVERに画像データを登録したり呼び出したりできるようになりました。
ttp://www.atmarkit.co.jp/fdotnet/dotnettips/321uploadform/uploadform.html
ttp://www.atmarkit.co.jp/fdotnet/dotnettips/257aspdbbinary2/aspdbbinary2.html
そこで、フト思ったのですが、メインページ上に表示したい画像があるが、実は画像を変更したい。
できれば過去に登録した画像データに変更したい場合どんな流れになるのでしょうか?
考えた流れが、別ページを開けてそのページ上に画像を列挙し、選択した画像がメインページに表示される
ですが、間違ってますか?
できればFile Fieldのようなものを使いたいのですが、SQL-SERVERに入っている画像データを表示する事が可能なら
そうしたいのですが、どうなんでしょうか?

>>281
アンチウイルスが悪さしてると推測

またそうやってすぐ他人のせいにする。ダメな奴ほど（略
まあ>>281のレスがタンチンなので想像で書くしかないが、
一番ありうる可能性は例外がトラップされてるって筋書きだと思う。

XMLをReadXmlを使ってデータセットに格納していろいろと加工した後
GetXml、もしくはWriteXmlで文字列に戻そうとすると
頭の
<?xml version="1.0" encoding="utf-16"?>
の部分が消えてしまうんですが、これを残すにはどうすればよいのでしょうか？

XmlWriterを使う

<?xml version="1.0" encoding="utf-16"?>
<HogeSchema>
<HogeSchema xmlns="http://temp.org/HogeSchema.xsd">
<Hoge>
<Status>S</Status>
<HogeStatus>HH</HogeStatus>
<HogeID>0123</HogeID>
</Hoge>
<piyo>
<Status>S</Status>
<piyoStatus>HH</piyoStatus>
<piyoID>0123</piyoID>
</piyo>
</HogeSchema>
</HogeSchema>

な感じのXMLで、たとえばHogeの"Status"の値を変更したいとしたら
xPathは"HogeSchema/Hoge/Status"であってますか？
SelectNodesで値を変更しようとしたのが出来たなかったので
datasetに入れて加工したんですが・・・。
とりあえずdatasetでは無理ということでしょうか？

は？　何で？
WriteXmlの引数にXmlWriterを渡せってことなんだが

Starter.exe が Main.exe を引数を使って呼び出してるのですが、
Starter.exeもMain.exeも弄らずに、Main.exeに渡された引数を取得する外部プログラムを作ることはできないでしょうか？

＞Starter.exe が Main.exe を引数を使って呼び出してるのですが、
Starter.exe が Main.exe を引数付きで呼び出してるのですが、
の間違えです。

ダミーのMain.exe作れば？

VB.NETのデータグリッドの操作なのですが、

コンボボックスをデータグリッドに配置したいと思っています

フィールド単位のコンボボックスは配置できましたが
同一フィールドでレコード別のコンボボックスの内容を設定したいのですが
どうしてもできません。
どのようにすればよいのでしょうか？
また、そのようなことは可能でしょうか？

例)
フィールド名:◎◎コード
　　　　　　コンボ内容
1レコード目 111
　　　　　　222
　　　　　　333

2レコード目 555
　　　　　　666

3レコード目 777
　　　　　　888

どうやってコンボボックスを表示させてるかも分からないからどこで詰まってるのかも分からん

http://dobon.net/vb/dotnet/datagrid/datagridcombobox.html
を参考にコンボをつくりますた
掲載されている内容も各レコードとも同一データなので困っています。
うまく説明できずすいません

別々のDataSource与えればいいだけじゃん

>>299
具体的にはどのように・・・すれば・・・

>292

Dim sw As New StringWriter

Dim xmlWriter As XmlTextWriter = New XmlTextWriter(sw)

ds.WriteXml(xmlWriter)

Xstr = sw.GetStringBuilder.ToString

として文字列に戻しましたけど
最初のエンコード指定している部分はもどっていませんでした。
ちなみに元のxmlはファイルではなくDBから取得しています。

>>301
おや.NET 1.1だと付加されないのか。.NET 2.0で試してたもんだから。
なら作ったXmlTextWriterのWriteStartDocumentを呼んどけ。

>302
WriteStartDocument()付ければ上手くいきました。
どうもありがとうございました。

VBで画像合成のプログラムを組んでいて、画像の差分を取った数値だけを
どこかに保存したいのですが、どのようにすればいいのでしょうか？

流れ的には



現在RGBの値をRBで数値取得して

PICTUREBOXのサイズを固定して

縦横あわせて

FORでまわして

2つの画像を比較して差分出して…

といった感じです。

エクセルVBAのことで質問なのですがある文字列の中に漢字が入っている場合、
何らかの値を返すにはどのようにすればよいのでしょうか？
例えば、
今日の午後　→　True
きょうのごご　→　False
今日のごご　→　True
キョウのごご　→　False
キョウの午後　→　True
ｷｮｳのごご　→　False
ｷｮｳの午後　→　True
の様な感じで返すにはどのようにすればよいでしょうか？

>>304
で、何が分からないの？

>>305
VBAはスレが違う。
一文字ずつ取り出して文字コード見るのが早そうだが。

>>306
移動差分ってどう出せば良いのでしょうか？
画像3枚あるとして　画像１と２　２と３　で比較して　かぶった部分をあわせて合成等やれば良いのでしょうか・・・？

>>306
ちょっと分かりにくいので、実際の画像を元に説明します。

背景画像とバットをスイングしてる画像があって、
背景画像とバットを持ってる人との差分を取り、差分は配列に保存し、
それを一式繰り返した後に、差分の範囲を出して、変化の中心＝軸より
合成する範囲をひと部分決める　で、合成した画像を出力。

といったような感じです。
どのようにソースを書けば良いのかが分かりません。

>>308
ソースの書き方じゃなくて、そもそもどのように画像を捉えるかが考えられないだけじゃないか？
そんなの言語とか関係なく、ロジックどう組むかの話でしょ。

>>309
具体的にVBでやる場合にはどのようにすれば良いのでしょうか？

>>310
背景画像とバットを持ってる人の差分って、言語の問題じゃないと言ってるんだよ。

ロジックができたんだったらとりあえず組んでみろ。
その中で例えば画像の色を取り出すにはどうすればいいのかとか具体的な問題が出たら質問しろ。
ということ。

つうか、こういう回答がほしいのかな？

>>308
> 背景画像とバットをスイングしてる画像があって、
> 背景画像とバットを持ってる人との差分を取り、

画像の差分を取り・・・
これはVB,netの標準ライブラリでは出来ません。

>差分は配列に保存し、
差分を配列に保存・・・
配列は言語仕様であります。上記画像データの差分ってのが配列で扱えれば問題なし。

> 差分の範囲を出して、
差分の範囲が示す意味が不明です。

>変化の中心＝軸より
変化の中心を決定してくれるライブラリは標準ではありません。

>合成した画像を出力。
画像の重ね合わせはいろいろとやり方があると思うし、書籍・情報があります。

>>313
なるほど…。回答ありがとうございました。
とりあえず、差分が取れないので、PICTUREに一度転送してピクセル座標と色情報をまとめて取っています。
ひとつ質問なのですが、ピクセルごとに色比較するにはどうすれば良いのでしょうか？

BitmapクラスのGetPixelとか。

Set WshShell = WScript.CreateObject("WScript.Shell")
Do
Set objExec = WshShell.Exec("c:\hogehoge\hoge.exe")
WScript.sleep 3000
Wshshell.SendKeys "{ENTER}"
WScript.sleep 60000
objExec.terminate
WScript.sleep 300000
Loop

hogeを起動しエンターキーを押した次あたりに既に起動しているhage.exeを終了させたいのですが、どうやればいいのでしょうか。
どなたかご教授お願いします。

VBScriptもWSHもスレ違いだって。

ここ最近ｽﾚ違いが多いな
上のACCESS辺りから味を占めた奴が出てきたか

スレ違いですか、すいません、どこで聞いたらいいのかわからなくて･･･
板汚し失礼しました

VB.NETの正規表現ってPerl並みの力はありますか？

Perlの力とやらが分からないのでなんとも

はじめまして。
odp.netを使い簡単なプログラムを組んでいます。
最初にOracleconnectionを使いユーザー名/パスワード＠データソース名
を設定しログインしています。
次のフォームに移り、sql文を実行するためにOracleCommandを使うと
思うんですが、再びconnectionをopenしないとエラーがででしまいます。
フォームをまたぐ度に、connectionをopenしないといけないんでしょうか？
説明がわかりにくいかとおもいますが、よろしくおねがいします。

プロジェクトのスタートページをモジュールの
Mainプロシージャに設定しています。
モジュールには以下のコードを記述しています。
_________________________________________________________
Imports oraData = Oracle.DataAccess.Client
Module Module1
Public OraConn As oraData.OracleConnection
Public frmSen As New FormSentaku
Public frmDes As New frmDesigner

Public Sub Main()
strConn = "user id = test ; password = test; Data source = test ; "
OraConn = New oraData.OracleConnection(strConn)
Try
OraConn.Open()
Catch ex As Exception
MessageBox.Show("接続に失敗しました")
End
End Try
Application.Run(frmDes)
End Sub

End Module

コネクションは使いまわすもんじゃないよ
コストは気にすんな、二回目からはキャッシュが利く

＞３２３
どういうことでしょうか？
次のフォームでSQL文を使うため、OracleCommandオブジェクトが
必要なんですが、その際
Dim OraReader As Oradata.OracleDataReader
Dim OraCmd As New Oradata.OracleCommand
（略）
OraCmd.Connection = OraConn
といった様にConnectionの情報が必要なんですが・・・。

>>281
質問が変でした・・。
改めて質問します。

「ABC.DLL」のFrm_AAAを動的にロードするのですが、
初回のみ遅いのです。

Dim asm As Reflection.Assembly
Dim obj As Object

asm = Reflection.Assembly.Load("ABC")

obj = asm.CreateInstance("ABC.Frm_AAA")　　　　←初回のみ遅く、５秒以上かかる。


一度実行してしまえば、.NETのキャッシュがきいている？ためか
１秒以内で実行されるのですが、解決方法はないでしょうか？

>>324
接続情報も毎回取ればいいじゃん。
VB6時代のADOとADO.netは考え方を変えないとダメだよ。
ADO.netはコネクションプーリングが効く前提で使う場面で開いて、終わったら戻す。

>>325
こっそり１回使えばいいじゃん。
そういう姑息なことをするのがスプラッシュウィンドですよ。

VB.NET初心者です

SQLServerに接続するため、データ接続を設定したのですが、
これはODBCの様に、ソリューションとは別に接続設定を保存しているのでしょうか？

違うパソコンにプログラム（exe）を持っていった場合、
SQLServer名が違うこともあるのですが、
その場合は、どのようにして設定を変更すればよいのでしょう？

お世話になります

VBでデータを入力し、EXCELを起動し、所定のフォーマットを読み込み、
入力データを流し込み、印刷後保存せずに終了というアプリを作っています。
Excelを開き、ソース上で書き込んだ文字列を表示することはできるのですが、
TextBoxから入力してExcelにデータを流し込もうとすると、

'System.Runtime.InteropServices.COMException' のハンドルされていない例外が
microsoft.visualbasic.dll で発生しました。
追加情報 : メンバが見つかりません。

と出ます。ここをクリアすれば何とかクリアだと思います。
何が悪いのか御教授願います。

Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range

' エクセル起動
oXL = CreateObject("Excel.Application")
oXL.Visible = True

' エクセルのファイルを読み込み、シート１を指定
oWB = oXL.Workbooks.Open("c:\mitsumori.xls")
oSheet = oWB.ActiveSheet
Dim tb1 As Object = TextBox1
Dim tb2 As Object = TextBox2
Dim tb3 As Object = TextBox3
Dim cb1 As Object = ComboBox1
Dim tb4 As Object = TextBox4

' セル挿入(タイトル)＞挿入位置を変更する
REM 1行目
oSheet.Cells(34, Kou).Value = tb1　'ここでコケる
oSheet.Cells(34, Itemname).Value = tb2
oSheet.Cells(34, Qua).Value = tb3
oSheet.Cells(34, Unit).Value = cb1
oSheet.Cells(34, Cost).Value = tb4

とりあえずコントロールをそのまま放り込むのは違うだろう

フォームにFunctionを作成しているのですが、
そのFunctionの中から、フォームのボタンやラベルを参照できません
（ ´Д⊂　なんで・・？

やりたいことは、
別フォームから、そのフォームのコントトールの値を取得したいので、
Functionを作って受け渡し、と思ってるのです

参照が無いからじゃないかな

参照って、どうしたらいいですか・・？
ぐぐったけど、理解できなかったです（ ´Д⊂　

できないわきゃない
できないなら何か間違ってる

VB.NETの解説サイト読んで理解できないのを
掲示板の限られたレスでどうやって理解させられると言うのか

適当に本でも買え

>>330
ありがとうございます
とりあえずキャストするのかと思いましたがMSDN見たりぐぐったりしたのですが、
正解までたどり着けません・・・
またよろしくお願いします

そもそも何故テキストボックスをオブジェクトに取るの？

>>326
なんとか出来ました。
ありがとうございました

>>329
tb1.Text

>>337
ご指摘ありがとうございます
As ObjecrはソースでValue=の部分を見たときObjectと書いてあったので
Objectだと思ったのですが間違っていたのでしょうか・・・
(まだヘタレですみません)
またよろしくお願いします

>>339
ご指摘ありがとうございます
期待通りの動作になりました
ありがとうございました
またお願いします

解決したから蛇足だけど、普通はHOGE as stringにtextbox1.textを取るんじゃねーかな？と

VB2005では、多重継承ができる（ようになる？）・・・と聞いたような気がする（かなりあやふや）のですが
できるとしたらどのようにするのでしょうか？

どこで聞いた

むむむ・・・やはり夢か・・・
ちょっとぐぐって出所確かめてきます。

なるべく平素にしようという潮流で、何故に多重継承が必要？

男クラスと女クラスを多重継承して、両性有具クラスを作りたい

作れば？

VB.NET(開発ツール .NET 2003)で作成したクラスライブラリ(DLL)をＶＢ６で使用
する方法を探しています。

ではそのまま明日も探してください

永遠にな

>>345
平素にするために多重継承が必要。
多重継承を許したら複雑になったというのは、
多重継承が悪いのではなく、多重継承をきちんと理解していないスキルの低いプログラマのせい

ならなおのことVBには導入できないな

お世話になります

>>328、>>329から
TextBoxから数値を取るのをやめてDatasetとDataGridに変えてデータ入力することに
なりました。
必要なDatasetの行数は分かっているのですが初めからセルを出しておく
(必要なセル数を指定する)方法が大変そうなので、入力すると次の行が
出てくる(普通にセルを配置)状態でコードを書いています。
出来上がったコードをビルドしてデータを入力したのですが、
'System.IndexOutOfRangeException' のハンドルされていない例外が system.windows.forms.dll で発生しました。
追加情報 : インデックス 3 に値がありません。
とエラーが出てしまいます。
自動的に生成した行には値が無いと考えてNothingを検知したら処理を打ち切る
ようにしたつもりなのですがやはりだめでした
解決の妙案がありましたら御教授下さい。

行の値が無いんじゃなくて行そのものが無いんだが

>>354
ありがとうございます

行が無いことを検知することはできないのでしょうか？

またお願いします

行の数と取りたい行番号を比較すりゃいいだろ

Definstanceってなんですか？
ＶＢ６からVB.NETのコードに変換したらこんなのついてきました

ぐぐれ

>>357
ぐぐってやったぞ。

ttp://www.microsoft.com/japan/msdn/net/vbtransitionguide/chapter4/chapter4_10.asp

>358-359
サンクスです。ちょっと違和感ですが理解できました。
ですが次の問題がでてしまいました、それは変換後のフォームにListView
コントロールを貼り付けてコーディングしようとするとインテリセンスが
１つしかでないことです。

これはどういういことになりますか？

いまさらですがVisualStudio2003のプログラミングスタイルについて教えてください

VB.NETはオブジェクト指向でプログラムしてるって感じがしないのですが
どの辺がオブジェクト指向になっていますか＿？

現在VB.NET開発している印象としてはＶＢ６のスタイルであるイベントにごりごり
書いていくという点では変化がないと思います。
たとえばフォームの表示では、
form1.show()が　→　a = new form1; a.show();
という具合にJavaを意識した仕様になっているようです。

＞a = new form1; a.show();
VBじゃねぇぇぇぇぇ

とりあえず、>>361が考えるオブジェクト指向ってどんなコーディングか見てみたいものだな

>>356
ありがとうございます

ずばりそのとおりで行の総数を拾ってきたまではよかったけど、
どうやって現在の行の数と比べるんだろうって悩んでました。
Dim GetGridCounter = 0
Dim CellLineP1 = 34
For GetGridCounter = 0 To LastLineP1 Step 1

If DataTable1.Rows.Count > DataGrid1.Item(GetGridCounter)　'ここを何とか
oSheet.Cells(CellLineP1, Head).Value = DataGrid1.Item(GetGridCounter, GridCell.GridHead)
oSheet.Cells(CellLineP1, Itemname).Value = DataGrid1.Item(GetGridCounter, GridCell.GridItemName)
oSheet.Cells(CellLineP1, Qua).Value = DataGrid1.Item(GetGridCounter, GridCell.GridQua)
oSheet.Cells(CellLineP1, Unit).Value = DataGrid1.Item(GetGridCounter, GridCell.GridUnit)
oSheet.Cells(CellLineP1, Cost).Value = DataGrid1.Item(GetGridCounter, GridCell.GridCost)
CellLineP1 += CellJump
参照できないと苦戦して1日経過して・・・

Dim GetGridCounter = 0　・・・どうみてもただの変数です
1日ずっと下らんところで悩みながらも何とかなりました

ありがとうございました
またお願いします

>form1.show()が　→　a = new form1; a.show();
>という具合にJavaを意識した仕様になっているようです。

それがVB.NETクオリティ

どの辺が「Javaを意識した」なんだろうか
a = new form1
a.show()
なんて、オブジェクト指向なら当然のことだろうに・・・

つーかそれVB6でもできるよ
Dim a As Form1
Set a = New Form1
a.Show

別に風の拳は殺意の波動倒してないだろ

どうみても誤爆です
本当にありがとうございました

これまで Access2000 で業務システムの開発を行ってきましたが、VBへの移行を検討しているうちに
VB6 → VB.NETとなってしまいました。
.NETについてはほとんど未知のものなのですが、とりあえず質問させて下さい。

Access のようなレポートの作成は Visual Studio .NET 付属の Crystal Report で十分可能なのでしょうか？
出来るけど機能不足とか、設定が市販のものに比べて大変とかの場合、市販の帳票コントロールも検討しています。
作成予定の帳票は社内システムの納品書や一覧帳票、POSシステムのレシート等です。

お勧めの構成があったら、よろしくお願いします。

ただのマクロじゃなく、プログラム処理したいってだけならAccessVBAにしといた方が楽かと

369じゃないけどウチもvbにしたいことはしたい
アクセスだと壊れてしょうがないから
あとクライアント側にもアクセス要るのがいいかげん鬱陶しくなってきたし
エクセル並に簡単に印刷出力得られるなら市販でもオケ

付属のクリスタルレポートは
修正パッチ当ててやらないとまともに描画してくれない

授業の課題で計算機を作っています。
JavaScriptのeval関数みたいに、文字列で作られた計算式を一気に
演算できるような関数はVB.NETに用意されているでしょうか？
下記のサイトを参考にしながら、四苦八苦しています。
ttp://www.red.oit-net.jp/tatsuya/java/calc.htm

Dim Formula as String
Formula = "123" & "+" & "123"
TextBox.Text = eval(Formula)

みたいな感じで答えが出せたら楽だなぁと思って。
やっぱりSelect Caseで演算子毎に分岐計算させるべきですかね。

JScript.NETのevalメソッドでも呼ぶか。

>>374
いま実行環境が無いんで検索して作ってみましたが、msscript.ocxを
インストールしてMicrosoft�ScriptControlを使うってことですか？

Dim Formula as String = "123" & "+" & "123"

Dim SC As Object = CreateObject("ScriptControl")
CallByName(SC, "Language", CallType.Let, "JScript")
CallByName(SC, "AddCode", CallType.Method, Formula)

Dim Ret As Object = CallByName(SC, "Eval", CallType.Method, "Calc()")

TextBox.Text = Ret.ToString

もうちょっと簡単な表記があるのかもしれませんが、ここまで手間
がかかるなら、素直にVBだけで作ったほうがいいかもしれませんね。
レスありがとうございました。もっと精進します。(｀･ω･´)

いやそれならOption StrictがOff(デフォルト)なら
Dim formula as String = "123" & "+" & "123"
Dim sc = CreateObject("ScriptControl")
sc.Language = "JScript"
Dim ret As Object = sc.Eval(formula)
TextBox1.Text = ret.ToString()
これでいいし。

つかJScript.NETと言ったんであってJScriptとは言ってないんだが……。
JScript.NETで引数をevalする静的メソッド持つクラス作ってDLLにしてそれ参照、とか。

>>376
いやー、斜め読みが精一杯なんでそこまで行くには力不足かも。
まず教えてもらったコードを関数にして試してみようと思います。
エラー処理なんかもまとまってないんで、もうちょっと形になって
から進めてみますね。たびたび、ありがとうございます。

質問です。
.NETになってからなんでもかんでもクラスなわけですが、
複数のフォーム等でクラスを共有するやり方というのは
モジュールにクラス変数をパブリックで定義する方法で
いいのでしょうか。

参照渡しでもいいんじゃねーか。

クラスを共有ってよく意味がわからんな。
共有したいのはデータと違うんかい？

テキストボックスのテキストは「データ」でしょ。
フォームは、自分の上に乗ってるテキストボックスという「他人」の、
テキストというデータにアクセスできる。

なぜそれが出来る？
それはテキストボックスがプロパティ（Text）という形でデータを外部に公開する方法をもっていて、
フォームは「その」テキストボックスへの参照を持っているから。

つまりこれとまったく同じようにすればいい。
参照とかプロパティの意味がわからんのなら勉強するしかない。

わかりづらくてすいませんです。
Public ○○ As New クラス名
としてプロジェクト内のどのモジュールからもアクセスできるように
という意味です。共有するクラスの中には複数のオブジェクトがあ
ります。よろしくお願いします。

いや、「君の」文章がわかりずらいとかじゃなくて、
「君が」基本的にわかってないんだよ。

いきなり基本の学習をスキップして成果を挙げようってそりゃ無理。
掲示板でそんな基本から教えてもらおうってそりゃ無理。
観念して勉強するかPG廃業するかしなない。

>>381
Module A内:Public Hoge as new class1
を
Module B内:Hoge.text = "B"
Module C内:Hoge.text = "C"
つー感じに、ModuleAで宣言したPublic クラスをＢやＣで操作できるかどうか、ってのを聞きたいのか？

>>382
スイマセン。今までＶＢばかりだったので本格的なオブジェクト指向について勉強します・・

>>383
そうなります。今までＶＢではそうしてきて、.NETでもそれで動くのですが、.NETの正規なやり方
ではないような気がしまして一般的というか多く使われてる手法を聞きたかったのです。

>>377
つい先日作ったばっかりの、ちょうどいいのがある。
JScript.NETのソース、アセンブリ(DLL)、コンパイル用バッチファイルの３点セットだよ。もってけドロボー。
http://kenmon.hp.infoseek.co.jp/contents/tools/Evalution.lzh

>>384
俺もVBからだけど、.Netに変えてモジュールは使わなくなった。
代わりに参照渡しでやるようになった。
それが正しいやり方かどうか知らんけど。

>>385
うおー、なんてタイムリーな。
さっそく落としていま読んでます。
百円均一の電卓くらいにはまっとうなのができるようがんばります。

モジュールってのはVB5の時点で既にレガシーだったんだけどね。
まあサブクラス化とか特殊な理由で使わざるをえない場合はあったけどさ。

っていうかね、「グローバルにアクセス可能なオブジェクトが欲しい」なんて思うのは
（そういうケースが皆無とまではいえないが）まあまず間違いなく設計が悪いんだよ。
プログラミングに対する考え方が根本的におかしい。

普通はさあ、データってのはそれを見る必要がある奴（オブジェクト）にだけ
見えるようにするんだよ。
でなきゃ複雑性が縮減されないでしょ。
PCでいったら、CRTにキーボードのデータを渡す必要はないでしょ。

列見出しがあって、行見出しがあって、セルにコンボボックスを利用できる
コントロールないですか？　ちなみにDataGridでごりごりつくってみました
が、列の色や幅を変えるにも四苦八苦しています。。。。。。。
DataSet,DataTable,DataTableStyle......ややこしすぎる
ListViewやDataViewなんかもあるみたいだがどれがポピュラーなのかもわからない

.NET Framework標準クラスライブラリには無い
CodeProject辺り覗けば結構ある

>>390
そか標準にはないのか。オーバーロードしてまで使うのはちょと抵抗が。。。
CodeProjectって英語じゃん。コツつかまないと探せないな

>>391
オーバーライドな

>>386
だな、責務の考え方をきちんとすればおのずと共有じゃないことに気づく。
元フォームが次のフォームに情報を渡す場合は参照。
各フォームが独立して同じデータを見るのであれば、将来を考えてそれぞれ見るように作る。

お世話になります

ページ選択とデータグリッドでデータを書き込むアプリケーションを作っています
(たとえば1ページがデータグリッド100行として210行目に書き込む必要があるとき
は2ページ目の10行目に記入)。
ただ現状はデータグリッドが表示されていない(入力待ちの1行しか出ていない)
のですが、これで空白のデータグリッド100行を初めから表示する方法はないで
しょうか？

>>394
行番号を指定してデータを書き込むという流れが、ちょっと理解しに
くいんだが。とりあえず適当なTextBoxか何かで入力フォーム作って、
SQLでインサートするってのはダメなんかな？

行番号で管理するより重複しないIDを作ったほうが楽かと思うけど。

>>395
ありがとうございます

>>とりあえず適当なTextBoxか何かで入力フォーム作って、
>>SQLでインサートするってのはダメなんかな？
データグリッドでないと具合が悪いです。
1ページ目は1枚20行、2ページ以降は1枚40行記入する請求書を作る
プログラムです。
入力する項目の数が未定なので次ページボタンを押すとさらに次の
ページが出てくる。前のページボタンを押すと今まで入力した分が
表示される、というものを作っています。
入力された時点で配列にデータを突っ込んで最後に印刷ボタンを押
すと先ほどの条件で作られているExcelフォーマットにデータを流し
込んで印刷/終了という流れです。

またお願いします。

始めまして、宜しくお願いします。
PictureBox1にpicMainのImageを半透明コピーをしたいのですが
-------------------------------------------------------
'PictureBox1のGraphicsオブジェクトを取得
Dim g As Graphics = PictureBox1.CreateGraphics()

'画像を読み込む
Dim img As Image = picMain.Image

'ColorMatrixオブジェクトの作成
Dim cm As New System.Drawing.Imaging.ColorMatrix()
'ColorMatrixの行列の値を変更して、アルファ値が0.5に変更されるようにする
cm.Matrix00 = 1
cm.Matrix11 = 1
cm.Matrix22 = 1
cm.Matrix33 = 0.5F
cm.Matrix44 = 1
'ImageAttributesオブジェクトの作成
Dim ia As New System.Drawing.Imaging.ImageAttributes()
'ColorMatrixを設定する
ia.SetColorMatrix(cm)
'ImageAttributesを使用して画像を描画
g.DrawImage(img, New Rectangle(0, 0, img.Width, img.Height), _
0, 0, img.Width, img.Height, GraphicsUnit.Pixel, ia)
'リソースを開放する
img.Dispose()
g.Dispose()
--------------------------------------------------------------
上記のプログラムを実行した後に Dim g As Graphics = Graphics.FromImage(picMain.Image) が実行されるとエラーで終了してしまうのですがどうすればいいのでしょうか？
ちなみにPicMainのgに対して色々描画するプログラムを組んでいます。

img.Dispose
これが原因じゃね？

>>396
自己解決できました
For rowcounter = 0 To LastLineP1 Step 1

DataTable1.Rows.Add(DataTable1.NewRow())

Next


またお願いします

>>397
＞img.Dispose()

しかしなんかコピペ厨丸出しのコードだなあ。。
理解してもないサンプルコードをコピペして動かない動かないってアホかと思うけど。

質問する前になんでコードの中身を理解しようと思わないんだろう。

経験豊富な皆さんにお聞きしたいことがあります。
最近VB.NET2003を初めて色々な本等で勉強しているのですが、そろそろステップアップに何か作ろうと思っています。
しかし持っている本等には基本的な創作例しかなく、もう少しレベルの高い物に挑戦してみたいのです。
何か創作例等が記載してあるようなサイトや書籍等知っている方がおられましたらどうか教えて下さい。
宜しくお願いします。

MSの1冊1万ぐらいする書籍とか

創作って・・・

そうだな。
OS付属のメモ帳とまったく同じ動作をするエディタを作ってみたら
どうだろう。MSDNのサンプルソースで十分できると思うし。

>>370 >>371 >>372

レス、どもです。

やっぱり付属のものって使いづらいんでしょうかね？
それを考えると、Accessって結構すごい。

今検討しているのが
Visual Basic 2005 Express Edition + 市販レポート
です。
一応、SQLサーバーとも連携出来るようなので、この組み合わせが一番安いかも。

ただ、Pocket PCを使った業務用アプリケーションもいずれ作らないといけないんですが、
それを考えると普通にVisual Studio 2005を買ったほうが無難かな？
そうすると、20万くらいは行ってしまいそう・・・

>>398,400
宣言したら解放しないといけないものだと思っていました。
その部分を削ったら正常に動きました。
本当にありがとうございました。

確実に、理解できてないコピペ厨だったな

vb.netにて、axWebbrowerを使用せずにhttps通信をする方法を知っていらっしゃる方、是非ご教授ください。
また、サンプルコードなどがありましたら是非URLを教えてください。
何卒宜しくお願い致します。

HttpWebRequest

DataGridで、指定した行・列にカーソルを移動させるには、
どうしたらいいですか？

CurrentCell

>>409
サンプルプログラムがあれば、宜しくお願い致します。

解決しました、ありがとうございます

>>412
ぐぐれ
いくらでもある

>>414
httpでのサンプルは仰る通り幾らでも出てきたのですが、httpsでのサンプルは
一つも見つかりませんでした。
ちなみにhttpでのサンプルのアドレスを単純にhttpsに変更しただけでは駄目でした。
是非サンプルURLを教えてください。

TextboxのCursorプロパティにIBeamを設定し、
Focusメソッドを実行したのですがキャレットが表示されない・・・？
という現状に悩んでいます。

フォームのLOADイベント内で
If Me.Textbox.Cursor Is Cursors.IBeam Then
というif文で確認しても設定済みになっているのですが。
矢印キーで確認すると、どうもキャレットはTextboxに存在するけれど
見えない？ようです。
こんな事象の発生原因や回避方法等ごぞんじでしたらご教授ください。

>>415
相手の鯖はちゃんと認証された鯖か？

>>416
状況がさっぱり把握できないが、とりあえずキャレットとマウスカーソルのIBeamとは何の関係も無い。

>>417
認証されています。

>>419
接続エラーの内容ぐらい晒してくれ

ちなみに公的認証されてない証明書（自分で発行した証明書）
だとICertificatePolicyを実装してごまかすことは出来る

お世話になります

DataGridに直接データ書き込んでいきます。
DataGridにはあらかじめページ数に対応したセルを生成してあります。
DataGridの最後の行に書き込んだとき、次の行が自動で出るのを止め
させたいのですが、いいアイデアが浮かびません。
これができないと初めにページ数分のセルを用意した意味が無くなって
しまいます。
妙案があったら御教授ください。

よろしくお願いします。

Formに「閉じる」というボタンを作り、
FormのKeyDownイベントで取得しているのですが、
KeyPreviewを設定してもDataGridにフォーカスがある時は、
押したキーを取得できません。

どうすればいいでしょうか？

>>422
KeyPreview プロパティ

>>421
直接書き込むの意味がよく分からんが、
DataSourceを対象のDataTableのDefaultViewにしてそれのAllowNewをFalseにすればいいんじゃね

お世話になります。
VBに殆ど触れた事がないレベルの初心者です。

ファイルの読み込みに関する質問なのですが、
VB６で作成したバイナリファイルが.netではうまく読み込めません。
（中身は
0.1
0.12
0.11
のように数字が縦に並んでいるデータです）
VB６の場合は
Open CDA & "\" & CDB For Binary Access Read As #1
等を使って読み込めていたのですが、.netの場合↑のコードをアップグレードした
FileOpen(1, CDA & "\" & CDB , OpenMode.Binary, OpenAccess.Read)
等を使っても中身の数値を認識せず、文字化け状態のまま読み込んでしまいます。

何か知恵がございましたら、どうかよろしくおねがいします。

SaveFileDialog を使ってファイルの保存をしたいんですけど
If sfd.ShowDialog() = DialogResult.OK Then
System.IO.File.Copy(serverPath, sfd.FileName, True)
End If
の部分で、同名ファイルがなければ何事もなく保存されるんですけど
同名ファイルが存在した場合は「上書きします。「はい」「いいえ」」
が出て、そこで「はい」を押しても保存されません。
何故か sfd.ShowDialog() = DialogResult.OK の評価で
falseになっているらしくて else を入れれば拾えるんですけど
そうするとそもそも最初のダイアログの「保存」「キャンセル」のボタンで
キャンセル押した時に入ってしまいますし、
どうすれば保存できるのかわかりません。
というか何故こんな事になってるのかがわからないんですが・・・
ダイアログの作成では特に変な事は何もしてません。

対応方法お分かりになる人がいましたらよろしくお願いします。

>>425
> のように数字が縦に並んでいるデータです）
縦にって、それはどう見てもテキストデータの概念なんだが。
バイナリエディタで見たときにどうなってるんだ？

>>426
親フォームが無いとそうなるバグっぽい。.NET 2.0では直ってる。
一応、FileNameが空文字列かどうかで判断できる。

>>421
ありがとうございます。
ご指摘の通りで期待通りの動作をするようになりました。
ありがとうございます。
またお願いします。

>>427
すみません、解説ミスりました。
件のバイナリファイルはテキストファイルを加工してできた物なのですが、
その元ネタのテキストファイルが、さっき言った縦に数値の並んでるファイルでした。
読みたいバイナリファイルをバイナリエディタという物で見てみた所、
００とかＦＣとかズラズラ並んでました。

どう加工したんだっての。
大体バイナリに文字化けも何も無いだろ。

どう加工したのかは、やった事だけなら
「テキストファイルを二つに分けて、それぞれバイナリにして保存」
ですけど、その加工するのに使ったVB６ツールのソースを消失してまして…

エラーメッセージに　（文字化けとしか見えない文字列）はsingleとして読み込めない、
云々と書いてあったので、文字化けって読み込んでるのかと思ってしまいました。

やっぱり、肝心要の加工の詳細がわからないと無理でしょうか。

>>427
なんと、バグでしたか・・・
基本的に上書きはありえないんで
あきらめるしかないかな。
どうもありがとうございました。

VB.NET+ASP.NETで開発しています。

DataGridを使ってPage_Load時にデータを表示させる処理を作りました

略)
DataGrid.DataSource = dsetSQL.Tables("Table").DefaultView
DataGrid.DataBind()

これでデータは表示できるのですが、動的にセル単位にコントロール(ボタンやハイパーリンク)を
設定したいのですが｢実行時に自動的に列を作成する｣にチェックを入れると無理なんでしょうか？

お世話になります

データグリッドに新しい行を追加するときに使用した、
DataTable1.Rows.Add(DataTable1.NewRow())
という部分なのですが、生成した行を初期化する方法は無いでしょうか？
生成した行を操作しようとすると、
'System.InvalidCastException' のハンドルされていない例外が microsoft.visualbasic.dll で発生しました。
追加情報 : 型 'DBNull' から型 'String' へのキャストが有効ではありません。

というエラーが出てしまいます。
ならは行を生成した時点でNothingを中に入れることができれば良いのかと
考えたのですが、それを実現する方法が分かりません。
妙案があったら御教授ください。
よろしくお願いします。

>>434
自己解決できました
ありがとうございました

>>427
後半のレス本当か？
SaveFileDialogは散々つかってるが、そんな怪現象はまったく経験してないけど。
>>426のコードの例外処理あたりにバグがあるだけだと思うが。

何かソースってある？
本当にそんなあからさまなバグがあればMSにソースあるはずだけど。

.NETのVersion1.0の話かなあ。
俺は1.1(2003)しか使ったことないから。

>>436
親フォームが無い状態ってのは普通にWinFormアプリを作る限りまずありえないからね。
サンプルコードなら
Module Test
  Sub Main()
    System.Console.WriteLine(New System.Windows.Forms.SaveFileDialog().ShowDialog().ToString())
  End Sub
End Module
この実質一行。

だからまあバグと言うよりは仕様に近いんだろうけど、
.NET 2.0でOKが返るようになったからバグと言う表現を使った。

TextBoxにfocusメソッドを使用した場合、もともとTextBoxに文字列がある場合、
全選択されてしまうのでうが、これを回避し、文字列の先頭にキャレットを
持ってくる方法はありませんでしょうか？

http://www.atmarkit.co.jp/fdotnet/dotnettips/268tbcaretend/tbcaretend.html

を参考にしてselectメソッド使用すれば回避できそう、と思い
TextBox.Select(0, 0)を仕込んで回避できましたが。。。
もしfocusメソッドだけではなく、tabキーでのカーソル移動時にも
文字列の全選択をしたくない場合、

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbcon/html/vbtskcontrollinginsertionpointineditcontrol.asp

のように、enterイベントが発生したら下記コードを走らせて…
TextBox.SelectionStart = 0
TextBox.SelectionLength = 0

っていうコードを、　すべてのTextBoxに対して記述するしかないんでしょうか。
もっと簡単にやる方法ってないでしょうか。


VB6.0のSetFocusもこのような仕様でしたっけ？

.net ver.2.0 でOK

TextBoxクラスを継承して好きな挙動のTextBox作ればいいんじゃないの。

VB6.0には詳しくないのだがSetFocusとFocusではそもそも違うだろ。。。
名前がなｗ

アドバイスありがとうございます。

>>441
TextBoxクラスを継承し、独自のクラスを作り、それを利用する
ということですね。ありがとうございます。この方法なら
すべてのtextboxのイベント発生に対してコーディングする、
という作業をしなくてすみますね。早速tryしてみます。
>>440
ver2.0ならこういった事象はおきない、ということでしょうか。

当方、VB.NET(フレームワークのバージョンは1.1)で
何とかVB6.0のTextboxの動作とまったく同じ動作
（正確には「見かけ上まったく同じ動作に見えればよい」）
を実現しようとしておりまして。。。
「Textboxにfocusあてただけで全選択されるのは見た目が変わっちゃうな…」
と思って改善しようとしております。

ただ、現状はfocusやtabでのカーソル移動時の全選択くらいかなーと
思っているんですが、もしもtextboxで、
これ以外に6.0と.NET間で見た目上の違う動作があるのなら。。。ｶﾞｸｶﾞｸ(((( ；ﾟДﾟ))))ﾌﾞﾙﾌﾞﾙ
頑張らねば。。。

439さんの質問に関連しますが6.0同様の動作をするTextboxを.NETで作るには
自らTextboxクラス作るしかないんでしょうか。6.0用の動作を簡単に実現する
クラスとかはM$さんからは提供されたりしてはいないんでしょうか。やはり地道に
作成するしかないということですかねぇ。

.netでJavaのJDBCのようにデータベースのクライアント入れなくても
ドライバ置いておくだけで、データベースにアクセス出来る仕様って
ありますか？

OleDbとかODBCとか

6.0のFlexGridがとても使いやすかったのに、VS2003に付いてる
DataGridはなんであんなに使い辛いんだろう？　体裁整えるだけ
なのに、いろいろ面倒な手順がいるし。

みんなはグレープシティの高いやつ使ってるのかな？

VBと比べるのは愚行だよ。

>>446
クライアントアプリ入れないとドライバ入らなくないですか？
各クライアントにドライバ入れるのが数が多くなると非常にメンドいので。

ADOじゃあかんのかいな。

>>450
ADOでも良いんですが、自分の理解が間違っていたら申し訳ありませんが、
例えばOracleに接続する際にADOを利用する場合にはOracleのDB Provider
を用意する必用があり、クライアントにインストール作業は必用だと理解
しているのですが。。。

JavaだとType4ドライバを共有ライブラリのディレクトリにコピーすれば
動作するんですが。

Oracleで開発したとき
新規に用意したテストマシンには
Oracleクライアントインストールした覚えがないんだが

>>452
データベースのドライバはどのように組み込んでいるのでしょうか？

>>452
オラクルはクライアント入れないと
アクセスできないだろ

ハッシュテーブルって２次元配列できるんですか？
ヘルプ見てもそういう例文が載ってないし・・・

別にやっても構わない
Hashtableだろうがobjectには変わりないからな

今、VB.NETでダイアログボックスを使ってピクチャーボックスの保存、
読み込みをできるようにしたいと思っているんですが、どなたか教えて
いただけませんか？

こういうコテ半って釣りだよね。
今日は寒いのに太公望とは。

age

テキストボックスの入力制限についてで、やりたい事は「数字だけ(小数点も含む)入力」です。
まず、色々な所に書いてある

If IsNumeric(e.KeyChar) Or e.KeyChar = ChrW(8) Then
Else
e.Handled = True
End If

というコードを追加してみました。
これでは、"."が大量に書けてしまうので、

If IsNumeric(e.KeyChar) Or Not (TextBox1.Text.EndsWith(".") And e.KeyChar = ".") Or e.KeyChar = ChrW(8) Then
Else
e.Handled = True
End If

と変えてみたのですが、これだと最初に"."が書けてしまって困っています
最初だけ"."を書かせない場合には、どうすればいいのでしょうか？

コピペには対応できないんじゃね？
TextChangedで正規表現で一括チェックした方が楽そう。
@ITの会議室に数値の正規表現が論じられたスレがあったけど。

Decima.Perse
とか使った方がええんでない？

>>460
初回の"."は"0."と置き換えるようにするとか。

>>460
何が難しいのかさっぱり理解できないけど。
まず落ちついてどういう処理をすべきか言葉にしてみたら。
こういうことじゃないの？

Select Case テキストボックスの文字列
　　Case ""
　　　　数字だけ受けつける

　　Case 整数
　　　　数字と小数点を受け付ける

　　Case 実数
　　　　数字だけ受け付ける

End Select

でも個人的には先頭の文字がデシマルポイントでも全然かまわないと思う。

>>451
色々ミドルウェアを見てみたけど、
クライアントインストール無しでってのは見当たらなかったな。
本家のODP.NETも結局クライアントに入れる必要あるし。

OracleクライアントもODBCの設定も不要な
DLL形式のドライバって需要ありそうだけどね。

MS SQLはADO.NETにSqlClientが統合されてるけど、
こういうとこでMS謹製に分があるのは仕方ないと思う。

VB.NET 2003のプログラムをVB 2005 Express Editionに移植してみたら
Threadの操作で、Thread.SuspendとThread.Resumeに「古い形式です」とかの警告が出やがった。
変わりにThread.Sleep(0)とか使おうとしてみたが、今度は「共有メンバにインスタンス経由で云々」
もうね、面倒くさいんで古い形式のままSuspend ＆ Resume使うことにしたよ。

>>465
やはりそうですか。
クライアント配布はコスト増の大きな要因ですから、パカパカ
データアクセス手法を変えるのであればJDBCと同程度には
してもらいたいですね。

何でもかんでもレジストリに登録ってのがよくも悪くもの部分だとは
思うけど。

DataGridコントロールのヘッダが、
コントロールのリサイズ時に、
最後の列だけでも良いので
幅がぴったり合うようになるサンプルのようなものはありますか？

リサイズすると、
ヘッダが切れてしまった、見た目が悪いのをどうにかしたいです。

ヘッダってのはカラムのことかな？

カラム幅に -2　を設定する（-1だったかもしんない）と
カラムの所属する親コントロールのサイズに対して均等割り付けできたと思う。

最後の列だけでいいなら、resizeイベントで
columns[columns.count - 1].width = - 2 とかすればいいんじゃない。

>>469
返信ありがとうございます。

GridColumnStyles へ add する
DataGridTextBoxColumn の width に値を渡してやりましたが、
-2だと、非表示、-1だとヘッダの文字列にサイズが合うようです。

-2はたぶん要素の文字列にサイズが合うのだと思うのですが、
いかがでしょうか？

…あれ？そうだったっけ…。
ListViewでそんなことした記憶があったんだけど、違ったか。
ごめんごめん。

じゃあ、
1. columns を for か foreach で回しながら
最後の column を除く column.width の和を算出。

2. DataGrid.width - 上の和で、
最後のColumnの左辺からDataGridの右辺までの幅を出す。

3. columns[columns.count - 1].width = 2で出した幅
とか。

>>471
説明が下手ですみません。

ヘッダの幅を、セルに入ってる文字にあわせるのではなくて、
DataGridコントロール、そのものの幅に合わせたいと思っています。

ヘッダの幅は設定した値で固定なので、
DataGridコントロールそのものの幅を変更すると、
ヘッダが途中で切れてしまって見栄えが悪いので、
そこをなんとかしたいと思ってます

出来れば、
最後のヘッダカラムか先頭のヘッダカラムのWidthを
DataGridコントロールのWidthが変化時(resize)に、
自動で変化させて、ヘッダの後ろに出来る隙間を埋めてあげたいのですけれど、
良い方法ってご存知ないでしょうか…

5万円出して市販コントロールを買うことを勧める

VB6質問スレでスレ違いと指摘されましたので、マルチになってしまいすいませんが
こちらで改めて質問します。

開発環境：VB6sp3
実行環境：VB6ランタイム インストール済

この環境から、
「開発環境を.NETに移行するが、実行環境は変えずに済む方法」はありますか？
つまり、.NETでVB6と完全に同じモジュールを作れるのでしょうかといったことなのですが。

無理

>>475
スレ違い

移行絡みの話はVB6スレでどうぞ

困りました。
教えてください。
私はVB.net2003を使用しています。
Windowsupdateで、.NET Framework 2.0をインストールしました。
すると、VB.net2003が起動できなくなりました。
今まで作っていたプログラムも起動しません。
何か解決策はありますか？
VB.net2003の開発環境で、
.NET Framework 2.0はインストールしてはいけなかったのでしょうか？

完全に別物だから問題ないはずなんだが。
私はVS2002とVS2005Express入れてるし。
とりあえず修復インストールでもしてみたらどうだ。
ところで起動しないと言っても色々あるが、どんな症状なんだ？

>>479
>とりあえず修復インストールでもしてみたらどうだ。
当然しました。
そしたら、途中でバグって？修復できなかったです。
で、仕方ないからVB.net2003を削除して再インストールと考え実行。
しかし、削除しきれないし、インストールも出来ないです。
もちろん、その際、.NET Framework 2.0はアンストール済みです。

>ところで起動しないと言っても色々あるが、どんな症状なんだ？
.NET Framework 2.0をインストールした時点では、
VB.net2003を起動すると、デバッガの選択肢が二つ出ます。
二つとも選択して各々試してみましたが、VB.net2003の起動
というか、プログラム作成、それと、過去のプログラムファイル
を開くことは出来ませんでした。

>>472
大体471の方法で出来るよ。
DataGridView用でC#でプロパティ名はうろ覚えでしかも走り書きだが
適当に読み換えて使え。


int Total = 0;

// とりあえずRowHeaderの幅を足しとく
Total += DGView.RowHeadersWidth;

　　// 末尾を除くColumnにアクセスする
　　for( int i = 0; i < DGView.Columns.Count - 1; i++ ){

　　// Columnの幅を足していく。
　　Total += DGView.Columns[ i ].Width;

　　// Widthに含まれないボーダだかマージンだかの分。ないと微妙にズレる。
　　// 場合によってはここで足す値をちゃんと取得する必要があるかもしれない。
　　Total++;

　　}

// DataGridの幅から末尾のColumnを除くHeader部分（Total）を引いた値を、
// 末尾のColumnの幅に設定する。
DGView.Columns[ DGView.Columns.Count - 1 ].Width
　　= ( DGView.Width - Total );


これを実行する場面は、
DataGridのResizeと、ColumnWidthのResizeと、
RowHeaderのResizeと、後は必要なら起動時等の初期化の時。

>>471
>>481

ご丁寧にありがとうございました。
チャレンジしてみます。

しかし、DataGridって、Column数をすぐに返してくれるプロパティってないでしょうか^^;
スクロールバーが表示されてるかされてないかとか…
いろいろ大変です。

DataGridの最後の行を編集するのを禁止するには
どうやったらいいすっか？

DataSourceをDataViewにしてAllowNewをFalseにする

>>484
ありがとう！

質問させてください。
使用しているのはVB.NET2003なのですが、フォームを表示するときに
ただ表示するのではなく、例えばMSNメッセンジャーでメールが来たときのように
下からフォームがススッと移動してきて表示されるようにしたいのですが、そういう場合はどこをいじればよいのでしょうか。
色々検索してみたのですが、まったくヒットしないので、どなたか教えていただければ幸いです。

>>486
Top

お世話になります。

VB2003でのことなんですが、
親クラスに
Public Overridable Sub testSub()
Public Overridable Sub testSub(Byval str as String)
というメソッドがあるとします。
このクラスを継承した子クラスで上記のメソッドを
Public Overrides Sub testSub()
Public Overrides Sub testSub(Byval str as String)
というようにオーバーライドしようとすると、
「Overloadsに宣言されていなければいけません」
というエラーになります。
確かにそれは理解できるのですが、
Public Overloads Sub testSub()
Public Overloads Sub testSub(Byval str as String)
というように宣言するとエラーが出なくなりました。
Overridesの宣言は必要ないのでしょうか？
また、親クラスのメソッドにはOverloadsの宣言は必要ないのでしょうか？

亀レスだけどお世話になります
>>483
DataTableでやるならこういうのも良いかも
　DOBON.NETより

'CurrencyManagerを取得する
'ここではDataGrid1.DataSourceに
'DataTableオブジェクトが設定されているものとする
Dim cm As CurrencyManager
cm = CType(Me.BindingContext(DataGrid1.DataSource), _
CurrencyManager)
'DataViewを取得する
Dim dv As DataView = CType(cm.List, DataView)
'新しい行の追加を禁止する
dv.AllowNew = False

VS2003.NET ＋ .Net Framework1.1環境です。

XmlDocumentをNetworkstreamでネット経由転送する場合、
BinaryReader/Writerではエラーは出ませんがCPU負荷率が100％と
なってしまい、ハングアップしてしまいます。XmlDocumentを転送する
場合は、どのリーダ/ライターを利用するのが適切なんでしょうか。

エディター画面で、関数単位、リージョン単位と同じように、
関数内の任意ブロックをエディタ上でたたむ（？）ことって出来ますか？

例えば

Private Function func1() As Integer
　・・・
　For i to 100
　　・・・
　　・・・
　Next
　・・・
End Function

↓

Private Function func1() As Integer
　・・・
　+For i to 100...
　・・・
End Function

こんな感じに

>>491
やってみたらエラーになりますた（＞＜）

>>492
メソッド内ではRegion使えないって言われますよね…；

>>490
BinaryWriter使ってどう読み書きしてるんだ？
BinaryWriter.WriteにはXmlDocumentを引数にとるものはないし
XmlDocument.SaveやXmlDocument.WriteToにBinaryWriterにBinaryWriterを使うものも無いが。

お世話になります。

ファイルの有無を確認し、ファイルが無いときはファイルを作成、
ファイルが有る時はファイルを開いて処理をするプログラムを作成
しています。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If IO.File.Exists("smpl.txt") = False Then
IO.File.Create("smpl.txt")
End If
Dim Reader As New IO.StreamReader("smpl.txt", System.Text.Encoding.GetEncoding("Shift-JIS"))　
Do While Reader.Peek >= 0
ListBox1.Items.Add(Reader.ReadLine())
Loop
Reader.Close()
End Sub

これでファイルが存在しないとき、ファイルを作成てIfから抜けた後で
例外が発生します。
'System.IO.IOException' のハンドルされていない例外が mscorlib.dll で発生しました。

追加情報 : プロセスはファイル "C:\Documents and Settings\cloud\My Documents\Visual Studio Projects\fileop\bin\smpl.txt" にアクセスできません。このファイルは別のプロセスが使用中です。

プロセスが使ってるってことはDisporse等で開放すれば良いと思うのですが、
そういう命令がありません。

どのようにすれば対策できるでしょうか。
御教授ください。

File.Createが返すだろ？

そもそもCreateしたときは中身空なのは分かりきってるんだから
If Not(File.Exists("****")) Then
    '作成
Else
    '読み込み
End If
とか、Peekを見るよりReadLine()の返り値がNothingがどうかチェックした方が自然じゃね、とか。

>>IO.File.Create
これが原因
以下の書き方ではいかんのか？

If IO.File.Exists("smpl.txt") Then
　Dim Reader As New IO.StreamReader("smpl.txt", System.Text.Encoding.GetEncoding("Shift-JIS"))
　Do While Reader.Peek >= 0
　　ListBox1.Items.Add(Reader.ReadLine())
　Loop
　Reader.Close()
else
　IO.File.Create("smpl.txt")
End If

めちゃくちゃ早いなｗｗｗｗｗ

なんかかぶったな。
別のやり方としては、

IO.File.Create("smpl.txt")
の部分を以下に書き換えるとか。
Dim C as System.IO.FileStream
Try
　 C = System.IO.File.Create("smpl.txt")
Finally
　if Not C is Nothing then
　　C.Close()
　end if
end try

それならシンプルに
Dim fs As IO.FileStream = IO.File.Create("smpl.txt")
fs.Close()
でいいんじゃない？

お世話になります。
>>496　>>497　>>498　>>500
ありがとうございます。
要はファイルを開いた時点で再度ファイルを確認することはないってことですね。
(変な例えだと新聞読もうと捜して右手に取った後、もう手に取ってるのに新聞を
探すようなことをするコードだった・・・？)
実例見てスッキリしました。
ありがとうございました。
またよろしくお願いします。

>488
>Overridesの宣言は必要ないのでしょうか？
基本クラス型の変数に派生クラス型のインスタンスを入れて
基本クラスのメソッドを呼んだとき、
Overridesの有る無しで呼ばれるメソッドが違います。

>また、親クラスのメソッドにはOverloadsの宣言は必要ないのでしょうか？
省略可です。

チェックボックスのフォーカス制御について質問（ご相談）です。
チェックボックスにtabキーなどでフォーカス移動した際に、

「チェックボックスのフォーカスは文字の方に表現されるので、
文字のないチェックボックスはフォーカス状態が
見かけでは判別できなくなる。」
　　参照：ttp://homepage1.nifty.com/rucio/main/dotnet/shokyu/standard17.htm

とのことなのですが、もしフォーカスがあたっていることを明示的に
知りたい場合、みなさんならどうされていますか？
自分としては
・フォーカス設定時にバックカラーを変更する
くらいしか思いつかないのですが、どんなやり方が一般的でしょうか。
チェックボックス入力欄の四角自体を点線で囲えればいいんでしょうが。。。

* 俺様ルールで勝手な表示をされてもユーザーは困惑する。
* 文字のないチェックボックスを置く、など愚の骨頂。

> どんなやり方が一般的でしょうか。
そんな小細工はしないのが一般的

文字の無いチェックボックスってのが、どういう設計で出てきたのか
聞いてみたいな。Imageプロパティに適当なピクトグラムを貼って使
ってもいいと思うんだけど。

form1とform2があったとして
form2の中でform1のメンバーになぜアクセスできるのかわからん
例えば、form1.mHerNameみたいにform2でform1のインスタンスを
つくっていないので参照できてしまうのはどういうわけなんだろう

デフォルトインスタンス、とか？

>>508
規定インスタンスがあるからじゃね？

>>509-510
規定とかデフォルトって、例えばform1とform2はそのインスタンスに属して
いるということなのか？　そしてそのインスタンスはIDEに隠蔽されていて
編集とかできないってことなのかな

まてまてまて
まてまて
言ってることがおかしいぞ？

何かを徹底的に勘違いしてる悪寒。

うーん勘違いか。目的は共通のクラスがほしかっただけなんだが
たくさんのフォームのどこからでも使えるクラスの作り方って
public なクラスとして宣言したらよいのか？

むむむ？
何か話が通じてないな…

クラスの作り方がどうとかという話ではなくて、
デフォルトインスタンスって書いたのは、
要するにフォームのと同一の名前を記述することで、
自動的にインスタンス化されたフォームにアクセスできるってものだ。

はっきり言って止めてほしい…

>>515
なるほど。そういう仕組みでフォームにアクセスできるのか。
そのデフォルトインスタンスってのはVB.NETに限って特有のことって
考えてよい？

DrawStringについてお伺いしたいのですが、
文字を選択した状態を表示するためにFillRectangleとDrawStringを同じ位置に描画すると、
文字がずれてしまうのでStringFormatにGenericTypographicを指定してします。
これで思ったとおりの位置に表示されるのですが、連続した文字などを描画すると、
最後の数文字の文字間隔が狭く表示されてしまいます。こんな感じ→ a a a a a a aaaa
これをGDIのTextOutで描画したときと同じように等間隔で表示する方法は無いのでしょうか？
ご教授お願いします。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　Dim g As Graphics = Me.CreateGraphics
　　Dim f As New Font("ＭＳ Ｐゴシック", 12.0!)
　　Dim fmt As StringFormat = StringFormat.GenericTypographic
　　g.FillRectangle(Brushes.Blue, 10, 10, 80, 20)
　　g.DrawString("aaaaaaaaaa", f, Brushes.White, 10, 10, fmt)
　　g.Dispose()
End Sub

>>517
再現できないけど。
DrawStringでRectangleFを指定しても同じく再現できない。

>>518
ぱっと見ても分からないくらいの差です。
スクリーンショットを取って確認したところ、前方の文字間は2Pixels
空いてるのに後方の文字は1Pixelsしか空いていませんでした。

>>519
なるほど本当だ。
しかし、（どうしてStringFormatにGenericTypographicが返す値を指定すると
そうなるのかはよくわからないけど）それならStringFormatなんて指定しなきゃいいんじゃないの？

何がやりたいのかいまいちわからないけど、要は塗りつぶした領域内に収まるように
文字を描画したいんだよね？

それならオーソドックスに文字を描画する座標を計算すればいいだけなのでは。
たとえば領域のy方向の中点から文字の高さ(g.MeasureStringで取得)の半分を引いた値を
DrawStringのy座標の値にするとかね。

505-507
なるほど、わかりました。
参考にさせていただき検討します。

ちなみに、なぜそのような仕様になったかというと。。。

使用者「このチェックボックス、横の説明文みたいな箇所いらんよ。いちいち書かなくてもユーザはわかってる項目だしさ、スペース無駄だし。」
↓
（文字なくしたチェックボックスを提示）
↓
使用者「画面のレイアウトはこれでいいよ。ユーザ的にもOKだ。でも、欲を言うとtabキー移動時にフォーカスあたってるかどうかがわからないね。わかる方法ないかね？　点線かなんかで囲うとかさぁ？」
↓
（え、どうしよう、普通はどうするんだ・・・？）

テキストのフォントに輪郭をつけるにはどうすればいいでしょうか

>>521
なら、そのチェックボックスが持ってる機能の頭文字とか絵文字を
ひとつだけ表示しておいたらどうだろう？　１文字も許されないよ
うなスペースも無いとかならダメだけどさ。

機能説明の無いチェックボックスなんて、本来存在してはいけない
んだけどな。

>>522
輪郭のついたフォントを用意する。

MSXでやった方法は
フォントをズラして2度書き

>>525
それだと影は付くだろうけど、アウトラインにはならないかも。
上下左右に４回ずらしてやったらいけるかな。(w

ttp://ukamen.hp.infoseek.co.jp/Programming1/Font/index.htm
アウトライン

Win2K上で開発していて、WinXPでテストをすると
LunaのおかげでFormが小さくなってしまって、
見た目が崩れてしまいます。
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=19853&forum=7&7
↑これと同じ悩みなのですが解決できないものなのでしょうか？？

>>528
それってあるあるw
あとAutoAcale = TrueにしとくとWinの言語バージョンによって
勝手にウィンドウやボタンのサイズが変わったり。
本当にしょうもないよね。

確かフォームが表示される前にClientSizeをコードで指定してやれば
対処可能だったと思ったけど、そういう小細工を弄するより
余裕をもったデザインをする方が結局楽だと思う。

まあそうもいかない場合もあるけど。

AutoAcaleってなんですｋ

>>530
民明書房刊『.NET開発におけるWindowsフォームの秘儀』参照の事

X 秘儀
O 秘技

素直に間違い認めろよｗ

プロパティウィンドウとかドッキング不可能にする設定ないですか？
画面の上や右にもっていくと勝手にくっつきます
VB6のころはドッキングするウィンドウを選択できましたが今回は
なくなったのでしょうか

>>534
おいおい目が見えないのかい。
ウィンドウドラッグしてるときIDEのステータスバーを見てみ
VS2003のIDEはVB6のより自由度高いよ。

>>535
あ、タスクバーになんか書いてますね
なるほどコントロールキーを押さないといけないのか。わかったよ産キュー

あとフォームデザインウィンドウでVS2003では下のほうに変なアイコンが
ならんでいるが消せないものだろうか

ちなみにVS2002では表示されていないのですが。。。

>>528
>>529
スクロールバーも太くなってコントロールの内側も狭くなることも判明。。。

----------------------
＼　た|　た　|　た
よ＼て|　て　|　て
こ　＼|　１　|　２
----------------------
　よ　|　　　|
　こ　|　　　|
　１　|　　　|
----------------------

DataGridで左上のようなラインでわけて文字列を表示するようなものを
１セル内で作成することは可能ですか？
図・・・わかりにくいですね・・・orz

出来ない。

よろしくお願いします。
環境はVB.net2003です。
IMEがｵﾝであるかｵﾌであるかを調べるにはどうしたら良いですか？
これだけでもわかれば助かります。
色々と検索しましたが見当たりません。

本当に検索した？
すぐに発見できたけど。
http://64.233.167.104/search?q=cache:i4yayCvZ_FgJ:www.winapi-database.com/String/Ime/+.net+tips+ime%E3%80%80%E3%83%A2%E3%83%BC%E3%83%89%E3%80%80%E5%8F%96%E5%BE%97&hl=ja

>>541
本当に検索しました。
yahooです。
IME オン オフ 設定 プログラム とか、色々。
今度からはググルようにします。
素早いご回答、感謝します。

はぁ？
yahooでも、「IME」「関数」で3番目に出てくるんだがね、541のサイト
自分の至らなさを検索ｴﾝｼﾞﾝのせいにするなよ

>>543
確かに「関数」の言葉は入力していませんでした。
申し訳ありません。

>>523
なるほど、一文字のみ表示する案もありますね。

みなさんのおっしゃる通り、
「チェックボックスTextを空欄にする」こと自体がそもそもよろしくない、
というのが一般的なようですので、使用する方に
一度再提案してみます。。。。

空欄テキストのチェックボックスなんてゴマンとあるがな

例えば？

HTML。
なぜlabel要素はHTML4.01まで遅れたのやら。

リアル池沼の意見としか思えんなw

お世話になります
ODBCを使ってMySQLに接続してデータを参照するソフトを作っています。
MyODBCの設定の時点では問題ない(と思う。接続のテストでは接続できる)
のですが、ソフトを実行すると例外が発生します。

'System.Data.Odbc.OdbcException' のハンドルされていない例外が system.data.dll で発生しました。

追加情報 : システム エラーです。

原因がどうしてもつかめません。　どなたか御教授下さい。

Dim ds As DataSet = New DataSet
Dim dr As OdbcDataReader
Private Sub ConnectANDDisconnnectButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectANDDisconnnectButton.Click
Dim codco As OdbcConnection = Me.OdbcConnection1
Dim cmd As New OdbcCommand("SELECT * FROM dummybook", codco)
codco.Open()
dr = cmd.ExecuteReader()
While dr.Read
System.Diagnostics.Debug.WriteLine(dr("days") & " " & dr("itemname") & " " & dr("odernumber"))
End While
codco.Close()

Dim da As New OdbcDataAdapter("SELECT days, itemname, odernumber from dummybook", codco)
da.Fill(ds)
writegrid()
codco.Close()
End Sub
Private Sub writegrid()
Me.DataGrid1.DataSource = ds.Tables(0).DefaultView
End Sub

自己レスです。
問題解決できました。

参照される側にはIDが発行されていましたが、権限が与えられていませんでした。
権限の設定をしたら接続できました。
ありがとうございました。

プログラム中に < と > や、 [ と ] で括られたものの
文法上の名称教えてください。xmlじゃないです。

<>は属性ブロックとして、[]はエスケープ識別子か？
ほかに用途はあったっけ...

時間の掛かる処理をマルチスレッドで行おうとデリゲートを作って
BeginInvokeで実行しています。

そこで質問なのですが、BeginInvokeで実行しているスレッドを
途中で終了させるにはどうすればいいのでしょうか？

外部から強制終了は無理。
スレッド側が何らかのオブジェクトの状態を見て自分で終了するかどうか判断する。

>>555
Thread.Stopのようには行かないと言うことですね。
スレッドの中からオブジェクトの状態を見る方法を調べてみます。

Thread.Stopなんてもん.NETのThreadクラスにゃ有りませんが・・・

お世話になります。

Comboboxから入力した文字をファイルに書き出すというプロシージャを作っています。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　 Dim Writer2 As New IO.StreamWriter("smpl.txt", True, System.Text.Encoding.GetEncoding("Shift-JIS"))
Writer2.WriteLine(ComboBox1.Text)
Writer2.Close()
ComboBox1.Items.Clear()
Dim Reader2 As New IO.StreamReader("smpl.txt", System.Text.Encoding.GetEncoding("Shift-JIS"))
Do While Reader2.Peek >= 0
ComboBox1.Items.Add(Reader2.ReadLine())
Loop
Reader2.Close()
End Sub
このソースだと文字を入力すると1行空白が入ってしまいます。
空白が入っては駄目とのことです。
TextBoxとListBoxの組み合わせのほうが簡単だと思いますが、ComboBoxでないと
駄目なので苦労しています。
どなたか妙案があれば御教授ください。
お願いします。

お世話になります。

自己解決できました。
別の処理部に原因がありました。
そこをやっつけたら問題なく期待通りの動きになりました。
ありがとうございました。
またお願いします。

2005のwebbrowserをFormに張った後、Flashのあるサイトに行って、
そのFlash上の何かのボタンを押すと、その一回目のクリックは受け付けるんですけど、
二回目以降は、Flashのエリアではない別の場所を一度クリックしないと以降受付ないのです。
以前のバージョン2003まででは、クリックした後に、FOcusをHtmlDocumentにセットしなおせば、
まともに動作したのですが、今回は駄目。回避方法ありますか?

誰も「前スレ904」とやらにチラシの裏って言わないこの物分りのよさは何w

>>557
話の流れ読んでればThread.Abortの事だと分るんじゃ…？

うまく動かない部分を質問しようとしてひとに解説しているうちに、
あっさり原因が分かって解決するってのは誰もが経験していること
だからなぁ。

>>563
あるあるｗ

教えてください。
任意のボタンクリック、例えば「ａ」キーを押すと
IMEが強制的に、かな入力設定になるプログラムって
どうしたらいいの？作成プログラムの実行ファイル内ではなくて、
Windows自体の動作を設定したいのですが・・・

>>563-564
人にわかるように説明するには状況を整理することになるからな

>>565
ttp://forums.belution.com/ja/vc/000/170/27s.shtml
こういう事だと思うけど、MS-IME 98以降ダメらしいね。

>>565
・グローバルホットキー、またはグローバルフック
・ImmSetOpenStatus
・.NET Framework/VBでやるもんじゃないな

みなさんありがとうございます。
感謝です。

VB(WSH)を利用してワイヤレスネットワークの情報（SSIDやネットワークキーなど）を取得したいと考えていますがどのような仕組みを利用したら
これらの情報が取得できるのかが見えていません。

レジストリ、WMI、WIN32API等を調べてみましたが
見つけられませんでした。

どなたか、ワイヤレスネットワークの情報を取得するために
必要な技術を教えてください。

最終的にやりたいことは、端末のワイヤレスネットワークの
情報もろもろを取得しHTMLの表にしたいと考えています。

WSHはスレ違い

>>570
素直にStumbler系を使ったら？
どうしても開発しなければならない理由があるならともかく。

ちょいと質問します。
IEのCookieを取得する方法はありませんか？
Perlなら簡単に出来るのにVBで全然見つからない・・・

Win32API

ASP.NETならRequest.Cookies
WebBrowserコントロールならDocument.Cookie

すいません。
JAVAScriptのWindow.Closeをキャッチする方法ってありませんか。
タブWindow作ってるんだけど、Window.Closeで閉じるようにしたいんだけれども。
VB2005のWebbrowserです。

UnloadイベントでDocumentが存在してるかチェックするとか。

>>577
キターーーーーーーーー
ありがとう

> IEのCookieを取得する方法はありませんか？
> Perlなら簡単に出来るのにVBで全然見つからない・・・

意味が理解できないのは気のせいですか…？

VB2005なんですが、ApplicationSettingのPropertyBindingで
フォームのCliantSizeをバインドすると、以降、そのアプリケーションを
最小化して元に戻すとサイズが「0，0」になってしまいます。これは
どのようにして回避すればいいんでしょうか。

>>580
考えるよりとりあえずはバインドしないで自作に限るのでは？
便利だけどそういう仕様と思われる限りは使えないってことで。

>>580
最小化したままアプリケーションを終了させて、次に実行したときの事だと推測して・・・

プロジェクトのプロパティ画面の設定タブにある「コードの表示」でSetteings.vbを開き
MySettings_SettingChangingイベントハンドラに

　　If　e.SettingName　=　"Form1ClientSize"　Then
　　　　If　Form1.WindowState　<>　FormWindowState.Normal　Then
　　　　　　e.Cancel　=　True
　　　　End　If
　　End　If

を記述。("Form1ClientSize"はClientSizeにバインドした項目名)

×Setteings.vb
○Settings.vb

メソッドの途中で1秒停止するにはどうすればいいですか？

System.Threading.Thread.Sleep(1000)
メインスレッドでやるとUIからの入力・反応も止まるから注意

うわ、そのメソッドをスレッド化しないといけないのか・・・
ありがとー

実行されるプログラムは全てスレッドですが何か？

それがいやならタイマでも使えってことだな

>>587　別スレッド化だね
>>588　あーそうそう、タイマーあったね。タイマーの方がいいかも。

止めるだけなら別に別スレッドにせんでも・・・

ファイルをプログラムを呼び出して開き、テキストボックス内に表示する方法を教えてください

わけわからん、はい次の人

メディアファイルを扱うソフトを自作しています。
mp3ファイルなどのビットレートを取得する方法がどうしてもわかりません。
どなたか教えてください。

WinXP HE SP2
Visual Studio .NET 2003 Professional

どうやって扱ってるんだ？
直接バイナリ読んでるのか？

指定されたディレクトリ（多数存在）に存在するMP3ファイルを取得してきて
DataGridに表示させています。
現在はファイル名とアーティスト名（アニソンならアニメのタイトルも）を表示させています。
ここでさらにビットレートを表示させたいのですが取得方法がわかりません。

バイナリデータを読むという方法ははじめて聞きました。
バイナリデータにファイルの情報がつまっているならそこから取得できそうですね。
試してみます。

だから今のところどうやってアーティスト名だのを取ってきてるんだと聞いているんだが？

保存してあるmp3のファイル名が

アニメタイトル.....曲名／アーティスト名.mp3

という書式になっています。

ファイル名を取得して文字列操作関数でタイトル名、曲名、アーティスト名などを取得しています。

>>581
>>582
レスありがとうございますー。

「最小化して元に戻す」というのは、最小化したまま終了したのではなく、
最小化ボタンを押してタスクバーに格納した後、タスクバーのボタンを押した
ということです。通常のアプリであれば、この行為でもとの大きさのフォームが
表示されるハズなんですが。。。ひょっとしてVB2005のバグなんでしょうか。
どなたかよろしかったら試してみてもらえませんか。CliantSizeをバインドすると
そうなっちゃうんですが・・・。

>>597
こういうライブラリがあるけれど、VB.NETで使えるかどうかは不明。
ttp://www.angel.ne.jp/~mike/vbmp3/about.html

>>598
新規プロジェクトでClientSizeをバインドしただけなら普通に元に戻ったよ。
だから>>582のレスをしたんだけど。
Resizeイベントあたりで余計なことしてない？

>>600
レスありがとうございます！ 私も新規プロジェクトから試してみましたが、
やはり普通に戻りません・・・と思ったら、同じPropertyBindingにLocationも
バインドしてたんですけど、これをハズしたら正常動作するようになりました。
つまり、CliantSizeとLocationを一緒にバインドすると、>>580のような動作を
再現してしまうようです。これってやはりバグ・・・でしょうか。

>>601
バグというか仕様じゃないの。最小化と元に戻すときはLocationとSizeが複雑に変わるからねえ。
どうせ最小化or最大化したまま終了したときの考慮が必要だから
>>582にLocationも含めたコードで対応すればいいんじゃない？

>>601
そろそろClientのスペルまちがいに気付こうよ

>>602
どうもありがとうございました！　>>582で教えていただいたコードで
対応してみます。ホント助かりました〜ありがとうございました m(_ _)m

あけましておめでとうございます。
今年もよろしくお願いします。

ファイルの内容をComboBoxに書き込み、ユーザが追加・削除をできるようなインターフェイスを実装しています。
そこで削除をするプロシージャを作ったのですが、編集内容が文字化けしてしまいます。
何か妙案がありましたら御教授願います。

Private Sub DeleteTarget(ByVal ChangeCombo As ComboBox, ByVal ChangeFile As String)
Dim fr As StreamReader
Dim ReadString As String
Dim WriteString As String
Dim ConfirmDelete As MsgBoxResult
fr = New StreamReader(ChangeFile, System.Text.Encoding.GetEncoding("Shift-JIS"))
ReadString = fr.ReadLine
Do Until (fr.Peek <= 0)
ReadString = ReadString & vbCrLf & fr.ReadLine
Loop
WriteString = Replace(ReadString, ChangeCombo.SelectedItem + vbCrLf, "")
fr.Close()

'続きです

ConfirmDelete = MsgBox("選択したエントリを削除します。いいですか？", MsgBoxStyle.OKCancel)
If ConfirmDelete = MsgBoxResult.OK Then
File.Delete(ChangeFile)
Dim fw As StreamWriter = File.CreateText(ChangeFile)
fw.WriteLine(WriteString)
fw.Close()
ChangeCombo.Items.Clear()
ChangeCombo.Text = ""
If IO.File.Exists(ChangeFile) Then
Dim fr2 As StreamReader
Dim FileString As String
FileString = Nothing
fr2 = New StreamReader(ChangeFile, System.Text.Encoding.GetEncoding("Shift-JIS"))
Do While fr2.Peek >= 0
FileString = fr2.ReadLine
ChangeCombo.Items.Add(FileString)
Loop
fr2.Close()
Else
IO.File.Create(ChangeFile)
End If
End If
End Sub

SJISコードで取得した文字列をそのままUTF8で書き出しゃそりゃ文字化けするわな
阿呆

正直コードの意図がさっぱり分からない

文字化けって現象は理解してるのに、文字化けが何かを理解してないんだね。ｗ

>>607
>>608
>>609
ありがとうございます。
早速ShiftJISを外して見ましたがやっぱり駄目でした。
たぶんFileCreateのエンコード(?)をShiftJISにすればいいということだとおもうのですが、
Encodingはメンバじゃないと言われるので別の方法を考えたほうがよさそうですね。

またよろしくお願いします。

お世話になります。
自己解決できました。

〜前略〜
ConfirmDelete = MsgBox("選択したエントリを削除します。いいですか？", MsgBoxStyle.OKCancel)

REM ここのCreatefileをShiftJisで呼び出し・書き込みできれば勝利
If ConfirmDelete = MsgBoxResult.OK Then
File.Delete(ChangeFile)
Dim fw As Stream = File.Create(ChangeFile)
fw.Close()　　rem ここで一旦クローズ(UTF-8を終わらせて次の行でShiftJISで開きなおす)
Dim fw2 As New StreamWriter(ChangeFile, True, System.Text.Encoding.GetEncoding("Shift-JIS"))
fw2.WriteLine(WriteString)
fw2.Close()
〜以下略〜

ありがとうございました。またお願いします。

StreamWriterコンストラクタの第二引数の意義がまるでスルーされているのがいとをかし。

工エｴェｪ（´д｀）ｪェｴエ工工
StreamWriterのコンストラクタがどんな動作をするか全然分かってないんだな・・・
まあ、本人がいいんならいいけどｗ

名前欄消すの忘れてた(´･ω･｀)

やっぱり>>609の指摘からは脱していないわけで。ｗ

エンコードに限らず基本的な概念・知識が無いまま、ただ動いたからいいやって感じだね。

まぁ、趣味グラマには良くある傾向だな

末端コーダも似たようなもんじゃね？

遅くなりました。
参考にさせてもらいますが、
なんかプログラム始めたばかりの私には難しそうです。

ありがとうございました。

アンカー忘れた。

>>619 は >>599

ご指摘ありがとうございます。

>>612
>>613
>>616
オーバーライドが解決できません〜の時点でコンストラクタ以前の問題だと思います。
これを客に渡すのは正直怖いです・・・
もっと勉強します。
ありがとうございました。

>>615
たぶんAが61(？)かそれ以外かみたいな位の理解度です。
ありがとうございました。

>>616
>>617
物覚えの悪い末端コーダーです。
プログラム始めてもう2ヶ月なのに・・・(´・ω・)
ありがとうございました。

>>621
客に渡すのが怖ければ渡すんじゃないよ。ｗ
あんたは姉歯か？

で、この間に文字コードってものを少しでも勉強したんかい。

はじめまして。
データグリッドに数字を入れてソートしたかったのですが
3桁ごとに，を入れて表示してソートすると
上手くソートされません。
，入れたせいかと思ったんですけど、，を抜いてもダメでした。
12
1234
123456
987
9876
こんな感じにソートされてしまうんですけど
どうすればEXCELで出来るみたいに上手くソートできるんでしょか？

文字列で扱われてるから。
どうすれば良いかはデータソースによる。

.netもいい加減バージョン明記必須だな。２００２，３，５のどれか。
で、DataGridってViewとVakueって分かれてないんだっけ？

.NET Frameworkは、1.0/1.1/2.0。
言語としては、7/7.1/8。
開発環境は、2002/2003/2005。

使い分ける人は少なそうだが。

マルチスレッドの引数や結果の受渡しめんどくせー

慣れればそうでもなくなるさ。
なにでマルチスレッド実現してるのか知らないけど。

1.1　7.1　2003　が圧倒的に多い

>>627
つBackgroundWorker

VB.net超初心者です。皆さんとても高度な質問されている中恥ずかしい質問ですみません。
私は点A点Bの二点を通る直線の式を求めるというプログラムを作っています。点A(a, b)点B(c, d)各x, y座標は乱数で-10〜10を振り分けています。
y=mx+nを求めるにあたり、
m=(b-d)/(a-c)を解いた上
n=b-maの式を解かせようと思ったのです。
しかし悲しいほどの力不足の結果
Dim a, b, c, d As Integer
Dim m As Integer =( b - d ) / ( a - c)
Dim n As Integer = b - (m * a)
と打とうとした所エラーとなってしまいました。数々の資料を見ても尚わかりません（…多分基本的すぎる内容だから？）
どのようにしたらよいのでしょうか教えていただけませんか？
あと、傾きmや切片nは分数として表記したいのですがその方法もぜひお願いします。長文かつ稚拙な質問ですがなにとぞお願い申し上げます。

・エラーとやらの内容ぐらい書け
・Integerは整数型だから小数点以下切捨てだがそれでいいのか
・分数はフレームワークに存在しないので自分でどうにかすることになる

>>631
プログラミングに王道なしとしかいいようがない。
おとなしく一から学習するか、プログラミングなんてあきらめるかしかないだろ。

正直、こういうプログラミング舐めてる奴を助けたいと思う人は少ないと思う。
君ってわからないことを調べならがら前に進める段階じゃないだろ。

>>631
取り敢えず宣言と計算は分けろ。
話はそれからだ。

.netって無料で配布してるのか・・・
今までソフト買ってきたのがバカらしいな

>>635
つうかそういう当たり前の情報を調べない貴方が馬鹿。

>>636
なにが当たり前かは人によって違うだろ
おまえは普段どんな服気てるんだ？
ファッション雑誌のタイトル言ってもわからないんじゃないのか？

PGヲタは根暗が多いってほんとだね

負け惜しみはみっともないよ

フォームがいくつかあるアプリでも
メインフォームにすべての関数を記述して
他のフォームのコントロールはメインから直接操作できるようにパブリックにしてるんですが
こういう私でも.NETできますか？

できますよ

高級言語は低脳のために作られた言語

>>637
おたとか云々以前。あんたがプログラマじゃないだけでしょ？
普通に情報集めてれば、仕事であっても日曜プログラマであっても常識。

>>642
おまえの常識はヲタの常識
狭い常識に捕らわれてると相手にされないよ

まあ、煽りだろうからもうあれだけど、あんたプログラマ名乗ってるなら
みっともないからしんだほうがいいよ。
日曜プログラマでも知っている常識もないんだから。ｗ

↑言語障害者？

>624
データソースにはデータテーブルを使いました。
データテーブルの数字の入ってるカラムのDataTypeを
IntegerとかDecimalにすれば数値として扱ってソートできますけど
，で区切るとソート順がおかしくなります。
グリッドが勝手にしてくれるソートのイベント拾って
自分で何とかしないといけないんでしょうか？

ちなみに環境は
.NET Framework1.1
言語としては、7.1
開発環境は、2003
です。

どうやって,区切りを実現してるんだ？

>647
文字列にしてです。

まあなんだ、表示されてるもの=データではないと言うことを分かれ

なんていうか、DataGridの使い方解って無いな

vb6にあったSortKeyみたいなのないんだなぁ
リストビューでコラムクリックしたらその列でソートみたいなことがしたいのに
IDEよくなっただけで、関数減ってたら意味ないじゃん・・・
重くなっただけで使い勝手悪いよ

関数て.....
そんなレベルの人間に否定されたらMSもたまらんなw
Iなんたらインターフェイスを実装するだけじゃないの確か。

>>652
Iなんたらってｗ
そんなレベルの人間に否定されたらたまらんなw

データソースは数値型にしてDataGridTextBoxColumn.Formatで表示だけカンマ編集すればいいんじゃないの？
2003持ってないからGUIでどう操作するかは分からんけど。

Iなんたらインターフェイス

この表現であってると思うのは俺だけか

なんたらじゃないな、なんちゃら。

まあ馬鹿が淘汰されていくのは良いことだ。

>>657
まず、おまえがな

VBで淘汰されてしまったら、どこに行き着くんだろう？

質問です。

「2d6-2+7asdaf 2d6+2D6+2d6-2d6+7 3+2d6*2d6-2 2d6-2d6/2D6*2d6-2d6」
上の文字列を以下のように抜き出したいんですが、どうすればよいでしょうか？
2d6-2+7
2d6+2D6+2d6-2d6+7
3+2d6*2d6-2
2d6-2d6/2D6*2d6-2d6

現状としては、Regex.Matchesを使用していろいろ試すんですが、どうも上手くいきません。

正規表現「([\d*/+-]+(d|D)+[\d*/+-]+)+」では
2d6-2+7
2d6+2
6+2d6-2
3+2d6*2
2d6-2
6/2D6*2
6-2d6

正規表現「([\d*/+-]+(d|D)+[\d*/+-])+」では
2d6
2d6+2D6+2d6-2d6
3+2d6*2d6
2d6-2d6+2D6+2d6-2d6

という感じで、上手くいかないのです。

誰か、助けて、、、

スペースで区切れてるならスペースで切れば？
そうじゃなければ、そもそもの何のルールで区切りたいのか不明です。

(?:[\d*/+-]+[dD]?[\d*/+-]?)+

スペースで切れば済む話な気もするけど
こんな感じか？

\d+([dD]\d+)?([\-+*/]\d+([dD]\d+)?)*

>>661-663
スペースで区切れていない場合もあります。

(?:[\d*/+-]+[dD]?[\d*/+-]?)+
\d+([dD]\d+)?([\-+*/]\d+([dD]\d+)?)*

両方いけました。ありがとうございます。

ここはエスパーの多いスレですね

VBやってるやつはみんなエスパー
ソースみるとごちゃまぜスパゲティー
本人すら理解できないことをひたすらやって
みんなの足手まとい

スパゲッティーを持ってきて「うまく動きません」というやつには、
全部の行にコメントを付けてこいと助言しています。

VB5からの習慣だけど、ソースは他人が読むことを前提に、
ほぼ全ての行にコメント（説明、意図、愚痴など）をつけていました。

こんなんだろｗ

' iを宣言する
Dim i
' iを0で初期化
i = 0

>>669
おまえ、頭いいなｗ

>>668
可読性が上がるのもあるけれど、コメントを書いてるうちに本人が
ミスに気がつくことも多いからね。

まあなんだ、とにかく意図や目的を書くことだな

コメントが無いばっかりに、自分が書いたソースなのにわざわざ読み解かなきゃならん羽目になった…って経験はみんな一度くらいはある？

>>673
あるあるｗ

なんでこんなややこしいことやってんだ？て思って
読みといていくうちに、
以前の自分の深い考察に気付いておどろいたorz

>>675
以前の自分の深い考察に気付く事ができれば、それはむしろ良い事だよ。
俺なんか、「あれ？　ここバグってるじゃん。」って軽率に書き換えて動作が怪しくなった経験がある。

以前の自分の深い考察に驚いたって、今は深くないのかｗ

だからorzなんだよっ

さすがVB厨はバカばっかだなｗ

タイプ数をカウントするアプリ動かしながら
コーディングしたことがあるんだが
コメントのタイプ数の方がコードよりも遙かに多かった

プログラムの条件が変わって修正しなきゃいけなくなって、「面倒くせーなー」と
思いながらソースみたら、まるで「こんなことがあろうかと」思ったような処理してたりして
「スゴイぞ！昔のオレ」と思ったことがあるw

願わくば、明日の私が今日の私よりも優れた人間でありますように。

pictureboxにある画像をbackgroundimageとして貼り付けてあるんですが、
backgroundimageは消さずに、pictureboxに描写したものを消すにはどうすればいいのでしょうか？

・PictureBoxに描写してないだろ
・BackgroundImageを消すって具体的にどういう意味だ

つかなんでPictureBoxなのにImageプロパティ使わない？

Dim g as Graphics as graphics = PictureBox1.CreateGraphics()

gにdrawrecrangleなりで描写をしてるわけですが、
そいつを消そうと
g.Clear(Color.white)
を入れると、
背景画像も一緒に消えるって意味です。

あー、そういうことね。
Refreshすれば済む話。
もちろんPaintイベントで変なことやってたりしたら駄目だが。

綺麗に消えてくれました(ﾉ∀`)
こんな時間に答えていただいてありがとうございました。

VB2005のオススメ本教えてください。

だが断る

書籍はまだ出てないでしょ？
ベータ向けの本ももう古いし。
＠ITが一番確かかな？入門レベルには。
あとはWindowsDeveloperぐらいかな？

話は戻るけどみんなはコメントってどうやってつけてる？
ホントに

' iを宣言する
Dim i
' iを0で初期化
i = 0

みたいにつけてる？
俺は・・・重要と思ったところ以外コメントをつけずにあとからソースを読んでる・・・orz
コメントなしで理解できるソースを書けって何かの本（プログラミングセンスだったかな）に書いてあったからだ。
じゃぁそういうソースを書けているか？と問われれば・・・聞かないでくださいorz

なんの本に書いてあったか知らんが、コメント無しで理解できるソースを書くにも限度がある
それに、究極的に言えば全てのソースはコメント無くてもいつかは理解できる
それを、時間かけずに理解させるためにコメントがある
コメントを否定してしまってはどうにもならない

ちょっと見てすぐ理解するのは難しい部分にコメントを書けばいい

>>691
俺はコメントをつける場合は

Dim i = 0 '## Ａの情報を保管する変数 初期値は0

つー感じかなぁ。昔は細かく書いてたけど、今はプロシ外からの情報を参照する場合にコメントをつけるくらいかな。

情報量が多くなる場合は、エクセルに仕様とフローチャートと情報をまとめる形をとってる。

なにして、これして、どうして、なにする。程度のコメントかな？
あと、恥ずかしい処理の言い訳。

>>691
>>693
いちいちそんな細かく書いてられるかよ
てか、オブジェクト指向プログラミングできないおまえらは
コメントいちいち打たないと仕方がないんだろうなｗ
わかりにくい時点で設計がおかしい

だな、バカなやつは1つのクラスにメソッドやプロパティを
大量に溜め込んで処理させてるからな
1つのクラスにメソッドは3,4個ぐらいにして継承させてやれば迷うことはない
まあ、VBプログラマには無理だろうけどね

すっげぇなおまえｗ

１つのメソッド、関数は10行以内にまとめる
まとまり切らないということは設計が悪い
メソッド内の処理の一部で新しいメソッドを作る
1つのクラスの中にメソッドが10以上になったらクラス化する
こうすることでプログラム全体の流れが非常に扱い易くなる
おまえらみたいに、だらだら長文で書いてたらわかりにくいのは当たり前

だな、VB6ユーザーって、MainFormに全部のコード書いてそうｗ
まあ、オブジェクト指向なんて知らなくてもゴリ押しで書けるからなんだろうがな
クラス化しても、全部パブリックで定義してそうだなｗ
mainformからすべてのクラスのすべてのメソッドを操作できるようにしてたりしてｗ
細分化してクラスやメソッドが増えてきたら見えないようにするとわかりやすいのにな

うっはｗｗｗ何この自称すごい人たちｗｗｗ

Javaやってる奴がModule.vbは便利だと言ってた

こんな俺ルール全開なバカども久しぶりに見た

”だな”　で始まる人って、その上の書き込みの自演でしょ？
一人うざい長文＆その賛同。ｗ

単に量で分割してる奴ってｱﾎだろ

ここの受け売りみたいな気がするなぁ。
ttp://www.okisoft.co.jp/esc/go/style0.html

コメントなしで理解できるコードを書けってこの本だね。
ttp://www.amazon.co.jp/exec/obidos/tg/detail/customer-reviews/-/books/4774121738/250-5097188-0377856

いや、別にそんなもの誰か言いだしっぺというか提唱者がいる訳でなく、
誰でもそういう自明のコンセンサスだから。

まともなプログラマならねw

誰でもそういう自明のコンセンサスｗｗｗ
まともなプログラマｗｗｗｗ

はいはい自明自明ｗｗｗ
はいはいまともまともｗｗｗｗっうぇ

すみません。初心者でEＸＣＥＬのプログラムの配列計算が多くなり、
高速化を目的としてVB.NETに移植してます。

VB.NET上でEXCELを開いて,参照でVBAも実行できるようですが、
その部分はコンパイルされるのでしょうか？(EXCELの文法のみコンパイル
より速くなるのでしょうか？）

さ　れ　ま　せ　ん

>>711　
ありがとうございます。
互いに独立したものと考えた方がいいのですね。

VB.NET,ADO.NETを使用してOracleのストアドを実行したいのですが、出力パラメータで配列を使用する事は可能でしょうか？

>>713
バージョンとか使うプロバイダとか書いたほうが。
ODPでOKならORACLEにサンプルあるし、MS謹製のOracleProviderでのやり方はMSDNにあったような。
OLEDBでもパラメータの指定方法は書いてあるはず。

>>680
業務アプリならそれは普通
コメント率８０％とか、９０％位が適当（空行除く）

そりゃコードの10倍コメントあるのが
適切だっていってるのか？

普通に多くて３割だよね。
ただ、関数ヘッダとか装飾いれたら５割かも。

ヘッダコメント入れたら半分てのはありそうだが
9割は行かんな…
まあ状況によるね

コメントイラネとか言うヤツは、後で直す時の苦労を知らない学生レベルの意見だろ。
たとえバグなんぞ出てなくとも、クライアントのワガママで修正しなきゃならんのだよ。本職ならば。

>>719
宿題レベルのプログラムしかしたこと無い奴らを相手にするなって。

>>719
なんだかなあ。。
メンテの時苦労するのはコメントがないからじゃなくて、
コメントがなきゃ理解できないような下劣なコードからだよ。

こんなことプログラム書き始めて1年で普通は気がつく。
本気でコメントが大事とか思ってるとしたらそりゃ絶望的に筋が悪いんだよ、悪いけどw

それと（まあ大概のまともな）プログラマが「コメントは要らない」って言うとき、
当たり前だがそれは文字通りコメントが全く不要って意味じゃない。
よく言われることだがビジネスルールとか特殊な要求仕様はコメントがなきゃ
そりゃわかんないし。

―― コメントがないからコードが可読性がないのではなく、
可読性がないコードしか書けないからコメントを書きたくなるのだ。

この程度のことに気づかない低能に対するアンチテーゼとして言ってるのよw

業務を経験していない日曜プログラマの言いそうなことですね。
十万行のソースを相手にしても、コメント無しにトレースできると？

コメントにしてもコーディング規約にしても、自分に適用するルールと部下に適用するルールでは
全然違っちゃう。
プログラマだけで100人以上いたりするプロジェクトだと、かなりがちがちに書かせたりする。

>>722
いかにもダメな奴がいいそうなことだね。
というか、馬鹿じゃないの。それコメント是非の問題だろうかw

まあいい。
昔からよく「マジカルナンバー７」なんていわれるように
人間が同時に複数の対象やそれらの関連を認識する能力は意外と低い。

だから関数（構造化）やクラスでスコープってものを作るわけ。
問題を分割統治するためにね。小問題に分割して、一度に認識する必要がある対象を
減らして複雑性を小さくするために。

10万行だろうが1000万行だろうが、分割統治がきちんとなされたコードなら
何の問題もないよ。

722は構造化すらマスターしてないんだろうねw
でなきゃそんな恥ずかしいことは絶対にかけないと思う。

分割統治ってｗｗｗ
同一プロジェクトの案件でも、関わる設計者・プログラマ・顧客側担当者も
増えたり減ったり交代したりするのにｗ
引継ぎが不完全であることが暗黙的な前提で動く現場を知らない香具師に、
何を言っても無駄な気がｗ

コード内のコメントよりも、きっちりまとまったドキュメントが欲しい。
と、オプソでしか他人のコードを見たことのない日曜プログラマが参上しましたよ。

ちなみに「マジカルナンバー７」は短期記憶のチャンク数ですよ。

さらに言うならば、ここはVB.NET質問スレですよ。

>>725
言ってるそばから「マジカルナンバー７」ですかw
7どころかたった一つのことを話題にしているというのに。
馬鹿だね本当。

あのねえ、今何の話をしてるの？
プログラムのコメントの是非の話をしてるのね。
コメントなしでコードの可読性を確保できるかどうかの話をしてるのね。

引き継ぎの時困るだあ？
そりゃ馬鹿の書いたコード引き継ぐのは困るに決まってるよw
コメントの有無にかかわらずね。

まあ確かに可読性のあるコードかけない奴はせめてコメント書いてくれないと困る。
もし君の意図がそういう話なら大いに同意するよw

System.Windows.Forms.Button の BackgroundImage に画像をはりつけて、
見栄えのいいボタンにしようかと思ったのですが、
(コーナが少し丸くなっているような)
System.Windows.Forms.Buttonの四角い枠がどうやっても消せません。
この四角い枠を描画しないようにはできないでしょうか？

ふと、シェンムー（だっけ）という、ドリームキャストのゲームを思い出した。

>>728
リージョン

SQL文を発行しようとしてるんだけれどもどうしても例外がでてしまいます。
System.Data.Odbc.OdbcException　システムエラー
デバッガを見てみたら

Dim GoSQL As New OdbcCommand("SELECT count(*) FROM MOHADB.MOHETABLE where KETA1 like " & DIMKETA1 + "%" & " and KETA2 like " & DIMKETA2 + "%" & " and KETA3 like " & DIMKETA3 + "%", conection)

"%"となって欲しいのに%のみになってる。
ソースのこの部分をどうやって弄っても"%"になってくれない。
どうしたらうまくいきますか？

DIMKETA1、DIMKETA2、DIMKETA3は変数です。

& +

すまんこ

俺頭悪いからどこを&+にすればいいか分からないから"%"を"'%'"にしてみたらできた。

マジレスすると
"""%"""

マジわからんし！

EXEファイルやDLLファイル内のアイコンを列挙する方法が分かりません。
ttp://www.atmarkit.co.jp/fdotnet/dotnettips/280getappicon/getappicon.html
↑これ↑を参考にやってみたのですが、どうしてもインデックスが１のアイコンしか表示されませんでした。
どなたかご教授願います。

>737
　単にアイコンが1個しかないdllファイルを見ているとかじゃなくて?

>>738
[shell32.dll]なのでそれはないハズです。
それに、窓の手で複数のアイコンを含んでいることをしっかりと確認しました。

>>737
ExtractIconEx関数を使う。

>>740
的確な回答ありがとうございます。
試してみます。

言い忘れてたけど、それで取得したアイコンハンドルはDestroyIcon関数使わないとGDIオブジェクトがリークする。

VB.NETのドロップダウンリスト（DDL）で

・DDLの選択部を２段にしたい
・選択後、コード部分をDDLのTextに、名称部分をラベルに表示したい

こんな感じ
　↓DDL　　　　　↓ラベル
┌---┬--┐ ┌-------------┐
│001│▼│ ｜北海道　　　　　 ｜
├---┼--┴-┴----┴-------┘
│001│北海道 ｜
│002│青森県 ｜
│003｜秋田県 ｜
｜004｜岩手県 ｜
｜ ・ ｜　・ ｜
｜ ・ ｜　・ ｜

グレープシティ社のInputmanで実現しているので
なんとかコーディング可能だと思いました・・・
これを実現する方法をご教授願えないでしょうか？

DropDownListってことは、ASP.NET？

>>743
AA作る手間を惜しまないなら、その努力をもっと文章を練る方に向けた方がいいような。。

ASP.NETの質問もこちらでいいのでしょうか？
VB.NET-ASP.Webアプリケーションとデータベースを使ったサンプルデータなど公開しているページありませんか？
出来れば上記の条件で出来たオークションサイトのサンプルなど公開してるところがあるとありがたい。

>>744
いいえ。
Windowsアプリケーションです。
ComboBoxでしたね。。。

>>747
ComboBoxでそんなことはできない

>>743
７万円もする商用ソフトの一部機能を、自力で実装したいんですが
という意気込みはすごいと思う。実現できたらぜひフリーで公開し
てほしいな。

標準ComboBoxにアイテムを追加するとき、ラベル部分もあらかじ
め文字列結合してから入れたら、似たような効果が出るんでない？

>>743
> グレープシティ社のInputmanで実現しているので
金が取れるほどのものだってことだな。

まあ君には多分無理だ。

エクセルの配列計算をVB.NETに高速化のため移植していると書いたものです。
日曜プログラマがやっと完成と思ったら、エクセルより遅いです。orz

概要
ＶＢ2005でcreate object によりエクセルを開き、シート内にあるクエリからデーターを配列に収納する。
ＶＢ2005に書いたForm1.VB 上の関数プログラムで配列をもとにループさせ計算。
その関数をループでエクセルに貼り付ける。

というものなんですが、エクセル上でＶＢＡで書いたものより、ビルドしたものが遅くてめげました。

早くするには以下のどの項目が有効でしょうか。
1.関数内に標準偏差などはエクセル関数を参照使用してるので、これもＶＢ上で書く
2.ADO.NETでデータを受け取る。
3.エクセルを一切使わず、ＡＤＯ．ｎｅｔで受け、ＤｅｔａＧｒｉｄで出力。
4.関数の計算自体はVB.NETは実は速くないので、速くならない。

長々とすいません。

>>751
おまいさんの書いたコードが一切不明なんで、遅い原因がどこにある
のか特定できないよ。具体的な処理内容もわからないしさ。

中途半端にあっちこっち処理を移すより、どちらかで完結させた方が
いいとは思うけどね。ちなみにADO.NETはエクセルファイルのデータ
を直読みできる。

やってることがずれとる。
COMの呼び出しは重い。
そんなもの毎回呼び出してたら重くなるに決まってる。

ついでに、VBA側でもExcelオブジェクトへのアクセスは非常に重い。
セルの参照なんかは、回数をなるべく抑える。

>>752-754
ありがとうございます。

>>753
ＣＯＭの呼び出しとは、エクセル関数を使用してる点ですか？

やっぱり本などでは、そういう感覚がつかめないので助かります。
極力エクセルを経由しない方向でやってみます。

つかまずどこでコストかかってるのかを計測しろよ

>>755
処理したい関数や内容がコードで記述できるんなら、ADO.NET経由で
メモリ上に全データを転送してから処理すればいいと思う。これまで
エクセルの関数に頼りっきりだと、けっこう手間かもしれないけどね。

>>756
タイマーで区間に分けて計測は、厳しいです（技能的に）
目視ならｗ　クエリの作動は充分に早く、Ｆｕｎｃｔｉｏｎの計算とセルの転記に時間が
掛かってるようです。

>>757
はい　ウィザードを使ってアクセス（元データ）からデータグリッドまで落とす
フォームを造ったことがあるので、そこからやってみます。

エクセル関数は、標準偏差、相関係数なのでなんとか

みなさんどうも、やはり経験がないと分からないことが多いので、助かりました。

>>749
> 標準ComboBoxにアイテムを追加するとき、ラベル部分もあらかじ
> め文字列結合してから入れたら、似たような効果が出るんでない？

現在はそういう風にやってごまかしてます。

しかし、どれかを選択するとコードとラベル部分すべてが
ComboBoxのTextに入ってしまいます。
なのでLostFocus時にComboBoxのTextとラベル部分を
振り分けています。

>>750
悔しい・・・

>>759
どんな内容を表示しているのか知らないけれど、ComboBoxのアイテ
ムに説明文ってそんなに必要かなー？　コントロールを自作してどう
こうするよりも、画面設計とかユーザーインターフェースの改善でど
うにかするって手段もあると思うけれど。

煮詰まってくると、目的と手段が入れ替わってしまうことがよくある
しさ。

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

毎度毎度出てくる引数の　sender　とか　e　って何ですか？
文法的には何という項目を勉強すればいいのでしょうか？

>>761
> 文法的には何という項目を勉強すればいいのでしょうか？
イベント

>>762　どもです。

>>760
確かにたまに目的と手段が入れ替わることがある・・・

この目的は
コードを知ってる（覚えている）人は
ComboBoxのTextに直接入力してもらい、
（ラベルに出力するのは入力チェックも兼ねて・・・）
コードを知らない人は
ComboBoxから候補を選んでもらう
ってことでした。

たまたま隣のプロジェクトで
Inputmanでこれを実現しているのを見たから
自作できんかなぁと思ったのよ・・・

>>763
一行レス君はたいてい低能だからあんまり真に受けない方がいいよw

.NETは、というか最近の言語はどれもそうだけど、
初心者がこれを勉強すればこれがわかる、っていう風に単純になってない。
困ったことにある程度全体が腑に落ちてないと部分の意味がわからない構造になっているのよ。

たとえばイベントハンドラの引数の意味を理解しようと思ったら、
継承、デリゲート、.NETのイベントしくみ・・・などなどいろいろと理解している必要がある。

だから昔みたいに「習うより慣れろ」式で実践を重視（？）してると
永遠に上達しないと思われる。

>>743
ここの誰かさんがいってるみたいにそんな難しいことじゃないと思うが。
要はオーナードローするだけでしょ？それも単純にテキスト書くだけじゃん。

オーナードローがよくわからんとしても、コンボボックスのドロップダウンリストを
オーナードローするサンプルコードなんていくらでもあるんだからそれ見て改造するだけだと思うよ。

>>764
んで、現在はコードと解説をくっつけて暫定対処してるってことだよ
ね。同様のコントロールを多用するor見た目にこだわりたいってこと
なら、勉強して自作してもいいと思うんだけど。一部にこだわって全
体が滞ることの無いように注意してくれたまい。

誰かさんがオーナードローで簡単にできるって言い切ってるから、そ
のうちサンプルコードでも出してくれるんじゃないかな。

Imports System.ComponentModel

Public Class Form1

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

Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim kekka As Integer = 1 ' 計算結果
Dim progress As Integer = 0 ' 進行状況
For i As Integer = 0 To 9
System.Threading.Thread.Sleep(1 * 1000) ' １秒停止
kekka = kekka * 2
progress = (i + 1) * 10
BackgroundWorker1.ReportProgress(progress)
Next
e.Result = kekka
End Sub

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As System.Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
TextBox1.Text = e.ProgressPercentage.ToString ' 進行状況の表示
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As System.Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
TextBox2.Text = e.Result.ToString ' 計算結果の表示
End Sub
End Class

上は、BackgroundWorkerコンポーネントを使用して別スレッドを走らせてます。

（１）BackgroundWorker1_DoWorkメソッドでDoWorkEventArgsクラスのe.Resultでセットしたプロパティが、
BackgroundWorker1_RunWorkerCompletedメソッドのRunWorkerCompletedEventArgsクラスのe.Resultで
取れるんですが、ソースを見る限り繋がりが見えません。どうして取れるんでしょうか？

（２）BackgroundWorker1_ProgressChangedには進行状況として、integer引数を渡せるんですが、
変数kekkaも渡すにはどうすればいいですか？

要はよくある、処理状況のプログレスバーと、処理中のファイル名を同時に表示するような物を想定。
BackgroundWorker1_ProgressChangedで、プログレスバーなどを使って進行状況は表示できるんですが、
処理中の変数kekkaが渡せないんで、困っています。

>>768
> （１）BackgroundWorker1_DoWorkメソッドでDoWorkEventArgsクラスのe.Resultでセットしたプロパティが、
> BackgroundWorker1_RunWorkerCompletedメソッドのRunWorkerCompletedEventArgsクラスのe.Resultで
> 取れるんですが、ソースを見る限り繋がりが見えません。どうして取れるんでしょうか？

フレームワークが、DoWorkEventArgs.Resultの値をRunWorkerCompletedEventArgs.Resultに代入するから。

> （２）BackgroundWorker1_ProgressChangedには進行状況として、integer引数を渡せるんですが、
> 変数kekkaも渡すにはどうすればいいですか？

ReportProgressには引数二つ渡すバージョンも有る。
ProgressChangedEventArgsにもそれを受け取る用のプロパティが有る。

>>767
なんだかだなあ。。
だから.NETでは個別撃破式の学習はできんって言ってるのに。
個別の技術の意味がわかるためには面倒でも一度全体の概要を押えておく必要がある。
まあファーストインプレッションでこれがわからないってことはそもそも筋が悪いんだろうけどw

>>769
（２）解決しました。
BackgroundWorker1.ReportProgress(progress, kekka)でイベント発生させて、
e.UserStateで受け取るだけでした。。。どもです。

（１）フレームワークがそう定義しているのは、どこ見れば判るんですか。
DoWorkEventArgs.Result見ても、全然触れてないし。
ttp://dream.my-sv.net/upload/src/up0102.jpg

>>770
はいよ

質問です。変数strVarに次のような文字列

strVar = "[文字列1] < [文字列2] >"

が入っている時に、< >で括られている[文字列2]の部分を取り出したいのですが、どういった関数を使えばよいのか分かりません
Trim関数を使ってあれこれやってみたのですがうまくいきませんでした
どのようにすればよいのでしょうか？

System.Text.RegularExpressions.Regexクラス使う。要するに正規表現。
この機会に学べ。

>>772
String.IndexOfメソッドで<>の位置を特定してから、String.Substring
メソッドで中の文字列を引っこ抜くとか。

>>773-774
ありがとうございます！
ちょっと調べてみます

>>771
フレームワークが定義というより、BackgroundWorkerの実装でしょ。
イベントを発生するクラスを自分で書いてみれば仕組みは嫌でもわかるよ。
それもRaiseevent使うんじゃなくて、デリゲート使って、EventArgs継承して・・・
ってやり方でね。

個別撃破はできないってのはそういうこと。

フォームアプリケーションを隠す方法ってありますか？
【制約】
１. 2000/XP限定はダメ。
２. タスクマネージャのアプリケーションタブのリストに載らない。
３. [Alt+Tab]でそのアプリケーションにフォーカスの移動ができてはいけない。

透明人間現るって感じかなw
フォームがないアルよ

デスクトップのデバイスコンテキストに自分でウィンドウを書くとかしないと
無理な気がするけどどうなのかな。

実は卒業制作にV.B.NETでタイピングソフトを作っているのですが、キーを押したときにイベントを発生させるやり方がわかりません。誰か教えてください
それか、プログラムのおいてあるところか、プログラムを読めるところを知りませんか？

>>779
絶対ググれば出てくる。

>>777
1.はともかく2.が必要なソフトってどうよ？
ロガーでも作るつもりかな。

>>781
それプロセスタブの話じゃない？

おお勘違いしてたよ、すまんす。(´･ω･`)
表示中のフォームが無ければ、アプリケーションタブにも載らないん
だっけか？　そういう仕様で作ろうと思ったこと無いから、検討もつ
かないっす。識者さんよろしく。

質問です。
.netC#でWEBフォームの作成を行っています。

�@画面上で検索ボタンを押下
　　　↓
�ADATAGRIDにて検索結果を表示する（データ量が１０行以上ならスクロールバーを表示）
　　　↓
�B各データ行のボタンを押して選択（背景も変わる）
　　　↓
�C決定ボタンで親ページに渡す

上記�Bにて選択ボタンを表示、その選択ボタンを押すと、データの取得は出来る
用になったのですが、スクロールバーの下の方のデータ行の選択ボタンを押すと、
ページが再読み込み？され、スクロールバーのTOPが表示されてしまいます。
下位の選択ボタンを押した場合でも、その選択した行の箇所をそのまま画面上に表示させておくことは
どの様にすればよいでしょうか？

よろしくお願いします。

既出だったら申し訳ないんだけど、
ツールボックスみたいに、
タブを押したら、にょーんってメニューを表示しているコントロールを
フリーで配ってるとこ知らない？

抽象的過ぎてさっぱりわかんね
プログラマならにょーんとか言わんとハッキリ表現しろ

>>785すまそ。
タブを押したら、押された以外のタブは、上がったり下がったりして、
押されたタブのTabPageを表示してくれるやつ。
もちろん、標準のコントロールにはなかったし、
探してもサードパティのやつしか見つけきれなくってね。

ttp://www.vbaccelerator.com/home/VB/Code/Controls/ListBar/Visual_Studio_Style_ListBar/article.asp
↑こんな感じのを探しています。

VB6やActiveXのコンポーネントとしては、いくつかフリーで配布されているようですが、
VB.NETのコンポとしては、まだ探しきれていません。
どなたかご存知でしたら教えて頂けますよう、よろしくお願い致します。

ActiveXコントロールがあるならそれ使えばいーじゃん

EXE,DLLファイル内のアイコンの列挙についてした下記のリンクを参考にしてやってみて
一応出来たのですが、抽出したアイコンが減色(16色?)されて描画されてしまいます。
どなたか解決策をご教授願います。
ソースは以下のリンクとほとんど同じです。

ttp://66.102.7.104/search?q=cache:E_O9GYDBExQJ:www.sugi-family.net/papanvb/vbnet_tips.php%3Fcate%3D9%26tips%3D9004+ExtractIconEx%E9%96%A2%E6%95%B0&hl=ja

>>790
ImageList.ColorDepth

>>791
回答ありがとうございます。
お陰で瞬殺解決しました。

数年前からVB.NET(2002)を利用しているのですが
年に数回やるOSの再インストールの後に何度もCDを入れ替えてVBを
インストールし直すのがかなりおっくうです。
5枚組のスタンダード版なのですがうまく1枚のDVDに収める方法はないでしょうか？

五枚ってのはMSDNも入ってるのか。
全部を一枚は無理だと思うけどVSとMSDNはそれぞれ一枚にする方法があったはず。
まあやり方は忘れたんでスマンw

でも一枚のメディアにまとめるより、それぞれのCDをイメージ化しといてHDDに置いて
仮想ドライブソフト使った方がインストール短時間で終わるよ。

> 年に数回やるOSの再インストール

　 　＼　　__　　／
　 　　 ＿ （ｍ）　＿ﾋﾟｺｰﾝ
　 　　　　　|ミ|
　 　　／ 　.｀´　 ＼
　　　　　 ('A`)　 　　しなければいいじゃない
　　　　　ノ（　）ヽ
　　　　　 　くく

>>765,766
レス遅れましたが、
ComboBox、オーナードローでググってみたら
手がかりになりそうなものが検索されました。
もうちょっと頑張ってみます。
ありがとうございます。

OSとVSをインストールした直後のHDDイメージをバックアップしておけばいいじゃない

>>793
ひととおりインスコしたあと、丸ごとイメージバックアップを取って
おけば、復旧が楽でいいよ。うちはknoppixのPartImageでやってる。

>>797
( ･∀･) 人(･∀･ )

>>793>>794
VBとMSDNそれぞれを
一つのフォルダに納めることが出来る
一部のファイルの上書き警告が出るけど
無視してOK

>>794-795　>>797-800
レスどうもです。
自宅PCで趣味としてやっているのでちょくちょく環境の変化があり、
インストール後のイメージを保存、というのはちょっと無理っぽいです。
大したことをしているわけでもないので古いPCが1台あれば専用にできて便利なんですけどね。

ということで次回はイメージ化して仮想ドライブ、というのをやってみようと思います。
色々ありがとうございました。

ん？>>800さんによるとまとめてもOKってことですか。
Disk1〜4と環境アップデート用のCDが入っていてどれがMSDNか分りませんが
とりあえず上書きしてインストールしてみます。

うげ、よく読むと全部を1枚ってのは無理っぽいですね。何度もすいません。

いったい、自宅PCで趣味として何をやっていれば年に数回再インストするほど環境が変わるというのだろう・・・

>>789
僕もそう思ったんですよ。
で、ActiveXで作ったら、上司にVB.NETじゃないとだめって言われました。
今の開発は、標準以外のコントロール（標準をカスタムしたやつも含む）は、
１つのＤＬＬの中に収めているので、それに統一したかったんだと思います。

とりあえず、ソース配ってるとこもあるので、
それを参考に自分でコントロールを作ることにします。orzﾒﾝﾄﾞｲ