VB.NET質問スレ (Part16)

[前スレ] VB.NET質問スレ (Part15)
http://pc8.2ch.net/test/read.cgi/tech/1143631763/

>>1000(前スレ)
CType(sender, TextBox).Nameが"textBox1"か"textBox2"で判断したら？

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/

The Code Project
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

テンプレが貼られないようだから、悪いけど勝手に追加させてもらい
ました。過去スレリンクは前スレと同様に外してます。

全スレ1000
そもそも名前である必要はあるのか？
単純に sender と TextBox1 の参照を比較するだけじゃ駄目なのか？

それを調べて何をしたいのかによるなあ。

Stackクラスについて質問です。

Stackに格納できる要素の数を制限する方法はないでしょうか？
Pushするたびに、ある数以上の要素になった場合、
古いものから削除したいのです。（常に最新のｘ個からだけPOPできればよい）
何か良い方法はないでしょうか？

なんのためにかなあ。必要なきゃpopしなきゃいいだけだと思うけど。。

Queueが欲しいんでしょ

>>11
>必要なきゃpopしなきゃいいだけだと思うけど。。

いえ、最新のもののPOPはしばしば必要なのです。
Undoちっくな動作をさせたいのですが、
追加する要素の一つ一つ（実際には数M単位のクラスの実体）が結構大きいため、
メモリの消費を少なくするために、せいぜい最新３，４個の要素だけ
保持しておきたいのです。

>>12
あくまでさせたい動作はFIFOではなく、LIFOです。

>>13
そこはかとなくウンコ設計の匂いがする。。
なんで参照のコピーじゃいかんの？
本当にクローンをバッファにぶち込む必要なんてあるのか？

質問に関してはStackじゃそれはできないと思う。
っていうかそれ既に純粋なスタックじゃないし。

多分自分でも分かってると思うけど、
配列をラップしてそういうクラスを作るしかないんじゃないかな。

クローンじゃなくて、消してしまうか参照をスタックに保持しとくかって
話だと思うが。
まあどっちにしても自作かな、やっぱり。

個数が固定なら循環バッファをちょっと変えたのがいいかもね。

|○○○○
push操作
|●○○○
push操作
|●●○○
pop操作
|●○○○
---------------
|●●●●
push操作
●|●●●
push操作
●●|●●
pop操作
●○|●●

こんなイメージかねぇ・・・。
デクがあるともっと楽チンに作れそうな感じだけどね

treeviewのノードを複数展開してトレイにアイコン化して復元するとカレントノード以外が
閉じてしまうのは仕様ですか？

トイレでアイコン化しないとだめだよ

VB.netでタイピングゲームを作りたいのですが、
基礎しか習っていないので何をしたらいいのか全然わかりません
アルゴリズム等、簡単に教えてもらえるとありがたいです。
参考になるHPや本なども紹介してくれるとうれしいです

10です。

>14-16
やっぱ自作しかないかな〜とは思ってました。

ウンコ設計の可能性は否定できません。。。
当方どうも論理的思考回路が欠如してるのは自覚しております。
もちろんクラス変数でStack定義してるので中身はクラスへの参照です。
ただ、参照のコレクションってことは、その先に当然実体があるわけで、
その実体の数を減らしたいために、コレクションの要素数を制限したかったのです。

Stackそのまま使えたら楽だな〜と思ったんですが、やっぱ自作しますです。

レスありがとう！

VB.netで条件（文字列）を入力して、csvファイルを読み込んで条件に当てはまる
ものをcsvファイルの中から検索するプログラムを作ってみようと
思ったのですが、どうやってcsvファイルと条件（文字列）を比較して
いいかわかりません。
また、csvファイルを何行何列で指定して比較できるか。などわかりません。
やり方をご存知の方、またはこれに使えそうなサイトを知っている人
がいましたら、教えていただけると幸いです。

>>21
CSVファイルと言えども、単純なファイルの読み書きと文字列の操作で処理ができる。
CSVファイルの大きさに制限が入ってよいならCSVファイルを1行ごと読み込んで
それをカンマで区切って(splitメソッドなどを使用)配列にいれるなり、コレクションに入れるなりすればよい

>>21
こんな感じじゃなかろうか。実行してないから動くかしらねｗ


'TextFieldParserでファイル開く
Dim reader As New Microsoft.VisualBasic.FileIO.TextFieldParser("c:\test.csv")

reader.TextFieldType = FileIO.FieldType.Delimited
reader.SetDelimiters(",")　　　'デリミタはカンマ

’現在行をフィールドに分解した結果を格納するString配列
Dim currentRow() As String

Dim colCount As Integer　　　’カレント列

While Not reader.EndOfData
currentRow = reader.ReadFields()

colCount = 1
For Each field As String In currentRow

If field.Contains("条件") Then　　　’検索したい条件をこんな感じで検索する

Debug.Print(reader.LineNumber - 1 & "行目の" & colCount & "列目にあるお！")

End If
colCount += 1

Next

End While
End Sub

ageちった＆tabが潰れてるorz

コントロールを配列にする方法についてなんですが、
http://dobon.net/vb/dotnet/control/buttonarray.html
ここに書いてある方法（newして、サイズ指定して、場所指定して・・・を繰り返す）ではなく、
既存の、デザイナで配置したコントロールを配列にしたいんですが、どうやるんでしょうか？
おねがいします。

自分で配列作って放り込め

具体的な方法を教えてもらえると嬉しいです・・・
普通にtextbox1とかを配列にほうりこんでも、型○○の値を○○の１次元配列に変換できませんってでます。

まず MSDN で配列のお勉強からだな。
Visual Basic における配列　以下一通り目を通せ。

そんなこと言わずに教えてくださいよぉ〜〜〜

25はVB6以前のコントロール配列相当のことをしたいって意味じゃないの？
（正直、だったらそのように書けよ、と思う）

旧VBのコントロール配列に相当する機能は.NETにはないよ。
つーか、そんなへっぽこならMSにある移行ガイドぐらい読めよ

>>27
>>26は十分具体的だと思うんだが。
つーか、参照先のアドレスに書かれているソース、ちゃんと読んでる？
２番目に配列作って放り込むソースが書いてあるんだが。

>>21
ほんとだ！見逃してました。どうもありがとう！

おまいのうっかりさんぶりが、図らずも証明されてしまったわけだが。

Graphicsクラスに単純に点を描画するメソッドがないのですが・・・
.Net Frameworkの範囲内で（WindowsAPIを呼ばずに）
点を描く方法はないでしょうか？

FillRectangle
数学的には点というのは幅も高さも0なので意味がない、と言う判断のようだな

