VB.NET質問ｽﾚ (Part13)

2005/11/12(土) 09:30:02

2005/11/12(土) 09:30:58

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

2005/11/12(土) 09:33:49

どぼん！の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/

2005/11/12(土) 09:35:01

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/

2005/11/12(土) 09:35:59

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

2005/11/12(土) 09:37:14

テンプレ完

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

2005/11/12(土) 20:56:20

厨房乙

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

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

2005/11/12(土) 21:40:35

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

2005/11/13(日) 13:25:36

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がエラーになるのは何故なんでしょう

2005/11/13(日) 14:05:40

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

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

2005/11/14(月) 09:52:47

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

2005/11/14(月) 10:00:21

お世話になります

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

ご教授お願いします

2005/11/14(月) 10:08:23

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

2005/11/14(月) 10:13:59

>>12
Timerコントロール。

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

2005/11/14(月) 10:18:55

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

2005/11/14(月) 11:10:32

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

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

2005/11/14(月) 11:43:16

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にできません。
そもそも要素を変更するのにこの方法自体が不味いのかもしれないんですけど
賢い方法ありましたらご教授宜しくお願いします。

2005/11/14(月) 13:08:37

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

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

2005/11/14(月) 13:30:03

doc.OuterXmlであかんの？

2005/11/14(月) 14:21:06

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

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

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

2005/11/14(月) 17:09:18

お世話になります

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

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

2005/11/14(月) 18:49:13

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

2005/11/14(月) 23:01:38

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

2005/11/14(月) 23:19:03

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

2005/11/14(月) 23:30:41

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

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

2005/11/14(月) 23:53:41

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

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

2005/11/15(火) 00:06:46

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

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

2005/11/15(火) 00:10:19

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

2005/11/15(火) 01:14:35

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

2005/11/15(火) 01:16:41

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

2005/11/15(火) 01:21:39

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

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

2005/11/15(火) 01:22:08

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

2005/11/15(火) 03:13:52

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

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

2005/11/15(火) 07:47:20

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

2005/11/15(火) 08:28:13

>>33に一票。

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

2005/11/15(火) 09:15:18

>>33に一票。

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

2005/11/15(火) 09:43:15

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

2005/11/15(火) 09:43:43

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

2005/11/15(火) 15:32:04

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

2005/11/15(火) 18:33:13

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

2005/11/15(火) 18:51:36

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

2005/11/15(火) 19:02:03

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

2005/11/15(火) 20:24:33

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

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

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

2005/11/15(火) 23:21:34

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

2005/11/15(火) 23:24:26

すみません、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

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

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

2005/11/16(水) 00:36:53

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

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

2005/11/16(水) 02:19:05

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

2005/11/16(水) 10:50:03

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

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

2005/11/16(水) 12:40:55

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

2005/11/16(水) 12:48:11

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

2005/11/16(水) 21:00:17

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

2005/11/17(木) 07:05:32

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

2005/11/17(木) 09:31:03

>>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 でアクセスするので正しいのでしょうか。
一見これで動いてはいるのですが……。

2005/11/17(木) 09:40:21

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

2005/11/17(木) 10:37:33

>>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から読み込むよりも遅い。。。

2005/11/17(木) 12:29:46

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

2005/11/17(木) 12:39:59

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

2005/11/17(木) 12:44:25

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

2005/11/17(木) 13:32:10

質問です。

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

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

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

2005/11/17(木) 13:58:48

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は幾つかあるが、さてオートコンプリートは可能だろうか……？

2005/11/17(木) 14:03:34

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

2005/11/17(木) 14:09:55

>>61
2005から。

2005/11/17(木) 14:33:55

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

2005/11/17(木) 14:36:17

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

2005/11/17(木) 23:52:22

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

2005/11/18(金) 00:59:28

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

2005/11/18(金) 01:52:22

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

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

2005/11/18(金) 13:03:22

お世話になります

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

2005/11/18(金) 13:25:52

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

2005/11/18(金) 16:05:25

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

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

2005/11/18(金) 16:07:21

>>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

2005/11/18(金) 17:31:12

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

2005/11/19(土) 01:02:59

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

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

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

　　　

2005/11/19(土) 11:58:00

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

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

2005/11/19(土) 11:59:05

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

2005/11/19(土) 12:26:05

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

2005/11/19(土) 12:31:50

>>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

2005/11/19(土) 12:32:38

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

2005/11/19(土) 12:33:24

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

2005/11/19(土) 21:04:33

誰かお願い致します。

教えて下さい。

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

2005/11/19(土) 21:13:30

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

2005/11/19(土) 22:07:39

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

2005/11/19(土) 22:59:51

>>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()を使えば任意のドライブの開閉ができるはずだけど、各ドライブのデバイス識別子を列挙する方法は、俺にも分からない。

2005/11/19(土) 23:00:50

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

>>82
Enum.Equals メソッド

2005/11/19(土) 23:02:57

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

2005/11/19(土) 23:05:19

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

2005/11/19(土) 23:12:28

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

2005/11/20(日) 00:11:12

>>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

2005/11/20(日) 02:04:07

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

2005/11/20(日) 02:08:10

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

2005/11/20(日) 02:30:06

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

2005/11/20(日) 02:37:57

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

2005/11/20(日) 02:42:14

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

2005/11/20(日) 02:57:29

ほとんど知識のないまま、作っていますので突っ込まれると困ります。
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

よろしくお願いします

2005/11/20(日) 03:11:39

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

2005/11/20(日) 03:26:30

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

2005/11/20(日) 03:32:17

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

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

2005/11/20(日) 05:56:35

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