>>35
やっぱりFillRectangleとか使うしかないんですかねぇ
まあ内部処理的には点を描くのも、幅・高さが1のFillRectangle描くのも
あんまかわんないだろうからいいとするか(*´д`*)

ありがとう〜

ピクセル単位の操作が必要なときはBitmapオブジェクトの GetPixel, SetPixel を使う。

VB2003を使用しています。

MDI親フォームから子フォームを呼び出して動作するアプリを開発しています。
Windowsタスクマネージャを見ていると、子フォームを開くとメモリ使用量が
増えるのですが、そのフォームを閉じてもメモリ使用量が元に戻りません。

MDI親フォームでは下記のようにして子フォームを呼び出しています。

Sub Form_Show()
　Dim f As New Form1
　With f
　　.MdiParent = Me
　　.Show()
　End With
　f = Nothing
End Sub

この f を Dispose してしまうと子フォームは閉じてしまうし。。。
子フォーム側で閉じる際に何か処理をしなくてはいけないのでしょうか？

気にすんな。
そのうち GC が片づけてくれる。

そんなもんスか・・・？
なんかアプリを使用し続けているとだんだんと動きがモッサリしてきます。
さらに長時間使用していると「仮想メモリの値が（ｒｙ」となります。

GCが片付けてくれる「そのうち」って、もしかしてアプリ終了時？

基本的には後始末不要だけど、何か必要なら
作った子フォームのクローズイベントとかに、親側の関数をAddHandlerしとけばいいんじゃないの？
そうすれば作った子供が死んだら、風の便りが届くようになる。

IHTMLElement とかを適当に食い散らかしてたらそうなるかもな

MDI親フォームを最小化すればなぜかメモリ使用量はかなり少なくなります。
そして元のサイズに戻すと、最小化する前と比較するとかなり少なくなっています・・・

>41 これから試してみます。
>42 そういうものは使用していないんですが・・・でもAdo.Netを使用しているので
その後処理も再確認してみます。

っていうか、>>40みたいな現象が起こるとしたら、
そりゃチミが書いたコードが腐ってるんだよw
あたりまえだろ

ダメな奴の特徴として、何でもかんでもMSのせいにするんだよなw
問題の切り分けもろくにしないうちから

VBでvolatile使いたいんですぅ

あきらめれ。

>>45
SyncLockやら同期オブジェクトを使う。volatileは手軽そうに見えて割と制約が多い。
その上C/C++のvolatileは動作が違ったりするので混乱のもと。

>>43
CLRのメモリの状況を見たいならパフォーマンスモニタの.NET CLR Memoryを見る。
タスクマネージャのメモリ使用量はワーキングセットなので指標にならない。
MDIの子フォームを閉じるタイミングで開放されてない非マネージドリソースがあるんじゃないか？
コンポーネントの非マネージドな部分が確保したメモリが大きくてもマネージドな部分は小さいことが多いので、
自然なGCにたよっててもなかなか開放されずにメモリ不足に陥ることがある。
GCはマネージドなヒープが不足したとき初めて起きるもので、非マネージドのメモリが足りなくなってもGCは発生しない。

まあ普通は Disposed なり Closed なり Protected Overrides Dispose なりで片づけるもんなんだがな

ファイルが画像かどうかって拡張子以外で調べる方法ありますか？

バイナリでヘッダを読んで識別するとか。

Image.FromFile で例外が出るか確認するという強引な手を取るとか

そういうメソッドは用意されていないんですね。
tyr&catchで対応しました。
ありがとうございます。

そうかtry&catchでファイル画像かどうかわかるんだ

すいません、また質問なんですが、
画像に線などを描画して、保存してみたのですが、描画したものが反映されません。
どうすれば反映されるんでしょうか？

>>54
それでいけたんだけど、画像じゃないファイルを表示しようとまずtryするんで、
catchするまでに２秒ほどスリープされます。

>>55
Graphics.FromImage

質問する奴が馬鹿なら回答者もしったかぶり野郎かw

同じ初心者のする質問でも共感できるのとできないのがあるよ。
自分でろくに調べも考えもせず、安直に人に聞いてるのがミエミエの質問になんか
普通死んでも答えたくないだろ。

回答できないやつにそんなこと言われてもなぁ。
まあそんなの自分を責めるなって。

環境：.NET 2003＆Oracle
SQLのSYSDATEでOracleサーバから日付を取得し、「yyyy/mm/dd」という形で変数に格納したいのですが、うまくいきません。

SQLの使い方が悪いのでしょうか？よろしくお願いします。

StrHiduke = String型
dbDataTable = DataTable型

dbAdapter = New OracleDataAdapter("select to_char(sysdate,'yyyy/mm/dd') from Table名", dbConnect)
dbAdapter.Fill(dbDataTable)
StrHiduke = dbDataTable.Rows(0).Item(0)

「うまくいきません」じゃわからないよ。
どのタイミングで、どんなエラーが出るのか明記してくれ。

StrHiduke = dbDataTable.Rows(0).Item(0)
でDBNULLとか言われます。

型"DBNull"から型"String"へのキャストが有効ではありません。
こうでます。

問題はキャストできないことではなくて、DBNullが帰ってくることだ。
↓
SQL自体に問題は無いだろうか？
↓
SQLを生成した時点でブレークして、どんなSQLが実行されようとして
いるのか確認してみよう。

‥‥と、ふつうなら考えるだろうな。
つか、簡単に取得できるクライアント側のシステム日付を使わないのは
なぜ？

SQL Plusでselect to_char(sysdate,'yyyy/mm/dd') from Table名
を実行するとちゃんとに日付が出ます。

SYSDATEを使えとの仕様なので、なぜと言われても(^_^;)

じゃ、dbDataTable.Rows(0).Item(0)の中身はなに？

Oracleの環境が無いから試せないが、フィールド名に名前をつけるとか、特定の型にキャストするとかその辺でどうでしょう。

もしDUAL表を使った１行１項目の問い合わせならAdpaterなんて使わずに
OracleCommand.ExecuteScalar　で済ませない？

>>64
C/Sならサーバサイドの時間を使うなんて普通だろ
むしろクライアントサイドの時間なんて動作ログや乱数のシード以外に使い道は無い

おはようございま〜す。
質問があるんですけど〜

VB.netのトラックバーコントロールを
かっこよくデザインする方法ってどうやればいいんでしょうか。
たとえばWMPの音量バーみたいな感じにしたいんですけど。

一から書く

なんかカッコいいコントロールバーのライブラリ置いてあるページとかないですかね〜

>>71
お前のかっこいい基準はなんなんだ？

72っす

>>71
ごめ、69だったのか　見落としてた
グラフィック自作でやればいいんでね？

つまみが困徒労瑠婆になってるような奴か

iniファイルを操作するクラスが見当たらないのですけど、
ないのでしょうか？

基本クラスライブラリにはないな

XMLを使ってみたら？

ttp://dobon.net/vb/dotnet/file/xmlserializer.html

わかりました。
xmlを使ってみます。

すいません、VBマクロが少し分かる程度の初心者です。

テキストエディタで”３１”と打ったテキストファイルを読み込み、
VBで変換して、ファイルに書き込み、バイナリエディタで開いたときに
３１と表示させたいのですが、どのように変換したら宜しいでしょうか？

文字列「３１」⇒変換⇒「１」
文字列「８０」⇒変換⇒「・」
など

上記の変換の方法が分かりません。


ちなみに、ファイルのopen , close , read , writeはプログラムできました。

全角→半角変換とバイナリデータの書き込み方法を調べる

Asc関数もな

GraphicPathで作りあげた図形を回転させることって可能ですか？
RotateTransformっていうそれっぽいのを使ってみたんですが、一部しか回転しませんでした。

オンラインゲームを作っているのですが、
ネットワークプログラミングの知識が劣るので助け舟をください。

ネットワークゲームでTCPサーバー、クライアントプログラムを作るとき、
やはり非同期接続式にしないとだめでしょうか？

そんなレベルで作られたゲームやりたくねーなー

やりたい、やりたくないを聞いてるのではないのですがorz

おまえがどんなゲーム作るかなんて知ったこっちゃない

知りたい、知りたくないを聞いてるのではないのですが

いや、知りたいから質問スレで質問をしています。
大人気ない煽りは止めていただきたいです。

サーバーエクスプローラーで接続のテストは成功したのに、OKを押すと

データベースに接続できません
このバージョンのVisual Studioを使った場合に限り、SQL Server Desktop Engine
データベースおよびMicrosoft Accessデータベースに接続することができます。

ってでます。これってひょっとして（も何も）MySQLにはVB.Net 2003では
MySQLに接続できないってこと？？？？

そんなレベルで作られたデータベース使いたくない

煽り、煽られのスレに改名しろ

>>84
>>84
>>84
>>90
>>90
>>90

文体が同じだから同一人物だな

>>83
>>非同期接続
そのあたりは好みだと思うんだが。

駄目とか聞いてるけど、つまり非同期接続は嫌だってことか？

VBのフリーの開発ツールってありますか？

>>95
.net faramework2.0SDK+SharpDevelopは？

俺はこれしか知らないがこれって意外とマイナー？

Express Edition がある以上、最早……

>>97
開発環境はないんじゃないか？

>>96-97
調べてみたいと思います、ありがとうございました。

だれか>>82よろしくおねがいします。

GraphicsPath.Transform 使え。

>>98
な、何を言っているのかね？

>>101
ありがとうございます。
これは移動するだけで回転はできないんでしょうか？？

>>103
ttp://thesource.ofallevil.com/japan/msdn/net/books/ProgVBNET/chapter18.asp

Express EditionってWindowsSP2必須かよ

それって次世代ＯＳ？

WindowsXP SP2

Vistaの無償ダウンロードはじまってるよ

>>108
プロダクトキーのメールは届いたが、込み合っててダウンロードできねぇ
込み合ってますのが面が文字化けしてるし

かなり必死に探したものの見つからないので、質問させてください。
株なんかの取引を自動化したいのですが、どうしても、
「特定の座標にマウスを移動させて、クリックする」という作業が発生するのですが、
これを簡単に実行するには、どうも「なでしこ」ぐらいしかみあたらないのです。
なでしこだと、ちょっと安定性に不安が残るのと、ちょっとした計算ぐらいはするし、
なんとなくですが、ＶＢとかＷＳＨみたいなものでも簡単に出来そうな気がするので、
何かヒントになりそうな情報がありましたら、是非ご教授ください。

>>110
514 名前： デフォルトの名無しさん [sage] 投稿日： 2006/06/11(日) 13:41:24
かなり必死に探したものの見つからないので、質問させてください。
株なんかの取引を自動化したいのですが、どうしても、
「特定の座標にマウスを移動させて、クリックする」という作業が発生するのですが、
これを簡単に実行するには、どうも「なでしこ」ぐらいしかみあたらないのです。
なでしこだと、ちょっと安定性に不安が残るのと、ちょっとした計算ぐらいはするし、
なんとなくですが、ＶＢとかＷＳＨみたいなものでも簡単に出来そうな気がするので、
何かヒントになりそうな情報がありましたら、是非ご教授ください。
515 名前： デフォルトの名無しさん [sage] 投稿日： 2006/06/11(日) 13:47:46
>>514
っmouse_event API

マルチすんなヴォケ　なんて言葉が飛び交わないここは平和だなぁ

３角形の１辺がカーブしているような図形を描いているんですが、うまくいかないんです。

myPath.StartFigure()
myPath.AddLine(60, 10, 10, 10)
myPath.AddLine(10, 10, 10, 60)
myPath.AddArc(10, 10, 100, 100, 180, 90)
g.FillPath(Brushes.White, myPath)
myPath.CloseFigure()
g.DrawPath(Pens.White, myPath)

これは、うまくいくんですが、

myPath.StartFigure()
myPath.AddLine(10, 110, 60, 110)
myPath.AddArc(10, 10, 100, 100, 180, -90)
myPath.AddLine(10, 60, 10, 110)
g.FillPath(Brushes.White, myPath)
myPath.CloseFigure()
g.DrawPath(Pens.White, myPath)

角度を変えた、こっちがうまくいきません。
２つ目のコードだけ、三角形のカーブさせたいところに直線が引かれてしまいます。
なんででしょうか？？分かる方、お願いいたします。

スイマセン。質問させてください

VB.NETでボタンを作成し7バイトで改行するように幅を調節したのですが、「12345678」と言った文字だと「7」と「8」の間で改行するのですが、
「いわし(ﾊﾞﾗ)」のような文字列だと「し」と「(」の間で改行されてしまいます。
これを「(」と「ﾊﾞ」の間で改行させるためのプロパティや方法は有りますでしょうか？
ちなみにフォントは「MSゴシック」

自己解決しました。
addArcの角度の指定に誤りがあったようです。
ありがとうございました。

>>114
button1.Text = "いわし(" + Environment.NewLine + "ﾊﾞﾗ)"

VBを勉強しようと思いフリーの開発ソフトを調べてみたら
.NET FrameWork SDKと、VisualStudio EEの二つを見つけることができました
ですが、VS EEはSP2環境必須だったので諦めざる終えず、FrameWorkという物にしようと思うのですが
こちらはどうやら毎回DOS環境でしかコンパイルできないみたいで少々不憫に思いました
それでもしこの他に便利なものがあればそれに越した物が無いと思い、VBを扱えるフリーの開発ソフトはあれば教えていただけないでしょうか？
よろしくお願いします。

釣れますか？
どうやら入れ食いとはいかないようですなw

>>118
WIN98ユーザーをなめんな

http://blogs.itmedia.co.jp/tamaki/2006/06/post_57ab.html

コメント欄も注目。

いや釣りではないんですが・・・
SP2は場合によっては不都合が出るらしくて入れていない人は多いみたいですよ

SP1はあと4ヶ月でサポート終了だから諦めてSP2入れろ。

SP1サポート終了しても使い続ける人↓

ノシ

>>117
SharpDevelopでぐぐれ。

>>120
なんて言うか、ヒューマンスキルって大切だよなと気付かせてくれた。

いまどき、SP2じゃ動かないソフトを使い続けるのはどうかと思うがね

遅くなりました

>>124
>SharpDevelop
こんな便利なツールがあったんですね、感謝します

>>125
SP2でしか動かないソフトの話ですよ>VisualStudioEE

vb.net(2003) のグリッドコントロールは、非連結では使用できないでしょうか？
(必ずデータベースとの連結が必要？)

WinForm か ASP.NET かどっちだ？
ま、別に連結せんでも使えるがした方が楽。
そもそも連結対象はデータベースじゃなくて DataSet/DataTable 。

>>127
DataSetとペアになってればいいから、DBからではなくDataSetオブジェクトを直接コードで生成する。

>>128
すみません。Windows Forms でした。

>>129
DataSet オブジェクトに直接コードで、という事ですが、グリッドの、行列を指定して直接値を
投入する、という事はできない、という事ですね。

DataSet/DataTable とグリッドをペアで使う必要がある、と。

インメモリのDataSetにも、フォーム上のDataGridにも値を投入する
ことは可能だよ。テンプレサイトで検索したらコードも見つかる。

MsFlexGridでUnicodeの表示は可能ですか？

>>22
>>23
回答ありがとうございます。
やってみます。

すみません。どなたか教えてください。
不特定の長さの文字列に、4文字毎にスペースを入れる
為にはどのようなコードをかけばいいでしょうか？
例えば
"ABC_EFG_HIJKLMN_OPQ"
(_はスペース)
などとありましたら、"ABC__EFG__HIJK_LMN__OPQ" と出力したく思います。
よろしくお願いします。

for i=0 to len(x)/4: mid(x, p*4, 1) = mid(x, p*4, 1)+" ":next

正規表現でもよさげ
y = Regex.Replace(x, "(....)", "$1_")

>135
>136
おふた方どうもありがとうございます。
正規表現面白そうですね。調べてみます。

VB.NETにおけるRaiseEventステートメントは
C#だと
if (handler1 != null)
{
handler1(this, e);
}
と同じだと思っているのですが、
C#で以下の様に書いたのをVB.NETのEventでもやりたいのですが
できるでしょうか？？
if (handler1 != null)
{
handler1(this, e);//イベントハンドラがセットされている場合呼ぶ
}
else
{
otherProc();//セットされていない場合別の処理を呼ぶ
}

自分で調べた感じでは
Event EClick As System.EventHandler
のようにEventとして宣言してしまうと
VB.NETではできない（C#ではできるのに）
という結論になりつつあるのですが。。。
Eventではなく単なるDelegateとして
Dim EClick2 As System.EventHandler
のように宣言すると可能ですが、もちろん「Event」として
扱ってくれないのでVS上で雷マークで出てきてくれません。

VB8(VB2005) でカスタムイベント使えばできる。
でも正直それはイベントの使い方が変。
裸のデリゲート使った方が良いかも。

カスタムイベントですか、調べてみます。
2003ではこれは仕様ですね。。。

Public Sub Mona(ByVal a As Object)
　Dim b as 引数の型
End Sub

引数aがintegerだったら、Monaの中でbはintegerを宣言
引数aがdoubleだったら、Monaの中でbはdoubleを宣言のようなことってできますか？

オーバーロード作れ。

>>142
オーバーロードについて調べた方がいいよ。
っていうか、最低入門書ぐらい一通り目を通せよ。
人に質問なんてそれからだろ。

あ、でもオーバーロードは継承を理解してないと危ない場合があるから
継承もついでに勉強しましょう。

2005ならジェネリックもあるけどな

型パラメータで受け取った引数に対して算術演算はできないんだよ……。

>>143-147
THXです
オーバーロードでやってみます

>>144 ←えらそうな奴だな(　ﾟдﾟ)､ﾍﾟｯ

>>149
常識を言っただけだろ。

ところで、論理シフトって組み込みの機能で用意されてないのかな
やっぱり、例えば次のようにやるしかない？

Public Shared Function LogicShiftRight(ByVal x As Integer, ByVal amountOfShift As Integer) As Integer
Dim bitMask As Integer = &H7FFFFF >> amountOfShift

Return ((x >> amountOfShift) And bitMask)
End Function

あ、微妙に正しくないな。たぶんこう修正しないとダメだ。

Public Shared Function LogicShiftRight(ByVal x As Integer, ByVal amountOfShift As Integer) As Integer

If amountOfShift < 0 Then Return LogicShiftLeft(x, amountOfShift)

Dim bitMask As Integer = &H7FFFFF >> (amountOfShift - 1)

Return ((x >> amountOfShift) And bitMask)
End Function

windowsアプリでのDBConnectionはSQL実行するたびにopen closeするものなのでしょうか？

それともアプリ起動時に1回openして終了時にcloseという感じなのでしょうか？

>>152
SQL実行後とにopen/closeは論外だろうが
フォーム単位とかイベント処理の単位とかならあり
最近のはコネクションプールされてるからopen/closeのコストもたいしたこと無い
無用なセッションの増加やトランザクションの維持を避ける事と秤に掛けて検討するのが良い

ADO.netならコネクションぷーリングが働くと思うが。
だから、毎回（検索の場合、更新はトランザクション単位で）開閉するのが当然。

>>38
亀だが…
http://support.microsoft.com/kb/895474/

誰か継承を説明してくれないですか？
本とか読んでてもいまいち理解不能・・・

本読んでも分からないのに掲示板のレス数行で説明されて理解できると考えるあなたの頭がいっそ愛おしい

>>156
そういう技術を一から解き明かすようなことを掲示板に求めたって無理だろw

MSDNライブラリのチュートリアルとか、案外丁寧に書いてあるからあれ読めば
理解できるでしょ。

あとMSDNライブラリに『プログラミング Microsoft Visual Basic .NET』って本の、
ちょうど継承の部分を抜粋した奴が入ってるけど、けっこういい文章だよ。
アメリカのエンジニアらしく、論理的で網羅的に書いてあるし。

http://www.microsoft.com/japan/msdn/net/books/ProgVBNET/chapter5.asp

Javaの入門書を買って読むといいよ

vb.net(visual studio 2003) の windows forms で質問です。

1) フォーム内で FLASH の SWF ファイルを再生する事はできますか？
2) Windows エクスプローラのように、コピー中などのアニメーションを表示させたいのですが
どうやって実現したらよいかわかりません。
アニメーションはどうやって実現できますでしょうか？

アドバイスを頂けるとうれしいです。よろしくお願いします。

>>160
1) AxWebBrowser
2) SHFileOperation

>>161
ありがとうございます。

1)AxWebBrowser を調べてみましたが、ブラウザコントロールだと思うのですが Flash Player のプラグインが
インストールされている前提が必要になるようです。
そういった前提条件なく flash を再生する方法はないでしょうか？
(VB.NET のコントロールで flash を再生できるとベストなのですが)

2) SHFileOperation ですが、私の説明がまずかったのですが、
ファイルのコピーや移動が行ないたいのではなく、例えばエクスプローラなどで
ファイルのコピーを行なうと、アニメーションが表示されると思います。

これを、自前のアプリの中で同じように、何かの処理中にアニメーションを表示したいのですが
vb.net のアプリの中でアニメーションを表示させる定石みないな事があれば教えてください。

アドバイスのほど、よろしくお願いします。

>>162
1)無理
でも、古いバージョンのSWFなら標準のflashプラグインで行けるよ

2)AVIファイルを貼り付ける

>>162
> そういった前提条件なく flash を再生する方法はないでしょうか？
> (VB.NET のコントロールで flash を再生できるとベストなのですが)
Flash は Microsoft の製品じゃない。

> これを、自前のアプリの中で同じように、何かの処理中にアニメーションを表示したいのですが
> vb.net のアプリの中でアニメーションを表示させる定石みないな事があれば教えてください。
アニメーションGIF 使うかタイマで書き換え。

しかしなあ、160みたいな人がプログラミングって……

パソコンの存在を前提とせずにエクセルを使いたいのですが、
みたいな電波な質問をする人はこの世界入っちゃダメだと思うけど。

プログラミングってそんな特別な作業でもない。
誰にでもできるよ！できるよ！（ＡＡ略

>>166
それはプログラミングでは無い
コードの編集作業だ
プログラミンは選ばれた者だけが行える至高の労働だ

まあ、上から指示された通りにコーディングするだけじゃプログラマ
とは言えない罠。仕様書に沿ってアルゴリズムを組み上げて、ムダな
くムリなくバグも少ないコードが書けてこそだ。

上から指示された通りにコーディングするだけ＝コーダー≠プログラマ

死んだじいちゃんに言われた。「コーダーだけにはなっちゃなんねぇ・・・」って

いまどきコーダなんて存在するのか？

>>170
ttp://pc8.2ch.net/test/read.cgi/prog/1150027539/

お願いします。教えてください。
宿題で、　「与えられた半角文字列中に含まれる単語のうち、 　　　　　　最も多く出現する単語を返す関数（MostFrequentWord） を作成しろ。条件として大文字、小文字を区別しない。
　　　　　　返される文字は最初に出現した表記。２つ以上の単語が
　　　　　　同数の場合、先に登場したものとする。 配列の考え方を利用せよ。」
という問題があるのですが、
　この問題の前に、与えられた文字列中に含まれる単語の数を返す関数CountWords を作れという問題もあり、それは、何とか出来たのですが、 　今回の問題に、この関数CountWords を利用して作成する。みたいな事らしいのです。
　最終的に作成した関数MostFrequentWord を用いるとprint FrequentWord("I love you. You love me.")

実行結果　love となるように作るみたいです。
また 、　作成した　CountWords　を用いると、この場合　

CountWords("I love you. You love me.")
実行結果は　6　と返されます。

　分からない事があるのですが、　この与えられた文字列　"I love you. You love me."

は配列として考えることはできるのですか?

どなたか 教えて下さい

単語一つ一つを分けて配列に入れるという意味だと思う

CountWordsで用意する配列の数を求めるんだと思う

VB関係ない気がする。
文字列を配列として考えるのではなく、単語を配列の要素として考える。
６個の単語があるのだから、要素数６の配列が出来るよね。
６はループの回数とでもして使わせようとしてると予想。

既に答えが上がっているけど、せっかく書いたのでうｐ

問題の意味を質問するスレ

>>160
プログレスバーだっけ？
あれ使えばできる

にゅ

VB.NETでGAMEって作れますか

GAMEの定義次第

問題の意味を質問するスレ

マリオみたいなアクション系＆グラディウスみたいなシューティング系
スマブラ（ネット対戦）
この３つ出来ますかね？

できん事は無かろうが、おまいさんにその技術があるようには見えないな

C#だけどMSにQuakeIIがソース付きであったよね。

まずはブロック崩しを作ってみればいい。
コントローラやボールの移動、衝突判定など盛り沢山だ。

商用ゲーム作ってるとこって実際どんな言語使ってるんだろ

コンシューマのはCやC++だろ

メーカからライブラリがCインターフェースのAPIで提供されるからな

ゲームって基本的に全体をループさせて、その中で色々な処理させてるの？
移動とか当たり判定とか

初心者が作るとそうなる

初心者じゃない人が作るとどうなる？

VBの宿題を教えてもらえるスレってないのでしょうか？

初心者が作らなくてもそうなる

DirectX もそう言う作りだしな

VBでWindowsフォームを使用したアプリケーションを作成しています。
そのフォームで処理をすると、フォームが固まってしまいます。入力も受け付けてくれません。画面も真っ白になってしまいます。
ただ、バグを起こしているとか無限ループとかではありません。
途中で、メールを送るような処理をさせているのですが、メールもちゃんと送られています。
これでは、ユーザーからは、バグっているように見えてしまいます。これは何が原因なのでしょうか？また、対処法はあるのでしょうか？
ご存知の方、よろしくご教授願います。

処理に時間掛かってるだけじゃねーの

>>195
ループしてる処理があるなら、DoEvents入れてみるとか。

>>195
http://www.atmarkit.co.jp/fdotnet/dotnettips/136doevents/doevents.html

こんな状態になってると思われる。

>>195
どう贔屓目に見てもそういうのバグっていうんだよw
少なくともユーザーから見たらバグ以外のなんでもない。
こんなとこで自分を正当化して何になるんだよ

ついでに対処法について。
DoEventsとかいってるヨタは無視してよろしい。
普通にスレッド起動して、重い処理はそこで実行するようにしましょう。

.NET 2.0/VB2005 なら BackgroundWorker マジオススメ

本当に重くてそうなってるんかが問題だがな
CPU使用率見てみ
低ければリフレッシュで再描画とかしてみ

処理に時間が掛かってるのと CPU の使用率とは関係あるまい
Thread.Sleep(10000) とかな

>>195
>>メールを送るような処理をさせているのですが、メールもちゃんと送られています。
かなり勘で言うけど、メールを送った後の応答待ちでフリーズかましているだけとか？

195です。
みなさん、ご回答ありがとうございます。
処理には、確かに2時間かかります。それを一日に何度も繰り返します。
この処理中でも、バックアップ処理や他の業務アプリは正常に動いていました。
私もスレッドで処理したいのですが、設計書に「同期処理で行う」と書いてあるので
諦めました。
こういうのは、Windowsサービスにした方がいいと思うんですが、SEがWindowsサービスの
存在を知らないようです。
DoEvents、リフレッシュで再描画、BackgroundWorkerを試してみます。
みなさん、ありがとうございました。

マスターページにMenuコントロールを配置し、StaticSelectedStyle内の
プロパティに値を設定しております。（色情報等）
ソースにはSiteMapDataSourceを使用しています。
Menuコントロール内のあるボタンをクリックすると、上記の設定が適用され
ボタンの色が変わります。

が、問題はその後なのです。
Menuボタンクリックによりコンテンツが表示されるのですが、その中で
違うページへ移動（ハイパーリンク等）すると、マスターメニューの
StaticSelectedStyleが適用されなくなってしまいます。（選択状態とならない）

具体的に表現すると。。。
・Menuコントロールによって大分類を選択する。
・選んだ大分類のボタン色が変わる。
・表示されたページ内で、小分類のリンクを選択する。
・小分類のページへ遷移すると、さきほど選んだ大分類のボタン色が初期状態に。
・本当は小分類のページへ遷移しても、大分類は選択されたままの状態にしたい。
といった感じです。
コンテンツページで遷移を行ってもマスターページのMenuコントロールボタン選択状態を
保つ方法はないでしょうか？

リクエストのurlとweb.sitemapを照らし合わせて、選択状態を管理しているのではと
考えているのですが、urlが変わると選択状態にならないみたいなので困っております。。。

根本的に間違っている可能性もあるので、似たような事を実現されている方、解決方法が分かる方
情報がありましたらよろしくお願いいたします。

マスターとスレーブはDIPスイッチで切り替えるのか

VB6.0を今まで使ってましたが、今度VB.NET2003を使う予定です。
VBとVB.NETってどう違うんでしょう？

色々

さらに2005でも色々変わる。

今更 2003 導入ってのは無いよなー

あれれ？俺ってばスレ違いの質問しちゃってるです？

>>212
良いけど、「実際に〜」って聞いてるから実際そうなった人がいないだけじゃない？
あと、再現する最少のソースをどっかに乗せるとかしないと
そういう質問はスルーされるよ

我が名はﾎﾞﾝちゃん。いずれこの板を牛耳る男ぞ？
その朕の質問に答えられないと申すか

サブプロシージャ１の引数が整数値で、その１をオーバーロードした２の引数を文字列にして、
option strict = onにしてから、
そのサブプロシージャに文字列なり数値なりを渡すと文字列の場合でも数値の場合でも怒られるんですが、なぜ？？
オーバーロードを解釈してないのかな？

お前さんがタコだから。
再現可能なコードぐらい出せよ。

ネットワーク上のあるコンピュータで、あるサービスが起動しているか、していないかを
調べる方法はありますか？

PC_A のプログラムにて PC_B であるサービスが起動しているかを判断したいのですが。
方法があればアドバイス、よろしくお願いします。

GetProcessesByName(あるサービス,PC_B)

DLLの呼び出し（宣言）で質問させてください。Vb2005

あるＤＬＬを利用するのに、ＶＢ６では Anyキーワードを使っていました。軽い気持ちでAnyをそれぞれByRef B as Byte(),ByRef C as Char() と書き換えました。
※ＢもＣも引数の受け渡しだけでなく、呼び出し先で書き換えられる仕様です。
期待する動きをしないので、デバック用のＤＬＬを作って受け取った値をチェックすると...
紆余曲折をへて、Char配列は素直にString型で良い事が判明しましたが、Byte配列がうまくいきません。どなたか良い方法をご存知の方いませんでしょうか？

<DllImport("hBTR.DLL", EntryPoint:="TESTCALL", _
SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function TESTCALL( _
<MarshalAs(UnmanagedType.U2)> ByVal op As Int16, _ '値渡　ＯＫ
<MarshalAs(UnmanagedType.LPArray)> <[In](), Out()> ByRef pBP() As Byte, _'参照バイト配列　Ｘ
<MarshalAs(UnmanagedType.LPStr)> ByRef pDB As String, _　'String ○
)as integer
Byte配列もStringで渡せば！　と思ったのですが、戻り値に０が含まれると、そこで切れてしまいます。
呼び出し部分
dim b() as string:redim b(127)
dim c as string
c="ABC":b(0)=1
Ret = TESTCALL(0, b, c)
RetはＤＬＬからの値を受け取っている。１番目の引数０も正しくＤＬＬに送られている。２番目の引数は受け渡しは成功するが、受け取りに失敗。３番目の引数は受け渡し、受け取り成功

たかが１２８バイト
本番で利用するＤＬＬはこの１２８バイトを設定領域として利用。
ユーザーが保持しなければいけない仕様orz
テストＤＬＬ側で本番のＤＬＬをコールしたら成功ｗ（ＤＬＬの機能は問題なし）
ＶＢ２００５＜byte配列＞ＤＬＬ
いい方法をご存知なかた教えてください。

.NET では配列はクラス、つまり参照型。
なので ByRef As Byte() を渡すと言う事は byte** を渡すという事。

>>220
レス有難うございます。
ポインタのポインタですよね^^
バイト配列のポインタ（引数の受け渡し）は成功している（呼び出し先のＤＬＬで確認）ので、問題はアンマネージコードとの関連部分
<MarshalAs(UnmanagedType.LPArray)> <[In](), Out()> ByRef pBP() As Byte, _'参照バイト配列　Ｘ
このあたりだと推測されます。


上のスレへの追加情報
DLL呼び出しで、呼び出し先で引数の値を変更する場合。ByValは利用できない。

C の定義を見せろ。

このレベルの呼び出しになるとP/InvokeはあきらめてC++/CLIのInteropに逃避している。DLLが一つ増えるがすっごく楽っす。

>>222
Delphi7ですが

type
tPB = record
pb:array[0..127] of byte;
end;
ptpb = ^tpb;//tPBの配列へのポインタ宣言

function TESTCDLL(op:word; var PPB:ptpb;var PDB:pchar): Integer; stdcall;
var
_PPB:tpb;
begin
　copymemory (@_PPB.pb,PPB,128);//デバックの為ローカルへＣｏｐｙ
//本番のＤＬＬ
　ret:=MainDLL(_op,_PPB.pb,_PDB.db);//_PPB.pbのバイト配列が戻ってくる
copymemory (PPB,@_PPB.pb,128);//ローカル領域のデータをバイト配列のポインタ領域へコピー

//引数と戻り値の内容が、一致している事を確認

Delphi はさっぱり分からんなしかし。

PDB 周りは不明だが、C に翻訳するとこんな感じか？

typedef struct _tPB {
   char pb[128];
} tPB, *ptpb;

int TestCall(short op, ptpb PPB, char* PDB) {
   int ret;
   tPB _PPB;
   CopyMemory(&(_PPB.pb), PPB, 128);
 　ret = MainDLL(op, _PPB.pb, _PDB.db);
   CopyMemory(PPB, &(_PPB.pb), 128);
   return ret;
}

だとしたらやはり ptpb はポインタのポインタにはならんな。ただのポインタだ。

>>225
レス有難うございます。大変ありがたい....
delphiの特徴として　関数定義の引数にVar 宣言をするとそれが「参照型」になります

PPB:ptbp ｜(C)ptpb PPB　//varをつけない場合　値渡し
var PPB:ptbp ｜(C) ptpb* PPB //var をつけた場合　<このようになります

※しかし、呼び出し元からは値を受け取れているのですよねorz...
同じ場所へ同じくCopyMemoryで値を戻して受け取れないのは何故だろう

このようなデバックコードを試しましたが、呼び出し元では
PPB.pb[0]:=100;ＮＧ　//byte配列
PDB:="ABC";//String ＯＫ
と言う結果ですね...
http://msdn2.microsoft.com/ja-jp/library/23acw07k.aspx
このあたりの話なのでしょうか？　
１２８byteで深遠に足を踏み入れてしまったｗ

つまり PPB は ptpb*/tPB** である、と？
とすると今度は copymemory の引数がおかしいという事にならんか？
> copymemory (@_PPB.pb,PPB,128);//デバックの為ローカルへＣｏｐｙ
の第二引数が PPB になってるって事はコピー対象が ptpb/tPB* であって、
頭の 4 バイトに tPB へのポインタを含み残り 124 バイトは意味不明の 128 バイト、をコピーする事になるような。

>>227
ちょっと整理してみました。少し戻ってＶＢ２００５のバイト配列にこのようなデバックコードを用意しました。
間違いがあればご指摘ください

Dim sbb() As Byte
ReDim sbb(128)
For i = 0 To 16
sbb(i) = CByte(i)
Next
DLLインポート部分の宣言
<MarshalAs(UnmanagedType.LPArray)> <[In](), Out()> ByRef pBP() As Byte,
バイト配列の参照型を宣言。バイト配列のポインタを受け渡している
Ret = TESTCALL(sbb)

○delphi 側
function test (var PPB:ptpb)//
var _PPB:tpb//変数部に実体を同じ大きさのメモリ確保
begin
copymemory (@_PPB.pb,PPB,128);//@はＣの＆に当たる

ウオッチによる参照
PPB addressの値
PPB^ 0,1,2,3,4,5,6,...
_PPB.pb 0,1,2,3,4,5,6,...

正しく呼び出し元から値が入ってきています。
問題はこの値が呼び出し元に戻らないのですorz

copymemory (PPB,@_PPB.pb,128);
Delphiからのメモリコピーは正しく終わっているように思われますが
ＶＢ側に戻らないようです...　

んー、しかし var とやらが C++ の参照に相当するならおかしくはないか……。

Byte() 持った構造体書いて（MarshalAs で固定長配列を指示して）、
Marshal.AllocCoTaskMem/Marshal.StructureToPtr でメモリにコピーして、
その IntPtr を ByRef で渡す。
てのが妥当かな。

面倒なのでろくに読まずにレス。
たぶん、

<[In](), Out()> ByVal pBP As Byte()
でいいんじゃない？

呼び出し先がずっとバッファのアドレスの値を保持していて、
好き勝手なタイミングで書き換えるとかじゃなければ。
（この場合、ガベコレを抑制しないとまずかったはず）

MarshalAs属性はいらないと思う。

>>229
構造体については試してみました。いろいろ有難う

<MarshalAs(UnmanagedType.Struct)> この宣言をおこなうと参照型が使えなくなりますorz
Lptstructにすると実行時に Structを使いなさいとコンパイラに怒られる
Structを使う（byValになる）と保護しているメモリーに書き込みをしましたエラー...


話を単純化すると　
バイト配列をＤＬＬに渡して[バイト配列の帰り値]を受け取りたいだけなんですが....
ＭＳの責任者教えてくださいｗ

>>230　
レス有難う　
<[In](), Out()> ByVal pBP() As Byte, _
で試してみました。
ByVal はメモリ保護で実行時エラー ... orz

そりゃ Delphi の方で ** で受け取ってるんだから当然だが。
ていうか Delphi の方を var で受ける意味あるの？
今でてるの見る限り一切無いはずなんだけど。
ptpb で受ける限り、var の有無にかかわらず pb への変更は呼び出し元でも有効なはず。
それともつけなきゃ暗黙で const になるとでも言うのか。
それならそれで ptpb じゃなくて var の tPB で受ければいい話のはずだし。

>>233
var 演算子をつけない場合、delphiはヒープに引数を丸ごとコピーします。
ポインタの場合はどしているんだろう？汗
もともとＶＢからはポインタ、サイズは4Byteしかないので意味がないといえばそうかもしれません。

いずれにしてもＶＡＲを外して試してみますね。

>>234
VAR をつけないと引数の受け取りも失敗します

さて、その後も調査した結果　Byte配列の１バイト目はデーターが
戻っていることが判明しました。
しかしながら、配列サイズが１となっていました。
ReDim Preserve sbb(127)このようにサイズを戻しても先頭以外は０になっていました。

やはりＤＬＬのインポート宣言に何かが必要なようです...

自己解決できました
方法は配列を以下のように宣言して
Public Structure pBPstruc
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=128)> <FieldOffset(0)> Public ByteB() As Byte
End Structure 'pBPstruc
DLL　インポート部では
<MarshalAs(UnmanagedType.LPArray)> ByRef pBP() As pBPstruc, _

ということでした。
StringやChar Stringbuffでは配列に０が入った場合、長さが小さくされてしまう。


今回、調査して感じた事ですが
ＤＬＬの多くは（供給）された物が多い中、ＶＢ６のコードでＤＬＬ呼出は成功しない。
今回、多言語でテストＤＬＬを作って動作をシミュレーションする事が出来たので、ＶＢ側からの
データーの流れを確認できたのですが、ＶＢだけの環境では厳しかったかもしれません。
ポインタがない言語ではいろいろとねorz...

なぜＣ＃　Ｃ＋＋を使わないのか？　それは（笑...

＞VB初心者
バッファの先頭アドレスを渡す方法は>>230に書いた通りで間違ってないと思うよ。
MSDNライブラリにもそのように書いてあるし、今までそれで問題は出てないから。
それでエラーが出るとすれば、原因は他の部分でしょう。

後C文字列の先頭アドレスを渡すときもStringをByValで渡さないとだめね。
ただし、これは呼んだ先で文字列を変更しない場合だけね。（つまりOut属性は不可）
呼んだ先で文字列を変更したい場合はStringBuilderをByValで渡すようにする。
この辺りもMSDNライブラリに書いてあるよ。
非常に散漫で分かりにくいけど。

>>237
レス有難うございます。
ポインタの値そのものは書き換えることはないので ByValということですね。

※以下アンマネージドコード　ＤＬＬコールに限った話
<MarshalAs(UnmanagedType.LPStr)> ByRef pKb As String

ByRefでString文字列をＤＬＬに渡して、又、受け取ることも出来ました。
String のままでは、ByValではコンパイラが実行時に止めてしまいますｗ

byref Stringを ByVal　StringBufferでにしたほうが良いという理由はどういった事でしょうか？
よろしければ理由を書いていただけると助かります。

ん、？
コンパイラはコンパイル時にしか仕事しないはずだよ。
コンパイラだからねw

＞byref Stringを ByVal　StringBufferでにしたほうが良いという理由はどういった事でしょうか？
StringBuilderね。
上の方で誰か既に書いてるみたいだけど、参照型をByrefで渡すってことは
Cで言えばポインタ変数のアドレスを渡すってことになるから。

ちなみに参照型をByValで渡すことはポインタ変数の値（つまりアドレス）を
渡すことになる。(Stringの場合は例えばUTF8をANSIに変換したりする必要があるから
完全に正確な表現じゃないと思うけど。）
ＶＢ初心者さんが欲しいのはこっちなんじゃ？

>>239
デバック時における実行時エラーがありますよｗ

最大の難関？　をクリアーして現在ＶＢ２００５で色々と楽しんでいます。
ちなみにストリング変換はマネージドコントロールにＡＮＳＩ変換を指定しているので、
変換する手間はかかりません。
ＤＬＬを通じてＤＢからのＡＮＳＩ2バイトコードが変換作業なしに
そのまま表示されまして、これはちょっと感動ｗ

ＶＢ６では byte<>UniCode(String)が必要でしたからね（苦笑

ByRef と ByVal　についてはマネージコードとの兼ね合いと実行時の動作で決めました。
ByValにすると　引き渡す型とマネージコードの不一致、もしくは実行時エラーが起こります（謎

いすれにしてもバイト配列の相互受け渡しができれば、あとは何がおきても拡張すれば出来ると確信しております。

コンパイラが実行時エラー出すって言う人初めてみたよw

っていうか、そんな姿勢じゃ遠からず痛い目見るよ間違いなく

コンパイル中に実行時エラー出して止まっちゃうコンパイラならみたことあるよ

>>241
ソースデバック時のエラーは実行時エラーではないのでしょうか？（汗
コンパイラが出すわけではないですが、統合環境（デバッカ）が出すものですね。

＞ＶＢ初心者　殿
C++でDLLを作ってみました。
void PiTest(int mul, unsigned char *buf, char *msg)　{
    for (int i = 0; i<PITEST_BUFSIZE; i++) buf[i] = buf[i] * mul;
    strcpy_s(msg, PITEST_MSGSIZE, "PiTest - PiTestDLL Complited !");　}
VB2005からはこれでOKでした。
Declare Sub PiTest Lib "PiTestDLL.dll" (ByVal mul As Integer, _
    <[In](), Out()> ByVal buf() As Byte, ByVal msg As StringBuilder)

DelphiはよくわからないがC++で書くと次のようになってるので話がややこしくなっていると思われます。
void test(int op, unsigned char **buf, char **msg)

文字列の戻りにStringBuilderを使わなくてもよかったのはchar **になっていたためでしょう。
stringは変更不可ですが別のstringに入れ替えるのはByRefで出来たというわけです。

>>244
＞   <[In](), Out()> ByVal buf() As Byte, ByVal msg As StringBuilder) 
そこの<[In](), Out()>も省略できるはず。

いや、参照型を値渡しした場合はデフォだとInだから
呼び出し先で文字列をmodifyするときは本来Out属性つけないとまずいでしょ

統合開発環境はデバッカでもコンパイラでもない罠。
それらを統合したものってそのものなんだから。

>>247
そんな餌で俺様が(

>>246
StringBuilder はデフォで In, Out だよー。

>>249
byte配列の方のことを言ってるのだと思う。MSDNに記述あり
＞blittable 型の配列と、blittable 型のメンバだけを含むクラスは、最適化のために、
＞マーシャリング時にコピーされるのではなく固定されます。
＞これらの型は、呼び出し元と呼び出し先が同じアパートメントに属する場合には、
＞In/Out パラメータとしてマーシャリングされるように見えることがあります。
＞ただし、そのような型は実際には In パラメータとしてマーシャリングされるため、
＞引数を In/Out パラメータとしてマーシャリングする必要がある場合には、
＞InAttribute 属性と OutAttribute 属性を適用する必要があります。

blittableって辞書に無いけどMSの造語？

>>250
> blittableって辞書に無いけどMSの造語？
ttp://www.answers.com/blit&r=67
Computer Jargon、IT俗語。

で、私もそう思ってたんだが、
実際にはプリミティブ型配列は（属性の指定にかかわらず）強制的に In, Out になるっぽいんだよね。
非プリミティブな構造体の配列だと In だけなんだけど。

>>249
あそっかそいうやStringBuilderは例外扱いだったね。

visual studio 2003 の vb.net ですが、
32x32 の画像を二つ読み込んで、64x32 になるように、それぞれの画像を横に結合したいのですが、
結合するよい方法があれば教えてください。

Graphics.DrawImage

>>244
テストプログラムまで書いて頂いて恐縮です。 まさにChar** でした... さて１難去ってまた１難、こんな事がおきました。
Public Class Api32 'INIファイルから取得
<DllImport("kernel32", EntryPoint:="GetPrivateProfileStringW", _
SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, _
CallingConvention:=CallingConvention.Winapi)> _
Public Shared Function GetPrivateProfileString( _
<MarshalAs(UnmanagedType.LPTStr)> ByVal lpApplicationName As String, _
<MarshalAs(UnmanagedType.LPTStr)> ByVal lpKeyName As String, _
<MarshalAs(UnmanagedType.LPTStr)> ByVal lpDefault As String, _
<MarshalAs(UnmanagedType.LPTStr)> ByVal lpReturnedString As System.Text.StringBuilder, _
ByVal nSize As UInt32,<MarshalAs(UnmanagedType.LPTStr)> ByVal lpFilename As String) As UInt32
End Function
End Class 'このAPIのコードは他の掲示板から借用したものです。もちろん動作します
Public Function GetPathDataforINITDLL(ByVal Head As String, ByVal Value As String, ByVal Df As String) As String
　dim s as string
'引数を受け取って動作させようとすると動かない >NG
ret = CInt(Api32.GetPrivateProfileString(Head, Value, Df, DLLBuff, CUInt(DLLBuff.Capacity), IniFileName))
s = DLLBUFF.toString 'Sには"DEF"

'関数内にStringを宣言して動かすと動く...
　dim HEAD2 as string ="H"
dim VALUE2 as string ="V"
ret = CInt(Api32.GetPrivateProfileString(Head2, Value2, Df, DLLBuff, CUInt(DLLBuff.Capacity), IniFileName))
s = DLLBUFF.toString'Sには INIファイルの内容 動作するorz...
end function
呼び出し元
API= New API32 'インスタンス化
GetPathDataforINITDLL("H","V","DEF")
感覚的には単に文字列を渡しているだけなのですが、何が抜けているのでしょうか？
VBは難しいなぁ... デバッカーでポインターの値が参照できれば...

きたよ、「動かない」

ここら辺は俺も理解が怪しいのであんまり突っ込まれると困るんだけど、
とりあえず〜WのWin32APIを使うのに引数に<MarshalAs(UnmanagedType.LPTStr)>
指定するのは矛盾してるんじゃないの？

つーか、自分で理解して使おうって気がないなら素直にコピペに徹すればいいのに。
こういう馬鹿なくせにどうでもいいところにこだわるのがプライドだと思ってる奴っているよなw

>>257
すまん...ＤＬＬ記章部分。その部分がコピペなんだorz...

ＤＬＬ用の引数Stringを
ＤＬＬ呼び出しFunction内部で作るとＯＫ
関数の引数で受け取るとＮＧ

こんな事ってあるのでしょうかｗ
どんな理屈なんだろう...まったく動かないならまだ理解できるのですが...

いやそんなことは絶対ありえんから。

君にはダメグラマの特徴の一つが現れてるよ。
その特徴とは、冷静に論理的な原因分析をせず、単なる思い付きをバグの原因だと
思い込んで疑わないという奴ね。

>>257
> とりあえず〜WのWin32APIを使うのに引数に<MarshalAs(UnmanagedType.LPTStr)>
> 指定するのは矛盾してるんじゃないの？
いや、それは正しい。LPTStr の場合どの文字セットを使うかは DllImport/Declare で指定される。
ま、普通は省略するけどな。

>>255
UPしてる分のコードには怪しいところはなさそうだ。省略してる部分でものすごい凡ミスしてると予想。

>>255
それもかなり疑ったのですがorz...

確認した事
引数の文字列が間違っていないか？
　動作する場合、動作しない場合、いずれも直前のデバック停止で確認
　メッセージダイアログ等に出力　相違ない事を確認

動作する場合と動作しない場合、何が違うか？
　動作する場合は、問題のＡＰＩ呼び出し関数の直前で引数のStringが作られている
　
元呼び出しf（"ABC"）
function f(H)
apicall(H) < NG
H="ABC"
apicall(H) < OK
'順番を入れ替えても同じ
end function

If String.Equals(Head, Head_) = True Then MsgBox(Head)'テストコード
結果はFalse orz...　VBには魔物が住んでいる...

orz...　パとバ　のまちがいでした... 　しばらくショックで動けないかもorz..

頼むからこれ以上コードをコピペするつもりなら
せめてインデントが表示に反映されるように工夫してくれよ。

一度適当なエディタにコード貼り付けてから
タブ（またはスペース2N文字）をN文字の全角スペースに置換するだけだからさ。

おまいのコーディングに魔物が住んでるんだろ

お前のソースじゃIniFileNameをどこから持ってきているかわからないが、これが違ってないか。
ファイルが無くてもこのAPIはエラーにはならない。
そのままコンパイルして再現できるコードをどこかのアップローダにアップしてurlをはる。
小出しはしないほうがよい。

いや、俺はたぶんStringBuilderを初期化してない（使いまわしてる）、
なんてオチだと想像するよw

デバッグの基本は実験と同じ『変数の分離』にあるのに、
それがわからないんだよねこういう人は。

「結果」（つまり意図しない動作）をもたらしている原因を探るためには
疑わしい要素のみを変え、その他の全要素を完全に同じにして実験を行って
結果が変わるかどうかをみないといけないのに、ダメグラマはそういうこと
基本に忠実にやらないんだよな。

複数の要素をいっぺんに変えて実験して結果が変わったのを見て、
全く見当違いの要素をその変化の原因だと思い込んでしまう。

xp で、LAN内で、TCPを使って、クライアント、サーバーとして通信するプログラムを作りました。

ただ、使用しているポートをサーバー側の XP の、Windows ファイアウォールを無効にするか
例外にて追加しないと通信できません。

vb.net 側で Windows ファイアウォールの該当ポートを許可するように設定する事はできますか？
当然一般ユーザでそういった設定をできたらまずいと思うので、管理者ユーザーのみと限定しても
構いません。

利用者がわざわざ設定しなくても、プログラムが勝手に通信を許可できるようにする方法はありますか？

悪意をもったソフトウェアを想定するとそのような機能は用意されておらず、手動で設定しなければならない
ような気もしますが、もし方法があれば教えてください。

>>268
クライアントのセキュリティは各自が設定を弄るしかないと思う。

というのは、XPのファイヤーウォールだけど、シマンテックやらのそういったセキュリティ系のソフトを
導入している場合、Windows標準の設定は無効にされて、セキュリティソフトのファイヤーウォールが
適応される場合が多い。

特に、企業の場合、こういったソフトを導入している場合が多いので、
Windows標準だけでなく、こういったソフトのセキュリティまで勝手に設定できるようにするのか？
という問題も出てくる。

また、こういった企業が導入しているのはコーポレート版なので、管理用のサーバがあり、
ユーザが勝手に設定できないようにとかアンインストールする場合にも管理者が
直接PCにパスワードを打たないといけない場合がある。

ハッキリ言って、場合によりけりなのでプログラムで設定することはお勧めできない。
Windows標準のファイヤーウォールの設定手順書を書いて終わりのような気がする。
それ以外の場合は、その会社のシステム管理者やらセキュリティ管理者に出てもらわないと、
何も出来ん。

>>269
アドバイス感謝します。

仰る通りなんですよね、確かに…。
実際は設定手順書でカバーするしかないのかな、と思います。

単純な技術的な興味なのですが、vb.net などのプログラムで実装を行なう方法はあるのでしょうか？
なければ、「手作業でやるしか方法はありません、以上」ですむのですが、技術的に解決する方法が
あるのであれば、それを踏まえつつ、手作業を行なうように方針を決定しなければ
なりません。

私の質問がちょっとずれてきてしまっている気もしますが、Windowsファイアウォールの設定を
vb.net もしくはなんらかの方法で設定変更する術は用意されていますか？

>>270
SP2限定かもしれんが
http://www.atmarkit.co.jp/fwin2k/win2ktips/483sp2admin/sp2admin.html
管理者Onlyで良ければレジストリいじるのが早いんじゃないか？

WindowsFormsで一部が透過しているアニメーションGIFを
表示するにはどうしたらよいでしょう？？
FORMにPICTUREBOXをおいてPICTUREBOXのIMAGEプロパティ
に設定するとアニメーションはしますが、透過部分がフォームを透過しません。
回避策があれば教えて頂けないでしょうか？

>>270
つうか、簡単にプログラムから設定できるとそれをウィルスやワームが使うだろ
>>271のやり方なんかも別のツールなどでリモート管理をチェックするなりしてないと危ないよ

VB.NETでちょっとしたテキストエディタを作っているのですが、
普通エディタには、テキストエリアの左側に、灰色等の文字で現在行が表示されていますが、
この機能はどのようにして表示させているのでしょうか？
いろいろ試したのですが、描画速度が遅かったり、重すぎて使い物にならなかったり・・・
この問題を解決してくれるコントロールやプロパティがあるのでしょうか？
解決策があれば教えてください。

最初に誤爆したスレには何の謝罪もしないんだなw

っていうか、ステータスバーすらも知らない人間にエディタ作成なんて無理。
見た目が地味だから俺でもできそう、とか思ってるんだろうが
勘違いもいいところ。

ここは質問スレですよ

ステータスバーは知っていますが、あれはステータスバーなのでしょうか？
↓こういう機能を実装したいのですが
1 Public Class Form1
2 Inherits System.Windows.Forms.Form
3
4 #Region " Windows フォーム デザイナで生成されたコード "
5
6 Public Sub New()

あと、エディタ作成が大変難しいことは重々承知の上です。

分かってる人間がこんなアホな質問をするとは絶対思えんけど。。

ああ、エディタの作業領域の左隅に行番号の表示したいわけねスマン。
それを実現するコントロールやプロパティー？
あるわけないでしょ。質問スレっていったって馬鹿をいうにも程があると思うけど

「エディタ」ってVisualStudioのエディタのこと？
それなら設定の項目にあるけど。
テキストボックスみたいなコントロールのことを言ってるなら、多分無い。

>>277
そんな都合のいいコントロールはないので、自分で実装する必要が
ある。本文のスクロールと同期して行番号も再描画したりとかまで
やるのは、エディタ自体をたいへん難しいと感じている時点で高望
みかと。

現在のカーソル位置をステータスバーに表示するくらいでいいんで
ないの？

>>277
http://www.vector.co.jp/soft/winnt/prog/se366984.html
こんなの見つけた。試してないけど

>>281
うわー、ずいぶんニッチってかピンポイントな。(w
今回の要望には向いてるっぽいから、試してみてもいいんでね？

VB2003+バンドルのクリレポについて質問です。

レポート上のTextオブジェクトにコードで値を渡しているんですが
改行コードが無視されてしまいます。
レポートのデザイン時に直接改行コードを入れて、コード側で何もしなければ
印刷やプレビュー時にはちゃんと改行も出力されるのですが、
コードで改行コードを含む文字列を渡すと改行が無視されてしまいます。

しかし、ステップ実行でTextオブジェクトの値を確認すると、ちゃんと
改行コードも含まれています。

レポートのTextオブジェクトの書式で「複数行に出力」にチェックを付けても
結果は変わりません。

どこを弄ればコードから複数行出力することができるでしょうか？

ﾁｿｺを弄れば、あるいは複数行出力することができるやもしれぬ。

>>283
ttp://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=16826&forum=7&6

ttp://support.businessobjects.com/library/kbase/articles/c2015089.asp

ありがとさんです。

VB2005のリッチテキストボックスの質問です。

2chブラウザを作っているのですが、
レスアンカーのポップアップ方法のところで詰まっています。
スレッドの表示にwebbrowserを使うとリロードの度にカチカチ言うので、
richtextboxに挿入していく形を取ろうと考えています。

レスアンカーをリンクにして、LinkClickedイベントで
ポップアップを表示させようと思っているのですが、
レスアンカーにリンク指定を出来るのか分かりません。
MSのリッチテキストフォーマットを見てみたのですがよく分かりませんでした。

どのようにしたらレスアンカーにリンクを指定できるのでしょうか？

よろしくお願いします。　VB2005です。
プログラムに画像を埋め込むと、ソリューションエクスプローラーで
「Resources」というフォルダに入るものと入らないものがあるみたいですが、
違いが全くわかりません。コンパイル後に、何か違いはあるのでしょうか？　

>>287
RichTextBox じゃリンクは URL 形式のにしかやれない。
もちろん色とアンダーバーを付ければそれっぽくはなるがイベントは発生しない。
それの判定をやろうとなると MouseUp とかで判定する必要があるな。

>>289
そうだったのですか。
高度な技術が必要そうですね。
勉強してきます。
ありがとうございました。

質問させて頂きます。VB2005です。

テキストラベルが配置してある新しいフォームをタイマーで開く時、
フォーカスがそのフォームに取られてしまいます。

フォーカスが取られるタイミングは別なプログラム
（たとえばIE等でネットをしているとき）で
何かのボタン（マウスのホイール、バックスペース、etc...）
を押しっぱなしにしている時です。
visible,show,showdialog全て取られてしまいました

ボタンを押しっぱなしにしているときに新しいフォームを開いても
フォーカスが取られないいい方法はないでしょうか。

このスレの質問大賞は君に決定

VB2005でボタンを押したときにTabPageをtextbox付きで追加したいんですがどうすればいいんでしょうか？
タブ型のテキストエディタみたいな奴です

>>293
TabControl

VB2005のMy機能についでなのですが。

たとえば、起動時にコマンドラインを受け取って、それをTextBoxに表示するだけのアプリがあるとします。

VB2005で単一インスタンスのアプリケーションを作成すると、ApplicationEvents.vbに
StartupNextInstance：単一インスタンスアプリケーションが起動され、それが既にアクティブであるときに発生します。
こういうのが出てきます。

そこで、すでに起動している時にコマンドライン引数付きで再度起動が行われた場合、
StartupNextInstance内でうまくやれば、起動中のウインドウに引数を渡して表示できそうな
気がするのですが、そういったことは可能でしょうか？

>>294
よければもう少し突っ込んで教えてもらえるとありがたいのですが
Dim tab As New TabPage
TabControl1.TabPages.Add(tab)
とかでやると何もないtabpageが出来るだけですよね

仮にtabpage1にボタンとテキストボックスがあったら同じコントロール配置で新しいタブを作りたいのです
言葉足らずで伝わりにくいかもしれませんがよろしくお願いします

Visual studio 2003 の VB.NET です。

Str += "<" + ds.Tables("tb_n").Columns(num).ColumnName + ">"
Str += ds.Tables("tb_n").Rows(j)(num).ToString()
Str += "</" + ds.Tables("tb_n").Columns(num).ColumnName + ">" + vbCrLf

のように、Dataset からの値をフィールド名、値として文字列に結合して
いるのですが、あるフィールドにおかしな値？、NULL? がはいっているらしく、
そのフィールドの発生以降、文字列が連結されなくなってしまいます。
デバッグ中は str += ... の行は実行しているのですが、実際 Str の中身に、文字列は
連結されていません。

イミディエイトウィンドウで ?ds.Tables("tb_n").Rows(j)(num).ToString() の結果は
"" となるんですが、
if ds.Tables("tb_n").Rows(j)(num).ToString() <> "" then とやっても
デバッグすると、なぜか、True となり、if 文のブロックが実行されてしまいます。

なにがなんだかわかりません。何かアドバイス頂けることがありましたら、
よろしくお願いします。

>>297
lengthでチェックしてみるとか
NULL<インスタンス化されていないセルデーター？

DBNull.Value と比較したら良いんじゃね

>>296
tab.Controls.Add(New TextBox())
と書くと次の質問が目に見えるようだ

>>298
length でチェックは試みたのですが、
If (ds.Tables("tb_n").Rows(j)(num).ToString().Length > 0) Then
MessageBox.Show("Length IS ZERO")
End if

の場合、Length IS ZERO が表示されます。
で、ブレークポイントを設定して、イミディエイトウィンドウで
?ds.Tables("tb_n").Rows(j)(num).ToString().Length を実行すると
0
がかえってきます。実際のコードのデバッグ中と、イミディエイトウィンドウで
確認する内容が異なるので、わけがわからなくなっています。

>>299
上記同様なのですが、ds.Tables("tb_n").Rows(j)(num) Is DBNull.Value
でチェックすると FALSE がかえってきます。
しかし、文字列を結合すると、それ以降、結合されません

何か気になる事があれば教えてください。

>>295
上手くやれば可能なんじゃないの？
別プロセスだからプロセス間通信が必要になると思うけど。

>>300
ひとつずつ分解して調べれば？
そのそも、DataSetを二次元配列のように扱うことのって余りメリット無いような。
型付DataSetにしてきちんと定義してこそのDataSetだと思うし。

>>295
たとえば、コマンドラインを起動中のForm1.Textbox1に表示する場合...

My.Forms.Form1.TextBox1.Text = e.CommandLine.Item(0)

時間経過で背景や画像を変更するにはどうしたらいいと思いますか？

背景や画像の変更方法はわかりますけど・・・時間経過を判断する方法がわかりません・・・

たとえば3秒ごとに切り替えというようなことをやりたいです。

どういった方法がありますか？どうかご教授お願いします。

タイマーつかうとか

そうでしたね・・・
まだはじめて3日ほどで初日に習ったのにうっかりしてました、すみませんm(_ _)m

>>303
できました！ ありがとうございます！！

>>301
ありがとうございます。プロセス間通信は良くわからなかったんですが、
そのへんもMyでできるみたいですね。

DataGridViewで複数の行を選択し、その行達のフォーカス位置が欲しいのですが
どなたか教えてください

>>308
いまいち読み取れないんだけど、こんな感じ？

ttp://dobon.net/vb/dotnet/datagrid/selectedrows.html

間違って他スレで質問してしまったので再度よろしくお願いします。

言語はVisual Studio Express .VB2005です。
　＿＿＿＿＿＿＿＿
｜名前｜年齢｜性別｜
　￣￣￣￣￣￣￣￣
という列を持ったテーブルがありまして、
そのうちの年齢をGROUP BYでまとめてコンボボックスに表示されるようにしました。

そこから選択→実行ボタンを押すと、WHERE = 選択年齢　の一覧を表示させたいのです。

できれば
○○○.○○○ = "SELECT 名前,性別 FROM table WHERE = 選択された年齢"
のように直接SELECT文をかけるような方法を知りたいです。

コンボボックスは　ComboBox
表示部には DataGridView を使用しています。
コンボの値はComboBox.text で取得するのだと思うのですが
グリッド部のDataset Adapter BindingSource　などのプロパティに対して
どうすればよいのかわかりません。

どうぞよろしくお願いします。

DataGridView の DataSource に、目的の DataTable の DefaultView を設定、
その DataView の RowFilter に条件文書けばいけるだろう。SQLにちょっとだけ似てるが全く別物。

なんかの宿題か？
自分でやっとかないと後で苦労するぞ

Select文はそのまま
　　Dim strSqlCommand as string=""
　　strSqlCommand ="SELECT 名前,性別 FROM table WHERE = " & ComboBox.Text
ってやればいいんでは？

あと
　　Dim con As New SqlConnection(接続文字列)
　　Dim da As New SqlDataAdapter(strSqlCommand , con)
でDBに問い合わせ準備して、

　　Dim ds As New DataSet
　　da.Fill(ds, "table")
でDataSetにデータ読み込んで

　　BindingSource1.DataSource = ds
　　BindingSource1.DataMember = "table"
でDataSet を BindingSource と連結して

　　BindingNavigator1.BindingSource = BindingSource1
　　DataGridView1.DataSource = BindingSource1
でBindingSource を BindingNavigator および DataGridView と連結する。
BindingSource1とDataGridView1は適当に書き換えろよ

>>311
>>312

レスありがとうございます！
宿題ではなく実は就職のためなんです（＾＾；
実務未経験のＪＡＶＡ使いだったのですが、一週間でこういったプログラムをVBで組めたら採用とのことで必死になっています。

参考になる本もなく本当に助かりました。
今日は徹夜でやりとげます！ありがとうございました！

どなたか、VB.NETでビリヤード程度のゲームのソースを
お持ちの方、またサイトを知っておられる方
教えていただけませんか??

e.Graphics.FillEllipse(Brushes.Black, 0, 0, 200, 200)
と
Dim a As Graphics = PictureBox1.CreateGraphics
a.FillEllipse(Brushes.Black, 0, 0, 200, 200)

の、違いは大まかにどういうことなのでしょうか？
*前者は再描写をしてくれることは分かっています。

PictureBox1.Paintのイベントでは
前者は動作するのですが、後者はここに書いても動作しません。
ただ、後者はボタンのスイッチイベントだと動作します。
なぜなのでしょうか？

>>314
ビリヤード程度って簡単に言うけど、運動方程式や摩擦係数が入り乱
れる大規模シミュレーションになるよ。ブロック崩しでも入射角と反
射角をマメにチェックしないと単調なゲームになるしさ。

ttp://www.core.kochi-tech.ac.jp/math/highschool/billiards/

すごい初歩的な質問させてください。
subとFunctionの使い分けです。
あるサイトに値を返さないならsub、返すならFunctionと書いてました。
僕は自分で作るメソッドは値を返す返さないにかかわらずFunctionを使ってたんですが、
これは明確に使い分ける必要がありますか？

戻り値が冗長と思うなら使い分ければよい

>>317
判らないならファンクションにしとけば？
明らかに結果を返さなくて良いならサブ、それ以外はファンクション、どちらも責務上処理しないエラーは例外で返す。

値を返さないFunctionの戻り値の型ってどうしてんだ？
適当にIntegerとかにしてんのか、それともOption Strict Offで省略してんのか…

値を返さない時戻り値の型は省略してます。何も書いてません。
Private Function メソッド名()
当然returnもありません。
今までなんの気なしにこれでやってきてちゃんと動いてはいますけど省略するとまずいですか？

フォームを最大化した時にフォーム内に配置していたボタンやラベルなども自動的に大きさにあったいちに調節してくれる機能はありませんか？

Option Strict
これ知りませんでした。今ググってああ、なるほどと思いました。
無知ですいませんでした。

>>322
Anchor

>>324
アンカーだと
上と右を設定すると最大化したときに全体的に右よりになり
アンカーを全方位解除すると最大化したときに全体的に真ん中よりになってしまいます

最大化したときに、全方位にバランスよく均等に再配置したいのですが、何かいい方法ないでしょうか？汗

間違えました

上と右＝上と左

全体的に右より＝全体的に上と左より




あ　あ
　あ
あ　あ

これを最大化したとして

あ　　　　　あ

　　　あ

あ　　　　　あ

こういう風にやりたいのです。
実際はもっとコントローラが多くて複雑ですが・・

連投すみません

あ　あ　あ
ああ
ああ
ああ
ああ

を

あ　　　　　あ　　　　　あ

あ　　あ

あ　　あ

あ　　あ

あ　　あ

こんな感じです

ソリティアがいい例でした

起動してから最大化をすると、各カードの間の横間隔のスペースがウィンドウ拡大したサイズに合わせて広がってくれるじゃないですか？
これをやりたいのですが、間のスペースの自動調整が・・・。

>>328
各コントロールの位置指定を、フォームのClientRectangleプロパティ
から算出してそれぞれ定義する関数を自作するとか。

つか、どんな機能をどんなデザインで作ってるのかわからんからなん
とも。機能説明があれば、もっと抜本的な方法があるかもしれないし。

>>329
どもです
一応、標準と最大化の2通り以外のサイズには変更できないようにしてますので
やはり最大化時の配置を直接指定するしかないんでしょうかね・・

機能はボタンとラベルとピクチャーボックスだけです
デザインは>>327みたいな並びです

>>330
標準と最大化の２通りしかないのなら、いちいち計算しなくても決め
打ちで位置指定ができるね。真ん中にくるコントロールなど、Anchor
で位置決めができるものがあるなら、そこを基準にしてその周囲にあ
るコントロールを、そこから相対位置で求めるのが比較的楽かも。

Select case data
case 1
timer1.start()
button1.enabled=ture
case 2
timer2.start()
button2.enabled=ture
case 3
timer3.start()
button3.enabled=ture
case 4
timer4.start()
button4.enabled=ture
End Select

こういった流れで、timer数字.start()の数字部分をdata内の数字で判断してくれるようにするにはどうすればいいでしょうか？

続

Select case data
case 1
timer&button()
case 2
timer&button()
case 3
timer&button()
case 4
timer&button()
End Select

private sub〜timer&button()
timer「data内の数字」.start()
button「data内の数字」.enabled=ture
end sub

という風に全体的に短くしたいのが目的です。

配列

なおtureはちゃんと定義してます
Const ture = True

待っている間自分でも調べてみましたが、どうも解答が見つからないようですので失礼させて頂きます。
ありがとうございました。

ソケット通信でSocket.BeginReceiveを利用して非同期受信しています。
ある時間受信がされなかったら、BeginReceiveを中止したくなったのですが
EndReceiveを使用すると、受信するまでブロックしてしまうので困っています。
一応ブロックされずに中止するにはSocket.Closeすればできるの分かったのですが
他にCloseしなくてもできる方法はありませんか。

動画を全画面表示で再生させながら、そこにテロップを入れたいと思っているのですが、
どのようにやるのが一番簡単でしょうか？
動画は固定ですが、テロップは随時変わるのでテキストファイルなどに保存させたいと思っています。
ご存じの方がいらっしゃったら是非教えて下さい。

>>337
なんでCloseじゃ駄目なの？

お勧めの書籍教えてください

ウィンドウズ標準の電卓が起動してない場合Label1に電卓動いてないよ。起動してるときに電卓動いてるよ。[ここにProcessID]を表示したいと考えています。
電卓起動している場合にボタンを押すとエラーが出てしまいます。

PInvokeStackImbalanceが検出されました。
PInvoke 関数 'calcChecker!calcChecker.Form1::GetWindowThreadProcessId' がスタックを不安定にしています。
PInvoke シグネチャがアンマネージ ターゲット シグネチャに一致していないことが原因として考えられます。
呼び出し規約、および PInvoke シグネチャのパラメータがターゲットのアンマネージ シグネチャに一致していることを確認してください。

実際のコードは以下です。（フォームはLabel1とButton1だけです）
Public Class Form1
Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, _
ByVal lpdwProcessId As Long) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim hWnd As Long
Dim hThread As Long
Dim ProcID As Integer
Dim PID As Long
hWnd = FindWindow(vbNullString, "電卓")

If hWnd = 0 Then
Label1.Text = "電卓動いてないよ。"
Else
hThread = GetWindowThreadProcessId(hWnd, PID)
ProcID = CType(PID, Integer)
Label1.Text = "電卓動いているよ。" & CStr(ProcID)
AppActivate(ProcID)
End If
End Sub
End Class

>>341
メッセージ通り、シグネチャ（引数/返値の型）がまちがっとる
VB6 までのをそのままコピっても駄目だぞ
ついでに言うと Declare せんでも System.Diagnostics の Process クラス使えば何とでもなりそうだが

MSFlexGridにあったredrawプロパティのような
ものはDataGridViewにはないのでしょうか？

出た！　「のようなもの」

>>343
なにをしたいのかもっとはっきり書かないと。
再描画でチラツキが発生するのを回避したいってこと？

>>245
すいません、まさにその通りです。
画面スクロール時の再描画を抑止したいと考えています。

>>342
System.Diagnostics の Process クラス使うことにしました、ありがとうございました

他のアプリケーションのフォームのボタンのキャプションを取得する方法って何かありますか？

WM_GETTEXT

>>348
GetWindowText もしくは SendMessage

>>349-350
ググってきます

>>346
「画面スクロール時に再描画を抑止」

画面ってグリッドのことだよね？
スクロールバーをドラッグしてる間はグリッドを描画させないってこと？
スクロール時は再描画しないとダメじゃないの？

なんか redraw とは違うような…
一応、貼っとくけど（Control.DoubleBuffered プロパティ）

ttp://msdn2.microsoft.com/ja-jp/library/system.windows.forms.control.doublebuffered.aspx

っていうか、2chに書き込む前にgoogleとかしてみないのか？ｗ

まてよ、もしかして

「グリッド行を追加する毎に描画したくない」

ってことか？

SuspendLayout()
ResumeLayout()

ボタンがNo1、No2、No3と3つ、画像もNo1、No2、No3と3つあり
各対応したボタンを押すと、それに対応した画像が点滅するというようなプログラムがあるのですが

スイッチを押して画像が点滅するタイミングをすべて揃えるにはどうしたらいいと思いますか？
現状では各ボタンを押すごとに各画像が1秒づつ点灯していて、ボタンを押したタイミングでバラバラに点灯してしまいます。

点滅に使うタイマを一つに統一すればいいだろ

各タイマー内でスイッチに番号に対応した画像の点滅のオンオフをしているので
タイマーを統一したらNo1を押してTimerが作動したら他の所も点灯し始めてしまいます・・・

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

Select Case s1

Case 1

画像有の処理

s1 = 2

Case 2

画像無の処理

s1 = 1

End Select


End Sub


こうやってこれを3つ用意して処理してます。
s○の変数もグローバル5つ用意してます。

引数に関数名を渡したい場合はどうすればいいんでしょうか？

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

Dim g As Graphics = AutoGraphics(「ここ」)

中略

End Select

End Sub


「ここ」に、↓のbtn1というオブジェクトだったらpic1という風なオブジェクト名を入れたいのです。
btn1(pic1)はオブジェクトによりbtn2(pic2)、btn3(pic3)といろいろ変わります。

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1.Click

Timer1.Start()

中略

End Sub

>>356
タイマーは常時駆動、ボタンの状態に応じてリンクさせれば？
タイマーが動いてる and ボタンが押されてる then 画像点滅とか。

>>359
レスありがとございます。

timer内の画像変更メソッドにボタン毎に対応した引数を渡してやれば各自に対応した動作ができそうですが>>358・・・それは可能ですか？

>>359
おっしゃるとおりにやってみたら1秒間隔で統一することができました！ありがとうございます
ですが・・・まだ1秒間隔で交互になってしまうことがあります

前は押したタイミングで無統一にバラバラだったのですが、今度はひとつのタイマーを1秒感覚でオンオフになるので、裏か表かで点滅する間隔がばらばらになってしまうことがあります・・

>>361
ボタンを押した時点で他の画像の状態をチェックして、これから操作
する画像にも適用させればいいじゃん。

各ボタンの状態をチェック→どれかが既に点滅してるなら、それに同
期して表裏を指定 or そうでないなら現状から点滅開始とか？

もしくはタイマー自体に表裏の情報を持たせて、各画像はその状態を
再現するだけにすれば？　この場合、画像がタイマーにひっぱられて、
多少不揃いな挙動をするかもしれないけれどね。

質問させてください。
フォルダの中にタイムスタンプ「yyMMdd.txt」で命名されたファイルがいくつか（50個ほど）あるとします。
これを時系列でソートして、もっとも古いものを探したいのですが、何かスマートな方法はないでしょうか。

Directory.GetFilesの返り値からファイル名を切り出して、キャストして、各々比較しか思いつきませんでした。

timer.start()に引数を渡すことはできますか？

>>363
配列に入れてArray.Sort。

>>362
毎回ボタンを押すたびに画像オンオフを判断する変数を初期化することで無事動作させることができました
お付き合いいただきありがとうございました

自作メソッドにオブジェクトを引き継ぐ場合はどうしたらよいですか？
例を挙げると、ボタンを押したらそのボタンを無効にしたいのですが数が多いのでそれを一括してくれるボタン無効メソッドを作り、そこで無効の処理をしてくれるようにします。
Buttom8を無効にする場合は、Buttom(8)でまず自作メソッドを呼び出して8という引数を渡してあげます
自作メソッドの処理は以下のとおりです。

Private Sub Buttom(ByVal ButtomNo As Integer)

Dim btn() As Object
'ボタンの数だけの配列の宣言

buttomn(ButtomNo).Enabled = False
　 'buttom(8)をFalseにする

End Sub

こうすると実行時に「オブジェクト参照がオブジェクトインスタンスに設定されていません。」とエラーがでます

buttomn(ButtomNo).Enabled = False

訂正

btn(ButtomNo).Enabled = False

「メソッドにオブジェクトを引き継ぐ」の意味がわかんない（´･ω･`）

配列からボタンへの参照がどこにも定義されてないから。

>>369
すみません
自作メソッドにオブジェクト名を引き継ぎ、それを元にオブジェクトを操作するということです
オブジェクト名は渡せるのですが、実行するとエラーが出てしまいます；

Private Sub Buttom(ByVal ButtomNo As Integer)

　Dim buttom() As Object
　'ボタンの数だけの配列の宣言

　buttom(ButtomNo).Enabled = False
　 'buttom(引数(数字))をFalseにする

End Sub

これにこういう風にButtom(8)、数字の8を渡して
自作関数内でbuttom(8).Enabled = Falseを実行したいのです。


>>370
それはどういうことなのでしょうか？

メソッド名とオブジェクト名が被ってますので
メソッドのほうを
Private Sub aiueo(ByVal ButtomNo As Integer)とでも読み直してください・・・

例えばButton8という名前のボタンがあったとする。
おまいさんはaiueo(8)という表記で引数を渡し、Button8.Enabledを
操作したい。

では、aiueo(8)という「配列の一要素」が「Button8」というインス
タンスを示すという定義を、どこかに書かないとダメだろう？

Dim aiueo() As Objectってのは「まだ個数が決まってないけど、とり
あえず配列を使う準備だけやっておこう」って意味じゃん。VB6.0の
コントロール配列みたいな考え方が、微妙に混入しているような気が
する。

ここの２番目をよーく読んでみるといいよ。
ttp://dobon.net/vb/dotnet/control/buttonarray.html

>>371
Handlesとsenderで、何とかならんのか？よくかんがえてみ？
本当にやりたいことが理解できないから、これ以上はなんとも・・・

>>373
>>374
そのあたりを勉強してみたいと思います
VBはまだ初めて1週間もないのでVB6の方もほとんど分かりません；
ありがとでした

質問があります。

ArrayList はさまざまなデータ型を取り扱いますが、
Borland の VCL のTStringList クラスみたいな文字
列を専用に扱うリストクラスはあるでしょうか？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　Dim ArrayList1 As New ArrayList
　　Dim S As String
　　ArrayList1.Add("Str1")
　　ArrayList1.Add("Str2")
　　S = ArrayList1(1) ← キャストが必要になる
End Sub

StringCollection
List(Of String)

ああ2005からはそういう無駄なキャストとかボックス化がいらんような
仕組みができたんだよね確か。
ジェネリックって言ったっけ？

>>377
ありがとうございます。

非アクティブウィンドウをアクティブにしないままキーって送れますか？

完全な入力エミュレートは無理。
WM_CHARやらを送るのがせいぜい。

キーで情報を送るって発想が間違ってるわけで。

TextBoxと別の経路（プロセス間通信）の入力結果を処理できる共通の関数作ればいいだけじゃん。
それを入り口を無理に一緒にする発想から離れないから変なことを考える。

文字を出力するときに「Tab」のインデントを挿入したい場合はどうすればいいんでしょうか？

すみません
プログラムが終了時に最後にイベントを起こすにはどうしたらいいですか？

熟練者の方にお伺いしたいのですが
フォームのサイズを変更するとそれに合わせてフォーム内に配置しているボタンやラベル、テキストボックスが自動位置調整されるような方法はありませんか？
アンカーを使ってみたんですが、アンカーを使うと害枠にあわせて調整されるため、中央付近が大きく開き配置がばらばらになってしまいます。
どうか助言のほうをよろしくお願いします。

あ、それかVB2005EEを使ってるんですが、編集画面内のフォームの中野配置をそのままの形で最大化できれば問題ないです
フォームのプロパティを最大化にしてもこれは起動時に最大化になるので編集画面内の配置とは異なってしまいます。
編集画面内のレイアウトを最大化のレイアウトにするという方法があればそちらの方で構いませんのでよろしくお願いします。

こんにちは。
VB.NETをやり始めたばかりの初心者です。

ファイルの中身をダンプ表示するプログラムを作成したいと考えています。
いずれはコンポーネント化したいと思っているのですが、どんな手法で
作ればよいか迷っています。

現在、Panelの上に文字を描画しようと考えていますが、他にスマートなやり方は
あるでしょうか。（まだPanelの上に文字を描画の仕方を調べている最中。とほほ。）

何か言ってやれよ、おまいら(・∀・)

今まで動いてたのですが今日いきなり、VB内でファイルの書き込みをするとIOExceptionというエラーが出てしまいます。
どうしてでしょうか？
Dim wrt As New IO.StreamWriter("../../test.txt", True, System.Text.Encoding.unicode)
これがそのエラー文だそうです。
今までは普通に動いてましたし、ここは弄っていません。

txtファイルのほうにゴミが入った。

環境は:WindowsXP,VS2005,.NET Framework version 2.0です。

どなたか教えてください。。

フォルダを圧縮したいのですが、中々できません。
ファイル単体を圧縮することはできたのですが、
フォルダのツリー全体を圧縮かけたいのです。

フォルダ一個ずつ圧縮する気はないのか

FileOpen関数と、StreamReaderってCSV読み込む場合どっちがおすすめ？

フォームにリストを作ってテキストの中身によって行がどんどん追加されていくようにはどうしたらいいでしょうか？

例外でたならせめてメッセージくらい読めよ

全部ネタに見えてくる

ちょっとスレちがいな気もしますが、ご存知の方いましたら教えてください　m(_ _"m)ペコリ
strutsでwebアプリを作成するのですが、諸般の事情によりsessionの
タイムアウトを設定できません(永続セッションにします)
なので、セッション領域の解放もれを回避する為に、JavaScriptの
onUnloadを使用して、セッションをinvalidする仕組みを考えて
いるのですが、思ったような動作をしてくれていません。
仕組みとしては、以下のようなscriptを考えています(ブラウザはIE6.0SP2以降限定です)。
function exitForm(){
if(event.clientX <= -8000 && event.clientY <= -9000 || event.clientX >= 32700 && event.clientY >= 32700) {
//ブラウザ閉じられたときの処理(テスト用にalert)
alert("exitForm");
}
}
<BODY onUnload="exitForm()">

↑のscriptをhtmlで試したところ、×ボタンによる画面クローズで
正常にalert出力されたのですが、Tomcat上にJSP化して配置してから
実行したところ、クローズ時のalertが出力されません。
event.clientXとevent.clientYの判定分をはずして試してみても、
結果は同じ(alert出ない)でした。
私の開発＆実行環境は以下の通りです。
Windows XP SP2
IE6.0 SP2
Tomcat 5.0.30

よろしくお願いします

すみません、javaスレと間違いました　m(_ _"m)ペコリ
javaスレに再カキコします

悲しいくらいのクソカキココンボだな

vb.net で、アクセスの .MDB の中に定義されているクエリを実行する事はできますか？
可能な場合, Access や Access のランタイムが導入されていなくても
vb.net だけの環境でクエリは実行可能ですか？
やはり、Access もしくは Access のランタイムは必要でしょうか？

質問があります。
ヘルプの説明によくある「このメソッドは O(1) 操作です。」の
O(1)操作って一体何の事なのでしょうか？

定数オーダ
対象件数が増えても処理時間が一定ということ

>>400
どんなクエリかわからないが、MDACがインストールされてればできると思うよ
少なくともうちでクロス集計のクエリは動いている

どなたかわかりませんか？

>>404
>>322から似たような質問が出てるんで読むと大吉。

背景が透明な画像をPictureBoxに貼り付けてもPictureBox内の画像とその周りは透明になるのですが
それを他のPictureBoxの上に乗せても後ろにある画像を透過してくれません
これはどうやれば透過してくれるのでしょうか？

それと、画像を読み込んだりして操作したプログラムをずっと使い続けているとwindows自体が重く感じられるようになるんですが
これは詳しくはわからないのですが、実行中にもある程度の感覚でメモリの開放みたいなものをしないといけないのでしょうか？

何度同じ質問するつもりだろうな。

あのねえ、例えば額縁に「透明な」ガラスの板をのせたら額縁の裏板が透明になるか？
そんなガラスあったら怖いだろw

>>407
>あのねえ、例えば額縁に「透明な」ガラスの板をのせたら額縁の裏板が透明になるか？
額縁に「透明な」ガラスの板をのせても透明なガラスの上から透けて見えるはずの額縁が見えないということですよ

画像ファイルとしては背景が透明なので、Paintなどで他の画像の上に重ねても、その下側になった画像を透過してくれるのに
PictureBoxに乗せて、他のPictureBoxの上に重なるように持っていっても下にあるPictureBoxを透過してくれないということです。
おそらくPictureBoxの下地を透過してるんだと思います。
あ、額縁とはそういうことですね・・。

この下地を透過する方法はないんでしょうか？

フォームを自由な形にすることは可能らしいのですが
ボタンやテキストボックス、ピクチャーボックスなどのコントロールの形を好きな形にすることはできますか？

.netってデバッグ中にソースの修正できないって事ないですよねぇ？
現在エディタでこのテキストを変更できませんってメッセージがでちゃいます。
調べてもよくわかりません。
どなたか教えてください。

2005のVBとC#はできる。2002/2003は不可。

>>411げっ！できないんですか…
モロ2003じゃん！
2005の購入検討してみます。
ありがとうございました。

>>410
実行中に変更してどうするよ

普通できてもやらんわなw

でもわざわざ変更できるようにしてるんだから、
やろうとする人がいるってことでしょ。

VB6 では、
type A
B as long
C(7) as byte
end type
declare function xxx lib "xxx" (ByRef AA as A) as integer

sub D_Click()
Dim wkA As A
Dim Result As Integer

Result = xxx(wkA)
end sub

これでウマくいってたのに、VB2005 では、
structure A
dim B as long
dim C(7) as byte
end structure
declare function xxx lib "xxx" (ByRef AA as A) as integer

sub D_Click()
Dim wkA As A
Dim Result As Integer

Result = xxx(wkA)
end sub
C(7) でエラーになったので、C()になおしたら、
Result = xxx(wkA)のあと、C に値が入ってこなかった・・・。
修正お願いします。

>>416
理屈も分からずに対処療法を聞いても危険なだけだから大人しく
MSDNでも熟読したほうがいいよ。

それが嫌ならプログラム書くのは止める事だな。

>>416
VB6とVB2005では整数型のサイズが違う
http://msdn2.microsoft.com/ja-jp/library/7f5ztkz3.aspx
配列を含む構造体の渡し方
http://msdn2.microsoft.com/ja-jp/library/eadtsekz.aspx

フォームに背景を貼り付けてレイアウトをNoneにした場合、元の画像のサイズそのまま左上に固定されて設定されるのですが
この左上固定って言うのを変更することができますか？
背景の開始位置の変更ということです。

アンカーかresizeイベントにコード書く

フォームの背景はアンカーできなくない？

質問させてください

現在、カーナビの地図のようなプログラムを作っています。
仕組みは簡単で大きな地図が一枚あり、店の種類を明記したボタンを設置しています。
それでそのボタン押すと、たとえばコンビニというボタンを押すと、地図にあらかじめ設置していたコンビニの画像がピカピカ光るというようなものです。

現在は、PictureBox1に地図を貼り付けて、各店の画像もPictureBox(x)に貼り付け、PictureBox1の上に重ねて上乗せしています。
そしてボタンを押すと対応していPictureBoxの画像を点滅するよう元の画像と点灯画像を交互に変更するようにしています。
ですが地図をスクロールすると各店の画像が地図とずれてしまうのですが、これを下地と同じ箇所に固定するにはどうしたらよいでしょうか？

よろしくお願いします。

PictureBox(x)の座標軸を、地図のスクロールに合わせて相対移動させ
ればいいんでは？

面倒だったら、透過画像にして地図と同じ大きさに全部配置したものを
用意、丸ごとスクロールに同期させるとか。

>>423
早速のレスありがとうございます。
スクロールに同期させるのはちょっと私のレベルではまだ難しそうなので、後者の方を試してみたいと思います。
ありがとうございました

それと追加ですが・・・

Pictureboxの指定範囲内をクリックしたらイベントを起こせるようなことはできませんか？
通常はボタンならボタン全体PictureboxならPicturebox全体がクリックイベント範囲内だと思うのですが、コントロール内の一部分だけで範囲を指定したクリックイベントを起こさせるようなことです。

Dispose()って必要？ってか使う？

>>426
必要なときは使う

>>425
PictureBoxのMouseClickイベントで
(Rectangle型の特定範囲).Contains(e.Location);
とかやって自分で判定

>>418
たいへん助かりました。
ありがとうございました。

初歩的な質問なんですが、例えばループ文を扱う場合にループ用の変数をグローバルで宣言しているのはあまりよくないと聞くのですが
自作関数を呼び出して、そこでループを繰り返しているのですが、その場合グローバルにしないと自作関数を呼び出す毎に変数を初期化してしまうのですが
こういう場合はどうしたよいのでしょうか？

どういうループだよ。
処理状態を覚えとくならメンバに持てばいい。

制御変数の初期値を保存しとくのならわかるが
制御変数を保存するってそんなやつおらんやろ

必要な時かぁ・・・

ピクチャボックスばっかり使ったプログラムを起動、停止ばかり繰り返しているとWindows全体がもっさりしてくるのはこのせい？
あと、Disposeはピクチャボックスを使ったプログラムで終了時にすべてのピクチャボックスをDisposeすればいいよね？
最後までグラフィックを描写してるから途中でDisposeはできないし。

すんません、フォームのloadイベントの反対ってないんですか？；
フォームを閉じる寸前に起こるイベントみたいな

思い切りあった、すません；
closedとclosingの違いってなんなんだろうか・・
言葉の意味はわかるけど、それがプログラム上ではどう実行時に違うのか・・

closingの方は閉じる前なのでキャンセルできる。

Formに貼り付けたピクチャボックスはFormのDisposeのときに同時にDisposeされる。
自分でnewしたぶんは自分でDispose。

ってか、ピクチャボックスを1個1個開放しないで、Me.Dispose()でForm内のコントローラーは全部開放してくれますか？

>>436
なるほど・・・勉強になりましたありがとです。

っていうか、MSDNちゃんと読めよ。
どういう時にDisposeを呼び出す必要があるのか、
正確に言えばどういうクラスがDisposeを実装する必要があるのかちゃんと書いてあるから。

意味もわからず「おまじない」的コードを書いて平気なセンスは恥ずかしいと思ったほうがいいよ。

意味もわからず「おまじない」的コードを書いて平気じゃないから質問してんだろ・・・

意味もわからず「おまじない」的コードを書いて平気な奴はここに来ない

MSDNの読み方を教えてください

昔ISDNはイスドンと呼んでいたからそれに従え

あ、いや、そういう意味じゃなくて中身・・・

質問があります。

Dim n(9) As Integer
上の配列は４バイト×１０個で合計４０バイトですが、
単なる掛け算ではなくこれを取得する方法はあるでしょうか？

する意味がどこに？

>>444
Buffer.ByteLength(n)

>>446
できました。
ありがとうございました。

環境の質問をさせてください　VB2005

目的
共通ファイル　Common.vb　を２つのプロジェクトで使いたい

PJ１　PJ２　共に　Common.vbより階層が下のディレクトリに存在する（同じドライブ）

「既存のファイルの追加」をおこなうと、ファイルがコピーされます。
----------------------------------------------------------------------

目的２
.com や.net　を使わないでvb.netレベルでのライブラリって出来ないものでしょうか？
幾つかのクラス（ファイル）をまとめて機能を実現したライブラリがあるのですが、

利用する場合、全てのファイルを既存追加＞しかもファイルがコピーされる
ライブラリの部分を変更した場合、その部分をcommon フォルダへ書き戻し...
他の方はどうしているんだろう？　
VB6だとコピーを作らずモジュールは参照していたのですが...

>448
＞他の方はどうしているんだろう？　

VB.NETで普通にクラスライブラリ（コンパイルするとDLLになる）を共通機能として実装して、
他のそれぞれのプロジェクトで参照設定して使用する。

ソリューション

リンク使えばソース共有はできるけど、普通はdllにする。
なんかdll嫌がる人が多いような気がするけど何でか分からん。
リンクファイルの方がいやだけどなあ。

１つのWindowsアプリを何人かで分担開発する場合、
いちばん多いやり方は、それぞれの担当部分をDLLとして作成し、
メインを担当している人から参照してもらうようにすることだろうな。

そのためのクラスライブラリだろ

または、各担当者から使ってもらうような
共通ユーティリティ部分はDLLだろうな。

いや、何人かで分割して開発する場合は、規模にもよるが
　メイン・モジュール担当・・・１人
　サブ・モジュール担当・・・・複数人
　共通モジュール担当・・・・１〜２人
で、
プロジェクト的には、１つのソリューションに
メインprj、サブprj、共通prjを配置して
　メインprjから各サブprjと共通prjへ
　各サブprjから共通prjへ
各々プロジェクト参照するのが普通で、
DLLなんて使わないだろう。

いや…それも含めてdllって言ってるだろ

プロジェクト参照って結局DLLによる結合じゃん

わざわざ参照方法で分けて書くつもりなら、
dllとだけ書かずに、dll参照とかプロジェクト参照って書いてる。

「DLL参照」と「プロジェクト参照」じゃ参照元プロジェクトが更新されたときの
参照先の対応が天と地ほど違うよ

>>449-459
レスありがとう

DLLについて＜　
DLLにすれば、他の言語も利用できるという利点もありますが、欠点もあります。
そもそも、単に共通のソースを使いたいというだけなので、エクスポート宣言、
インポート宣言、呼び出しの時のオーバヘッドなどがあり、DLLは望んでいる形とは違います。

API呼び出しをまとめて宣言しているAPIクラスを、DLL化というような事はしたくありません。
またクラス内に定義した、クラス用の列挙定義などはDLLにしても見えるのでしょうか？
DLLでは駄目なんですorz...

クラスライブラリ機能＞DLLになる

クラスインポートする？　
インポート宣言した場合、クラスをオブジェクトのイメージで使えるのだろうか？
単に関数なんでしょうか？

やりたい事は、いわいるCommon.vb をリンク参照したいだけなんですけどねorz...
インクルードがないのかなぁ....

おまいは一体何語を使ってるんだ

>>459んなこた分かっとる。
ソース共有したいっつうからdllでいいんじゃないの？
って言ってるだけだろ。
参照方法でには言及してないだけ。

>>460おまえ何か勘違いしてないか？

ついでにやりたきゃリンク出来るって言ってるだろ

>>460
http://msdn2.microsoft.com/ja-JP/library/9f4t9t92.aspx
これ見てリンクとして追加しろ。後は知らん。

基本分かってからやり直せ。
何言っても通じん。

確かに基本からやり直せという感じだな。

>>460
言いたい事は分かる。
だけど、それはVB6とかでDLL使う場合の話だ。

.NET(C#やVB.NET)でのクラスライブラリで生成されるDLLは、
それまでのDLLとはちょっと（つうか、可也）別物だから、勉強してみなさい。

TCP/IPのLANの設定かえるプログラム作りたいです。
対象はWIN2K、WIN XP
IPアドレス、サブネットマスク、DNS、WINS　等
実現するためのWIN32_APP もしくは.NET のクラスライブラリ
知ってる方がおられましたら、おしえてくらはい。

直接レジストリ編集する方法はわかったのですが、
再起動必要っぽいのでそれは避けたく、
再起動しないですむようなコードも知ってたら
教えてほしいです。

>>462
別にあなたとか特定の書き込みにレスしたわけじゃないんだが・・・（´･ω･`）

どの.NETスレも過疎りすぎ

Waveで鳴っている音のレベルを数値で表示するソフトがほしいです。
試しにdebug.writelineにxミリ秒毎に数字を出すようなプログラムを書いてください。

プログラム板じゃなくてソフトウェア板行けや

>>468
ＷＭＩでググレ

クリックイベントについて質問させてください。

現状のクリックイベントではクリックしてボタンから指を離した時点で、イベントが作動すると思うのですが
これをクリックした直後に動作させることは可能でしょうか？

つ「MouseDown」

つ「ありがとう、解決しました」

それとですが
例えば二つのボタンがあり、一つ目のボタンをクリックしてイベントを発生させ、そのままマウスのクリックを「離さず」に二つ目のボタンにずるずるポインタを移動させたら二つ目のボタンのイベントが開始するようなことはできませんか？
調べてみたらポインタがオブジェクト内に入ったらイベント開始はあったのですが、通常時にポインタがオブジェクト内に入ってイベントが開始されてしまい、それでは困るので
クリックしたままポインタがオブジェクト内に入ったらイベント開始のようなことはできないんでしょうか

>>476
不安定かもだが、フラグで制御するのが良いんじゃない？

>>476
もしマウスのキャプチャーって概念をしらないならそこに解決の糸口があるかもね。

でも、どうせこだわりを持つならもっと他の有意義なことにこだわった方がいいと思う。
経験上、WindowsのGUIのお作法に反逆するような、
そういうどうでもいいことに固執する奴はたいてい無能だ。

>>477
そうするしか思いつかないんですかね
クリックしたままだとマウスポインタが乗ったら起きるイベントのフラグがたつってことですよね
数が多いので大変だ。。

>>479
逆じゃないか？
押したらフラグ立てて乗った時にそのフラグを見るんだろ
もちろん放したらフラグは下げるの忘れるな

あと、同期化もしといた方が良いな

状態遷移と画面設計をもうちょっと詰めたほうがいいと思う。
ボタンを押したままドラッグなんて、どうやって思いついたのかな？

「そうするしか思いつかないんですかね」ってすごいな

でもみんなができないことをやったって自慢できるじゃないですか

で、この糞アプリ使えねえとか言われる訳だな

できないことじゃなくて、「やらないこと」だ

どんないいアイデアもこうやってつぶされていくのですね

いいアイデアと言い切る理由を説明してくれる？
既存の手段と比べて、どこがどう優れているとか。

そうするしか思いつかないんですかね
↑
私もそう思いついたんですが、やはりそうするしかないんですかね　の間違いです
文の訂正繰り返してたらなぜかそういう風にまとまってる・・

>>481
普通一般に使われるWindowsプログラムじゃないんで＾＾

>>480そうですね・・ありがとうございました。

いや、別に不特定多数に向けて配ろうっていうんじゃないなら何やってもいいと思うよ
でも身近な人以外に渡すなら、独自すぎる操作方法は採用すべきでないと思う。
どんなに丁寧なReadme.txtでも、読む人って本当に少ないから。

つか、操作方法はマニュアル見なくても直感的に分かるように
他の一般ソフトと揃えてくれと、いつも思う。
あとインターフェースとかもあんま凝らんでいいから・・・
何故かシステム絡みの人って変に凝り性が多いような気がする

自分で使うツールとかじゃねーの？
あるいは身内だけで使うとか・・・

すみません、ウインドウをスクロールさせるようなメソッドはありますか？

あーあだから「マウスのキャプチャ」をまず調べたらって言っているのに。。

操作性が糞かどうか以前に、そういう仕様はベタには実現できんよ。
実際やってみればすぐわかることだと思うけど。

>>493
どのウィンドウをスクロールさせるんだ

>>493
画像か、それともテキストか？

ウィンドウにスクロールバーが付いて、どんなオブジェクトでも自由
自在にスクロールできるとか考えてるなら、そんなのは無いよ。

ウィンドウ自体がスクロールするんだろ

いっそのことデスクトップをスクロールさせればいい。

ウィンドウ全体です
一応、主な中身はデータグリッドビューで
右側にも当然スクロールバーがあるのですが、それをボタンコンロトールのクリックで制御したいのです。
クリックして先送りのような

あ、補足ですがデータグリッドビューをフォーム全体に引き伸ばしてるので「ウィンドウのスクロール」でも大丈夫だと思って・・
データグリッドビューで指定位置までスクロールできるとかあれば尚いいんですけどね；

DataGridView なら行/列単位でスクロールできる
プロパティ&メソッドに一通り目を通せ

タブコントロールの質問

タブの内容を全て同じで実行中に新しくタブが作られたときも中のコントロルとか
同じものにしたいんだけどどうすればいいですか？

>>502
日本語を正確に

どういう意図かわかりませんが、「新規タブ」を押すとタブページが増える。
増えたタブの内容を、現在アクティブのタブの内容をコピーしたものにしたい。

こういうことですか？

DataTableについて教えてください。
現在、変更した行をDataTable.GetChangesで取得しています。
ところが１行しかデータのないDataTableの場合や、複数行でも１行変更して
すぐにユーザーが何か他のアクションを起こした場合に.GetChangesでは
変更した行を取得できません。

私は１行のDataTableだったら、DataTableを複製し、オリジナルのDataTableを
.RejectChanges()で戻してオリジナルと複製を比較するしかないかなと
思っていますが他に良い手段があれば教えてください。

>>504
どの時点でGetChangesを使っているのかが問題だ。
MSDNにはこう明記してあるけど、タイミングを間違ってないか？

「前回 DataTable を読み取るか、AcceptChanges を呼び出した以降
　にこのデータセットに対して行われたすべての変更が格納されてい
　るこのデータセットのコピーを取得します。」

>>505
レスサンクス

DataTableにデータを読み込んですぐに.AcceptChangeを行っています。
もうちょっと詳しく書くと、行を編集し後に他の行に移らないと.GetChangesで
編集した行を取得出来ないようです。
検索結果で1行しか取得できなかった場合は他の行に移れないので
.GetChangesで取得できないようです。
何かプロパティ無いか探してみます。

EndEdit

>>507
ヒントサンクス

ちょっと調べてやってみます。

解決しました。

DataTableをTextBoxとDataGridViewにそれぞれデータバインドしていました。
DataGridViewはEndEdit()を実行して確定、TextBoxの方はDataTableのColumnChangedを利用して
Row.EndEditを実行して確定させました。

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

>>503
そういうことです。説明不足ですみません。

よろしくお願いします。

TcpClientでReadする前にデータがあるかどうかを調べる方法を教えてください

VB.netでIEから呼び出せるクラスorコントロールライブラリって作れます？
ライブラリを登録してスクリプトから呼び出すと、VBScriptでCreateObjectでは読めますが、
そのスクリプトをhtmlにインポートするとCreateObjectでは作成できなくなっています。

おそらくセキュリティ系のような気もしますが、結構緩く設定しているのでダイアログ表示もなく
いきなり作成不能なんてことは考えられません。

似たような問題に遭遇した人いますか？または解決法ご教授お願いします。

>>511
データがあるというのをどう定義すればいいのか謎だが、取りあえず Available

VB2005で
ヘルプを選んでButtonとか検索したときにローカルのヘルプが引っかからなくなってしまったのですが
何か解決策につながるような事はありませんか？

>>510
コントロールの属性や値を保存して、コピー先に転送する。

ヒントは「イニシャライズコンポーネント」に書かれているコード
コントロール作るとエディタが自動的に書いてるよね？
あれを参考にしてみれば如何でしょう

vb2003 windows forms で、a.exe のコンストラクタで、b.dll を Show している
のですが、その時 b.dll のフォームが Active にならずに困っています。

b で Me.Activate() などやってもだめです。

強制的に、自分自身をアクティブにしてしまう、という事はできないでしょうか？

>>515
ご丁寧にありがとうございます。
またわからなかったらよろしくお願いします。

>>516
コンストラクタの中で他のＤＬＬのＳＨＯＷをしても
コンストラクタを抜けてＡ.EXEのFormLOADイベントで、
アクティブが移っていると
考えられます。

１回きりのタイマーなどを使うのは如何でしょうか？
A.EXEのLoadでトリガーを。

ファイルのプロパティの概要のタイトルとかを読むことは出来たのですが、設定するには
どうすればいいのでしょう

App.config

だから、、、コンストラクタの中で表示にかかわる処理は書いちゃダメだって。。。

くぁしく

表示が完了する前にコンストラクタの実行が完了するなんて保証はないから

何を言ってるの分からん。

起動開始
クラスの構築
ＦＯＲＭの構築
FORM　Load　イベント
コントロールの　Load イベント

このような順番で解決されます。
さて、ではクラスのコンストラクタでFORMの内部に触れる事は可能なのでしょうか？
このままだと「ヌルポ」になってしまいます。
起動時のクラスのコンストラクタの処理中に「描画に関わる部分」を触ってはいけないというのは
このような理由なのです。

しかし、限定的ではありますが「my」宣言子がそれを解決しています。
これらも同時に調べて見ては如何でしょう。

>>525
人に偉そうな事言う前にまず君自身の日本語の能力をなんとかした方がいいんじゃないか

>>525
だけど、 InitializeComponent()の中でサイズとか位置とか色とか
がんがん設定してるじゃない。
InitializeComponentはコンストラクタの中から呼び出されてるはずだよ。

流れ的に>>521 >>523 >>525なんだろうけど
そもそも>>521は何に対するレスなんだ？
まさか>>516？

.NETにぬるぽは無い

＞表示が完了する前にコンストラクタの実行が完了するなんて保証はないから
意味不明だろ。

このスレにはエスパーが必要だ、エスパーまだー？

me.esper

VS2003を使っています。

TabControlで、マウスがHoverしている位置のTabのIndexを取得する
にはどうすればいいのでしょうか？

ダブブラウザ(IE7のような感じ)で、マウスをHoverするだけでTabPageを
切り替える事が目的です。
ご存知の方いましたら、ご教示していただければ幸いです。
よろしくお願いいたします。

GetTabRect

>>527
だから＞　me.演算子が使われています。ok?

>>529
インスタンス化しない状態で、
クラスのメンバを参照したり、変数を参照すると実行時エラーで停止します。

それがヌルポ

>>535
My演算子？？？じゃなかったのかよｗ

画面表示とかコンストラクタのタイミングとか、
全然関係ないじゃねーか。

>>535
よく分かってないくせに背伸びするなって。
隠したつもりでも分かってる人間なら絶対にしないような言い回しでバレバレ。
みっともないよ。

アンカーミス
>>535-537、ね。

（誰へのレスというわけじゃないが）

InitializeComponentメソッドの中で
例えば、
　Me.ClientSize = New System.Drawing.Size(200, 100)
とかやってるわけで
このとき、InitializeComponentはコンストラクタの中で
実行されているわけだから、まだこのフォームのオブジェクトは
生成されていないわけで、それなのにMeを使うのは
ヌルポじゃないか

ということに疑問を持っている奴がいる、ってことじゃないか？

>>534
できましたーー！
ありがたや、ありがたや。

イニシャライズコンポーネント内では、コントロールの生成を行って、その後各プロパティ読み込みでしょ。
その順序を守ってれば、別にコンストラクタ内でも何らかの初期化はOKでしょ。
ただし、イニシャライズコンポーネントの後じゃないと当然コントロールが存在しない。

あと、イニシャライズコンポーネント内では、SyspendLayoutってメソッドで連鎖制御してる。
その辺をきちんと理解すれば、別にコンストラクタ内で初期化してもOKでしょ。

>>539
おいおい>>537もかよ。

>>516　のフォームのアクティブ化の問題にだけ答えると
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler Application.Idle, AddressOf AppEvh_Idle
    End Sub
    Private Sub AppEvh_Idle(ByVal sender As System.Object, ByVal e As System.EventArgs)
        RemoveHandler Application.Idle, AddressOf AppEvh_Idle
        Dim fm2 As New Form2
        fm2.Show()
    End Sub
End Class

MSDNをみるとフォームを表示後すぐCloseする場合もこの手法を使うように書いてある。

>>542
おお、目からうろこだ！

データベースを使用せずデータセットだけを使ってデータを管理しようと
したのですが、データセットに項目を追加してビルドをすると
自動生成されたデータセットのヘッダーで
「C1004: 予期しない EOF が見つかりました。」
と出ました。ヘルプを見てもこのエラーとは関係ないものばかりでした。
どうしてこのエラーが出るのかが分かりません。
分かる方教えてください。

>>データセットに項目を追加してビルドをすると

ここをもっと詳しく具体的に説明してくれないか？

>>547
データセット名がdataset1で、dataset1.xsd内でツールボックスから
以下を追加しました。
elementで一番上のテーブル名(?)を,DataItemにしました。
その下に、elementで名前をitem1、typeをintにしました。
その後ビルドすると、エラーになりました。

VBのコード見るとなごむよね。いやされるっつうか。

殺意しか沸いてこないんだが

殺意が沸くようなコードを書いてるやつはVBを使ってることが多い

>>548
その作業でどんな設計のDBができたつもりなのか、フィールド名や定義
も含めて日本語で詳しく説明してみよう。なんかDB設計もあいまいなま
ま、とりあえずいろいろ触ってなんかできましたって印象を受けるし。

データを外部に置きたくない理由が不明だけど、SQLとか使ってデータ
の操作をするつもりなら、アクセスファイルに素データ入力したやつに
ADO.NET経由で接続したほうが楽だと思うんだがなー。

VBの２００５とか新しくなっても使いづらさやバグが全然直ってないんだねえ・・・
これまともに開発するツールじゃないなあ

自分の能力の無さを開発環境のせいにするのは良くないと思うよ

エディタが糞なんだよな、まったく。
勝手に単語間のスペースを詰めちゃったり
余計なことばかりする。。。(　ﾟдﾟ)､

あ、やっぱりバグを認めない基地外信者に叩かれると思ってたよ！

ん、そろそろ夏休みのシーズン？こういうの増えそうだね。

「俺はお前らとは違うんだよ！」って卑屈に歪んだ優越感を、存分に
まき散した文章書くから、すぐにわかるよね。

VB厨乙

DataGridViewでボタンを押すと指定した位置(行）までスクロールしてくれる方法は分かったのですが
最初の行に戻るはスクロールの値を0にでいいとして
最後の行に移動する場合はどう指定してやればいいとおもいますか？
グリッドビューの中身はテキストから読み込んでいるのでグリッドビューを読み込み毎に変わります。
グリッドビューの行数を数えてくれるような事はありますか？それかテキストの行数をどこかに格納してそれを最終行として格納した方がいいんでしょうか？
グリッドビューの行数を数えてくれる方法があればそちらの方が簡単だとは思うのですがないのかな・・・

それとももっと簡単に自動で最終行にまで移動してくれるような方法はあるんでしょうか？
よろしかったら助言の方をよろしくお願いします。

最大行までスクロールすれば良いだろ

ヒント：行のコレクション

すみません、質問ですが・・
ボタンのclickイベントを追加したら、何故かデザイナのコードに追加されてしまいます。
それからプロジェクトツリーからそのフォームをダブルクリックすると画面が開かずに
デザイナのコードが表示されるようになって、画面を開く事ができなくなってしまいました。
プロジェクトツリーをみるとフォームのアイコンではなくてコードのアイコンになってます・・
これ普通に画面表示されるにはどうしたらいいのでしょうか？

もしかして継承元を変更した？

>>563
別のプロジェクトでフォームを作ってもそうなるか確かめる。
それがうまくいくようなら、うまくいかなくなったコードとよく比べてみる。
どこかクラス名とか大事なキーワードとか消したり変更したりしてない？

>>564-565
お答えありがとうございます。
継承元等は一切変更していません。
普通に画面を作ってからプロパティウィンドウからbuttonのclickイベントを追加したら
デザイナのコードにclickイベントが追加されたのが事の発端だと思いますが・・
ほかの画面は普通に開く事ができますし、新たに画面を追加して同じ操作をしても問題なく画面はひらいてくれます。

　> デザイナのコードにclickイベントが追加されたのが事の発端だと思いますが・・

それって何かいけないことなの？(・∀・)

>>567
デザイナのコードじゃなくて普通のコードの方にイベントが追加されます。
画面を見ずにデザイナのコードだけで画面を作ってイベントを追加するならそれでも問題はないですが・・

デザイナーじゃない普通のコードってなんのことだろうな
普通って何だよw

どうせフォームのリソースファイルを誤操作で削除しちゃったとか、
そんなところじゃないの？
リソルーションエクスプローラで「全てのファイルを表示」にして確認した？

あと、開発ツールのバージョンぐらい書くでしょ普通。
IDEの不具合を疑ってるわけでしょ？

2005で、パーシャルされたでざいなー｡ｖｂファイルじゃないの？

>>569
おっと確かにバージョンを言ってなかったですね。
Visual Studio 2005です。

普通のコードって言い方も変ですよね。
デザイナじゃない方のイベント等を書くほうのコード・・

＞どうせフォームのリソースファイルを誤操作で削除しちゃったとか
そんな馬鹿げたミスなら最初からここにはきませんよ。

まあ、とにかく言いたいことは、デザイナのコードがちゃんと存在するのに
デザイン画面で出てくれないんですよ、プロジェクトツリーでそもそもその画面は
フォームとして認識してないみたいです、アイコンがフォームのアイコンではなくなっているので。

プロジェクトを＿別のパソコンに入ってるIDE＿に持っていっても、同様
の現象が出るのか確認したか？　出るならファイル自体が、出ないなら
最初のパソコンに入ってるIDEが妙なんだろう。

他にパソコン持ってないってんなら、IDEの新規プロジェクトでボタンク
リックを追加して様子を見るとか、もっと問題の切り分けをしっかりし
たほうがいいよ。

>>そんな馬鹿げたミスなら最初からここにはきませんよ。
ひとに質問するときには、もうちょっと謙虚に発言したほうがいいよ。

プロジェクトファイルが壊れてるんだろ

>>572
だって、そんな馬鹿みたいな返答するほうもどうかとおもうけど？
あれは答えてるというよりただの煽りにしかみえないし。
>>573
壊れてねーよカス

クラスファイルを新規作成して
Public Class Class1
　　Inherits System.Windows.Forms.Form
End Class
ってやるだけでフォームのアイコンになるんだけどなあ。
本当に継承壊してない？

>>574
ちょっと待てよ。
プロジェクトファイルが壊れてその症状てのは
比較的多いパターンだぞ。確認して言ってんのかどっちだ？
けどもうしるかﾎﾞｹ

>>575
それはデザイナのコードですよね？
それは他のコードと比較しても壊れてる様子はなく、実行するとちゃんと画面はでてきます。
ちなみに、画面が出ないのは設計時の話です。
>>576
確認してるつってんだろ！”カスがああ！！

>>577
んじゃ、Inheritsの行を１回消して、また元に戻したらどうなる？

>>578
おかわりありませんでした

>>579
んじゃ、新規フォームを追加してそれのDesiner.vbに
壊れてるフォームのInitializeComponentから下のコードを上書きしたらどうなる？

なんでプロジェクトファイルの話だけ
いきなりそんなにつっかかてんだ？

近くの人にそういって馬鹿にされた感じで言われたんじゃね？

>>580
Desiner.vbは盲点でしたがかわりませんでした。

>>581-582
(´,_ゝ｀)ﾌﾟｯ

だめだ、理解できん。

>>583
新規にプロジェクト作成して、その新規プロジェクトのフォルダに
件の問題のあるフォームのファイルを全部コピペしてプロジェクトに追加してみれば
問題がプロジェクトにあるのか、それともフォームのコードにあるのか
問題の切り分けができるんじゃない？

>>583
Desiner.vbが盲点て、君が「デザイナのコード」と言ってたのはDesiner.vbのことじゃないの？
まあ、それは置いといて新規フォームは当然フォームのアイコンなんだよね。
で、InitializeComponent以下を置き換えたらコードのアイコンになるのか？
だとしたらそこのコードに問題があるわけだ。どこが悪いかはコードを見なきゃ分からん。

>>585-586
ご親切にありがとうございます。
新規フォームはフォームのアイコンになります。
InitializeComponent以下を置き換えてもコードのアイコンになっています。

まず、言われた事をやってみる事と、もうちょいわかりやすく状況を整理したいとおもいます。

環境 VB2005、WIN2k
初心者な上で説明下手で申し訳ないですが、
単純なリスナーフォームとセンドフォーム(TCPでもUDPでも
どちらでもよい)を作って、A家からB家に、TextBox の内容を
送るプログラムを作った場合、ADSLモデムで NAT の設定とかしないと
通信できないのでしょうか？

A家もB家も、ADSLモデムにグローバルアドレスがあって、
各PCにローカルアドレスがある状態です。

モデム

A家でもB家でも普通にインターネットでホームページとか見られる？
だったら全然問題ないでしょ。
TCPにしてもUDPにしてもHTTPより下のレイヤの話だから。

いやそれ理屈が逆

>>588
スレ違いだよん

実際に作って試しているのですが、自分のPCのローカルIPで
実験すると成功するんです。で、ヘンな事だとは思うんですが、
ADSLモデム(言い方変ですか？)のグローバルIPを指定すると、
うまくいかない。いっかい外を通って自分に返ってくる(？)みたいな
イメージで試してるんですが。

>>590
普通に見ることができます。

>>588
リスナーフォームが動いているPCのIPアドレスと
リスナーフォームが待ち受けに使用しているポート番号を
リスナ側ADSLモデム(ルータ機能ありだろ？）上でポート転送を設定する。
リスナ側ADSLモデムのIPアドレスと上記で設定した済みのポート番号に対して
センドフォームからSocket通信する。

>>593
ＡとＢ、どっちがホストか知らないけど、クライアント側がホスト側のグローバルＩＰ（＋ポート）を指定してやれば出来るんじゃないの？

>>595
それってホストのどのPCに届くんだ

>>577
おまえプロジェクトファイル見ておかしくないって判断できるのか？
どこを確認しておかしくないって判断したのかいってみろよ。

文字化け等してない＝壊れてない
って判断だろ、きっと

こんなとこで当たり散らすよりもさっさとあきらめてプロジェクトファイルを作り直したほうが早い気がする

Desiner.vbとは何か？オレは知らない

>>595
その方法だと、グローバルIPの先にPCが複数台繋がっていた場合、
どこに届ければよいか判断できないのでは？
そこで、594氏のアドバイスを受けてモデム側のポートマッピング設定で
ポートを登録して試してみましたが、ダメでした。

>>592
VB外のポート設定なのか、VB内部のソースでWAN通信用のコマンド等が
あるか判断がつかなかったので書かせてもらいました。
VB関係なく、モデム側の設定でしたらスレ違いですが、だとすると
またまた疑問がわいてきて、winny などのP2Pは、そういう設定が
いりませんよね？プログラムから直接そういうのを行ってると思われる
のですが、VBじゃムリ(もしくは難解)なんでしょうか。

>>591
何がどう逆なんだよ？

>>601
>>winny などのP2Pは、そういう設定がいりませんよね？

質問の内容から思うに、そういう設定は必要だと思うが。

つーか、使用しているそのモデムって奴の製品名は何？

>>603
AtermDR205C デス。

>>604
ttp://www.losttechnology.jp/Tips/aterm.html

この系統だと思われるが、この手の設定がきちんと行われている「あて先ローカルＩＰも間違ってない」のに、接続できないのなら
ファイアーウォールが邪魔している可能性があるが。
やっぱり、激しくルーターの設定の問題だと思うが、

ＶＢの問題だと思うなら
ttp://codezine.jp/a/article.aspx?aid=22
ここで公開されているサンプルで一度テストしてみた方が手っ取り早いかと。

Windows上のファイヤーウォール設定も必要だろうな。

>>602
下位のレイヤでつながっているなら上位のレイヤはつながるといえるが、
上位のレイヤでつながっていても下位のレイヤでつながるとはいえない。

てのがまあ一般的な話。

>>607
おまい、言ってることが逆だろｗ
下位レベルのプロトコルで正常に通信できていても
上位のレイヤでアプリ同士がプロトコル守っていなかったら
正しく通信はできないだろうが

プロトコルまもってなかったらてそんな話してんのかよ。
守った上での話しだろ普通。

IPより下のレイヤでネットワーク間の通信ができるか？
HTTPレベルでプロキシ使っているときにTCPレベルで通信できるか？
レイヤの上下ってのは普通そういう話。

>>609

　> HTTPレベルでプロキシ使っているときにTCPレベルで通信できるか？

できるよ。つか、できなかったらおかしいじゃんよ。TCPはHTTP専用か？ｗｗ
HTTPプロキシは文字通りHTTPプロトコル上での話し。TCPのレイヤとは何の関係もない。
HTTPのレイヤで正常に通信できているなら、それより下のTCPやさらに下のIPのレイヤで
通信ができていないわけがない。

レイヤの概念とかピンとこないひとは、ここ読むといいよ。
ttp://www5e.biglobe.ne.jp/~aji/3min/06.html

>>610
んー、じゃなくてさ、
HTTPよか単純にIPとその下のレイヤのが意味分かりやすいか…

IPによってインターネットでの通信ができるんだから、
それより下のレイヤでもインターネットでの通信できてるに決まってるだろ
ってあんたは言ってるんだぜ。

ってか、俺が言ってる意味は上のような意味。
あんたが言ってるのはちょっと違う意味。
あんたの言いたいことはそれはそれでまあ分かるんだけど、
俺はそういう意味では言ってない、てだけか。

>>612

　> IPによってインターネットでの通信ができるんだから、
　> それより下のレイヤでもインターネットでの通信できてるに決まってるだろ
　> ってあんたは言ってるんだぜ。

ちょっｗ、そんなこと言ってないよ。困っちゃうなぁ・・・もういいやｗ

おれは最初からレイヤの上下の話をしてるだろうが。
レイヤの上下ってのは一般にそういうものという話。

＞できるよ。つか、できなかったらおかしいじゃんよ。TCPはHTTP専用か？ｗｗ
＞HTTPプロキシは文字通りHTTPプロトコル上での話し。TCPのレイヤとは何の関係もない。
＞HTTPのレイヤで正常に通信できているなら、それより下のTCPやさらに下のIPのレイヤで
＞通信ができていないわけがない。

HTTP専用のプロキシ越しで通信できるのは、HTTPだからだろうが。
TCPやIPのレイヤでは直接はできんだろうが。

なんでIPとそれより下だけ別の話にして
上のレイヤは違うんだ。

＞ちょっｗ、そんなこと言ってないよ。困っちゃうなぁ・・・もういいやｗ
なにが困っちゃうなぁだ。
どっかのD9Nじゃねーだろなおまえ…

　 ┏┳┳┓ 　 　 ハイ. 　 　　┏┳┳┓
┏┫┃┃┃ 　スレ違いは 　 ┃┃┃┣┓
┃┃┃┃┣┓ 　 ここまで ┏┫┃┃┃┃
┃　 　 　 ┃┃┏━━━┓┃┃　 　 　 ┃
┃スレ違い ┣┫ . ･∀･ ┣┫. STOP！┃
┗━━━━┛┗┳━┳┛┗━━━━┛
　 　 　 　 　 　 ┏┻┓┃
　 　 　 　 ┏━┛　 ┣┻┓
　 　 　 　 ┗━━━┫　 ┗━┓
.　　　　　　 　 　 　　┗━━━┛

>>614

　> HTTP専用のプロキシ越しで通信できるのは、HTTPだからだろうが。
　> TCPやIPのレイヤでは直接はできんだろうが。

おまえなぁ、いいかげんにしろよなｗ
そんなことあたりまえじゃないか。誰が「TCPやIPのレイヤでHTTPプロキシ越しに通信できる」
なんて言った？レスよく嫁よｗ

最初に戻って言うとだな、>>588と>>593のレスで
A家もB家も普通にインターネットでサイトを閲覧できていることがわかってるわけだ。
それならば、TCPレイヤでのパケット通信はできているはずだな。なぜなら、
TCPレイヤの上位で動くHTTPでの通信ができているからだ。
それならば、IPアドレスの解決は当然できているはずだな。なぜなら、
IPレイヤの上位で動くTCPでの通信ができているからだ。
それならば、>>588で言っている「ADSLモデムでNATの設定」云々ということは
必要ないぞ。と言ったわけだ漏れは。
ADSLモデムがルータなら、配下の各PCにローカルIPが割り当てられていたとしても
サイトが見れていると言うんだから、当然NATなり何なりの処理でグローバル⇔ローカル変換が
行われているはずだからだ。

そこで>>588はHTTPじゃなくて、TCPやUDP(これはほとんどIPだな)のプロトコル上で
独自のプロトコルを策定するなりして、テキスト転送をしたいと言ってるわけだな。
それならば、上で言った利用で>>590で「問題ないよ」と言ったわけだ。

もちろん、作成するアプリがバカなら通信はできないよ。あと、特定のIPアドレスを
フィルタリングしてるようなファイヤーウォールがあれば無理だよ。

>>593
そのあて先のパケットは通常ルータ（モデム）が遮断するよ。
遮断しないルータ（モデム）もある。
なんか見当ハズレなレスが多くておじさんびっくりだよ。

俺は最初からレイヤの上下の一般的な話をしてるって何度言ったら分かる。
今回の細かい話をしてるんじゃなくて、
「上位のレイヤで普通に通信できてるなら下位のレイヤでもできてる」
って言い方が一般のレイヤの理屈と逆だって言ってるだけ。
※最終的に下位のレイヤの組み合わせでで通信できてるのは当たり前だが
　そんなことを言ってるんじゃない。

おれは最初からそういう部分の話をしてるだけ。

＞そんなことあたりまえじゃないか。誰が「TCPやIPのレイヤでHTTPプロキシ越しに通信できる」
＞なんて言った？レスよく嫁よｗ

＞できるよ。つか、できなかったらおかしいじゃんよ。TCPはHTTP専用か？ｗｗ
＞HTTPプロキシは文字通りHTTPプロトコル上での話し。TCPのレイヤとは何の関係もない。
＞HTTPのレイヤで正常に通信できているなら、それより下のTCPやさらに下のIPのレイヤで
＞通信ができていないわけがない。

おんなじことだろが。
HPを普通に見れてるがなんでプロキシ越しじゃないと断言できるんだよ。

てまあ今回の話がどうとかじゃなくて、俺が言いたかったのは、ただ単に
--
「上位のレイヤで普通に通信できてるなら下位のレイヤでもできてる」
って言い方が一般のレイヤの理屈と逆だって言ってるだけ。
--
てことだけ、それ以上のことじゃない。
NATとかのレベルの話もしてない。ただ上のことだけ。

少なくとも>>590は全くの検討ハズレ

多くのルータは自分のWAN側アドレス宛てのLAN側から来たパケットは遮断する
という機能を実装しています。

要はポート空けろってこったろ。
もうレイヤの話はやめろ。うざい。

通信の話自体がすれ違い。
その前にひどいまとめ方だな。

いろいろアドバイスありがとうございました。

LAN内からは、外部から内部への確認、ができない
のは初めて知りました。素直に知り合い(B家)に
協力をあおぎます。

それと平行して、モデム、ファイアウォール等の
設定はせずにVB内だけでできるのか模索してみます。

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

>>619

　> 俺は最初からレイヤの上下の一般的な話をしてるって何度言ったら分かる。
　> 今回の細かい話をしてるんじゃなくて、

どうやら、おまいの言うところの「一般」の認識は、漏れとは激しく食い違ってるようだな。
それだけは了解したｗｗ

さっきからずっと漏れが言っている「通信」というのは、インターネット通信とかの
なにか一定のプロトコル上での通信のことじゃなくて、各々のレイヤにおける
プロトコル上での通信（パケットのやり取りもあれば、電気信号や電圧の変化の
ことだってあるだろう）のことだよ。そのような各レイヤでの「通信」が
正しく行われていなければ、それを土台にして積み上がっているレイヤでの
プロトコルに基づく通信は、当然実現し得ないはずだと言ってるんだよ。
だから逆に言えば、あるレイヤ上で動いているアプリでふつうに「通信」できているのなら、
それより下のレイヤはすべて各々の責任を果たしている（つまり「通信している」）と言える。
そういう意味のことを漏れは言っているわけ。
だから、
おまいが（おまいだよな？）>>607で、
　> 下位のレイヤでつながっているなら上位のレイヤはつながるといえるが、
　> 上位のレイヤでつながっていても下位のレイヤでつながるとはいえない。
と言っていることのどこが「一般的な」言い方なんだろうか？と思ったわけよ。
あるレイヤで通信できている（＝つながっている）ことが、それより上のレイヤの
通信を保証するわけないだろうが。つか、できないだろうそんなこと。

スレ違いどころか板違いの討論を相手が白旗を揚げるまで
延々と繰り返すスレはここですか？

ま　た　V B　厨　か

>>561
その最大行までスクロールの値が分からないのです
VScroll=0で最小行
最大行の値はなんなんでしょうか？
書いてる通り最大行数は起動毎に変動するので数を指定することはできません


>>562
行のコレクションとは？

通信のレイヤに関する話で、
例えば端末同士がIPで通信できてるから、物理層でも端末同士で通信できてるはず。
なんてことは普通言わない。
レイヤの上下の話ってのはそういうレベルの話。
そしてごく当たり前に出てくる話。
それだけ。

レイヤをNGワードにしたらすっきりしたｗ

自分で突っ込んどいて何言ってんだか。

>>629
「通信のレイヤに関する話」で「IP」とか「レイヤ」とか「物理層」とかの言葉を使うことが
「普通」じゃないと言うのなら、おまいの言う「レイヤの上下の話」ってのは、まったくもって
低レベルな話ってことになるなｗｗ

どこをどう読んでそうなるのか理解できん。

>>628
つ「DataRowCollection.Countプロパティ」

これからは、ヒントを元にぐぐるということを覚えたほうがいいよ。

絶対に自分が言い負かさないと引き下がれないカスが多くて困るな、板違いだから失せろ

＞＞６３４
DataGridViewには残念ながら使えません

>>624
>>593
でローカルIPでは成功してるって言ってるんだからVBの問題じゃなくて
ルーターとファイアウォールの設定だけだと思うが

だったら DataGridViewRowCollection か。
DataSourceからでもたどれるだろうしどうにでもなろう。

コード上はRows.Countだけどな

>>636
2.0だったらこれでも使いなよ。

ttp://msdn2.microsoft.com/ja-jp/library/system.windows.forms.datagridview.rowcount.aspx

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

>>640
DataGridView自体2.0にしかないよ。

VB.NETでトランプゲーム（カードの配布はスロットのような感じ）を作っているのですが
例えば
1〜10（整数）に
英文字『J』を加えてランダムに表示させる時に
Label1.Text=((10*Rnd())+1)
↑をどう変形（付け加え）すれば良いでしょうか？
『予め要素を配列に格納して、取得した乱数とインデックスとを対応させれば良いかも』とはお伺いしたのですがよくわからずに
普通の（乱数を使わない）スロットのようにタイマーを使って
Val(123456789)の9の右にJを入れて、Right（１文字）+left（９文字）を使ってみるとエラーになります

また、そのJという英文字に11という数字（と同じ意味；同じ数の大きさ）を与えるには、どのようにすれば良いのでしょうか？

前者の質問も後者の質問も
Val(J)=11としたりJ=11としたり、それらを『Val(123456789)&』の後に付けたりしてもうまくいきません

どうかご指南の程をよろしくお願いします…

Card クラス作って配列に格納。カードは完全なランダムじゃないしな。
表示は ToString のオーバーライド。

あと、配列じゃなくてList<Card>とか使ったほうがいい
644じゃないけど

>644
ご親切にありがとうございました!!

>645
ありがとうございます！
はっきり言って、全く意味がわかりませんが、後は初心者スレで聞いて頑張ってみます。

ヘルプには、RichTextBoxの入力文字数制限はMaxLengthでできると書いてありますが、
実際入力してみても全く制限してくれません。
Maxlength=100と設定しても、平然と何百行(何千文字)も表示されてしまいます。

本当はどこで限界文字数を設定できるのでしょうか？

MaxLength はユーザからの入力の制限文字数
自前で操作するんだったら自前で考慮して操作

あららなるほど
ありがとうございました

ドラクエのスライム→スライムベス
の様に、画像の特定の色を別の色に変えて表示したいのですが、どうすればいいのでしょうか？

Dim oTargetImage As System.Drawing.Bitmap
Dim x, y As Integer
Dim c As System.Drawing.Color

oTargetImage = My.Resources.sample

For x = 0 To oMatchImage.Width - 1
For y = 0 To oMatchImage.Height - 1
c = oMatchImage.GetPixel(x, y)
If c = Color.FromArgb(255, 255, 255) Then
oMatchImage.SetPixel(x, y, Color.FromArgb(0, 0, 0))
End If
Next
Next

と書けばいいのかと思ったのですが、
「SetPixel は、インデックス付きピクセル形式のイメージに対してサポートされていません。」
というエラーメッセージが出ます。

パレット形式のなら Palette 書き換えればいい話じゃね？

>>652

Palettesクラスというものがあることを知りませんでした・・・
というわけで

Dim oColorPalettes As System.Drawing.Imaging.ColorPalette
Dim oTargetImage As System.Drawing.Bitmap

oTargetImage = My.Resources.sample
oColorPalettes = oTargetImage.Palette
For i = 0 To oColorPalettes.Entries.Length - 1
If oColorPalettes.Entries(i) = Color.FromArgb(255, 0, 255) Then
oColorPalettes.Entries(i) = Color.FromArgb(0, 0, 0)
End If
Next
oTargetImage.Palette = oColorPalettes
Me.PictureBox.BackgroundImage = oTargetImage

としてみたのですが、パレットが変わりません・・・。
試しに、
For i = 0 To oColorPalettes.Entries.Length - 1
oColorPalettes.Entries(i) = Color.FromArgb(0, 0, 0)
Next
としてみたのですが、やはり変わりません。画像表示部分に問題があるのでしょうか。

最近VBの勉強を始めて、ごく簡単なゲームなら作れそうかも、と思ったので挑戦中です。
が、壁にぶつかってしまいました・・・
たくさんのラベルがあって、変数の値によってtextを変化させるラベルを選ぶようにしたいのです。
例えば変数Xに値が入っているとした場合、Label(X).text="略"
みたいな感じでラベルを指定したいのですが、どのような方法がありますか？
上は理想を簡単に書いただけなので、結果が同じであればかまわないのですが・・
今の自分の知識ではSelect文を使うくらいしか思いつかないのですが、非常に冗長になるのでもっと簡単に纏められる方法があると嬉しいのです。
宜しくお願いします。

>>653
>             If oColorPalettes.Entries(i) = Color.FromArgb(255, 0, 255) Then
まずこの判断文を通ってるのか確認すれ。
そんな色がないとか実はパレット使ってないとか。

>>654
そもそもそんなに Label を並べるもんじゃないが。直に描画するのが一般的。
どうしてもやりたいなら事前に Label の配列つくっとけ。

>655
どうも有難う御座います。作ろうとしているゲームってのはマインスイーパでして、Windows付属のものを参考にして出来るだけ似たものをと思っています。
マスの数を変更する方法がわからないので今はおいておいて、とりあえず10*10の100マス固定で作ろうと試みているのですが、
クリックしてマスの外見が押下されたようにする場合、Label以外のもので再現出来るのでしょうか？
もしLabelで良かったとしても、後学の為「直に描画」について教えて頂ければ幸いです。
何に対して直になのかって時点でわかりません・・・

>>653
LoadしたImgaeを直接いじるんじゃなくて別にImageを作成してそこに色を変えて描画

>>656
コントロールは「重い」から何百もコントロール並べたら描画の負荷も洒落にならない。
のででかいラベルあたりを一枚置いてその上で一コマ一コマ自前で描画していく。
Paint イベントを調べてみな。

>>656
buttonにしとけば？
マインスイーパーは押したタイルから空いているタイルを、ずらっと
連鎖反転したり、隣接する爆弾の合計を表示したりする再帰処理がキ
モになるから、表示系でウンウンうなってるヒマはないと思うよ。

そもそもColorは単純に比較しちゃいかん。

ちょっと質問させてもらいます・・・

起動したフォーム以外の部分（デスクトップとか）を操作させないように
したいのですが、何か良い方法はあるのでしょうか？

今はdeactivateを使用して、ノンアクティブになった時点でフォームを閉じて
新しいフォームを開き直すようにしているのですが、なにぶん動きがみっとも
ないので・・・；

>>655
通過していることは確認しております。

>>657
これはどうすればいいんでしょうか？

いまどきパレットなんて使わなくても・・・
つペイント

>>663
ペイントで画像の対象の色を別の色に描きかえて、別のリソースとして用意しておくということですか？
最終的に変える色を動的にする必要があるので、パレットを使って描きかえないといけないのです。

Structure AA
　Structure BB
　　Dim Name as String
　End Structure
End Structure
上記の構造体でAAの中のBBを定義する方法を教えてください。
例えばＣなら
AA::BB c;
みたいな感じでBasicでの変数の定義方法を知りたいです。

>>665
その構造体宣言はエラーになるが Dim c As AA.BB

>>666
あ、すみません。
AAのなかでBBの変数はとってます。
ありがとうございました！！

さきほどの構造体入れ子の宣言はうまくいきました。
ありがとうございます。
もう１つ質問なのですが、フォームのNewコンストラクタの引数を取り
それをButtonイベント等でその引数に値を入れて返す方法はどうすればいいのでしょうか？
例えば引数が構造体だとすると

Dim aa As New BB　　←構造体
Dim from As New Form2　　←フォーム
form.Show()

Form2にとりあえず変数宣言
Dim cc As BB

Form2のNew
Public Sub New( ByRef aa As BB )　　←ByRefでいいのかわからないけど・・
　cc = aa
End Sub

Private Sub Button_Click(・・・）
　ここでccに値をいれるとNewの引数のaaに値が入るみたいな・・
End Sub

>>668
そういう使い方をするならクラスにしたほうがいいと思うが。
構造体でなきゃいけない理由があるの？

>>668
参照型と値型の違いについて勉強する。
それが理解できてないうちはそういうことは考えない方が身のため。

っていうか、あんた多分まだ人に質問をしようって段階じゃないだろ。
基本すら押さえずに人に質問しまくっても埒明かないし物にならんよ。

>>669
フォームはクラスじゃないんですか？
>>670
そんなことお前に言われる筋合いはない。
知らないならレスしないでくださいよ。
どこにでも荒らしはいるんだなあ

参照渡しするんだったらBBを構造体ではなくクラスにしたほうがいいってことでしょ
ここで逐一質問するよりとりあえず入門書くらいは終えようよ

VBやC#で型値を表すキーワードにStructを使ったのは失敗だよな。
素直にValueTypeにすればよかったと思う。誤解する人間が多すぎる。

その点C++/CLIのref classとvalue classは良いね

親切な回答もされてるのに全然通じてないみたいだから時間の無駄だね。
ｹｹｹ

VB2005Expressを使っています。
リッチテキストボックスにファイルをドロップできるようにする方法を探して、
http://msdn2.microsoft.com/ja-JP/library/fkw1hc6t.aspx
このページにたどり着いたのですが、RichTextBoxのプロパティにAllowDropがありません。
DragDropイベントも無いです。どうしたらそれらの項目が表示されるのでしょうか？

>>676
RichTextBoxのDragDrop関係のメンバはデザイナから見えないようになっているので
自分でコードを書く必要がある。
AllowDropはフォームのコンストラクタかLoadイベントでTrueにする。
イベントはコードエディタの上にあるクラス名とイベントのコンボボックスから
選択すればハンドラが作られる。

自己解決しました。役にはたたないかもしれませんが、情報を載せておきます。
>>653のソースの
Me.PictureBox.BackgroundImage = oTargetImage
を
Me.PictureBox.Image = oTargetImage
に変えると上手くいきました。
どうもありがとうございました。

>>677
ありがとうございます！　やってみます！

>>677
できました！ ありがとうございました。

なんでこんな隠し設定みたいになってるんでしょうね。
何か思想があるのか…

ComboBoxで選択された文字列を取得して、String型の変数に入れたいのですが
DataRowView型はString型への変換は無効ですと出てしまいます。

Dim str As String
str = ComboBox1.SelectedItem

どう変更を加えたらComboBoxで選択された文字列を取得することができるでしょうか。

>>681
ComboBox1.Text
じゃダメ？

すいません自殺モノの勘違いをしていました。
申し訳ない。

>>682
まさにその通りでした。スレ汚し申し訳ないです。

>>684　質問スレなんだから気にしないで！

名前空間とクラスの階層図ポスターってどこかにありませんか？

DataGridViewのCurrentCellChangedイベントにプログラムを書いているのですが、
グリッドにデータを表示したときに必ず
System.NullReferenceException: オブジェクト参照がオブジェクト インスタンスに設定されていません。
と言うエラーが出ます。

一応Try〜Catchで抜けたらそのまま動くのですが、
根本的に回避するにはどうすればいいんですか？

>>687
エラーを出す行には、どんな記述があるのかな？

>>688
データテーブルの内容をグリッドに表示しているだけなんです。

>>689
と、思っているだけかもしれないから、具体的にコードを出してくれ。
グリッドとテーブルのリンクはウィザードでやった？　それとも直打ち
コードでやった？

了解です。ちょっとお待ちを。

>>690
フォームにはdatagridviewコントロールだけ
Public Class Form1
Private Sub DataGridView1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.CurrentCellChanged
Try
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim ds As New DataSet("test")
Dim dt As DataTable
Dim dr As DataRow

dt = ds.Tables.Add("table")

dt.Columns.Add("A", Type.GetType("System.String"))

dr = dt.NewRow
dr("A") = "ほげほげ"
dt.Rows.Add(dr)

DataGridView1.DataSource = dt

End Sub
End Class

ごめん。サンプル作ったんだけど普通にエラーが出ずに動くなぁ
もう少し試行錯誤してみます。ありがとうございました。

DataGridView で列や行のヘッダ行を複数にすることはやっぱり不可能でしょうか？

ButtonのClickイベントをコードで呼ぶ場合にSystem.EventArgsには何を入れればいいですか？

System.EventArgs.Empty

>>695
できました。ありがとうございます

フォームのLoadイベントでTextBoxにフォーカスを移動したいのですがなってくれません。
ひょっとしてLoadイベントではダメなんですか？

Shownイベントでできました。

>>694
Button.PerformClickメソッド呼べばいいんじゃないか？

>>699
うっ、そんな便利なメソッドがあったんですか・・・

そういう便利なメソッドとかクラスを探し出すにはどうすればいいですか？

つMSDN

つGoogle

つテンプレ

つツンデレ

>>698
ActiveControlだったかに設定してもいい。

VB2005です。
まだあまり詳しくないので質問したいのですが
何かアプリケーションを開いたときにタスクバーにそのアプリケーションのキャプション？の部分が出ますよね？
それをVBで作ったプログラムからアプリケーションを閉じずにそのアプリケーションだけを
タスクバーから取り除くといったものはつくれますか？
VBでやる必要はないといわれればそのとおりなんですが

わかり辛い文章で申し訳ないです

それを実現してどんな意味があるの

指定座標のＲＧＢ取得したいんだけど、-1とか意味不明な数値が返ってくる＞＜
どこが悪いかご指摘願いたいです。

Public Class Form1
Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Integer, ByVal yPoint As Integer) As Integer
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Integer) As Integer
Public Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Integer, ByVal hdc As Integer) As Integer
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Integer, ByVal x As Integer, ByVal y As Integer) As Integer

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

hTargetWin = WindowFromPoint(20, 20)

hTargetDC = GetDC(hTargetWin)

Dim colorA As Int32

colorA = GetPixel(hTargetWin, 20, 20)

MsgBox(colorA)
ReleaseDC(hTargetDC, hTargetWin)
End Sub
End Class

なんで人に聞く前にMSDN読んだりしないのかな。
池沼だろうか

普通Win32APIの戻り値がおかしいと思えば、戻り値の意味を確認するだろ
つまり君は普通じゃないってことだ

GetPixelが-1で返ってくるのは良いがその前にWindoFromPointやGetDCの戻り値が正しいのか検証した？

みんな人に聞くのと自分で調べるのと平行してやってると思うよ。
すこしでも早く答えが知りたいから。

×　すこしでも早く
○　すこしでも楽に

TabControlのＳｅｌｅｃｔｉｎｇイベントをコードから呼ぶ方法を教えてください

VisualBasic2005＋SqlServer2005にて開発をしています。

先日、会社の先輩より、データベースのアクセスにはデータアクセスのコンポーネント（DACとかいってました）を
実装して、そのデータアクセスコンポーネント経由で使うものだといわれました。

このデータアクセスコンポーネントとは何なのでしょうか？
今まで、書籍やインターネット上で勉強した時は、DataSet（xsd）を使って、TableAdapterを使って
データの参照や登録・変更・削除をしていました。

データアクセスコンポーネントとは、このDataSetやTableAdapterの事なのでしょうか？
それとも全く別物？
また、このデータアクセスコンポーネントを使うメリットって何なのでしょうか？

>>715
データアクセスコンポーネントとは、このDataSetやTableAdapterの事なのでしょうか？
あたりまえやん

メリット？VBではそれなしにデータベースにアクセスできないだろ
いや、できるか知らんけどめちゃくちゃコードが長くなりそう

>>716
＞＞データアクセスコンポーネントとは、このDataSetやTableAdapterの事なのでしょうか？
＞あたりまえやん

私も最初、そうかと思ったのですが、どうやら違うらしいのですよ。
データアクセスコンポーネントと呼ばれるクラスライブラリを実装するらしいのです。
でもって、そのクラスライブラリでデータベースとのやり取りを一本化して、
アプリケーション側では直接データベース（この場合だとDataSetTableAdapterだと思います）を
使用せず、このデータアクセスコンポーネント経由で行うらしいのです。

2階層がどうとか3階層がどうとかも言っていました。

正直、今書いてる内容も、言われて覚えているだけなので、
何を言っているのかは意味不明な状態です。

>>717
DTO（data transfer object かな）のことじゃないの？

少なくとも間違いなくそれは違う。

>715
会社の先輩なんだろ
納得いくまで聞けばいいのでは？

うちでもデータアクセス用のクラスを作ってそこで管理してる
メリットと言えるかどうかわからないが、DBへのアクセス関係を纏めることで
DB関連のコードが変更になっても対応が容易

あと結構へのアクセスはよく似た処理が多いから纏めてる

うまく書き込めてなかった

>720
誤）あと結構へのアクセスはよく似た処理が多いから纏めてる

正）あとDBへのアクセスは結構よく似た処理が多いから纏めてる

>>720
納得いくかどうかで言えば、納得できていませんが、
何が納得できないかというと、メリットが感じられないのです。

＞うちでもデータアクセス用のクラスを作ってそこで管理してる
＞メリットと言えるかどうかわからないが、DBへのアクセス関係を纏めることで
＞DB関連のコードが変更になっても対応が容易

この部分については分からないでは無いのですが、逆にデメリットでは？と感じています。
というのは、書籍やインターネット上にあるような１つのExeファイルで
しかも、データベースのテーブルもマスタ系を含めて10テーブルぐらいならいいのですが、
業務系にもなると、画面数にして数百、データベースのテーブルもViewを含めれば
100、200当たり前になります。

この部分の、色々な条件でのデータベース処理をクラスとして実装するとなると、
工数が掛かって仕方ないと思うのですが？

＞あと結構へのアクセスはよく似た処理が多いから纏めてる

具体的には、どういった処理なのでしょうか？
IDや条件などの引数を受け取って、DataSetやTableAdapterを返すのでしょうか？
（DataGridViewやその他コントロールのDataSourceと関連付けるのが多いと思うのですが・・・）

>>708
意味があるかといわれると何ともいえませんが
常駐して使ってる（例えば音楽ソフト）とかランダム＋ループとかの場合あんまりウィンド操作しないので
タスクバーを占領してると他のウィンドをたくさん開いたときに邪魔になってくるから便利かなぁと思いついたんですが
中々思うような感じのが見つからなくて

>>723
こういうやつ？
http://www.forest.impress.co.jp/lib/dktp/desktop/windowextn/tasktrayplus.html

>>724
！！
こんなものがあったのですね・・
まさにこういうものが作りたかったんです
VBでも出来るのでしょうか？

あんまりVBでやることじゃねぇな
そりゃAPI呼べるんだから不可能ではないけど

あまり詳しくないというレベルの人には無理だと思う

>>726
VBでやるべきようなことじゃないのはなんとなく自分でも・・
APIも色々WinAPI Database for VB Programmerさんなどで見てみたんですがまだまだ調べるのが足りなかったみたいです。
不可能ではないとのことなのでもう少し頑張ってみようかと思います。

>>727
私の技術的に無理でも実現が出来るという例が分かったので少し勉強してみようと思います

VIPで聞いたけどやっぱりわからんかった・・・当たり前か。

UNIX時間を○年○月○日のフォーマットになおしたいのですが、
どういう関数書いたらいいのでしょう。
Excel上で直すやり方は探したらあったんだけど・・・

例：1151783570.171　→　2006/07/01

教えてください。
構造体のサイズを測りたいのですが構造体では配列の初期サイズを宣言できないので
例えば Dim aa() as Byte などと定義して、コンストラクタでReDimでサイズを指定しても
SizeOfで見るとやはりポインタ？分しか計算されません・・
そこで、構造体内で初期サイズを指定するかReDim等でサイズを確保した分も
計算する方法を教えてください

>>729
もしかしたらそのままズバリがあるかもしれないが計算で出すならこう。
Dim unixDate As DateTime
unixDate = New DateTime(1970, 1, 1).AddSeconds(1151783570.171)

VS2005を使っているのですが、
VB2005でMP3を再生することは可能でしょうか？
VB6のは検索で見つかられたのですが、2005のが見当たらなかったので・・・

ご教授よろしくお願いいたします。

>>731
Sugeeeeeeeeeeeee!!!!!!!!

どうもありがとう！！！！

構造体（同じもの）を比較するにはどうしたらいいでしょうか？

>>734がエスパーを探しています

>>732
My.Computer.Audio
MP3対応だったと思うけどなぁ。

>>736
ご回答ありがとうございます

試してみたところMy.Computer.Audioはwavのみのようでした。
何かほかに良さそうな方法があればよろしくお願いしますｍ（＿ ＿）ｍ

>722
答えになってないかもしれないが...

>この部分の、色々な条件でのデータベース処理をクラスとして実装するとなると、
>工数が掛かって仕方ないと思うのですが？
それは設計の良し悪しだと思うよ
少なくともうちでは効率的にやれていると思いたい

あなたが言ってるように100,200のテーブルやビューを扱うからこそ纏めておかない
と収拾つかなくならないか？

例えばDBのプロバイダが変更になったとか、DataReaderを使っていたものを
DataSet(DataTable)で返す必要が出てきたなんてことになったらどうしてるんだ？

>>737
VB6と同じようにやればいいんじゃないの？

>>730
その値を何に使うかによっても解決方法が変わるんだが。
取りあえず MarshalAs を調べれ。
あと SizeOf で見るってのは一般に意味不明だ。そんなキーワードないし。分かるけどな。

>>738
＞それは設計の良し悪しだと思うよ
＞少なくともうちでは効率的にやれていると思いたい

是非、一例としてご教示頂きたいです。

＞あなたが言ってるように100,200のテーブルやビューを扱うからこそ纏めておかない
＞と収拾つかなくならないか？

特別、苦労はしていません。

＞例えばDBのプロバイダが変更になったとか、DataReaderを使っていたものを
＞DataSet(DataTable)で返す必要が出てきたなんてことになったらどうしてるんだ？

開発規約として、DataReaderは一切使いません。（今まで使った事すら無いです）
またDBプロバイダも会社としてOracleしか認めていませんので
RDBMS自体が変更になる事は無いです。（今まで10年以上、Oracleだけだそうです）

また、ドライバ自体もOracleクライアントのインストールする必要もない
サードパーティ製のドライバ（当然 .NET対応）を使用していますが、
過去のバージョン（Oracleバージョンアップや.NET1.1から2.0への変更）からの
バージョンアップもソースコード1行も変更無しで対応しております。

DataGridViewの行ヘッダ部分のカレントレコードを示す
三角マークを非表示にしたいのですが、どうしたらいいか分かりません。
もしよい方法があれば、ご教授よろしくお願いいたします。

縦長で不透明なラベルを上に貼って隠す。

DataGridの行の高さって変更できるんですか?
低すぎて窮屈です

つ「PreferredRowHeight」

どうしても分からない部分があるので教えてください
初心者なんですが

pictureboxで画像を出して、もう一個それより小さい画像を出して
小さいほうの画像を、大きいほうの画像の上を
ある地点からある地点まで動かしたいのですが
その式？みたいなのがよくわかりません。
その場所についたら止まってくれるみたいなものを作りたいのですが・・・

ご搭乗のお客様の中にエスパーの方いらっしゃいませんか？

TimerのTickイベントでちょっとづつ位置を更新
計算は中学の数学を思い出せ

>>748
TimerのTickが関連しているのを自分で見つけたときはうれしかった（ｼｮﾎﾞ
もう23時間くらい考え中・・・、どしましょう・・・＾＾；
あぁぁあ時間がない！位置を更新・・・X・・Yをか・・？
うぅぅう、もう無理だよぉ；；

If PictureBox2.Left > 75 And PictureBox2.Top > 30 Then Timer1.Enabled = False
PictureBox2.Left = PictureBox2.Left + 1
PictureBox2.Top = PictureBox2.Top - 1
こんなことしたら、とりあえず斜め上に移動してくれるようになったｗ
けど・・・

ラジオボタンで出発地点と　到着地点を作って
出発地点を　福岡として　到着を広島とすると　そこまで移動するようにはできた
ただ、他の出発地点の場合は、このような座標移動を行ってほしいんだけど・・IF？使うのかな
なーんかわけわからなくなってきた

X方向距離 = 目標のX座標 - 出発点のX座標
Y方向距離 = 目標のY座標 - 出発点のY座標
X方向速度 = X方向距離 / 適当な値
Y方向速度 = Y方向距離 / 適当な値(上と同じ値にする)

で、TickイベントでX座標とY座標にそれぞれX方向速度とY方向速度を加算。
X方向とY方向に実際に移動した距離がそれぞれX方向距離とY方向距離を超えたら終了。

おいおい頭弱いな

>>752
ほんとごめんなさい、私頭悪いのですよ

>>ラジオボタンで出発地点と　到着地点を作って
出発地点を　福岡として　到着を広島とすると　そこまで移動するようにはできた
ただ、他の出発地点の場合は、このような座標移動を行ってほしいんだけど・・IF？使うのかな
なーんかわけわからなくなってきた

これ日本語おかしいです（自分で言うか・・・ｗ
結局、どの地点から出発しても同じ動きしかしてくれない。
出発地点別にそれぞれの座標移動を行ってほしい・・・・・という内容でした
ただ、なんというか・・・誰かサンプルつくってください（挫折

>>753
出発地と到着地を指定して、その間を移動したいってことか？

始点と終点の座標をPoint型にでも入れておいて、各XYを評価。
出発＜到着なら加算、逆なら減算で座標を増減すればいい。

釣りか？

>>754
そのとおりです、指定して移動したいのです・・・・
point型って何でしょう・・・・XY評価・・・5段階評価？←ｼﾈ
ほんとすみません・・・ﾍﾀﾚで
そのコードを晒したりしてくれたりはどうでしょうOrz

>>755
つられたい気分ですが、残念ながらﾏｼﾞです

>>754
すみません、また質問ですけど

IF　ラジオボタン１クリックして　ラジオボタン２クリックしてあったら then
画像１は　PictureBox2.Left > 75 And PictureBox2.Top > 30 Then Timer1.Enabled = False
とかなコードってできます・・・？

かなコードはunicodeだと思うがなんの関係が

ひまわりやなでしこで作れ

こんばんは。VB.NETを最近勉強し始めました。
インターネットで色々なコードをみてワクワクしてます。
色々いじって遊んでいるのですが、エクセルファイルの
セルの文字列や数値といった情報をテキストボックスに表示するような
プログラムを作ってみようと、ここ3日程いろいろ情報を探しているのですがうまくいきません。

一番行けそうだな、とと思ったのが下記のサイトなのですが
ttp://www.bcap.co.jp/hanafusa/VBHLP/dao_002.htm
（人様のコードを張ってよいものかどうか迷いましたので張って問題なさそうであれば貼りなおします）

これを貼り付けてデバッグ開始しますと、

Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")
というところで OpenDatabaseが宣言されていない

MyData = MyData & .Fields(0) & vbTab & .Fields(1) & _
　　　　　　　　　　　　　　　　　　　　 vbTab & .Fields(2) & vbCrLf
の部分で　演算子'&'は型'String'およびDAO.Fieldに対して定義されていません。

といった二つのエラーが出てしまいます。

環境はWindowsXP Visual Basic Express Edition 2005 とExcel2000でやっています。
デバッグの段階でエラーが出るという事はExcelは関係ないかと思ったのですが…。

（１）このコードをどのように修正すれば動きそうか
（２）DAOの勉強をするのにコードと実行例などが豊富なよいサイトなどないか

以上2点についてアドバイスいただけないでしょうか？

>>760
そのサイトの内容を試してみたいならこっちだねぇ
＞VBプログラマ質問スレ（6.0以前） Part49

>>760
それはVB6用のコード
VB.NET用のコードは別にあるのでそのサイトのトップから辿るように

>>761氏　>>762氏

お二人ともどうもありがとうございます。
検索している中で.NETになってからの移行がどうのという記事を
数多く見て、判断が付かず質問にいたったところでして大変助かりました。

これからご指摘の通りトップから見直してみようかと思います。

>>745様
ありがとうございます

最初
DataGrid1.PreferredRowHeight=2*DataGrid1.PreferredRowHeight
とかやっても全然ダメで泣きそうになりましたが
ヘルプで解決しました

MyTblStyl.PreferredRowHeight =

>>743
ありがとうございます。
アイコンの表示を消すくらい簡単にできるだろうと思っていたのですが、
探し方が悪いのか、非表示す方法が見つけられず困っていました。
一度その方法で試してみたいと思います。

再び失礼します。先ほどご指摘いただきました通り
こちらのサイト
http://hanatyan.sakura.ne.jp/dotnet/Excel01.htm#no2

を参考にしまして、どうすればよいかと考えてきました。
コード中に
xlRange = xlSheet.Range("A5:A7")
とありまして、ここはA5からA7までを選択するのだろうと予想は付いたのですが
これを例えばA5一つのセルを選択の範囲としてテキストボックスへ表示するには
どのようにすればよいでしょうか？まったく分からないなりに

TextBox1 = xlSheet.
このような形になるのではないかと思いまして
TextBox1 = xlSheet.Cells.Value
などと色々試しては見るのですが当然のことながら上手くいきません。

何かヒントをいただけないでしょうか？

directXを使ったプログラムが起動しなくなってしまった。
最新版を入れ直してもだめです

どうしたらよいか、だれか教えてください

エスパーの投入を要求します！

ttp://image.blog.livedoor.jp/genzino1/imgs/5/2/527d37d0.jpg

>>766
花ちゃんのとこかぁ。相変わらず参照カウンタやGCのことはよく理解してないねぇ。

xlSheet.Range("A5").Value.ToString()
Rangeが複数セルの場合は　object ( , ) で値が戻って来てさらに添え字が１から開始だからちょっと迷う。
Dim str As Object( , ) = xlSheet.Range("A1:B1").Value
str(1, 1).ToString

>>770

おおお！ありがとうございます！全く意図どおりに動きました！！
実はVB導入から1週間これで悩んでいまして…orz
助かりました。どうもありがとうございます。
分かっていただけないとは思うのですが非常に感動してます！！！

後半3行については普通に考えるとB2の値が戻ってきそうだけれども
括弧内のカウントが1から始まる為この場合A1をさすという事ですかね？
B2を指すときは(2,1)ではなく(1,2)とすればよい。この推察であっていますか？

>>770
そのRangeはReleaseComObjectしなくていいの？

>>771
A1:B2 でRangeをとった場合
A1 (1, 1)    B1 (1, 2)
A2 (2, 1)    B2 (2, 2)

>>772
早期に開放したいならReleaseComObjectを使う。
GCに任せる場合は、いつ開放されるかわからないということと、
アプリの終了時に残っているオブジェクトはGCされないことに注意。
GC.Collectを呼ぶならその前に参照が確実に外れていることを確認。
あとはインプロセスサーバーならあんまり気にしなくていいといったっところかな。

>>773
＞早期に開放したいならReleaseComObjectを使う。
＞GCに任せる場合は、いつ開放されるかわからないということと、

間違い。

COMを使用した場合、ReleaseComObjectを呼ばれない限り永久に開放されない。
（タスクマネージャに何時までもExcelが残る）

>>774
＞アプリの終了時に残っているオブジェクトはGCされないことに注意。 
いつまでも残ってるのはこのケース。これはたとえ参照を外していても発生しえる。

COMへの参照を完全にはずしたあとGCが発生するような処理をしてみるとExceｌが終了するのが見えるはず。

>>775
言ってる事分かってる？

＞早期に開放したいならReleaseComObjectを使う。
＞GCに任せる場合は、いつ開放されるかわからないということと、

に対して、間違ってるって言ってるの。
GCでCOMは開放されないから、『GCに任せるという表現自体』がおかしい。
（お前さんの表現だと、GCにてCOMがReleaseComObjectを呼ばないでも開放されると誤解を生む）

＞COMへの参照を完全にはずしたあとGCが発生するような処理をしてみるとExceｌが終了するのが見えるはず。

COMへの参照を完全に外す為にReleaseComObjectを使うんだろが。
だから、1つでもReleaseComObjectを忘れるとGCが発生しようがなんだろうが
Excelがタスクマネージャに残ったままになるんだろ。

>>776
こういう風に思ってる人多いけどそんなことないよ実際は。
少なくとも参照設定してレイトバインディングでコード書けば。
論より証拠試せばすぐわかるから。

すまんレイトじゃない方だね

http://www.microsoft.com/japan/msdn/enterprise/pag/scalenetchapt07.asp#scalenetchapt07_topic9

主にCOM+について書いてあるが、同じアウトプロセスサーバだからExcelにも同じことが言えると考えていい。
ReleaseComObjectを使うべきときとそうでないときがきちんと書いてある。
Disposeを呼ぶべきかGCに任せるかの議論に似てて、
ReleaseComObjectを使った方がいいケースが多いのは確かだが、
けしてGCでは開放されないという話ではない。

暗黙のCOM参照の話だな

ttp://support.microsoft.com/default.aspx?scid=kb;ja;317109

>>777-779
本当にGCでCOMが解放されるのか疑問に思って実験してみた。

実験1：
全部のCOMオブジェクトをUSINGで囲んでみた。
結果1：
COMオブジェクト解放されず。

実験２：
GCを明示的に呼び出す。（GC.Collect）
結果２：
COMオブジェクト解放されず。

本当にGCで解放されるの？

>>782
長くなるけどサンプルコードあげてみるよ。意見が分かれるときは環境によって違うとかあるから試してもらえるとうれしい。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim excelApp As New Excel.Application
excelApp.Visible = True
Dim excelBooks As Excel.Workbooks = excelApp.Workbooks
Dim excelBook As Excel.Workbook = excelBooks.Add
Dim excelSheet As Excel.Worksheet = excelBook.ActiveSheet

Dim excelRange As Excel.Range = excelSheet.Range("A1", "B2")
excelRange.Value = New Object(,) {{"hello", "bye"}, {"hello2", "bye2"}}

Dim excelRange2 As Excel.Range = excelSheet.Range("A1:B2")
Dim str As Object(,) = excelRange2.Value
Debug.WriteLine(str(2, 2).ToString)
excelBook.Close(False)
excelApp.Quit()

System.Runtime.InteropServices.Marshal.ReleaseComObject(excelRange2)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelRange)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelSheet)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelBook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelBooks)
System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
End　Sub
-- ここまで
excelApp.Quit()　を入れ忘れると何をやってもEXCELのインスタンスはあがったままになるから注意ね。
GC.Collectは同じ参照が完全に外れるようにFormClosedに入れといいと思います。

>>783
ReleaseComObjectを呼んだら実験の意味が無いんじゃないですか？
ReleaseComObjectを呼ばずにGCで解放されるかが実験の目的だと思うのですが？

>>784
テスト１：比較のためReleaseComObjectで実行
テスト２：ReleaseComObjectをコメントにして実行、フォーム閉じるでアプリ終了。
テスト３：ReleaseComObjectをコメントにして実行、別のプロシージャでGC.Collectを実行

うちの環境だとテスト２でもEXCELのインスタンスは落ちる。

>>785
テスト３は？

dokidokiwakuwaku

もっと実験方法を単純化できるでしょ。
例えば予めタスクマネージャを立ち上げておいて次のコードを走らせると、
次のことが確認できる。

(1) プログラムを起動したままエクセルを閉じてもエクセルのインスタンスはのこっている。

(2) しかし次にプログラムを終了すると、エクセルのインスタンスも同時に消滅する。


'予めExcelへの参照設定されている必要がある
Imports Microsoft.Office.Interop

Public Class Form1
　　Dim mXL As Excel.Application

　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　　　mXL = New Excel.Application
　　　　mXL.Visible = True
　　End Sub
End Class

Imports Microsoft.Office.Interop

Public Class Form1
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　ExcelTest()
　　　　GC.Collect()
　　End Sub

　　Private Sub ExcelTest()
　　　　Dim app As New Excel.Application
　　　　Dim wbk As Excel.Workbook = app.Workbooks.Add()
　　　　DirectCast(wbk.Worksheets(1), Excel.Worksheet).Range("A1").Value = "Test"
　　　　wbk.Close(False)
　　　　app.Quit()
　　End Sub
End Class

ボタンクリックのたびにExcelのプロセスが終了するのを確認した。

GC.CollectしないとExcelのプロセスがクリックのたびに増えていくが
途中でGCが働いて一気に溜まっていたプロセスが終了するので無限に増えることは無い。
アプリケーション終了時にはExcelのプロセスは全て終了する。

何か難しげな流れみたいですけど、すみません、恥知らずな私が通りますよ

form1.exe, form2.exe, form3.exe・・・

どこからでも呼び出せる関数って作れるんでしょうか
つくれるなら、参考になりそうなサイトか何か教えていただけると助かります

クラスライブラリをなめんな

標準モジュールに書け

>>773
＞アプリの終了時に残っているオブジェクトはGCされないことに注意。 
この部分は間違いでした。大昔に実際にテストして確認したのでずっとそうだと思っていたのですが、
この動作をしてたのは.NET 1.0 Beta 時代のもので、現在の1.0 1.1 2.0 ではアプリ終了時に
残ってるすべてのオブジェクトのファイナライザはちゃんと呼び出されていました。
ちなみにJava はアプリの終了時に残っているオブジェクトはGCされません。これは本当です（汗

ダメだー
俺にはこいつは向いていないのかも、という気がしてきた

VBAの経験ちょこっとあり、程度の者です(Accessだけ)
何十個もフォームを使うようなDBアプリをつくろうと思ってるんですけど
何つか、こいつヒエラルキーつか階層つか、は一体どうなってるんでしょう

何かプロジェクトとかいうんですか、その中にいくつもフォームを詰め込むと
とんでもなく重いファイルができあがって、息も絶え絶えって感じの起動ですよね
6個ぐらい詰め込んだところで、ああこりゃダメだと諦めた

しょうがないからフォームごとに分けようかと
でもそうなると各フォームから呼び出してたモジュールのSubやFunctionはどうなるのかなと

そのプロジェクトとやらの上層にソリューションとかいうものがあるんですよね
空のソリューションってのをつくって、中にいくつかプロジェクトを並べてみた
同列で標準モジュール(みたいなもの)が並べられるに決まってると思ってた
でもダメだった
プロジェクトごとにSubやFunction書けってか?
書けっていうならそれでもいいけど
フォーム間の行き来つか開閉はどうするのかなと
ソリューションとか、もっともらしい名前でまとまってるんだから
とてもスマートな行き来の仕方があるに決まってると思った
でも分からない。
まさかCall Shell()?
だったらバラバラに作ったって一緒じゃん。まとめた意味ないじゃん

お願いですから何かヒントください...orz

お世話になります。

現在DataGridにDBの値を表示し、
データの追加、修正、削除を行えるプログラムを作成しています。

今問題になっているのは削除の部分で、
行を選択して（複数選択可）Deleteキーを押してもグリッドから行削除されないようにし、
グリッドの中の値のみ削除させたいと思っています。

現在、DataGridの行削除を禁止し、
DataGridのKeyDownイベントでDeleteキーが押されたら
選択された行のセルに空文字を代入させるようにしており、
DBから取得した行に関してはこの通り動いています。

しかし、DataGrid上で追加された行に対して同じ操作を行うと、
選択された中の一番上の行のデータのみ空文字が代入され、
空文字が代入されたセルにフォーカスがあたっている状態になり、
それ以後の行に関しては処理が無視されてしまいます。
また、ブレークポイントで一度処理を止め、
一行ずつ実行していくと全ての行に対して正常に処理が行われていました。

一体どうすれば思い通りの動きになるのでしょうか？

>790

DLLって知ってる？
あと、Friend とか Protected とか public とか private とか

>>794
.NETの世界に来たんなら、
VB6以前の発想は捨てて
.NETの世界の勉強しろよ。

つうかフォーム６個程度でそこまで重くなるか？大きくなるか？
無駄に分けてもメリットはないぞ。

>>796
そこの概念、VB6と決定的に違うからね。
VB6のDLLはVBで作ったら特殊なDLL、Cで作った場合は呼び出しに注意が必要。
.netのDLLは所謂普通のDLL。
フォームもクラスだときちんと理解すれば、DLL化したコンポーネント呼び出しで綺麗になるよね。

>>795
>>行を選択して（複数選択可）Deleteキーを押してもグリッドから
行削除されないようにし、 グリッドの中の値のみ削除させたいと

っていう処理自体が、ちょっと考えられないんだが。
データは無いのに行だけが複数残ってる状態って、主キーはどうして
るの？　主キーが無い表だから問題ありませんとか？

>>799
DBのテーブルには主キーを設定していますが、
DataGridには主キーは設定していません。
また、フォーム上に更新ボタンが配置してあり、
ボタン押下時に全ての項目が空のデータは登録しないようにしています。
DBの更新方法は、
一度全てのデータを削除し、
DataGrid上のデータを登録し直すようにしています。
また、主キーの重複チェックなどのチェック処理はボタン押下時に行っています。
本当はDataGridのデータソースに指定しているDataTableのPrimaryKeyに
主キーを設定したいのですが、
重複エラー時に表示されるエラーダイアログを
自分の指定したボタンやメッセージに書き換える方法がわからなかったため
このような形にしました。
エラーダイアログを書き換える方法はあるのでしょうか？

先ほどの問題ですが、
何となく原因がわかりました。
セルを選択→行ヘッダを選択→Deleteキー押下
という順番で操作した時、
DataGridのKeyDownイベントではなくTextBoxのKeyDownイベントが発生するようです。
ですので、DataGridのKeyDownイベント内でセルの値をクリアする処理を書いても
動作していなかったようです。
TextBoxのKeyDownイベント内で同様のコードを書いてみると、
思った通りの動きになりました。

セルの値のクリアは処理的には問題ないと思うのですが、
指摘された主キーの部分に関しては仕様としておかしいのでしょうか？

CAPICOM.DLLを使った文字列の暗号化のサンプルソースがあるＨＰを教えてください。

>>800
書き込み前にチェックしてるなら、とりあえず問題ないとは思うけど。
DataGridで主キーの設定自体は必要なくても、元のDBと整合性を保った
状態にしておいたら、重複チェックしなくても直接書き戻せるじゃん。

第一、更新時に落とすならDataGridで空白行を表示しておく必要もない
んじゃないかな。表示しておく理由ってなんだろう？

あと、DBの更新時に全削除→全登録って、ちょっと強引すぎるような。
件数が増えたらレスポンスにかなり影響しそうな気がするしさ。表結合
しててUpdateメソッドが使えないから、こういう形にしたの？

>>802
すいません、まだ.netの事をよく把握していないんでいまいち理解していないんですが、
「元のDBと整合性を保った状態にしておいたら」というのはDataGridとDBを直接リンクさせ、
DataGridで入力された内容が即時にDBに反映させる事が出来るという事でしょうか？

空白の行を残している理由ですが、
今作っているのがユーザのマスタメンテ機能なんです。
キー値をユーザIDにしているんですが、
そのユーザIDも変更可能にしたいのです。
そこで、DBから値を取得したときのユーザIDをそれぞれの行に隠して持っており、
もし誤ってログインユーザのデータを削除してしまった時、
行が削除されているともう二度とそのデータを入力しなおす事ができなくなってしまいます。
ですので、空白行を残しておき、
誤ってデータを削除してしまった時でも
もう一度同じセルに入力しなおす事が出来るようにしたかったからです。

全削除→全登録のことですが、
特に表結合は行っていません。
ですので、ちょっとUpdateメソッドというのが良くわからないのですが、
もし他にいい方法があるのであればそちらを使用したいと思います。

ただ、一つ気になっていることがあるんですが、
DBとDataGridの連動をさせることが出来ると仮定した場合ですが、
現在DataSourceには単純にDBから取得したDataTableを入れているわけではなく、
あるカラムのデータが0ならFalse、1ならTrueというように変換し、
別のDataTableに入れなおしてからDataSourceにセットしているのですが、
これでもDBとDataGridの連動は可能なのでしょうか？

とりあえず、@ITの記事を読めば？

2005でToolStripMenuItemの表示をのっぺりとした白っぽいのから
システムメニューのような灰のやや立体っぽい表示にしたいんですが
どうすればいいのでしょうか？

>>803
そういう状態なら、.net関連のDB解説本を一冊読んでみることをお薦め
する。いまの作り方じゃ、遅かれ早かれ破綻しそうだ。作り込んでから
そうなるよりもずっとマシかと。

>>804
はい、一度読んでみます

>>806
そうですね。
ちゃんと勉強して基礎を固めたいと思います。
しかし、今回は時間もなくDBの更新をするところが少ないため、
今回に限り今の方法で行きたいと思います。

どうもありがとうございました。

>>804
そうですね、一度読んでみます。

>>806
そうですね。
ちゃんと勉強して基礎を固めたいと思います。
しかし、今回は時間もなくDBの更新をするところが少ないため、
今回に限り今の方法で行きたいと思います。

どうもありがとうございました。

二重投稿すいませんorz

コントロールを後々「Name」プロパティで検索したいと考えているので
「Name」をどこかの構造体か何かで一元管理しようと思っています
しかし、フォームデザイナではコントロールを追加するときに「Name」に定数しか入れられないみたいです
フォームデザイナは使わずに全部こつこつコードを書かなきゃいけないってことになるんでしょうか？

はあ？
もう初心者以前の奴は大人しく入門書ぐらい読めよまずは。

（´Д｀;）ヾ　ｿｺｦﾄﾞｳｶｵﾈｶﾞｲｼﾏｽ
　　　∨）　
　　　（（　

　（;´Д｀）　　ｵﾈｶﾞｲｼﾏｽ
　（　 八)
　　　〉 〉

　　　　ヾ
　(´Д｀;)、　　ｺﾉﾄｵﾘﾃﾞｽ
　　 ノノＺ乙

ていうか定数って何だろ

そもそも名前で管理なんてやめとけ　バグの元だ
特に VB 使いは大好きなようだが

配列変数を比較するのに簡単な方法ってありますか？
dim a() as byte = {1,2,3}
dim b() as byte = {1,3,3}
やはり、For〜 で一個づつ見ていくしかない？
if a = b then
ってやったら、Is を使え、とエラーになりました。

まあForで調べるのがいいだろう

つまらんグチ書いてごめんなさい

>>DLL
お目にかかったことは何度か
つか
人様がつくったやつをWEB上から無断でいただいていくつか使ってます
モノの正体は良く分かってません(だ〜から〜AccessVBAやったことがあるだけですって。VB6も知りません)
ただ、「どこからでも呼び出せる〜」については、もしかしたらそういうものの力を借りればできるのかな、
ぐらいのことは漠然と考えてはいました

>>797
>>.NETの世界に来たんなら
この自覚は完全に欠落してました
チラ見で、AccessVBAと文法似てるからいけるかも、ぐらいの感じでした
いま職場で使ってるAccessのDBアプリ(フォーム数約80, プログラム部分のサイズは最適化状態で3MB)
こいつをVB.NETで作り替えることが出来たら嬉しいなと
理由はメチャメチャ安いから
使用PCの台数に関わらずVB.NET分だけの1万数千円で済むから
こころざし低くてごめんなさい
ちょっと腰据えて勉強します

>>フォーム６個程度でそこまで重くなるか？
できあがったEXEファイルのサイズは300KB
celeron1100MHz, 384MBのマシンで起動に10秒ちょっと
プロジェクトファイルのほうは30秒近くかかります
(全部バラバラにしようとは思いませんけど、80個は無理ですよね)

>>816
そういう考えでも俺はいいと思う

文法が似ていて.NETの敷居が低いのは確かだから
http://www.amazon.co.jp/gp/product/4798005088/
↑この手の本を１冊読めば結構いけると思う

がんがって

俺はその本は薦めんな。
初心者が基本を勉強するような本と違うよそれ。

VBの知識があるなら@ITの川俣の連載がいいと思うよ。
まあ著者は2chでは嘲笑の対象になっていて、確かにちょっとアレな人物っぽいけど
内容はまともで分かりやすいよ。

逆引きは入門書を終えてから買うほうがよさげだな。
しかし、いま参考書買うにしても2005対応版って全然出てないよう
な気がする。オンライン記事でぽつぽつ取り上げられてるくらい？

@ITの記事を当てにしない方がいい

VBAを出来てたんなら
.NET FRAMEWORKとオブジェクト指向が分かれば
VB.NETを使えるはず

それにその人が知りたいのはADO.NETだとかDATAGRIDだろうし

皆様、いろんなアドバイスありがとうございます
@IT、今ちょこっと見てきました
記事自体は面白く読めました
いや、まだ最初のほうしか読んでないんで、プログラミング云々とは別の
VBがたどってきた歴史とか、そっちの話

>>知りたいのはADO.NETだとかDATAGRID
DBに接続してあれこれやる方法はtips集みたいのを参考にしながらまあ何とか
なりそうかなと
DATAGRIDについてはまだ謎の部分も結構あるけどきっとそのうちなんとかなるんだろうなと

分かんないのは、その全体像つか、いや別にAccessだって分かって使ってたわけ
じゃないけど、Accessでいうところの作業場、1個のmbdファイルが、こっちで
いうところの1個のプロジェクトみたいに考えてたら、あっという間に重くなって
身動きがとれなくなっちゃった

>>.NET FRAMEWORKとオブジェクト指向が分かれば
全然分かってません
オブジェクト指向 ≒ 使い回し
ぐらいの感じ
だからfunction や subが使い回せないことでヤケになったりとか

.NET FRAMEWORKってのもまったく分かってません
先に出てきたDLLファイルの巨大版かな、ぐらいの捉え方
(ぜってー違いますよね)

ちょっとの間、小手先技だけで作る作業休んで、この言語自体のこと勉強します

DataGridViewの5列目を0列目に移動したいんだがどこにも載ってねー
やり方キボンヌ

もしくは0列目に新規の列を追加する方法でもいいっす。
DataGridView1.Columns.Add()
では最終列にできてしまう・・・

おいおい、Add が見つかったんならすぐだろ？

>>823
おぉ、、もうちょっとヒントだけでも・・・

rows

行は関係ないような

VBのランタイム関数と.NETFrameworkに同じ機能をする
ものがあったら、どちらが使われている事の方が多いですか？

結局今日一日わからなかった orz...

>>827
その答えはわからないけど
今後のWindowsプログラミングはランタイムよりＢＣＬ推奨。
どちらにしても今後は、.NETFramework上で動くものに統一されていくほうが望ましいわけで、
ＣＯＭとかＯＣＸもそうだけど、言語依存のあるものはなるべく使わないほうがいい。
っと思ってる。

>>828
Insert が目に入らんのか……

>>805は簡単すぎるんでしょうか・・
Office風？なのがなんか嫌なのでRenderModeを変えても今一よくわからなくて

色々検索してみたのですがよくわからないんで教えていただきたいです。お願いいたします。