2005/11/20(日) 07:52:25

>>83,87さん

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

2005/11/20(日) 10:04:04

おまいら優しいな

2005/11/20(日) 11:00:16

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

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

2005/11/20(日) 11:24:42

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

2005/11/21(月) 10:01:40

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

2005/11/21(月) 10:16:21

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

2005/11/21(月) 11:52:44

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

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

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

2005/11/21(月) 14:13:08

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

2005/11/21(月) 14:19:56

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

2005/11/21(月) 14:23:29

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

2005/11/21(月) 14:24:58

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

2005/11/21(月) 14:29:04

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

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

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

2005/11/21(月) 14:31:43

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

Dim j As System.UInt32

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

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

2005/11/21(月) 14:45:15

>>110
Regionプロパティ

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

2005/11/21(月) 19:02:57

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

2005/11/21(月) 19:37:57

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

2005/11/21(月) 22:15:20

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

2005/11/21(月) 23:43:58

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

2005/11/22(火) 01:00:51

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

2005/11/22(火) 01:02:29

方言も多いしな

2005/11/22(火) 06:57:29

↓CSV厨

2005/11/22(火) 18:21:25

プロセス間通信をやろうと思って
サンプルにあった
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

2005/11/22(火) 18:33:52

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

2005/11/22(火) 18:42:15

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

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

2005/11/22(火) 18:43:38

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

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

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

2005/11/22(火) 18:48:35

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

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

2005/11/22(火) 20:04:18

>>124
ﾄﾝｸｽｺ

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

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

2005/11/22(火) 21:38:12

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

2005/11/22(火) 23:25:49

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

2005/11/22(火) 23:29:38

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

2005/11/23(水) 02:53:54

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

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

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

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

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

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

2005/11/23(水) 09:33:01

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

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

2005/11/23(水) 09:55:07

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

>>130
ComboBoxのDropDownStyleプロパティ

2005/11/23(水) 10:46:07

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

2005/11/23(水) 16:47:20

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

2005/11/23(水) 16:53:18

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

2005/11/23(水) 18:42:14

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

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を
参照しています）と出ました。

2005/11/23(水) 18:44:17

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

2005/11/23(水) 19:04:08

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

2005/11/23(水) 20:34:36

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

まず、インストーラを実行すると、インストールが成功した旨の表示が出ます。
で、エクセルのマクロから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のプライマリ出力を追加
３：ビルド

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

2005/11/23(水) 20:57:12

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

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

2005/11/23(水) 21:56:41

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

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

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

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

2005/11/23(水) 22:40:17

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

>>139
BandObjectでも使えば。

2005/11/24(木) 01:28:13

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

2005/11/24(木) 09:02:22

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

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

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

2005/11/24(木) 15:00:19

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

2005/11/24(木) 15:07:36

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

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

2005/11/24(木) 15:46:01

>>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

2005/11/24(木) 18:49:16

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

2005/11/25(金) 11:26:55

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

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

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

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

2005/11/25(金) 11:30:54

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

2005/11/25(金) 12:58:39

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

2005/11/25(金) 15:29:42

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

2005/11/25(金) 15:47:00

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

2005/11/25(金) 15:48:58

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

2005/11/25(金) 16:13:28

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

2005/11/25(金) 16:29:50

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

2005/11/25(金) 16:30:01

int型に入れればいい

2005/11/25(金) 16:45:32

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

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

2005/11/25(金) 19:26:03

dr2は何なのかをさらせ

2005/11/25(金) 20:07:28

これです

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

2005/11/25(金) 20:32:50

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

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

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

2005/11/25(金) 22:59:44

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

2005/11/25(金) 23:02:23

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

2005/11/26(土) 00:25:52

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

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

2005/11/26(土) 00:29:12

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

2005/11/26(土) 00:33:52

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

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

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

2005/11/26(土) 07:55:13

本買って勉強しる

2005/11/26(土) 11:18:15

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

2005/11/26(土) 11:25:11

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

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

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

2005/11/26(土) 11:34:12

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

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

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

2005/11/26(土) 11:42:19

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

2005/11/26(土) 11:45:08

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

2005/11/26(土) 14:01:01

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

2005/11/26(土) 14:48:27

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

2005/11/26(土) 14:54:08

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

2005/11/26(土) 14:55:13

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

2005/11/26(土) 14:57:47

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

2005/11/26(土) 14:59:53

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

2005/11/26(土) 15:12:58

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

2005/11/26(土) 15:36:18

>>174
extern "VB"
とか？

2005/11/26(土) 17:32:22

つ　ILMerge.msi

2005/11/27(日) 04:10:32

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

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

2005/11/27(日) 04:18:43

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

2005/11/27(日) 11:05:26

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

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

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

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

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

2005/11/27(日) 11:08:48

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

2005/11/27(日) 11:15:03

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

2005/11/27(日) 11:16:35

スマート……か？

2005/11/27(日) 11:24:28

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

2005/11/27(日) 14:27:58

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

2005/11/27(日) 16:19:15

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

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

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

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

2005/11/27(日) 16:26:13

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

2005/11/27(日) 21:40:42

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

2005/11/27(日) 21:47:09

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

2005/11/27(日) 22:02:39

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

2005/11/28(月) 11:14:36

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

2005/11/28(月) 11:26:38

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

2005/11/28(月) 11:35:53

このプログラムです。

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となります・・・(涙
ﾀｽｹﾃ

2005/11/28(月) 12:02:23

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

2005/11/28(月) 12:04:51

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

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

2005/11/28(月) 14:55:23

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

2005/11/28(月) 16:49:27

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