VB.net質問ｽﾚ (Part4)

VB.net初心者〜VB.net神
まで自由に書き込んでﾁｮ。

過去スレ
【老若】VB.net質問ｽﾚ【男女】 (Part3)
http://pc2.2ch.net/test/read.cgi/tech/1056281084/
【老若】VB.net質問ｽﾚ【男女】 (Part2)
http://pc2.2ch.net/tech/kako/1043/10436/1043629429.html
【老若】VB.net質問ｽﾚ【男女】
http://pc2.2ch.net/tech/kako/1025/10258/1025848458.html

テンプレ >>2-10 あたり

どぼん！のVB道のトップページとTipsページ
http://dobon.net/vb/
http://dobon.net/vb/dotnet/index.html
Microsoftクイック スタート チュートリアル
http://ja.gotdotnet.com/quickstart/default.aspx
リソースセンター> .NET関連リンク
http://www.atmarkit.co.jp/fwin2k/rescenter/indexpage/net.html
Insider.NET
http://www.atmarkit.co.jp/fdotnet/index.html
＠IT： 連載 VB.NETプログラミング
http://www.atmarkit.co.jp/fdotnet/vb6tonet/index/index.html
＠IT：連載　改訂版 C#入門
http://www.atmarkit.co.jp/fdotnet/csharp_abc2/index/index.html
C#プログラミングTips
http://www.atmarkit.co.jp/fdotnet/csharptips/index/csharptips_index.html

宇宙仮面の C# プログラミング / C# Programming
http://ukamen.hp.infoseek.co.jp/
VB.NETとC#でデザインパターン
http://hccweb1.bai.ne.jp/tsune-1/
ConvertCSharp2VB
http://www.kamalpatel.net/ConvertCSharp2VB.aspx
WisdomSoft 〜Developers Network〜
http://black.sakura.ne.jp/~third/
CodeProject
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
ソース置き場.NET
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1003826049
Cetus Links: 19,498 Links on Objects and Components / .NET
http://www.cetus-links.org/oo_dotnet.html

関連スレ
VisualStudio.NET(MSDN Deluxe) Part1
http://pc2.2ch.net/test/read.cgi/tech/1060335656/
ふらっとC♯（Part5）
http://pc2.2ch.net/test/read.cgi/tech/1065196964/
C♯相談室 Part11
http://pc2.2ch.net/test/read.cgi/tech/1061262958/
managed C++ やろうぜ！！
http://pc2.2ch.net/test/read.cgi/tech/1014486422/
フリーの.NET統合開発環境「SharpDevelop」
http://pc2.2ch.net/test/read.cgi/tech/1023727377/
消しゴムじゃない方のMONOを使ってみるスレ
http://pc2.2ch.net/test/read.cgi/tech/1020215602/
♯♯♯Shared Source CLI ♯♯♯
http://pc2.2ch.net/test/read.cgi/tech/1024222901/
v（･∀-）b VBプログラマ質問スレ(6.0以前) Part28
http://pc2.2ch.net/test/read.cgi/tech/1061296197/

>>1
乙

Visual Basic .NET Resource Kit
http://www.microsoft.com/downloads/details.aspx?FamilyID=ef4289b4-ffcb-40bd-9bfe-95256abd0e13&DisplayLang=en

詳細はこちら。
http://msdn.microsoft.com/vbasic/vbrkit/

VB.NETでお勧め本ってなんですか？プログラム初心者ですが、Visual Basic.NET入門という
本を読んで一応理解はしたのですが、次になにをよめばいいかと思って。最終的には
ASP.NETをVBでやりたいんですが・・・よい本あれば教えてください。お願いします

http://sourceforge.jp/softwaremap/trove_list.php?form_cat=160
　 1　146　　　C
　 2　119　　　C++
　 3　 90　　　Java
　 4　 55　　　PHP
　 5　 44　　　Ruby
　 6　 32　　　Perl
　 7　 24　　　Delphi/Kylix
　 8　 21　　　Other
　 9　 17　　　Assembly
　10　 16　　　Python
　11　 13　　　Objective C <--------C++に敗北して廃棄状態
　12　 12　　　C# <--------超負け組み
　13　　7　　　Unix Shell
　14　　5　　　Tcl
　15　　5　　　Lisp
　16　　4　　　Visual Basic <--------廃棄処分

VectorじゃVBだらけだけどな

VectorじゃDelphiだらけだけどな

なんだかんだでC++が多いけどな

確かに低レベル言語順だな

sourceforgeなんてオタクしか見ないよ

事実を受け止められないか…

sourceforgeはUNIX系なものばかりだから参考にならないよ。

ＶＢ6の初心者です。
複数の画面からなるプログラムを作っていますが、1画面から2画面に移った場合データが表示できません。
プログラムは1画面表示の次画面表示のコマンドにはFORM2.Show1の画面が出たまま止まってしまいます。
データ表示のプログラムは記述してますが、表示できません。
どのようにしたらいいのでしょうか？
わかる方、レスください。お願いします。

>>16
VB6の質問はこちらのスレで。
http://pc2.2ch.net/test/read.cgi/tech/1061296197/l50

このスレにVB6の質問を書くヤツは・・・

神！

今度、VB.NETでサーバーを開発することになりました
当方サーバー開発については全くの無知なので
時が来る前に本で学習しておきたいのですが
何かお薦めの本はありますでしょうか？
自分のレベルはサーバー開発を省けばCなら、大抵のことは出来ます
またVB.NETのほうは入門書はクリアしています

>>20
頑張ってWindows2003 Serverを超えるものを作ってください。

>>21 自分でも作れないもの出すなよ（ｗ

>>20
Net.Socket.Socketでがんがれ。
これ以上の事は分からん。

トリップ付けて無責任な発言するな。

今度、VB.NETでサーバーOSを開発することになりました

ウィンドウの閉じるボタンが押された事は
VB側で拾えるの？

>>26
OnClose()だろ。

Closingじゃだめか？

>27、28
さんくす

CreateObjectで起動したExcelファイルのプロセスIDって
狙い撃ちで取得出来るの？
ps = Diagnostics.Process.GetProcessesByName("Excel")
For Each p In ps
　MessageBox.Show(p.Id.ToString)
Next
とすると、起動中のExcelファイル全件分持ってきちゃうもので。

オブジェクト指向の入門書を読んでC++で試したあと、GUIなプログラムを早く作ってみたくなり
試しにVB.NETでこれに従って作ってみようと思ったのですが、
これまでにWindowsプログラミングの経験がないためか、
CUIでやっていたことがGUIにどう繋がっていくのか具体的なイメージが浮かんできません。
フォームから送られてきた値を自分の作ったクラス（そのフォームの状態を表現している？クラス）が受け取り、
それを処理した後にその値をフォームに反映する、というようなことを考えたりしています。

どなたか「普通はこうやるよ」というのを教えていただけないでしょうか？
よろしくお願いします。

GUIアプリならDelphiを使おう。

とりあえずあれこれ考えずにサンプルこなしていくのがいいと思うよ。

>>32
Delphiに慣れてるならC#がきっと気に入る!!

>>34
全然。
何やるにしても面倒くさい。

>>30
Dim p As Process
p=Process.Start("C:\hoge.exe")
Console.WriteLine(p.Id.ToString())
というふうにやるのはだめか？

>>33
Delphiに慣れてるなら、Delphi作った人が作ったVB.NETのほうが気に入るはず！

ごめん、漏れはDelもC#もVB.Netどれ一つとってもマトモに触ってないんだ。

ネイティブコンパイルのやり方を教えてください。

VB.NETがわか〜るのナレーターの女って、説明下手くそすぎやしないか？
彼女の説明は、一度正しい日本語に直して、何がいいたいのか組み立てなおさなければ
ならない。
おまけに、内容が複雑になると説明を一切省き、さらに難しい用語を持ち出した挙句
その用語の説明を一言で済ませ、わかったつもりにさせている。

ファイルストリームについての説明をすべき章で、seekの説明を一言で済ませ、
その後たまたま出てきたFor each文の説明をしている。
For each文は以前の章で説明済みであるだけでなく、
For each文以降のwriter.flushメソッドやfstream.closeメソッドを「その他のコード」扱いし
「その他のコードで、ファイルの書き込みを完結させています」と説明する。

最後に、服ぬいで「こんな感じなんです」といってくれれば、全て理解できそうだけど(´д｀)
やっぱ女はプログラミングには向いてねえのかなあ・・
男作ってｾｸｰｽしてれば満足な生き物なのかなあ・・

真面目なVB.NET談義の最中ｽﾏｿ

>>38
ms-help://MS.VSCC/MS.MSDNVS.1041/cptools/html/cpgrfnativeimagegeneratorngenexe.htm
これ使えばできそ

>>39
そーいう文句はナレーターじゃなくて台本書いたﾔｼに言うのがスジでは？

VB.NET で ODBC 経由でデータベースに接続してます。
DataGrid に SetDataBindings で、DataSet をバインドしていて、
DataGrid1 では正常に表示されるのですが、
DataGrid2 では、一見正常ですが、Me.BindingContext(dataset_inst, "table1").AddNew()
しても、そのデータにアクセスできません。(DataGrid1 はアクセスできる)
Me.BindingContext(dataset_inst, "table1").Count はちゃんと増加しているのですが
Position を設定しても、そのPosition に行ってくれません。

何かヒントありませんでしょうか。

VB.NETにIsNumeric関数に相当するものある？
VisualBasic.DLLを用いない方法で

IsNumericとは&HFFや1E10もTrueを返す関数ですね？

>>44
ほんとだ、意外と高機能だったんだね。初めて知ったよ。
おまけに &HXX とかありえないやつだと、ちゃんとFalse返してら。

&HXXでTrueが返ってきたらIsNumericじゃないだろｗ

>>43
ms-help://MS.VSCC/MS.MSDNVS.1041/cpref/html/frlrfSystemCharClassTopic.htm
のメソッドに目的のものがあるかもしれない。

IsNumericとは(10)、\1,000、&15、20+、0001、１２３なんてのもTrueを返す関数だ。

>>47
ｻﾝｸｽｺ
IsNumber関数ですね

こっちのスレ（ＶＢＡエキスパートについて）もよろしく
http://school2.2ch.net/test/read.cgi/lic/1066275292/l50

vb.netとVBの違いがわかりません・・・。

.netってDataObjectとかを使って
完全にクライアントとサーバの処理をわけてしまう、とか
そのアタリが.net！って感じなのでしょうか？
Javaとあんまり違いがわかりません。

頭のてっぺんから爪の先まで違う。
似てるのは名前だけ。

今月号の.Netマガジンについてる過去記事ＣＤでも見ながら勉強しな。

>>51
なにかつくったことあるのか？
やったことのある奴が言うセリフじゃない。

>>51
というかVB.NETとVBとJAVAのどれを比較しているのかわからん

>>51
違いがどうこういう前にそれぞれの言語をちゃんとヤリコメ。

>>53
何も作ってません。
今から開発に入るところです。

すら、っと上のリンク見てきましたけど言語的に変わってる所はまぁいいとして、
業務的にどんな感じの開発に使うのかなと思って。
Javaと似たような感じでクライアントとサーバで完全に処理を分けるような形で開発するのが主なの？
それともDAOとかでオラクルでひっつなげる今までと同じような開発の仕方になるの？

上のリンクみたら.NET環境で他言語との隔たりがなくなることや、
フレームワークのDLLが１種類で良いこととか。ソースやクラスの流用ができること、ぐらいしか書いてなかった。

開発の感じなんかは特定のフレームワークを使って
XMLのマッピングファイルなども使ってJava的な感じでやってくんでしょうか？
うまくイメージつかめません。

それと例外処理や固定長取りやめなどは、逆にやりやすくなったね。VBが他言語に歩み寄ったって感じ。
エクセプションとばせるのは嬉しい。

>>56
上のリンク集はアマグラマが出したものだ。
こういうところも読んでみたのか？
http://www.atmarkit.co.jp/fdotnet/architecture/aafn_index/index.html
ms-help://MS.VSCC/MS.MSDNVS.1041/vsent7/html/vxoriDesignConsiderationsForDistributedApplications.htm
http://www.microsoft.com/japan/msdn/columns/default.asp
http://www.atmarkit.co.jp/fdotnet/t-interview/unisys_af/unisys_af01.html

とりあえず、なんか組めよ。言語仕様もある程度は把握する必要もあるだろうし、
.net frameworkを扱う知識もいるだろうから、そんなあなたに
ms-help://MS.VSCC/MS.MSDNVS.1041/vbcn7/html/vaconprogrammingwithvb.htm
ms-help://MS.VSCC/MS.MSDNVS.1041/cpguide/html/cpconprogrammingwithnetframework.htm
ms-help://MS.VSCC/MS.MSDNVS.1041/cpref/html/cpref_start.htm
あとは自力で調べてくれ。

>>57
ﾌｰﾝなるほど。
ありがとう。参考になりました。

今ってその一番上のリンクにあるように
ユーザプロセスとビジネスロジックとサーバプロセスと分ける開発の仕方が主流なの？

.NETってウェブアプリケーションを作成するものかと思ったらそういうわけでもなかったのか。
ウィンドウズのアプリケーションを開発するのは従来と一緒で、
単に.NETフレームワークの中にみんな収まったってだけで
元々のVBとそんなにかわらないんだね。

継承とかJavaやＣを若干噛んでいたら特に難しいわけじゃないのかな。
触ってみたところVB５以来VB触ってないけど
そんなに敷居高そうに見えないのは表面しかまだ触ってないからなのかな？

.NetでのWebアプリの場合
ＤＢから値を取得→DataTable→ASP.NET(DataGrid等）となる訳ですが、

1．DataTableでの受け渡しでは型が曖昧
2．ASP.NETに表示するときに値の変更がいる場合に
　　どこで値を変更するか？
　　例：ＤＢの値が１→ＨＴＭＬ上では「ＹＥＳ」と表示等

この２つが疑問です。
皆さんはどのように行っていますか？

>>59
DataGrid用に全フィールドstring型のDataTableを構築しなおす。

オンメモリでDataTableを作れるのは死ぬほど便利。
DataSet内でリレーションも張れる点からもPowerBuilderのDataStoreより好き。

えらい人教えて！！
ある基本ホームを継承後オブジェクト（ボタン等）
を非表示にする方法（コーディングせずに）ってありますか？

上記のボタンオブジェクトのプロパティVisibleを
Falseにしても画面上には表示されます。

ちなみにEnableをFalseに設定したらちゃんと使用不可の
状態になるんだが…。

環境：Win2000 VB.NET Ver.2002

>>61
いまいち意味が飲み込めないが
デザイン時にはボタン表示して
実行時にボタン不可視なら

InitializeComponentのところで
Button1.Visible = False
で出来る

ちなみにユーザコントロールはフォームに貼り付けた瞬間にロードされるので
ロードイベントで何かやらせてる場合は注意が必要

>>62 49さんレスありがとうです

説明不足ですみません
ご指摘のように
InitializeComponentのところで

Button1.Visible = False

とするとちゃんと不可視になるんですが
これをデザイナ上のプロパティウインドウの操作だけで
非表示には出来ないでしょうか？


なお、新規に貼り付けたボタン等に関しては
プロパティウィンドウのVisibleをFalseにすることで非表示になるのですが、
（ソースにはButton1.Visible = Falseと書かれる）
継承してきたボタン等のプロパティを変更しても非表示にならないのです。
（継承したフォームのボタン.Visible = Trueが消えているだけ）

宜しくお願いします。

VB.NETスタンダードにはＡＰＩピューアは付いてないんですか？
これがないとかなりしんどい

Webアプリは.NETがまさるが、クライアント用アプリはVB6.0がよいな

Dim cn As New SqlClient.SqlConnection()
Dim cmd As New SqlClient.SqlCommand()
Dim dr As SqlClient.SqlDataReader

で、'接続済みの Connection を指定する
cmd.Connection = cn 'あるいは cmd = cn.CreateCommand

としたとき、cmdはSqlCommandのインスタンスですが、
SqlCommandにはConnectionプロパティもメソッドもないのに、
なぜcmd.Connectionというふうにすることができるのでしょうか？
cmd = cn.CreateCommandの文なら理解できるのですが・・・

>63
ん？クラスの継承かユーザーコントロールかどっちだ？

まあどっちでも同じことだが、
元クラスにボタンのVisibleと連動するPublicプロパティを作っとくと、
デザイナにそのプロパティが出てくるようになる。
で、それをFalseにすれば、消えるよ。

プロパティはPublicじゃないと駄目だったような希ガスるが、
FriendやらProtectやらの組み合わせで出来ないか試してみれ。

>64
VS.NET Enterprise にも付いてません。
VB6から入れるか、Vector辺りで落としてくるか、
MSDNでリファレンス見て何とかするかだね。

>66
ほれ。パブリックプロパティの欄を良く見てみ。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemdatasqlclientsqlcommandmemberstopic.asp

おお、ありがとう

いままで大学、会社ではC,C++,PerlなどなどUnix系でプログラムしていたんですが、
今度転職した会社でＶＢ．ｎｅｔをやることになりました。ASP.netをやるのですが、
あまりのクラスに唖然。ＶＢって簡単そうに思っていましたがとんでもなかったです。
VS.netの使い方、sql serverとの接続など新しいことがいっぱいで毎日勉強です。

VBを利用して茶筅DLLを組み込んだ分かち書き変換ソフトってないですかね？

VB.NETをWindowsCE.NET上で動作させる場合、
母艦ＰＣとのデータやり取りってどうしてます？

テキストデータの読み書きは出来ないみたいだし、
PocketAccessは入ってない、CE.NETから母艦
PC経由でOracle参照したり出来ないみたいだし。

とても困ったです

ネタｲｸﾅｲ

「.NET Framework SDK」ってどこにあるんですか

VB.NETやるんだったら、まずこれを読めって言われたんですが

>67さんレスありがとうございます。

アドバイス通りPublicに設定して
継承元のプロパティを予め Visible = False にしておき
経書後もプロパティを Visible = False にすると非表示になりました。

ただし問題点が…。
継承元が同じソリューション内にある場合は、上手くいったのですが
継承元をDLL化して配布した後、こいつを引っ張って継承させると
上手くいきませんでした…。
（プロパティウィンドウ上ではVisible Falseになってます）

なにか設定方法等違いがあるモノなのでしょうか？

>>73
見つけられない時点で、それを読んでも理解できないと思うよ。
そんなの気にせずにVB.NETはじめた方がいい。

2つの条件を使ってレコードを抽出しています。
2つともLIKEを使ったところ、ANDではダメなようです。
どうしたらいいですか？

具体的にＳＱＬを書いてくれたら、もう少し解答してやろうという気になれる訳だが。

>71
触ったことないからなんともいえないけど、
.NET Compact Framework でもSystem.IO 関連はサポートされてる。
つーかファイル操作が出来ない言語って何よ…

>73
とりあえずいった香具師に氏ねっていってこい。
で、最寄の本屋いって初心者向けの本を買ってこい。
初心者向けはたくさん出版されてるよ。
中級、上級向けは少ない。つーか、SDKはその後だね。

>74
漏れのところではDLL化してもうまくいくんだが。参照が古いのかな？
どうやってプロパティを作成したか、晒してみれ。

>>77
すみません、具体的に書きます。

Dim r As DataRow()
Dim i As Integer
r = Dataset.Table.Select("AA Like 'モナー%'")
　　　　AND ("title Like '２ちゃんねる%'")

これだと「ANDはstringに対して定義してません」とでます。

>>79
VB.NET使いじゃないが、どう見ても構文が変だろ。

r = Dataset.Table.Select("(AA LIKE 'モナー%') AND (title LIKE '２ちゃんねる%')")

じゃないのか？

>>80
ありがとうございました。
スレ汚して申し訳ないです。

>>78さんレスサンクスです。

定義したプロパティは、こんな感じです。
#Region "独自プロパティ"
Private bOrgStatus As Boolean

Property OrgStatus() As Boolean
Get
Return bOrgStatus
End Get

Set(ByVal Value As Boolean)
bOrgStatus = Value
Me.Button4.Visible = Value
End Set
End Property
#End Region

インデントできてなかった…すんません

上記の状態でプロパティを変更するとButton4の非表示設定が
Falseになりデザイン画面上から見えなくなるのですが
実行すると直前にボタンが表示され、実行中は表示されてしまう

という状況です。

今まで、ＶＢ６を使って開発していたのですが、同じマシンに、ＶＢ．ｎｅｔ
いれて、動きますか？

>>84
動きます。

>82
これでPublicになるの？
Privateになると思ってたんだが、漏れ間違ってた？

↓とりあえず、こんな感じにしてみれ。

Public Property OrgStatus() As Boolean
Get
Return(Me.Button4.Visible)
End Get
Set(ByVal Value As Boolean)
Me.Button4.Visible = Value
End Set
End Property

コンボボックスの事で質問です。
データセット内のデータテーブルのデータ
例として商品マスタ（商品コード　商品名）をコンボボックスにセットしたいのです。

それはデータソースにテーブルを入れてしまえば入るとおもうのですが、
こうなった場合、コンボボックスのリストインデックス＝−１って設定できないのでしょうか？
エラーが出てしまいます。
データテーブルを入れたはいいけれど、初期設定でコンボを空白にすることができません。
無理から空白をデータテーブルに入れる、という処理はできればやりたくありません。
ｲﾆ社ライズでコンボボックスのテキストを空白にもできませんでした。
データソースを設定する前に
items.addで空白をコンボに追加することももちろんできませんよね・・・。
色々試してみたのですがどなたか教えて下さい。宜しくお願いします。

>>87
たしか、
ComboBox.Text = ""
だと空白に見えるが実際は最初のインデックス
が選択されていて
ComboBox.Text = Nothing
だと何も選択されていない状態
になるんじゃなかったっけ？

レスありがとうです。

報告するのも恥ずかしいんですが
フォームロード中にTrueを設定するようなコードが
混じってました…小人さん召喚してたみたい；；

で、そのコードを取り除いたら意図した通りに動作しました。
自分で作った方も教えていただいた方も。

教えていただいた方
長々とありがとうございました。

プロパティのアクセス限定子は
>修飾子が指定されていないプロパティは、既定で Public になります。
と書かれてましたので省略しました。

右シフトと左シフトに別々のコードを割り当てることは出来ますか？

>>90
はあ？馬鹿じゃねーのﾌﾟｵ

VB.NET用のクラスビルダユーティリティってある？
VB6の奴は結構重宝してたんだけど

教えてください〜（泣

ＶＢ６使ってます。
デザイナモジュールファイルをプロジェクトに取り込むにはＤｏしたらいいですか？

ｸﾗｽ {XXXXX-XXXXX}(ｺﾝﾄﾛｰﾙ XXXXX) はﾛｰﾄﾞされていません。

というエラーが出ます。
よろしくお願いします。

>93
ネタですか？
マジレスしてほしかったらVB6スレ逝け

なんらかの機能を作成する場合に、必ずメソッド化してコンポーネントクラスの
中にコーディングするようにしていますか？コードビハインドの対象となるVBファイル
には状態遷移にまつわるコードだけを記述したいためこのようにするっていう人が
いますがみなさんはどうですか？

コンポーネントクラス って？

ＶＳに項目の追加からコンポーネントクラス選べるけど

VS.NET（2002？旧バージョン）では.NETFramework1.1を使用できないのでしょうか？
インストールしたのですが、Framework1.1が使えません。。どこかに。設定とかあ
るんでしょうか？開発言語はVB.NETです。

よろしくお願いしますｍ（＿＿）ｍ

>>98
残念ながら2003でないと無理。

>>99
さっそくのレスありがとうございました。やっぱりそうですよね、、、
.NET2003はFrameworkのバージョンも選択できるんですよね。いいな

>>98,100さん
.NET2003入れていないので、ホントかどうかわかりませんが、Cマガの話によると、.NETFramework1.0対応アプリは.NET2002で、
.NETFramework1.1対応アプリは.NET2003でないと完全に対応したモノが出来ないとか書いてありましたYO。

>94
はぁーい☆

宿題くれ

どのくらいの初心者かは知らんが、宿題を上げよう。
ＶＢ６しかやったことがなく、ＶＢ．ｎｅｔは全くやったことがない。ということを想定してだしてみる。


（宿題　ＬＶ１　テーマ：イベントメソッドを、複数のコントロールで共有する）

５個のボタンがあります。ボタンのテキストはそれぞれ、「１」〜「５」となっています。
ボタンが押されたときに、ラベルにそのボタンのテキストが表示されるようなメソッドを書きなさい。

※従来のVBに無く、VB.NETの新機能を利用して書くことを推奨する。

自テキストをラベルに表示するクラスを作って
それ継承させて他のコントロールつくればいいんじゃないの？

今アプリの終了時に現在のフォルダ位置をテキストファイルに残し、次回起動時にそのフォルダをデフォルトで起動という処理をしようとしています
英語表記のフォルダは以上はないのですが漢字をを使っているフォルダにアクセスするとエラーが出ます
なにがいけないのでしょうか　こんな感じです
なおfolder.iniには
c:\tempとかいう書き込みが入っています
Dim srFile As New System.IO.StreamReader("folder.ini", System.Text.Encoding.Default)
Dim strContents As String = srFile.ReadToEnd
DriveListBox1.Drive = strContents
DirListBox1.Path = strContents　　'ここでエラー

FileListBox1.Path = strContents

宿題の答え…イベントメソッドに、ボタン１〜５のクリックイベントをハンドルする。
応えもクソも、テーマにそのまんまの事だが。


Private Sub BtnClick(byval Sender as Object,byval e as EventsArrgs) handled Btn1_Click,Btn2_Click,（以下略
　　　　Label1.text = Sender.text
End sub


「VB6 だったら、各ボタンのクリックイベントから、メソッドを呼び出すように作るが、
VB.Net なら、メソッドにイベントを割り当てることができるようになりましたよ。」

ということを伝えてみたかった。

>>106
自己解決
ＪＩＳだとコードを変えないといけないんですね

>>107
すごい！まじで？
そんな事できるんだ。ありがとう。

でもコードの見やすさの点から言うと
それぞれのイベントにメソッドを呼び出すようにしたほうが
断然わかりやすいとおもうのだけど・・・。違う？
以外と実務では使えなかったりしないだろうか。
考えが古いだけかな。

便利な事は重々承知だけれど、見やすさ，読みやすさが第一だとおもうのだけどな。

ここはどんなレベルの人は対象ですか？

>>1を見れば判るとおり、VB.Net初心者から.Netの神まで。
>>103-109までは、いわゆる.Netの移行に難儀している.Net初心者群の質疑応答

停滞気味だから、なんかネタがあったら提供しておくれ。

formを半透明にしてラベル上に書かれたテキストのみを通常（非半透明）表示させたいのですが

Delphi最強すぎ

>>113
信者の痛さがな。

>>113
君はDelphi信者かい？だったら、VB.Netをやってみる気は無いかい？
VB.Net設計チームの中の人は、Delphi4を作った人だよ！！

VB.NETの方がDelよりいいと思ったからここに来てるんだよ。

>>116
偉い！よく言った！！

なんかVB.NET微妙に面倒な部分が多いな。やはりDelphiに戻ろうかな。

textboxで最初にフォーカスが当たった時に
入力されている文字列を全選択した状態にしたいのだが、
Enterイベントに全選択のコードを書くと、Tabキーでの移動は全選択されますが、
クリックすると全選択されません。

どうもマウスでテキストボックスをクリックした場合、
Enterイベントの後にClickイベントが発生しているので、
全選択された後に、クリックによる全選択解除が起きているようです。

だれか、良い方法教えてください

質問です。
>>119に似ていますが、
複数のTextBoxがありまして
最初のTextBox入力を終え、Enterを押すと次のTextBoxに
カーソルを移動するにはどうしたらいいですか？
Tabキーは使いたくないのです。

>>120
似ているのだろうか？？

キーが押された時の処理に書こう
System.Windows.Forms.SendKeys.Send("{TAB}")

>>121
ありがとうございます
キーが押されたときっていうのは
この場合TextBox_Enterですか？
わからなかったです。

>>119
私はこうしています。

１）Intervalを150程度にしたタイマと、全選択を行ないたいコントロールの
オブジェクトへの参照をStaticで記憶するルーチンを用意する。

ex.
Private sub SelectAllText(Optional Byval Obj as Objcet = Nothing)
Static Target as Object

If Obj is Nothing then
Target.SelectAll = True
else
Target = Obj

End If
End sub

２）全選択を行ないたいコントロールのクリックイベントルーチンで、
そのコントロールのオブジェクトへの参照を前述の記憶ルーチンに渡し、
タイマのEnabledをTrueにする。

３）タイマのイベントルーチンで、記憶ルーチンを引数を省略してコールし、
タイマのEnabledをFalseに戻す。

あ、タイマのEnabledをTrueにするのはイベントルーチンの中より
オブジェクト参照を記憶させるルーチンに書くべきですね。

全選択を行ないたいコントロールが沢山あるとき、コードの冗長性を省く点からも
理解のしやすさの点からも。

VB.NETのリッチテキストボックスでは、デフォルトで禁則処理が
なされているようです。この禁則処理をオン/オフにする方法が
分からないで悩んでいます。よろしくお願いします。

VB.NETで名前付きコレクションを実現する方法はありますでしょうか？

ObjHoge = hogeCollection("HOGE")
のような感じのものを作りたいのですが

>>119
.NETは大変でつねｗ

>>126
System.Collections.Hashtable

>>128
ありがとうございます
いままでCollectionBaseをぐるぐる回して同じ名前を取得していました
これだと一発ですね(^_^)
たすかりました

CStr(数字) = 数字.ToString
で合ってますか？

>>130
あってるよ。

>>119
やっとできました。

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.KeyPreview = Not Me.KeyPreview
End Sub
Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Enter Then

e.Handled = True
System.Windows.Forms.SendKeys.Send("{TAB}")
End If
End Sub

>119
ClickイベントでSelectAllすればいーんじゃないの？
こんなカンジで。

Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click, TextBox2.Click, TextBox3.Click
　　Dim CNT As TextBox
　　CNT = CType(sender, TextBox)
　　CNT.SelectAll()
End Sub


>120
TabIndex順でいいのならSelectNextControlメッソド。
使い方は自分で調べれ…って、そうくるか>132


>125
何の禁則なのかわかんない……
どっちにしても↓に載ってないならわかんない。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemwindowsformsrichtextboxmemberstopic.asp

DataGridで質問です。

データグリッドの列をクリックすると行全部の色を変えたいのですが、
ネットで探してもその方法がみあたりません。
知ってる人いますか？

列指定はできたり、ウェブコントロール上のデータグリッドはItem_boundメソッドかなんかでできるみたいだけど
普通のwindowsアプリケーション上のデータグリッドで
上記のことはどうやればできるのでしょう？

datagrid.selectedbackcolorってのがあったけどできなかった・・・。

.NET環境において、データを表形式に表示する方法(VB6にあったMSHFlexGridなど)
でどんなものがお勧めでしょうか？

標準のデータグリッドがありますが、使い勝手が悪く、悩んでおります。
理想的には市販製品のPerfectGridのようなものが欲しいでのすが、
費用的に厳しいです。

みなさん、入力可能な表を表示するときどんな手法を使われていますか？

以前にも質問させて頂きましたが、答えが見つからず悩んでおります。

IEコンポーネントで画像を表示しない(テキストのみの)ブラウザを作りたいのですが
どういった方法をとれば画像を取得しなくなるのでしょうか？

マイクロソフトIEであればインターネットオプションの設定で画像を取得しないように
設定できますが、このコンポーネントで実現するにはどのようなコーディングに
なるのでしょうか？

大変申し訳ありませんが、お知恵を頂けないでしょうか。

>>132
それだと、Clickされる度に全選択になってしまうよ
出来れば、イメージ的には、
フォーカスが無い状態から、当たった状態になった時、全選択される
すでにフォースが当たっている状態で、さらにClick等で選択されると、
そのClickされた文字にIビームが当たる状態となる
って感じにしたいのだが・・・うまく説明が出来ん・・・

↑すみません 133 でした

>>119
あのー、だからそういうことなら、タイマを使って
GotFocusイベント発生からSelectAllメソッドの実行までに
遅延を作れば実現可能ですよ。

ご自分でも問題の原因の特定はできておられるようだから、
なぜ遅延を作ることが解決になるのかも理解できると思うのですが。

ロジックを「時間」で解決するのはエレガントじゃないからいやだろ。

1つBooleanの変数作って、フォーカス当たったらTrue、
クリックする時それがTrueの時だけSelectAllメソッド、そしてFalseに戻しておく。

>>140
確かに。でも私は詳しくないけどこれを「ロジカル」に解決するには
たぶんメッセージフックを使うしかないでしょ。

メッセージフックを使う方法がタイマで遅延する方法よりコードの可読性が
良いとは思えないし、.NETでそれを使うのがエレガントとも思えませんが。

>>133
レスありがとうです。禁則処理とは、日本語の禁則処理のことです。
また、ワード・ラップもデフォルトでオンになってます・・・。これもオフに
切り替えられる機構を搭載したいと考えているわけです。。

TextBox1に漢字を入力した痕
TextBox2にひらがなを入力
ということは実現できますでしょうか？

自分の名前を入力したら、読み仮名が同時に入力される
ってかんじです

>>142
つまり.NET自体に問題があるわけですね。

>>144
あっ　俺もそれ知りたい
漢字→ひらがな　の変換ってどうやるんだろうって
ちょうど悩んでた。


答えでなくてゴメン・・・・・・

>>144
>>146
標準のコントロールじゃできないと思われ。

>134
TableStylesから設定できる。
ただし、グリッド全体の反映になることは理解しておくように。
行単位に色をつけたいなどといってもまず返事は来ないよ。

>135
うちは葡萄都市だが、費用は小村とあんま変わらんなぁ。
個人的に使い慣れてるし、機能もナカナカだと思うけど、
手放しでオススメできるほどではないかな。

>136
System.Net.WebClientでプレーンテキスト取得して直書きすれば？(ワラ

……どーでもいいが、Windowsフォームで
HTMLを描画するコントロールとかって、ないかなぁ？

>141
だめぽ。Tabとかで移動した後でクリックすると、
最初の一回は全選択状態になるんだな。

>143
禁則処理はわかんね。
ワードラップはまんまWordWrapプロパティがあるね。

>>144
>>146
「119の質問にコードで答える VBプログラミングテクニック」
っていう本に書いてあったような・・・・・。

しょーもない質問ですみません。

Labelコントロールの、PreferrWidth　がインテリセンスに表示されません。
これだけでなく、そのコントロールが持つはずのプロパティがインテリセンス候補に挙がらないケースがあるのですが、
何が原因なんでしょうか(;´Д｀)

>>120

.NETやってる奴がみなその本を持ってるとは限らん罠

WORD98のCDに入ってるMSIME.TLBを使って解決･･･
って根本的な解決じゃないよな･･･（ｗ
これって再配布していいのかしら？

>>150
どこか別の行で文法間違いと貸してない？

ツール→オプション→テキストエディタ→Basic→全般→自動メンバ表示
「メンバの詳細を非表示」をオフにする。

S1=timeofday.tostring
S1=replace(S1,"/","_")
S1=replace(S1,":","_")
を実行すると
0001_01_01 1_59_58
がS1に入ってしまいます。
S1を1_59_58という日付部分の無い時刻部分だけにするにはどうすればいいのでしょうか？

cstr(timeofday)にしたらできました。
timeofday.tostringでも同じ結果が返ってきそうなものなのですが、なぜでしょうか？

内部で持ってる形式がそのまま出力されてる



















とおもふ

>>157
そうですか・・・・もうToString使うのやめます。

これでいかがでしょう
現在時刻をﾌｫｰﾏｯﾄ書式で成型しています
MsgBox(Now.ToString("H_mm_ss"))

参考：
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1041/cpref/html/frlrfsystemglobalizationdatetimeformatinfoclasstopic.htm

>>159
Formatと書かなくてもフォーマットしてるのでびっくりしました。
ToSringたまにつかうことにします。

Dim dirs As String() = Directory.GetFiles("C:\")
なぜStringに()がついてますか？

COMの引数がLPBYTE pになってると、ByRef p As Byteになるのはわかるんだけど、
その引数にByteの配列を渡したい時はどう記述すればよいですか？

Dim a() As Byte

m_hogehoge.hoge(a, 100)

と書くとエラーになってしまうのですが・・・。

win32APIとdirectXってどっちがはやいの？速さはおなじ？

は？

VBで分割コンパイルしたいんだけど
どうやったらできるの？

Cみたいにライブラリ（DLL)を埋め込むのってどうしたらよいﾃﾞﾂｶ？

http://jbbs.shitaraba.com/news/1370/

>>166
　　　　　　／:::::::::::::::::::::::::::::::::::::::::::::::　::::::::＼
　　　　 　(:::::::::::::::::::::::::::::::::::::::::::::::::::::　:::::::::::::＼
　　　 　/:::::::::::/ノ::::::::ノ::::::::ヽ:人::::::::::ヽ::::::::::::::::）
　　　　（::::::::::／:::ハ）:::ノ::::ノ　) ノノヾ::::::::::::丶::::ヽ
　　 　 （:::::::::/　彡　　ノ　　　ノ　　::　彡:/))　::::::::::）
　　 　（::::::::::/彡彡彡彡彡　　　ミミミミミミミ :::::::::::）
　　　　（::::::://￣￣￣￣ヽ===/￣￣￣￣ヽ |:::::::::）
　　　 　| =ロ 　　-=●=- ‖　‖　-=●=-　　ロ===
　　 　　|:/ ‖　　　　／/ノ　 ヽ ＼　　　　 　‖ ヽ|ヽ
　 　 　|/　 ヽ｀======/　.⌒　｀ ========ノ. 　 ..| |
　　 　.（　　　　　　　　（○　　○）　　　　　　　　‘）ノ
　　　（ 　　　　　　　／　　 l l　　　＼　　　　　　　　　）
　　 　（　　　　　　／／￣￣￣￣＼ ＼　　　　　　　）
　　　　＼　　　　）　 |　 ￣￣￣￣ 　|　 （　　　　　／　
　　　　　＼　　　　　 ＼＿＿＿＿／　　　　　　　／
　　　　　　(ヽ 　ヽ　　　　　　　　　　　　　　　　　ノ
　　 　　　　＼丶＼_　＿　　＿　　　＿／　　　 ／
　　　　　 　 | ＼　＼　　　　　　　　　　　　_＿／
　　　￣￣＼　丶　￣￣￣￣￣￣￣ 　　　／￣￣

>>148
そうなんだ！どこに質問しても123のようにタイマで遅延処理を施すか、
141のように「厨め！！」と思いながら安直に逝ってくる奴がほとんどなのだよ…
もっとロジカルに解決する方法を求む

>>149
お願い♪サンプルプリーズ

無能な上に馬鹿なのか。最悪だな。

>>161
>Dim dirs As String() = Directory.GetFiles("C:\")
>なぜStringに()がついてますか？

String()という型だから。
Dim dirs() As Stringと同じ意味。

>>165
>VBで分割コンパイルしたいんだけど
>どうやったらできるの？

そんなことして何したいの？
DLL作るか、DOSプロンプトから手動コンパイルで/t:moduleにしとくか。

>>171
つまり動的文字列配列型ってことですね？？

>>119
感じ悪いな。
厨というなら、.NETの枠内に準拠した「ロジカル」な解なんてあり得ないことが
わからない１１９こそ厨だろう。

Label3.Text = ListBox1.SelectedItem
これでエラーがでるのですがどうしてでしょうか。
Label3.Text = ListBox1.SelectedItem.ToStringもダメでした。

Console.WriteLine("{0} was copied to {1}.", path, path2)
{0}や{1}はどういった意味ですか？

データグリッドでクリックした行の全体のフォントを変えるやり方ってどうしたらいいんでしょうか？

>>176
WriteLine(A,B,C)は、フォーマット指定出力。

この場合は
Console.WriteLine("{0} was copied to {1}.", path, path2)
{0}のところには、path（第一引数の値）が、
{1}のところには、path2(第二引数の値）が表示される。

>>178さん
ありがとうございます。
{　}という記号はCっぽいのでちょっと抵抗がありました。
でも便利そうな記号だとわかりました。

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity
version="1.0.0.0"
processorArchitecture="X86"
name="CompanyName.ProductName.YourApplication"
type="win32"
/>
<description>Your application description here.</description>
<dependency>
<dependentAssembly>
<assemblyIdentity
type="win32"
name="Microsoft.Windows.Common-Controls"
version="6.0.0.0"
processorArchitecture="X86"
publicKeyToken="6595b64144ccf1df"
language="*"
/>
</dependentAssembly>
</dependency>
</assembly>

>>175
エラーの内容くらいかけよ！
それとそのコードが実行されるときに、リストボックスのアイテムは選択されているんだろうな？

ここの質問はマジなのか、からかっているのか分からんなｗ

C#の方が優れているらしいのですがなぜVB.NETを使うのですか？

旧VBユーザだったから。

TBS必死だな(藁

>177
無理。市販の高機能グリッド使え。

いやむしろ高機能なグリッドを作って>>177が作って公開してしまうという選択肢もあり。　

openfiledialogから選択した画像ファイルをpictureboxに表示させたいのですが

>>188
こんなんでいいのか？

If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
End If

>>189
ｔｈｘ

>>190
naa

せめて一冊くらいは本を買ってくれ

アプリの設定ってどうしてますか？
レジストリから移行するってことで調べてたんですが、app.configでは階層化できなそうなので、
結局自前でオブジェクトをつくってxmlでシリアライズなのかなぁと。
他にいい案ありますでしょうか。

Windowsｱｸｾｻﾘのメモ帳にVB.NETとASP.NETのインテリセンスを付加するフリーソフトみたいなのあるでしょうか？
またはインテリセンスのある、デザイン部分とコード部分を分離しないVB.NET記述用エディタはあるでしょうか？

いままでVB4とかVB6の開発をやってたんですが
こんど.netでやることになりました
ちょいと不安なんですが
そんなに構えないで平気ですか???

>>195
まずは作る云々よりヘルプの読み方になれることです

いや、まずは作れ。
そしたらヘルプになれる。

いやいや、ヘルプになれるほうが先だ

openfiledialogから選択したテキストファイルをrichtextboxに表示させたいのですが

作らずにヘルプになれるってのはどういう意味だよｗ
ヘルプだけ眺めるのか？

まぁ、あれだ。
．ＮＥＴマガジンの記事でも見れば、なんかの取っ掛かりは見えてくるだろう。
ちくちく勉強しよう。

みなさんこんばんは。
VB6であったコントロール配列を.netで実現するにはどうすればよいのでしょうか？
TextCtrlという名のテキストボックスコントロール配列が100個あったとして、

//////////////// VB6 //////////////////
Private Sub TextCtrl_Change(Index As Integer)
処理
End Sub
///////////////////////////////////////

VB6だと、100個のテキストボックスのどれが変更されたかが、Indexを見て一発でわかるのですが、
VB.netだとコントロール配列が使えないみたいなので、例えばテキストボックスコントロールの名前を
「TextCtrl001、TextCtrl002･･･、TextCtrl100」として、VB.netヘルプに書かれてあるようなプログラム
（Visual Basic .NET におけるコントロール配列の変更点）を組むと、

////////// VB.net ////////////////////
Private Sub fncTextCtrl_Change(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) _
Handles TextCtrl001.TextChanged , TextCtrl002.TextChanged , TextCtrl003.TextChanged ... TextCtrl100.TextChanged
処理
End Sub
///////////////////////////////////////

となりそうなのですが・・・
コントロール配列数が少ないときはいいですが、上記みたいに100個とかある場合、Handles の後に、
TextCtrl***.TextChanged を100個も記述しないといけないのでしょうか？
さらに、どのコントロールが変更されたかを識別するのに、「Tagプロパティ等の共通プロパティ
を設定してそれを見る事でコントロール配列機能を複製できます」ってあるのですが、
例えばTagプロパティを他の事に使用していた場合、上記機能は実現できないって事なのでしょうか？

VB.netを始めたばかりで、まだよくわからないのですが、VB6でのコントロール配列の機能を、VB.netで
上記以外の方法にて実現する方法があったらご教授お願いします。

VBの質問じゃないんだけど、VB使ったASP.NETで、例えばボタンとかラベルとか
をブラウザでセンターで表示したいって時、どうやればいいの？フロントページとかだったら
センターボタン押せば真ん中に移動してくれるから。

>>203
ttp://www5b.biglobe.ne.jp/~yone-ken/VBNET/special/sp02_event.html
このサイトの真ん中ぐらいに書いてあるﾎﾟ

間違えた
↑は203じゃなくて>>202

現在Exeが起動しているマシンのIPアドレスやMACアドレス、
コンピュータ名を取得することは出来ますか？

自己レス
「ManagementObject」を使用することで
上記の三つを取得することができました。

十進数を二進数に変換するプログラムを教えてください

>>208
http://www.google.com/search?hl=ja&ie=Shift_JIS&q=%8F%5C%90i%90%94+%93%F1%90i%90%94+%95%CF%8A%B7+%83v%83%8D%83O%83%89%83%80&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

>>201
そういえば、最近 .NETマガジンの質が落ちたな･･･
読みごたえがなくなった

>>204
ありがとうございます。
概念は理解できました。
しかし、これはコードでコントロールを追加していますよね？
すでにデザイナで配置済みのコントロールを配列化するには
どうすればいいのでしょうか？

続きです^^;

デザイナにて、TextCtrl00 〜 TextCtrl99 という名ですでに配置済み。

Friend TextBox1 As TextBox() = New TextBox(100) {}

Public Sub New()

Dim i As Integer
For i = 0 To 99
''////////// VB6表記 ////////////////////
TextBox(i) = Me.Controls("TextCtrl" + Format(i,"00"))
''//////////////////////////////////////
AddHandler TextBox1(i).KeyPress , AddressOf TextBox1_KeyPress
Next

みたいな事ってできないのでしょうか？

>>210
同意。最近ASP.NETばっか特集してるけど、まともな記事がない
今月号のTIPSも基礎の基礎だったし

VB. NETの記事が３つしかないんだよな。

VB.NETのツボ（クラスの作成云々）
スモールパーツプログラミング（リストビューのソートテクニック）
たまひよクラブ（占いアプリ作成によるＶＢ.NET基礎取得）


単体アプリに関する記事て、あんまり需要が無いという見解なのかもしれない。
それはそうかも。

たまひよの瀬戸遥が男なのがキモイ

VB.NETの勉強を始めました。
とりあえず思いつくコードを書いてみたのですが
Dim arr As New ArrayList()
arr.Add("AAA")
MsgBox(arr.IndexOf(0))
とすると
-1
と表示されます。
どこがだめでしょうか？

>>216
IndexOf(Object)はそのオブジェクトが何番のインデックスかを調べるもので
-1になるのはアレイリスト内に「0」というオブジェクトがないから
もし「AAA」を表示させたいなら
arr.Item(0)
とする

>>217
アヒャ
ありがと！

VB.NET(・∀・)ｲｲ!!ね。
早く仕事で使いたいよ。

お前なんかに仕事ねーよハゲ

お前こそねーよ童貞

お前こそねーよたらし

Java使いですが何か？

童貞はひっこんでろ

童貞の何が悪い？

　VB６からNETにいくと、テキストファイル出力はなに使ってる？

OutputStream

Declare の　by ANYがエラーしまくる。　なんに変えるの？
おそらく相手は　char *x; か　char hairetu[20000];なんだけど。

>>219
妖精様･･･私を天国へ連れて行ってください･･･

三十路ですが、何か？

童貞はクサイ

Office2003もVBAなんでつか？

童貞の話はいい。
大体、ｾｸｰｽだのなんだのという行為は、この世には存在しない。
あれは、基地外どもの妄想だ。

だから、童貞の話なんかやめて、ＶＢの話をするんだ。

>212
無理ざます。
そういう曖昧な指定ができないようにすることで、
バグを減らして効率を上げようというのが.NETの方向性。

↓でどうよ。
コントロール名にTextCtrlがついたヤツ全部を関連付けるよ。


Friend CNT As Control

Public Sub New()
　　MyBase.New()

コントロール作成するロジック（省略）

　　For Each CNT In Me.Controls
　　　　If InStr(1, CNT.Name, "TextCtrl", CompareMethod.Text) > 0 Then
　　　　　　AddHandler CNT.KeyDown, AddressOf Key_Down
　　　　End If
　　Next

End Sub

童貞じゃないけど妖精になれますか？

>>235
童貞でなくとも、処女なら妖精になれるよ。
もし処女でなくとも、童貞ならアーサー王の聖杯をゲトできる可能性あり。
ガンカレ。

ファイルのサイズを表すfile1.lengthが
32145Byteだったとすると、3ケタごとにカンマをつけようと
format(file1.length,"Currency")
を実行すると
\32,145
と\までつけられてしまいました。\を空白文字にリプレイスする手もあるのですが、#を使ってカンマを打つことにしました。
format(file1.length,"######")
みたいにシャープを使って3ケタごとにカンマを打つにはシャープのところをどのように書いたらいいのでしょうか？

>>235
おまえはすでによごれている。しあわせな人生は送れない。

format(file1.length,"###,###")

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

VB.netでＷｅｂアプリケーションを作っているのですが、shift-jisの扱いが分かりません。

<%@ Page Language="vb" ResponseEncoding="shift_jis" ・・・
と追加し、
Response.Charset = "shift_jis"
をPage_Loadに追加したのですが、
textarea　とかで文字列を入力してもらい、それをGET/POSTで取り出そうとすして、Request.Formしてるのですが
入力が日本語だと、取り出せません。(表示は出来るのですが。。。)

どなたかスマートな方法をご教授ください

>>241
web.config

web.configのどこをどうすればよいのでしょうか？初心者質問ですみません

FindWindow等で使用するクラス名を変更する方法を教えてください。

VB.NETはOracle(9i)と接続できるんでつか？

>>245
もちろん

>>246
ODBCとかADO経由じゃなくて、ネイティブドライバもある？

>>247
oracle.net

クイズゲームを作っていまして、その問題と解答を集めたテキストファイルの扱い方に
悩んでいます。
できれば、プロジェクト内に含ませて、実行ファイル一つ（と.net Framework）で動く
アプリケーションにしたいのですがどのようにしたらよいのでしょうか？
問題集（テキストファイル）をアプリケーションと同じ階層に配置しなければならないのは配布時に面倒っぽいし、
問題集（テキストファイル）を書き換えられたり中身をのぞかれたりするのが嫌なのです。
でも、問題集はテキストファイルで簡単に編集していきたいのです。
どなたかよろしくご教授下さいませんでしょうか。

フリーのライブラリとか使って暗号化すれば？
その状況だと、暗号化したものだけ配布すれば問題ななさそうだけど。

quizResource.txt -> encipheredQuizResource.txt

>>249
htmlに汁
配布もクソもなくてｳﾏｰ

>>250
ありがとうございます
暗号化してやってみます。
フリーソフト探してこよっと。

>>251
ｈｔｍｌにするという意味がわからない初心者でして、すみません。
お答え頂きありがとうございます。

（はっ・・ホームページにして公開すれということか）

>>252
画面右上のソリューションエクスプローラが

ソリューション
　プロジェクト
　　Form1.vb

となっているとして、
プロジェクトを右クリック
↓
追加
↓
新しい項目の追加
↓
たくさんあるアイコンの中からテキストファイルというのを選択する。

そうすればコンパイルするとテキストファイルがexeファイルに含まれるようになる。

ListViewで多重ソート（項目Aでソートして、項目Aが同じなら項目Bの順で並べる）かます上手い手はないかな。
いや、下手でもいいけど。

>>253
ありがとうございます！
暗号化ソフトを探していたのですがどうも自分の思考回路まで
暗号化されてしまいまして・・・・・・・。

早速、プロジェクトにテキストファイルを追加してやってみました。
そして、某HPにてプロジェクトへの埋め込みファイルの扱い方を見てみたのですが
ビットマップファイルを埋め込んで扱う方法しか載っていませんでした。
現在のアセンブリを取得した後、プロジェクト内のテキストファイルを
問題集として扱う方法がわかりません。

テキストファイルの内容は、

1(問題番号）,グーに勝つのは？（問題）,チョキ（選択肢１）,パー（選択肢２),2(解答No),2(配点)
,2,チョキと引き分けるのは？,チョキ,パー,1,1
,3.・・・・・・・・・・・・・・

というようになっているのですが、
この問題番号、問題、選択肢１−２、解答、配点を順に読み出し変数（ストラクチャ）に格納していきたいのです。
（普通のシーケンシャルファイルのようにして読み込みたいのです。）
プロジェクトに取り込んだテキストファイルをシーケンシャルファイルのようにして扱う方法を教えていただきたいと
思い、再度書き込みさせていただきました。どなたかわかるかたよろしくお願いします。m(,_,)m

>>234
亀レスですが、ありがとうございました！
とても参考になりました！

asp.netでウェブブラウザでボタンおすと違うページに飛んでくっていう
のってどうやってつくったらいいのですか？

初心者の域なんですが、ExcelファイルをDataTableに読込むとき、
シート名に空白が混じってるときは　どうしたらいいのでしょうか？

Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
MyCommand = New System.Data.OleDb.OleDbDataAdapter( _
"select * from " & sheetname, MyConnection)

として　sheetname　に"[aaa]"とかなら　うまくいくんですが
"[a. 12]"などだと　かっこの使い方が違います（？）のようなエラーが
でてしまうんです。

どなたか　ご存知でしたら　教えて下さい。

>>258
うろおぼえでスマソ。試してないので間違ってたらゴメン。

"'[a. 12]'" のように' で囲ってみたら？

　

>259
ありがとうございます。　でも　だめでした〜。(;_;)
エラーのメッセージも同じままでした。

指定した時刻になったら、なにかのEXEを起動する
スケジュールソフトを作るにあたって、

Private thdThreading As System.Threading.Thread
Private Sub btnSt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSt.Click
thdThreading = New System.Threading.Thread(AddressOf Me.sThreadPg)
thdThreading.Start()
End Sub

Private Sub sThreadPg()
　　　　Dim intCnt As Integer
Dim strNow As String

Do
strNow = Now
If mnowdate = "2003/11/13/ 13:00" Then
MsgBox("成功！")
End If
Loop Until intCnt <> 0
End Sub

てな感じで一応出来るんだけど
重くないし、他のアプリケーションには影響ないぐらいですが
見た目のCPU使用率が100％

他に方法ないですかね？

ちょっと修正


Private thdThreading As System.Threading.Thread

Private Sub btnSt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSt.Click

　　　thdThreading = New System.Threading.Thread(AddressOf Me.sThreadPg)
　　　thdThreading.Start()

End Sub

Private Sub sThreadPg()

　　Dim strNow As String
　　Do
　　　　strNow = Now
　　　　If mnowdate = "2003/11/13/ 13:00" Then
　　　　　'ここにイベントを書きたい
　　　　　MsgBox("成功！")
　　　　End If
　　Loop Until intCnt <> 0

End Sub

ﾌﾂｳにEXEを作ってタスクマネージャで起動するのでは？

>>263
タスクマネージャを編集するソフトを考えたんですが
自分のソフトで出来る方法が・・・

>261
ずっとループさせてるんだから当たり前じゃん>100%

System.Threading.ManualResetEventオブジェクトの、
WaitOneメッソドでウェイトを取るってのはどーよ。
厳密な時間計測がいるなら話は別だけど。

PictureBoxの上にマウスポインタがあるときに次のことを実現したいのですが、

○ ツールチップを表示しながら

○ マウスポインタ周辺のPictureBoxのビットマップを取得したい。
　　ただしその表示しているツールチップが透過された（ツールチップを表示していない
　　状態の）画像が欲しい。

現在、ビットマップを取得するのにWin32APIのBitBltを使っているのですが、
これで取得するビットマップにはツールチップがそのまま含まれてしまいます。

一見、ビットマップ取得直前にツールチップのActiveプロパティをFalseにして
表示を消して、取得後にTrueに戻せばよさそうですが、そうすると
たとえ本来ツールチップが表示されていなければならないようなタイミングでも
（マウスポインタが停止してからツールチップの表示期間のタイムアウトが来てなくても）
その後マウスポインタが動かされないとツールチップが表示されなくなってしまうので
困ります。

何かよい解決法はないでしょうか。
ツールチップを透過したビットマップを取得する方法か、あるいは
マウスポインタが停止していても強制的にツールチップを表示する方法があれば
よいと思うのですが。

ある構造体をFilePutでファイルに書き込もうとしてるのですが、
Structure STRC_TEST
Dim A As Long
Dim B() As Integer
Public Sub Initialize
Redim B(3)
End Sub
End Structure
Private Sub fncTest()
Dim intFn As Integer
Dim Test As STRC_TEST
Test.Initialize()
Test.A = 1
Test.B(0) = 2
Test.B(1) = 3
Test.B(2) = 4
Test.B(3) = 5
intFn = FreeFile()
FileOpen(intFn, "Test.tmp" , OpenMode.Binary)
FilePut(intFn, Test)
FileClose(intFn)
End Sub
で書き込んだ場合、
01 00 00 00 00 00 00 00 02 00 00 00 03 00 00 00
04 00 00 00 05 00 00 00
となると思ってたのですが、ﾊﾞｲﾅﾘｴﾃﾞｨﾀなどで見ると
01 00 00 00 00 00 00 00 01 00 04 00 00 00 00 00
00 00 02 00 00 00 03 00 00 00 04 00 00 00 05 00
00 00
となっています。
Test.A と Test.B(0)の間にある10バイトは一体何なのでしょうか？
すいませんがご教授よろしくお願いします。m(__)m

うあ、ソース見づらくてすいません・・・
スペースがなぜか書き込み時には詰められているみたいで・・・

>>254ではわかりにくいので具体的にさせて下さい。

「ソート後の各Itemの順番を値として取り出したい」

これで得た値をItemのIndexにすれば、ソートする項目が同じ時にIndex順に並ぶと思うんだけど…

VB.NETでの質問です。
プロジェクトに取り込んだテキストファイルの中身を
「,」（カンマ）区切り毎に各変数に格納する方法を教えて下さい。
プロジェクトに取り込んだテキストファイルの内容を一文字ずつ変数に格納する
方法でもかまいません。

Dim I As Integer
Private Sub Timer1_Timer()
　If Text1.Text = "" Then
　　　Else
　　　　If ti = 1 Then 'もしtiが1秒になったとき
　　　　Timer1.Enabled = False 'まずタイマー終了させて
　　　　Text2.Text = "Time over" 'timeoverと表示させる。
　　　　Label3.Caption = "0秒"
　　　　For I = 1 To 10
　　　　Beep
　　　　Next I
　　　　　　Else 'tiが0秒でなければ
　　　　　　ti = ti - 1 'tiを１秒ずつカウントダウン
　　　　　　Label3.Caption = ti & "秒"
　　　End If
　End If
End Sub

テキストどおりにやってみたらBEEP音がなりません。
Timeoverとは表示されるのですがなぜ鳴らないのでしょうか？
宜しくお願いします。

>>270
ただ単にSplit関数使うだけじゃないのですか？
ちょっとヘルプ検索すればすぐ見つかるようなこと聞くのは如何なものでしょう。

って、私みたいに回答しちゃう奴がいるからいけないのか。。

>266
PictureBoxのImageオブジェクトから直接取るってのはダメなん？
↓なカンジ。

Private BitImage As New Bitmap(100, 100)

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
　　Dim RECT1 As New System.Drawing.Rectangle(0, 0, 100, 100)
　　Dim RECT2 As System.Drawing.Rectangle
　　Dim g As Graphics

　　RECT2.X = e.X
　　RECT2.Y = e.Y
　　RECT2.Width = 100
　　RECT2.Height = 100

　　g = System.Drawing.Graphics.FromImage(BitImage)
　　g.DrawImage(Me.PictureBox1.Image, RECT1, RECT2, GraphicsUnit.Pixel)

End Sub

>271
こっちに逝け。
http://pc2.2ch.net/test/read.cgi/tech/1065446334/

>>269
ListViewItemSorterプロパティをしらべなされ。

web.config のファイル名って変更できるのでしょうか？

>>273
あ、私の説明が足りなかったんですけど、グラフィクメソッドで描画した画像の
ビットマップを取得したいんですよ。VB.NET自分個人では持ってない（仕事で使ってる）
のでいま試せないのですが、確かグラフィックメソッドで描画した画像は
Imageプロパティでは取得できなかったですよね？違ったかな。

しかし.NETの+GDIってなんかすごく中途半端な気がするのは
私がまだよく理解してないせいだろうか？

VB.NETで作ったWebアプリケーションからoo4oでオラクルにアクセスすると、
アクセス拒否のエラーが出ます。同じ環境で、Windowsアプリケーションだと大丈夫でした。
誰か、VB.NETのWebアプリケーションでoo4oを使う方法を教えてください。

素直にODP.NETを使えと。

11月14日に
　Visual Studio Tools for Office
が一般発売されましたが、世間では全く話題になっていないようです。
WordやExcelにはVBAで十分で、.NETを持ち出す必要はないのかな。

>>279
これって、Officeで.NET使えるようになるの？
知らなかった。さっそく試してみます。

>>278
過去の資産が結構あり、ODP.NETもまだ出たてで当方の検証が終わっていないので、
できればoo4oを使いたいのです。使えないのでしょうか？

Class a Inherits basea
End Class

Class b Inherits baseb
End Class

というaクラスとbクラスがあって、この両方に全く同じメソッドを実装したいんですが、
やはり両方に同じコードを書くしかないんでしょうか？
例えばC言語のようにソースの中に別のソースを#includeしたりは無理？

Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName 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 winame As String
hwnd = 0
hwnd = FindWindow("XLMAIN", 0)
If hwnd <> 0 Then
MsgBox(hwnd)
Else
MsgBox("取得できませんでした。")
End If
End Sub

エクセルが起動していないときも、
0以外の数字が返されるのですがなぜなのでしょうか？
全然わかりません。

>>283
それ、起動してるときはちゃんとしたハンドル取れてるの？

大きな桁の数字がmsgboxにでてくるのですが
それがちゃんとしたハンドルかどうかって
どうすれば判断できるのでしょうか？

それとコマンドボタンを押すたびに
前回と異なった値がmsgboxで帰ってくるのですが
これもおかしいですよね。
エクセルは起動しっ放しなのでハンドルは変わらないと思うのですが。

>>285
VB使いじゃないんで詳細はわかんないけど、宣言がまずいんじゃない？

Declare Function FindWindow1 Lib "user32" Alias _
　"FindWindowA" (ByVal lpClassName As String, _
　ByVal lpWindowName As Long) As Long

Declare Function FindWindow2 Lib "user32" Alias _
　"FindWindowA" (ByVal lpClassName As Long, _
　ByVal lpWindowName As Long) As Long

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　MsgBox(FindWindow1("XLMAIN", 0))
　MsgBox(FindWindow2(0, 0))
End Sub

こうするとどうなる？
当てずっぽうで書いてるので、文法違ったら直してね。

ハンドルが正しいかどうかは、、Spy++か何か持ってない？

詳しくないので頓珍漢なレスかもしれませんが、
ウィンドウハンドルって４バイトじゃないの？
だから対応する型は旧VBならLongでいいけどVB.NETならIntegerでは？

で、たぶんウィンドウが見つからないときは４バイト符号付整数で
-1 = 0xFFFFFFFFを返すから、それをLongで受けるとまんま
0xFFFFFFFF = 4294967295になっちゃうのでは？

ハンドルが正しいかどうかをテストするには
IsWindow API はどうでしょ？

>>286
hex()で16進数変換すると右半分の数字が
spx++でのハンドル値と同値になりました。
左半分は毎度変化します。

288さんのを参考に
Declareをintegerですると見事
spy++でのハンドルと同値となり
>>283がうまく実行できました。

ところがPostMessageでhwnd, 16, 0, 0を送っても
Private Const WM_CLOSE = &H10
Call PostMessage(hwnd, WM_CLOSE, 0, 0)
エクセルが終了しません。
正しいハンドル値でないのか、postmessageがおかしいのかわかりません。

postmessageの宣言を
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
(ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam _
As Integer) As Integer
とすべてintegerですると強制終了もできました。

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

ラベルの透明背景は下のコントロールを無視してしまいますが、これを回避する方法はあるのでしょうか？
VB6では、透明ラベルでテキストの重なり等を色々使っていたもので、結構困ってます。

VB6.0ではTimer1_Timer
だったが
VB.NETは
Timer1_Fuck
というイベントになってるね。

つまんね

Fomr1.Visible=Trueは
Me.Visible=Trueともかけますが、

Private Sub TextBox1_Click (ByVal Sender as〜)
ここで、TextBox1.Text=""ではなく
Me.Text=""のように、自分自身を指定するキーワードを使いたいです。
MeはForm1のことになっちゃうので、Fomrの中のコントールで自分自身を指し示すキーワードはなんですか？

End Sub

くだんね〜。VB1.0からやり直せ。

>>274
いや、もちろんそれ使ってるんだけど、ListViewItemSorterにクラス代入してソートしても、
並び順が変わるだけでIndexは変わってないっしょ？
例えば、昇順ソートだと

(1)　　 甲 乙
ItemA　1　2
ItemB　1　1
ItemC　2　1

とある状態で、一度乙でソートすると

(2)　　 甲 乙
ItemB　1　1
ItemC　2　1
ItemA　1　2

となって、ここから甲でソートすると

(3)　　 甲 乙
ItemB　1　1　←
ItemA　1　2　←
ItemC　2　1

となる様にしたいんだけど、クラス作ってListViewItemSorterに代入すると
(1)→(2)→(1)ってなっちゃって、(3)の並び順になってくれないんだよ…

>276
>確かグラフィックメソッドで描画した画像は
>Imageプロパティでは取得できなかったですよね？

んー。何かPictureBoxの上に描画してるだけの予感。
Imageプロパティにセットしたオブジェクトに描画しないと、リフレッシュ時に消えちゃうぞ？

273はPictureBox1.ImageにセットしたImageオブジェクトの一部を、
BitImageというBitmapオブジェクトに取得（書き込み）してるんだよ。
これを、例えばPictureBox2.Imageにセットすれば、
PictureBox1.Imageの一部がPictureBox2.Imageに表示されるわけ。

>しかし.NETの+GDIってなんかすごく中途半端な気がするのは
>私がまだよく理解してないせいだろうか？

多分ね。
このあたりのことは過去に何度か出てきたから、ログあさってみれ。

>293,295
そんなことより聞いてくれよ。
実はMSのサイトでこんなの見つけたんだけどさ。

http://www.microsoft.com/japan/msdn/net/books/progwinvbnet/contents.asp

>>293
>Timer1_Fuck

>>298
>んー。何かPictureBoxの上に描画してるだけの予感。
>Imageプロパティにセットしたオブジェクトに描画しないと、リフレッシュ時に消えちゃうぞ？
私は低レベルのコーダーですが、そのぐらいのことは知ってますよ。
ですが、普通はビットマップオブジェクトに描画してそれをPictureBoxのImageプロパティに
設定するってしないでしょ。メモリ無駄に使うから。
まあ変更の必要のないちっちゃな絵を書くときには私も使いますけど。

＞>しかし.NETの+GDIってなんかすごく中途半端な気がするのは
＞>私がまだよく理解してないせいだろうか？
＞
＞多分ね。
これは「反疑問」のつもりで書いたのですが。つまり本当は間違いなく中途半端だと
思っているわけです。だってちょっとしたことやるとすぐに+GDIだけでは実現不可能か、
可能であっても恐ろしく面倒なコード書く必要が出てくるから。

例えば>>266にも書いたWin32のBitBltや、DrawFocusRestに相当するものって
ないでしょう。

あ、Ｘ反疑問→○半疑問、ＸDrawFocusRest→○DrawFocusRectでした。

>>280　Visual Studio Tools for Office
http://www.microsoft.com/japan/msdn/vstudio/office/productinfo/features/officetools.asp
　Officeで.NETを使うというよりは、
　Visual Studio .NET で VBAの高級代替品を作る
と思ったんだけど、本当のところはどうなんでしょう？

SendMessage(hwnd, WM_SETTEXT, 0, "○○商事")
SendMessage(hwnd, WM_SETTEXT, 0, "株式会社")

テキストファイルに出力への出力を実行すると
「○○商事株式会社」とならずに
「株式会社」とだけなります。
上書きでなく、追記という形でするにはどうしたらいいでしょうか？

>301
>ですが、普通はビットマップオブジェクトに描画してそれをPictureBoxのImageプロパティに
>設定するってしないでしょ。メモリ無駄に使うから。

Imageの一部がビットマップに取得されるのが確認できるよって意味でなんだが。
つーか、漏れもそんなに詳しいわけじゃないけど、何が「普通」だと思ってるの？

>つまり本当は間違いなく中途半端だと思っているわけです。

そうですねー。
……といって欲しかったの？(w

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs)
Handles MyBase.Paint
Debug.WriteLine("paint")
End Sub

Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Handles MyBase.SizeChanged
Refresh()
End Sub
では、Paintは一回しか流れないんだけど、二回流れないとおかしいと思う。
SizeChangedに何も書かなかった場合、
サイズを小さくする場合は、Paintは呼び出されないということは、わかってるけど、
大きくする場合も一回しか流れない。なんでだろう？
どこかで、SizeChangedにRefreshが書かれているかどうかを判断しているとか？

うろ覚えだが、WM_PAINTは必ず送られるものじゃなかったような気がするが。

>>305
基本が全然わかっておられないうえに、日本語も不自由でおられるようだ。

「PictureBoxの上に描画してるだけ」だと、「リフレッシュ時に消えちゃう」、
「Imageプロパティにセットしたオブジェクトに描画しないと」と、
こういう風におっしゃるから（本当は、こんな説明は全然なってないですが）
普通はそのようなメモリを無駄に消費する方法はとらない、と答えたのに、

>Imageの一部がビットマップに取得されるのが確認できるよって意味でなんだが。
訳がわかりません。全然受け答えになっていませんが。

>何が「普通」だと思ってるの？
普通はPictureBoxのデバイスコンテキスト(.NETのGDIではGraphicsオブジェクト）に
描画する処理をPictureBoxのPaintイベントをトリガーに呼び出すようなコードを
書きます。常識以前だと思いますが。

私は無知なことは悪いとまでは思わない。でも無知を自覚できず、
見当違いなことで食って掛かるのは如何なものか。

>>306
WM_PAINTは処理されるときに、溜まってる分を結合するんじゃないの？

>>308
自分の話が相手に伝わらないからって、全部相手のせいにしない方がいいよ。
自分の常識が世界の常識だと思い込まない方がいいよ。
理解してないのを自覚してるフリはしない方がいいよ。

おまえらウザイ

>308
不愉快な思いをする羽目になるから、
てめーは不自由な日本語で拙い説明文なんか作るな、一言で済ませろ。
ってことですね。なら改めて。

DrawImage
以上。

>普通はPictureBoxのデバイスコンテキスト(.NETのGDIではGraphicsオブジェクト）に
>描画する処理をPictureBoxのPaintイベントをトリガーに呼び出すようなコードを書きます。

（　´_ゝ｀）ﾌｰﾝ、それがフツーなんだ。
ま、保存する必要がないならそれでいいかもね。

>>312
>ま、保存する必要がないならそれでいいかもね。
保存が必要なときは、一時的にビットマップオブジェクトを作成し、
その（CreateGraphicsメソッドで作成した)Graphicsオブジェクトを
描画ルーチンに渡して描画したものを保存します。
保存後作成したBitmapオブジェクトをDisposeします。
これが「普通の」処理ですが。ビットマップオブジェクトが存在し続けるような
間抜けな処理（Imageプロパティにbitmapオブジェクトを設定するような）
は「普通」のプログラマならしません。

ちゃんとヘルプとか読んでます？私みたいに.NETはじめて１月の人間でも知ってるのに。

しかしＶＢ厨ってのはこういう人たちのことを言うのですかね。
無知の自覚がなく自分の恥を平気で晒すような。

ＶＢ厨＝童貞

>313
色々ツッコミどころはあるが、もうどーでもいいや。
日本語が不自由なVB厨に教えられても不愉快なだけだろうし。
お前さんの問題が解決しなかろーが漏れにはまったく関係ないし。
まあ、せいぜいがんがってくれ。

総括
VBやってると妖精になれなす

問題なのは携帯アプリをVB.NETやVBやVB Scriptで作れないことである。

スマートデバイス用の.net Compact Framework下において
タブオーダーって、使えないんでしょうか。

>277
>279
どなたかこちらもお願いします。

あのー、すいませんが、
arraylist配列を2次元にする方法知ってる方いらっしゃいませんか？
2次元ともarraylistで。

とりあえずは自作structureを駆使してしのいでるけど・・

structure ST
dim array2 as arraylist
end structure

dim array1 as arraylist

dim tempST as ST

array1=new arraylist()
tempST.array2 = new arraylist()

array1.add(tempST)

こうすると、array1().array2()という形で()内の要素数が変わる2次元のarraylistになるけど、
もっと、スマートにいかないものでしょうか？


timer1.fuck

>>307,309
再描画が必要ではない場合は、WM_Paintメッセージは発行されないわけですね。

windowが重なっていて、クライアント領域を再描画する必要があるときに、発行されるのだけど、
直前でリフレッシュしているから、重なっていなかったとして、WM_Paintが発行されないということか。

>>320
ArrayListって使ったことないので間違ってるかもしれませんが、
２次元のArrayListって定義矛盾というか、ありていにいうとそれは既に
ArraiListとは呼べないんじゃないですか？

だってAddとかRemoveメソッドはどんな動作すりゃいいの？

もし、単に２次元配列みたいに添字を２つ付けて各アイテムに
アクセスしたいってことなら、そういうクラスを書けばいいんじゃないですか？
例えばこんなのはどうでしょう。

Public class c2DArrayList

　　'枝ArrayListの入れ物のArrayList
Private mBranches As New ArrayList

'枝ArrayListの追加
Public Sub AddBranch
Dim NewBranch As New ArrayList
mBranches.Add(NewBranch)
End Sub

'枝ArrayListに葉っぱ(データ）の追加
Public Sub AddItem(BranchIndex As Integer, Item As Object)
Dim Branch As ArrayList = mBranches(BranchIndex)
Branch.Add(Item)
End Sub

'BranchIndex番目の枝のLeafIndex番目のデータの取得
Public Function GetItem(BranchIndex As Integer, LeafIndex As Integer) As Object
Dim Branch As ArrayList = mBranches(BranchIndex)
Return Branch(LeafIndex)
End Function

End Class

VB.NET個人では持ってないんで動作は未確認です。

なんじゃそら・・・

>>324
さんくす

当方、VB.NET歴2ヶ月ちょっとのド素人なもので
超初心者的質問にお付き合い下さいサンクスコ。

なんにしろ、大きな勘違いを正せたので助かりました。

Timer1_Fuck

確かになんじゃそりゃだな(ﾜﾗ。
オーバーロードくらいすりゃい〜のに。

厨な質問ですまそ

VB.NETって、クラス参照型ってのは、ないんすか？
ぐぐってみたけど、引っかかってこなかったもんで

>>328
そんなの気にするなよ。

>328
Delphiでつか？
なんにしても実現したいことを書いたほうが良かろうです。

>>329-330

へい。Delphi屋です。
VB.NET、Delphiとほとんど同じなんで、バカスカ、実装してたんですけど、
「あれ、クラス参照、ねぇ〜じゃん」ってなちゃって。
ないんなら、ないで、何とかしますぅ〜

でも、VB.NET、よくできてますなぁ。VB6で拷問受けた身には
天国ですわ。
でも、もっさりしすぎだけど(藁

CのDLLに構造体を渡す為に、アライメント設定とマーシャリングをしたいのですが、

<StructLayout(LayoutKind.Explicit, Size:=10, CharSet:=CharSet.Ansi)> _
Structure STRC_TEST1
<FieldOffset(0)> Dim A As Short ''2バイト整数
<FieldOffset(2)> Dim B As Integer ''4バイト整数
<FieldOffset(6), VBFixedArray(1), MarshalAs(UnmanagedType.ByValArray, SizeConst:=2)> Dim C() As Byte ''2ﾊﾞｲﾄのﾊﾞｲﾄ配列 ''2バイト整数
<FieldOffset(8)> Dim D As Short ''2バイト整数
Public Sub Init()
ReDim C(1)
End Sub
End Structure

って定義すると

アセンブリ '6' の型 'STRC_TEST1' を読み込めませんでした。
オフセット 6 に不適切に整列されたか、オブジェクト以外のフィールドで
オーバーラップされたオブジェクト フィールドが含まれています。

ってなエラーが出るのですが・・・
どこか定義の仕方がおかしいですか？

スティーブバルマーが公演でイノベーションと言っていたのですが意味は何ですか？

以下の定義で２階層の構造体を作ろうと思ったのですが

Private Structure Detal
Private m_szYyyyMm As String
Private m_szCP_Cyo As String
Private m_szCP_Cne As String
Private m_szCP_Ltc As String
Private m_szCP_Other As String
Private m_szAP_Engr As String
Private m_szAP_Cad As String
Private m_szAP_Cne As String
Private m_szAP_Ltc As String
Private m_szAP_Other As String
End Structure

Private Structure Import
Private m_sEX_FileName As String
Private m_bErrorFlag As Boolean
Private m_sPrj As String
Private m_sJobNo As String
Private m_sStartDate As String
Private m_sEndDate As String
Private m_sDepartment As String
Private m_sTblMax As Integer
Private m_sMH() As Detail
End Structure
↑型'Detail'が定義されてません

と出て、定義できませんでした。ＶＢ６では出来たのですが。。。
どうすれば定義できるでしょうか？ご教授願います。

Private Structure Detal

Private m_sMH() As Detail

す＠えるみす

>>335
すみません。。。初歩的なミスでした。

データグリッドでセル内を複数行にしたいのだが
その方法を教えてけろ。

またまたすみません。

フォームの頭で

Public m_tblExDataFile() As Import

を宣言して

フォーム内のプロシージャで参照しようとすると

「オブジェクト参照がオブジェクト インスタンスに設定されていません。」

と出てしまいます。。。

どーすれば解決できるでしょうか？ご教授願います。

>>338
代入しろよ

イノベーション？？？

>>338
初期化しるかNewしる

あ、書けた！OCN規制解除マンセー

Dim t As Date
t = CDate("2003/11/21 22:16:10")
TextBox1.Text = Year(t)
TextBox2.Text = Month(t)
TextBox3.Text = Day(t)
TextBox4.Text = Hour(t)
TextBox5.Text = Minute(t)
TextBox6.Text = Second(t)

について、TextBox3.Text = Day(t)のところでエラーが出るのはなぜでしょうか？

Redimでm_sMHを宣言しなおす

>>343
TextBox3.Text = DateAndTime.Day(t)

またはTextBox3.Text = t.Dayとか

点を指定した座標にポチっと描画する時ってどうすればいいでしょう？
Graphics.Draw??? みたいなのが用意されてると思ったらなかったもので。。。

皆様はどうなさってるんでしょうか？

今授業で電卓を作っているのですが
１＋２＋３＝５になってしまいます。
最後の二つだけが計算されてしまうということなのですが、
どうやったら直すことができますか？

あと小数点以下の計算のさせ方について
よいアドバイスをください。

どなたかグラフを描くいい方法ご存知ないでしょうか？
例えば、データ点が1000個ある系列2つを、各々x、y軸として
グラフを表示させたいんですよ。

結構基本的なことだと思うので、何か既成のライブラリみたいのが
あると思うのですが、あれば教えて頂けないでしょうか？

点の描画が大ブレイク？
つか、何がわからんのかがわからん・・・。

>>345-346
ありがとうございます。

>347
System.Drawing.Graphics

>349
Crystal ReportsとかCOMのMS CHARTを使うとか。
ベンダ製の有料コントロールもあるみたい。
Graphicsでシコシコ書くという方法もある。

office自身のサンプルコードをキボンヌ！

>>352
お返事ありがとうございます。

早速MSChartで試してみたんですが、なんだか描画に異常に時間がかかるんですよ。。。
Chartに関する操作を含んだ関数呼出しの際に、実行終了まで10秒程かかります。
データ数も10そこそこで、CPUもPen4 1.8GHzなのでこれらは問題ないと思います。
しかもそのコードの最初に TextBox1.Text = "hoge"みたいな行を記述しても、やはりその実行に10秒程
かかるので、描画「自体」が原因というわけではなさそうです。

同じコードをVB6で記述したら一瞬で描画できました。聞きかじりですが、.netではCOM呼出しに
ラッパーを被せてあるそうなので、こちらが原因なのでしょうか？

どなたかこの問題について御存知の方、原因を御教授願えませんでしょうか？
(長文すみません)

>>347
FillRectangle

なぜそっちを教える？ｗ
点ならSetPixelでいいだろ？

.NETの低レベルグラフィック描画(GDI+)は遅いよ。
DirectXが標準APIに変わるまで我慢だね。

んで、「ラッパー…」は関係ない。
ためしにVB6でPsetなコンポーネントを作って、VB.NETから呼んでみ。

VS.NETの起動自体が早くなれば結果としてプログラム自体も高速になったとみなしてよいんだけどね。

ボタンのクリックイベントに
Dim Fr2 As New Form2
Fr2.Show()

と書くと
ボタンを押すたびにForm2が何個も表示されてしまいますが、
何回ボタンを押してもForm2が一個だけ表示されている状態はどうやって作り出せばいいのでしょうか？

Windowsコントロールライブラリについて質問ですが、
UserControlにButtonを1つ追加します。
で、そのButtonのModifiersプロパティをPublic指定します。

で、出来たDLLを他のプロジェクトで使用します。
そうすると、UserControl1のプロパティのその他の欄にButton1が追加されるのですが、
そのプロパティを変更してもデザイン時には、変わっているのですが、実行したら元のプロパティ状態に戻っています。
プログラムで、変更したプロパティは実行しても、ちゃんと反映されています。

これって、DLLを作るときに何かロジックを作らないといけないのでしょうか？？

fr2.ShowDialog()

>>361
それだとfr2を閉じないとForm1を最前面に持ってこれないようですが？？？

visual basic.netで作ったasp.netなのですが、サーバーで作った
asp.netソリューションをローカルに持ってきて、ローカル上で
実行したいのですが、ローカル上でどのようにソリューションを
作成すればよいかわかりません。どのようにソリューションを
作ればよいのでしょうか？

セットアップ作れば？

>>359
>Dim Fr2 As New Form2
↑の行を↓のようにイベントの外に出す
Private Fr2 As New Form2

わからなければボタンのクリックイベントに

Button1.Enabled = False

って書いとけｗ

>>359
フォームのコレクション(Forms)の中にForm2のインスタンスが
既に存在しているかどうかを確認するコードを書くだけだと思いますが。

TabControlのフォーカス枠を表示しないようにしたいんだけど、それを設定するプロパティってありませんか？
VB6なんかでいうShowFocusRectね。
消したければオーナードローするしかない？

>>365-366
言ってる意味はわかりますがコードを書けるようになるにはまだ無理です。

>>368
STATICを付ける

>>369
はじめてみるキーワードでしたがDimの代わりにつかってみたら成功して感動しました。

>>370
Staticを知らないプログラマってのも驚きだけど、
Staticを指定するとインスタンスが１つに保たれる（恐らく既に存在している
インスタンスがdisposeされる）ってのはもっと驚き。

なんか間尺に合わない気がするのだが。

Static Fr2 As New Form2
　　　　　　　　　　↑
これは初期化宣言なんで1度しか通ってないってことじゃねの？
GCがそんなに都合よく動くとは思えん。

>>372
正解っすね
Static Fr2 As Form2 = New Form2
と考えたら一目瞭然

staticにすると何処に書いても自動で関数の外に出されるよね。自動グローバル化(勝手に命名)というか何というか

>>366
それVB.NETにもあるの？
NewしたFormのインスタンスを自動で管理してるってことだよな。
そのFormsコレクションってなんのプロパティなんだ？

ＶＢ６からＶＢ.ＮＥＴに移植しているのですが

ＡＰＰ.Ｐａｔｈが使えなくなってしまって困っています。

ＶＢ.ＮＥＴの場合は何に置き換えればいいのでしょうか？

>>376
Application.StartupPath
だったと思う。

>>377
早速のレス、ありがとうございました。

Dim wc As New System.Net.WebClient()
wc.DownloadFile("http://img.yahoo.co.jp/images/main7.gif", "c:\test.gif")

を実行すると

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

追加情報 : 基になる接続が閉じられました : リモート サーバーに接続できません。

というエラーが出るのはなぜでしょうか？

>379
環境のせいだと思われ。
ちゃんとWebにアクセスできる？

ちなみに漏れの環境ではそのソースでOKです。

厨房ですがすいません。
結局VB.netでどの程度のゲームが作れるの？

RPGやシミュレーションのような動きの少ないゲームなら余裕じゃないかね？

古いパソコンでも無い限り3Dのレースやアクションでも簡単なものなら
オンボードでPentium3とか言われるとつらい気がする

ありがとうございます。
ここ２ヶ月前からVB.netをはじめたものですが
以後よろしくお願いします。

>>380
了解です。

ユーザコントロール(コンボボックス&テキストボックス等で構成)を作成したのですが、
フォームにデザイン画面からではなくコードで
動的にユーザコントロールを追加しています。

その場合にユーザコントロール側で起きたイベントを拾いたいのですが
どうしたらよいでしょうか？？？

ユーザーコントロールでPublicイベントが発生するようにした上で、
WithEventsで宣言すればいいんじゃないの？試してないけど。

>>386
AddHandler

Crystal ReportsのテキストオブジェクトがReadOnlyになっているようで
プログラム上からテキストの内容を変更できません。
どのようにしたらTextをプログラムで編集できるのでしょう？

動的に増えるユーザーコントロールのイベントを拾う方法ってありますか？？

389です。
以下のソースでテキストオブジェクトが変更できません。
恐らくソースが間違っていると思いますが。

Dim Report As New rptOutPut()
Report.Section3.ReportObjects.item("txtComment").text = "TEST"

>>390

ユーザコントロール「UCON」が動的に「Panel1」追加されると仮定して
UCONにはHOGEHOGEというイベントがある

Private MyUCON as UCON <- これをフォームレベルで定義

MyUCON = New UCON
Panel1.Controls.Add(MyUCON)
AddHandler MyUCON.HOGEHOGE, AddressOf MyUCON_HOGEHOGE

'ここにイベント処理
Private Sub MyUCON_HOGEHOGE()

End Sub

判りにくくてｽﾏｿ

質問です。過去ログを見ましたが解決方法が記載されてなかったようなのでお聞きします。

VS.netをインストールしました。プロジェクトを作り、保存しました。
DebugモードでF5でビルドを開始しました。するとエラーメッセージボックスが出てきて、

「エラーが発生したぞ！デバッグを切るとビルドできるがやるか？」
(意味はこうだったと思います。)

と聞かれたので[OK]を押しました。この件の後、ビルドは出来ますがブレークポイ
ントを置いても全くそこで止まらなくなりました。
現在全くデバッグが出来ない状況です。改善方法をお教え下さい。
よろしくお願い致します。

失礼しました。

プロジェクトはVisualBasicプロジェクトでASP.NET Web アプリケーション

を選択しました。

ちなみにどこにブレークポイントを置いても動作しません。
必ず通るであろうPage_Loadの行にブレークを置いても全く動作しません。

ははは・・・　失礼しました・・・

http://support.microsoft.com/default.aspx?scid=kb;ja;306165&Product=aspnetINT

ここに記載されていました・・　ですが既に「OK」を押しているので多分この
プロジェクトでデバッグは動作しないのかな・・・
デバッグする方法をお教えください。

といいますか・・・　もう俺ばか。解決しました。
1、ソリューションエクスプローラのプロジェクト名を右クリック
2、プロパティをクリック
3、TreeViewの構成マネージャを展開　→　デバッグ　をクリック
4、下のデバッガで「ASP.net　デバッグ」にチェックを入れる
5、OK

これでOKでした。失礼しました。お次の方どうぞ。

質問なんですが現在以下のサンプルを参考にチャットを作成しています。
今日本語を送れるようにしたいのですが、上手くいきません。
とりあえずエンコードは行っているのですが、なかなか正しく動いてくれなくて・・・。

http://www.pscode.com/vb/scripts/ShowCode.asp?txtCodeId=1381&lngWId=10

これを日本語送信できるようにするにはどうしたら良いのでしょうか？

>387,388,392
助言ありがとうございました。

なんとかできそうッス！！

Ｓｈｅｌｌ関数を使ってワードパットを起動するのですが
開くファイルを指定できないんでしょうか？

write.exe c:\hogehoge\hogehoe.doc

>>401
レスどうもです。


やってみたのですが、

SHELL("c:\wordpat.exe","C:\Documents and Settings\iki\デスクトップ\vb.txt")

とした場合、「C:\Documentsは存在しません。」のエラーが出て
出来ませんでした。

どーすれば解決できるでしょうか？

SHELL("""c:\wordpat.exe""","""C:\Documents and Settings\iki\デスクトップ\vb.txt""")

>>403
出来ました。
誠にありがとうございました。

別解

Dim myp As New Process

myp.StartInfo = New ProcessStartInfo("write.exe", """C:\Documents and Settings\iki\デスクトップ\vb.txt""")
myp.Start()

>>405
おぉっ！こんな方法もあるのですね。
アドバイス、ありがとうございます。

起動されているメモ帳にtabキーと文字を送りたいのですが
文字だけが送られ、tabキーがおくられないです。
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const VK_TAB = &H9
↑この宣言に間違いがあるのでしょうか？

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　Dim hwnd As Integer
　Dim chwnd As Integer
　hwnd = 0
　chwnd = 0

　hwnd = FindWindowT(0, "テスト.txt - メモ帳")
　chwnd = FindWindowExC(hwnd, 0, "Edit", 0)

　SetForegroundWindow(chwnd)

　SendMessage_int(chwnd, WM_KEYDOWN, VK_TAB, 0)
　SendMessage_int(chwnd, WM_KEYUP, VK_TAB, 0)
　SendMessage(chwnd, EM_REPLACESEL, 0, "シャノー")
End Sub

>>407

keybd_event() とか使いなはれ。

VK_RIGHT
なんかは正常に動作するのに
なぜtabが。

たったいま
Call keybd_event(VK_TAB, 0, 0, 0)
をつかって試してみました。
tabキーを送ることはできたのですが
そのタイミングが文字入力の先だったり後だったりで安定しません。
「　シャノー」
「シャノー　」
↑こんなのがはっせいしてしまいます。
sendmessageでtabを送ることが出来ればおそらく
タイムラグがないと思うのですが、よい解決方法はないでしょうか？

>>410
EM_REPLACESEL を使うなら、タブ込みでやっちゃえばいいやん。

ボタン選択の移動もtabで行いたいのです。
tab無しの文字入力もありますのでできれば
sendmessageで処理したいです。
sendmessageでtab（インデントや項目移動）は
サポートされてないのでしょうか？

ＶＢを買おうと思ってアマゾンで検索したら
VB.netっていうのばっかり出てきます。
ＶＢ6.0が最新のやつかと思ったんですが、ｎｅｔの方が新しいのでしょうか。
それとも質の違いなんでしょうか。
違いについて教えてください。

当方プログラミングの経験はほとんどなく
昔にＭＡＣのＨｙｐｅｒＣａｒｄをいじっていたくらいです。
友達に聞いた所、ＶＢがオブジェクト指向で同じ感じだというので
購入を検討していたところ、上記のような疑問に出会ってしまいました。
初歩的な質問なのかもしれませんが、よろしくお願いします。

あと
Visual Studio .NET とかいうのもあって更に混乱しています。

各ユーザのデスクトップなどの特殊フォルダーはFileSystemObjectで取得する方法はわかりましたが
せっかく.NETを使っているのでSystem.IOではどのように記述すればいいのでしょうか？

System.Environment.GetFolderPath(Environment.SpecialFolder.System)

>>412
たぶん、サポートされてないんじゃないかな。タブキーを押したときの状況を
SPY++ で確認してみれ。

>>413
.NET の方が新しい。ぜんぜん違うものなので、まずは Microsoft のサイトなど
で確認してみるよろし。

>>414
それは、Visual C# だとか、Visual J# だとか、Visual C++ だとかがセットになった
やつ。お金に余裕があれば買ってもいいね。

>>413
VB6のユーザーは多いけど、
MSはVB6の系統は今後バージョンアップしないから、
今から覚えるなら避けたほうが良い。

エクセルとかのVBAが.NETになるのはいつ？？？

>>417-418
ありがとうございます。
さっそくMicrosoft行ってみます。
あとで本屋にも行ってＶＢ.ｎｅｔの入門書とか見てみることにします。

>>413
VS.NET MSDN何とかエディションにはVisualStudio6が付いてくる（会員登録後1週間ぐらいで送られてくる）
会社で買うのであればこれを買うことを進める

VB.netで、「マインスイーパ」って作れますか？
もし可能なら作ってソース公開してください。
勉強材料にさせていただきます。

う〜ん
君最強

う〜ん
VB.net最強

う〜ん
俺.最高

う〜ん
nakata.net最強


中田熊度でかいぞ

>>413
>>422
もうちょっと「ニオイ」を消すことをオススメする。

ワイルドカード指定でファイルを削除する方法ってある？
System.IO.File.Deleteに("*.txt")とか指定するとArgumentExceptionが出ちゃう。
ファイル名拾ってループさせるしかないのかな。

つーか声がエロすぎ

Visual Basicのサービスパックは
オンライン上で入手することは可能なんですか？

>>430
6.0はこれ
http://www.microsoft.com/japan/msdn/vstudio/downloads/sp/vbdownload.asp

.NET(2002)のサービスパックは.NET2003なので、それを買う。

＞431
ありがとうございました

>428
System.IO.File はファイルそのものだから、その指定は無理でしょ。
System.IO.Directory.GetFiles で、
指定したディレクトリ内のファイルをワイルドカード検索出来るみたいだけど、
返ってくるのはなんとString。ファイル名だけ。
FileのCollectionを自動生成するメソッドはなさげだし……

うーん、無理ぽ？

VB.NETの先輩方に質問です。

自作クラスのインスタンスをNew演算子で次々と作成し、ArrayListに格納した後、
ArrayListをNewで初期化してしまうと、それまでArrayListに格納されていたインスタンス達は
どこへいってしまうのでしょう？
大量のインスタンスをAddしては、ArrayListの初期化でまた他のインスタンスをAddしていくという
処理を組んでいるので、記憶領域に負担をかけることにならないか心配になり、質問させていただきました。

こんな感じです↓

dim A as ArrayList
dim c as MyClass
dim i,j as integer

For i = 0 to 1000
A = New ArrayList()
For j = 0 to 1000
c = New MyClass
A.Add(c)
Next j
Next i

使わなくなったクラスのインスタンスや、アレイリストをそのまま放っておいて、
新たにNew演算子で作成し続けていっても大丈夫なのでしょうか？

>>434
まず、ガベージコレクタでググってください

ガベージコレクタが理解できない場合、

| Private Sub SubA()
|
| dim A as ArrayList
| dim c as MyClass
| dim i,j as integer
|
| For i = 0 to 1000
| A = New ArrayList()
| For j = 0 to 1000
| c = New MyClass()
| A.Add(c)
| c = Nothing
| Next j
| A.Clear()
| Next i
|
| End Sub

でいいんじゃないの？

VB6でボタンとかをダブルクリックしてもコード画面に切り替わらないように出来ますか？

>>437
なにがやりたいのかさっぱり分からんし、
方法も思いつかない。

>>437
何かあったような気がしたけど方法忘れた

>>437
カエレ

フォームにデザイン画面でスクローラブルコントロールを貼り付けて
そのスクローラブルに動的にユーザーコントロールを追加&削除する処理を
作成しています。

ユーザコントロールの追加は上手くいったのですが
追加されたコントロールをDisposeした時の動きがおかしくなってしまいます。
画面上は消えているコントロールなのですが
スクローラブルのコントロールズのカウントを取り
for文でユーザーコントロールの値を取得すると
消えているはずのコントロールの値が取れてきてしまいます

ユーザーコントロールの消し方に問題があるのでしょうか？？

>>438と>>440は真性

>>441
そのコントロールは具体的にどうやって削除してるんだ？

たしか強制的にGC動かす方法あったな。

Nothing は、Visual Basic .NET でオブジェクト変数がオブジェクトへの参照を含んでいないことを示すために使用されるキーワードです。
以前のバージョンの Microsoft Visual Basic では、使わないオブジェクトを Nothing に割り当てることによって、
オブジェクト変数をオブジェクトから切り離し、リソースを解放していました。Visual Basic .NET でも、使わないオブジェクトを Nothing に割り当てることはできますが、
リソースの管理方法が変更されているため、オブジェクトがすぐに解放されるとは限りません。
一般に、オブジェクトを Nothing に割り当てる必要があるのは、共有メンバやグローバル変数などの寿命の長いオブジェクトの場合だけです。

オラクルテーブルの項目

SYMBOL VARCHAR2(30),

に値をセットしたいのですが、
入力される値が漢字、英数字を含むもの

例：2ちゃんねらー12345678901234567890


場合によっては入力される値がオラクルの設定桁数より
大きくて落ちます。

LEN関数で桁数チェックしようと思ったのですがうまくいきません。
どーすればうまくいくでしょうか？

VB.NETは文字をUnicode(2バイト)で扱うので
そのままをOracle（デフォルトはシフトJIS)に突っ込むと
場合によっては半分しか入らないとおもいます
VB6にはStrConv関数で対応できたが今は出来ないみたいですね

System.Text.Encoding.GetEncoding("Shift_JIS").GetByteCount("2ちゃんねらー12345678901234567890")

でいけるかと

>>447様
早速のレスありがとうございます。
早速試してみます。

>>442　は無知

VB.NETを修得できる学校を探しています。
どなたかご存知の方、お勧めの学校などありますか？
（国内外にこだわらず）

学校なんか行かなくても全然習得できるし、人に教えてもらうより自分で調べたほうが
身につくと思うけどなぁ。

asp.net + win2kserver でWebサーバ並びにメールサーバを構築したいと思っていますが。
↑の本とか良いWebサイト知りませんか？
アマゾンを探してみたのですが、どうにもASP.netとWin2Kが切り離されて記載されてるから
調子が悪くて。そこら辺りを誰か知ってる人いたら教えてplz

これまで、独学でやってきたんですけど、
サラリーマンにはなりたくないので、
（できれることなら自営を考えており）
社会的にも認められるような経歴にもなる
学校にいきたいと考えているのです。
海外留学でもかまわないので、
どこかいい学校を知っている人いませんか。
中国にそれらしき学校があったけれど、
他にもいろいろ探そうと考えてます。
VB.NETをしっかり身に付けて世に出たいと
思っています。

自営するならそんな学校の経歴なんぞいらんｗ
っていうか、プログラミング力を学校で判断するなんて考えたこともない。
それより会社で経験詰んだ方がいい。
ここで言う経験ってのは言語=プログラムじゃなくて、業務知識ってこと。

もしかして >453 って10代？

VB.netでWebアプリケーションを作成しています。
Ｐａｇｅ上の全てのＴｅｘｔｂｏｘのプロパティを変更したい場合は
どうすればよいのでしょう？

Dim MyCtrl As Object
For Each MyCtrl In Page.Controls
Select Case TypeName(MyCtrl)
Case "TextBox"
MyCtrl.・・・
End Select
Next MyCtrl

だと、Ｔｅｘｔｂｏｘが引っかかってくれません。

>>455
Webに山ほどTextBoxを貼り付けている時点で設計失格。

TextBoxのMultilineをTrue、ScrollBarsをVerticalにしました。
この、テキストボックスがスクロールされたというイベントを取得したいのですが、
どのイベントを使えばいいのでしょうか？？？

フォームをOpacityで半透明にしているのですが
その下に見えている他のウィンドウなどを普通に
操作出来るようにしたいのですが出来ますでしょうか？
よろしくお願いします。

まるち

いちどOpacity変更すると描画速度が遅くなるのはどうしようもないのか･･･

Form1のTransparencyKeyプロパティで透明色を指定したところ、
ツールチップがフォームの後ろに隠れてしまいました。
最前面(フォームよりも上)に出すにはどうすれば良いですか？
※TransparencyKeyの設定を無くすと最前面に現れます。

どなたかご教授願います。

VB.NetでPGを作っています。で、dllがたびたび無くなってしまいます。
dllの消える原因として何があるのか教えてください。
プロパティの参照パスをいじると消えるということは分かっています。
よろしくお願いします。

>>462
PGの不具合だな。あるいは、
プロパティの参照パスをいじったからぢゃないかな？
プロパティの参照パスをいぢらなければ良いと思われ。
つか、釣りじゃないなら、もっと具体的に書き直せ。

一つのプログラムを複数のプロジェクトに分けて作ってきました。
今！それらをまとめるときがきたのです！
が、やり方がわかりません（つд｀;）

ソリューションに、複数の既存のプロジェクトを追加したのですが、
いったいどうやって扱えばよいのでしょうか？

「ファイル」の「既存項目の追加」で追加したい.vbを追加したらどうでしょうか

「ファイル」の「既存項目の追加」で追加したい.vbを追加したらどうでしょうか

追加しました(･_･)
・・・。
何がどう変わったんだぁぁ（；；）ﾎﾟﾛﾎﾟﾛ

>>464
何が分からないのかが伝わらない。
[ファイル]-[プロジェクトの追加]-[既存のプロジェクト] じゃダメなのか？

>>462
SourceSafe使ってるとたびたび物が消えることがある

asp.netでの質問なんですが、ボタンを押すと画面が変わるのではなく、ポップアップで
画面が立ち上がってくるっていう処理を作りたいんですが、どのようにやればいいんでしょうか？

そらJavaScriptだろ

http://www5b.biglobe.ne.jp/~yone-ken/VBNET/series/VBNET4.html
のようなコンパイル方法が書いているのですが
クリック一つでコンパイル（デバック？）できるのではないのでしょうか？

当方、初心者なのでＵＲＬのような方法を使ったことがないです。

>>472
カネ出して、Visual Basic.NETを買えば、その統合開発環境でクリックひとつでコンパイルできる。
カネ出したくない人は、Microsoftから、.NET Framework SDKをダウンロードすれば、そのURLの方法でコンパイルできるYO!

大変失礼しました。
自分も「プロジェクトの追加」の意味をわかっていないものでして。。
何がやりたいかと言いますと、

・ある一つのプログラムを作るのに、各処理毎にテストを行いながら作成する。
この際、面倒だから各処理を一つのプロジェクトとして作成し、
標準モジュールや自作クラスなどを扱いながらプロジェクト（一つの処理を
完成させる）

・各処理が一通り完成したら、今度は、それらを部品のように見て、
一つのプログラムを組み立てる。
まず、この時、各プロジェクトにある標準モジュールやクラスは、他の
プロジェクトから見れるもの、見れないもので扱いをわけたいのだが、
それが可能なのか不可能なのかわかりません。

・各処理がプロジェクト毎に分割された、とてもスマートなプログラムが
完成する。このように、プログラム＝ソリューションと見ることができるのか
どうか、ソリューションに各プロジェクトを扱うロジックを持たせることが
できるのかわかりません。

このような漠然とした疑問なのですが、今後、分担作業で
プログラミングをしていくに当たって、とても重要な問題でもあります。
このVB.NETで新しく取り入れられた「ソリューション」という概念が
どのようなものなのか、把握したいと思い質問しました。

結局、プロジェクトに分けて作った処理をあとで一つのプロジェクトに
まとめてしまうのなら、平らでメンテナンスしづらいプログラムに
なってしまうので自分なりの対策が必要になると思いまして・・。

わかりづらい質問で申し訳ありません。藁をもつかむ思いで、ここ２ｃｈスレに
書き込みました。どなたかわかる方がいらっしゃったら是非ご教授下さい。

>>474
プロジェクトをまとめるのがソリューションです。

簡単に言ってしまえば、「プロジェクト = アセンブリ」です。

簡単なアプリであれば、実行ファイル(EXE)ひとつのプロジェクトでよいですが、
ちょっと込み入ってくるとそうもいきません。

なので、コンポーネント(DLL)を複数と、実行ファイルをひとつ含むソリューション
を作成することになります。コンポーネントは使い回しが効くので、

・Aアプリ(ソリューション)
　　・Aメイン実行ファイル(プロジェクト)
　　・共通コンポーネント(プロジェクト)

・Bアプリ(ソリューション)
　　・Bメイン実行ファイル(プロジェクト)
　　・共通コンポーネント(プロジェクト)

というような使い方ができます。さらに、プロジェクトをソリューションに含める場合と、
参照設定して使う場合がありますが、この辺はさらにややこしくなるので割愛します。

>>474
ソリューションっていうのは、VB6のプロジェクトグループみたいなもので、
アプリ全体を一纏めにしたものです。Webアプリのように、
htmlやスクリプト(ASP)やライブラリ(DLL)が混在するような時に便利です。
ソリューション内のプロジェクトは、通常１つにつき１つのモジュールを生成するので、
複数プロジェクトが存在する場合は、それぞれ別のモジュールを生成するため、
＞・各処理が一通り完成したら、今度は、それらを部品のように見て、
＞一つのプログラムを組み立てる。
上記のような事（おそらく１つの.EXEを想定しているのだと推測）はできません。
既に共通クラス、共通関数単位のモジュールはあるんですよね？
これらはDLL化しないという前提で話を進めると、
分担する時一般的なのは、各ソースファイルを共有フォルダに置き、
他人の担当するモジュールは、リンク取り込みを行うという方法です。
ソースも、プロジェクトにフォルダを追加すると整理しやすいです。
他から呼ばれたくないモジュールは、宣言のキーワード（Public等）を変更します。
（自モジュールしか参照できないもの、サブクラス以外は参照できないもの等・・・）
方法としては、465のようになると思いますが、当然ながら取り込んだからといって
プログラム側で対応できていなければ、勝手に動作してはくれません。

以上、非常に大雑把ではありますが・・・。

あるファイルＡにボタンが一つあって、ファイルＢにテキストボックスが１つある。
ファイルＡのボタンを押したら、ファイルＢのテキストボックスに文字列を表示させたいんだけど、
どうやるかわかりません。同じ画面でならば、text1.Text="abc"という処理を書けばいいのですが、
違うページをまたいだときにどうやってこの処理を行うかわかりません。よい知恵をお授けください〜

>>476
>リンク取り込み

そうそう。普通に追加しただけだと、コピーしちゃうんです。ここ注意が必要。

>>477
ファイル = フォーム だとすると、フォームの参照をもらってからテキストボックス
に代入することになる。

ファイル = Web フォームだと、Sessionオブジェクトとかに入れておいて、
ページ遷移後に設定する、って感じかな。

質問１

textbox1とtextbox2、button1があります。

button1をクリックするとｔextbox1が空白の場合に
数字（例えば100）が入力されます。
それ以外の場合にはtextbox2に数字が表示されるような
コードはどうかけばいいのか教えて下さい。

なんとなくこの文章を書いてるとｉｆ文を使うのかなと言う予感が
しましたが漠然としているので教えて下さい。

質問２

textbox1とtextbox2、button1があります。
button1をクリックすると
textbox1がアクティブ（カーソルが点滅している）の時には
textbox1に数字（例えば100）を入力します。

textbox2がアクティブ（？）の場合には
textbox2に数字を（例えば100）を入力します。

このようなコードはどう書けばいいのかわからないので
教えて下さい。

なんとなく＞480は不可能な予感がします。

ソリューション名を日本語で書くのは厨ですか？

>>482
大和魂が感じられて好感度が高い

http://diary2.note.ne.jp/42009/

iMode版のURLは、
http://diary2.note.ne.jp/i/42009/

EZ版のURLは、
http://diary2.note.ne.jp/ez/42009/

J-Sky版のURLは、
http://diary2.note.ne.jp/j/42009/
です

日本語ベーシック（うそ）で書くとだな、

>>479

ボタン1のクリックイベント

　もし、テキストボックス1のテキストプロパティが空白なら
　　テキストボックス1のテキストプロパティに「100」を代入
　そうでないなら
　　テキストボックス2のテキストプロパティに数字を代入

クリックイベント終わり

>>480

フォームの ActiveControl で取れるかもしれんが、駄目なら Enter イベント
やらで、フラグを設定して判断、かな。

>>485
＞もし、テキストボックス1のテキストプロパティが空白なら
その空白ならと言う表現をコードでどう書けばいいのか
わからないのですよぉ。

Sendkeysすりゃいいじゃんと思ったが、よく考えたらbutton1をクリックで
フォーカスは移動しちゃうんだな。
やっぱフラグだね。

>>486

空白 = 何もない = "" だね。

ファイル操作について質問です。

Open ファイル名 For Input Access Read Write As ファイル番号
とすると、構文エラーが出てしまいます。

原因がわからないので教えて下さい。

>>489

FileOpen() を代わりに使いませう。Open はなくなったみたい。

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

>>486ですがいくつか解らない言葉があったので
教えて下さい。
Sendkeys
フラグ

>>488
""か0の場合はやっぱりｉｆ文を使うのですよね。

>>493
ふたつぐらいなら、If 文で OK でしょう。もっと多くなってきたら、Select Case〜End Select
を使いましょう。

>>494
ありがとうございます。
また明日来ると思うのでよろしくお願いします。

ttp://software.nikkeibp.co.jp/software/special/200212toku2/0212tk2b.html
にある暗号化・復号化のソースを実行すると，復号化の（17）のところで「暗号化を解除するデータの長さが無効です。」が出てしまいます。
この原因わかりますか？私の環境は「.net framework1.1」です。
よろしくお願いします。

>>466,468,475,476
ご丁寧な対応（そうでない対応）、ありがとうございました。
ようやく目処がつきました。
「共通関数レベルのモジュール」という意味がわかりませんでしたが、
プロジェクトを進めていくうちに、それっぽいのが必要になってきたりと、
大変参考になりました。
・・「共通関数レベルのモジュール」って何だろう・・・(^^;
とまた新たな疑問が生まれたわけです。こうやって、少しずつ前に
進めるのも皆さんのおかげです。　　m(._.)m

教えてください。
.NETでWinsock.ocxを使ってソケットプログラムを作るとき、
データの受信がうまくできないのですが、
何か良い方法しらないですか？

Private Sub Winsock_DataArrival(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock.DataArrival
Dim strData As String
Winsock.GetData(strData)
Text1.Text = strData
End Sub

質問です。
リストボックスで、垂直スクロールバーが出現するまで
項目を追加していった時、このスクロールバーを
スライドしたタイミングで、他のコントロールの表示を同期したいのですが、
このスクロールバーのイベントを拾う方法はありますか？
それとも、VScrollBar等を上に載っけるしかないのでしょうか。

>>498
個人的にはWinsockじゃなくてSystem.Net.Sockets.Socketクラスを使った方がいいと思う。

>>499
WM_SYSCOMMAND の SC_VSCROLL とかが流れるっぽい。なので、それを
フックしてあげて、そのまま隣のリストビューに投げてやればよさげ。

>>500
激しく同意

>>501
システムのメッセージを扱うのは慣れていないので、
なるべく触れずに済ませたかったのですが、その方法を試してみます。
どうもありがとうございました。

VB.NETを始めたいんですが
購入するソフトとしては書籍に載ってる通りに
Visual studio .NETを購入しなければいけないのですか？
Visual Basic .NET standardでは駄目なんでしょうか？
違いが良く分かりません
Visual studio .NETは高くて、とても買えないので

>>503
VB.NETだけなら、VB.NETだけで十分。

あぁ、違いも知りたいのか。StudioはVB以外にC#やC++などが付いている。
さらにいろんなツールが付いているが、勉強用や趣味用では大体不要。

>>504>>505
サンクス
早速VB.NET standardを注文します

オレはすごい発見をした。
Directory.CreateDirectoryはサブフォルダも一気につくることができたぞ

「やらないか」というファイルも一緒に出来てしまうのですが･･･

>>508
僕のPCだとその後
「イヤです」というファイルも一緒に出来てしまうのですが・・・

VB6とVB.netって同じPCにインストールできるんですか？

>>510
できま〜す。
今の所、私の端末ではそれぞれ問題なく動作しています。

>>511
そうなんですか、よかった♪
今からインストールします。

計算した結果をテキストボックスに
小数第１位まで表示してあとは四捨五入したいのですが
どういう方法があるのでしょうか？

>513
System.Math.Round()

Roundはいわゆる「四捨五入」ではないよ。
やるんなら自前でやるしかない。

>>513
Dim MyDouble As Double =123.45678
Thread.CurrentThread.CurrentCulture = New CultureInfo("en-us")
Console.WriteLine(MyDouble.ToString("F1"))

>>513
Imports System
Imports System.Globalization
Imports System.Threading

質問です。
VB6のラベルコントロールでは、
BackStyleプロパティでラベルの背景を簡単に透明にできましたが、
.NETで同様の事をしようとした場合は、どのような方法がありますか？

質問に補足をさせていただきます。
やりたいことは、ラベルに表示した文字だけが、
他のコントロールの上に浮いて見えるようにしたいのです。
よろしくお願いします。

>>519

透明色を使えるモードにし、
他のコントロール内にラベルをAddし、
ラベルの背景色を自作し、自作色のアルファ値を0（透明）に汁。

ヘルプでVB.NET語に翻訳すれ。

>>520
めんどくせ
VB6.0使え

くだらない質問ですが
ASP.NETでいったいどんな事が
できる？？

>>522
掲示板、eコマースサイト、コンテンツ管理、blog・・・要するに、Web アプリケーション
と呼ばれるもの。

>>523
なるほど、やってみたいのですが
必要なものはなんですかね？？

>>524
Visual Studio/Basic/C# を買う、もしくは、WebMatrix をダウンロードして使う。
お試しって意味では、WebMatrix がお勧め。

OS は、Windows 2000/XP が必要ね。

>>520
VBでは上手くいきそうにありません。
PictureBoxにラベルを貼り付けて、ラベルの背景色を透明にし、
PictureBoxの画像や、親コントロールに書き込んだ文字を
透過表示させるといったことはできるようですが、
コントロールの外観を透過させることはできそうにありません。

できるとしても、かなり複雑な方法になりそうですね。。。
諦めます。　　どうもありがとうございました。

StrConvを使わずに
"０１２"→"012"
にしたいのですが

>>527

If hoge = "０１２" Then
　　hoge = "012"
End If

DataGridを使って、フッターの所に合計を表示するような処理がしたいんですが、例えば
列が１０行あって、各行に数字が入っていて、その合計をフッターの所にだすっていう
処理なんですけど、どなたか知ってればお教えください。

>>527
Format(CDec(s), New String("0", i)) とか？

もしかして、
"！，＄" → "!,$"
にできる？

>>526
背景を透明にできたんならそれでOKじゃ？
コントロールの外観ってなによ。
ボーダーなしにしてないだけなんじゃないのか？

>>527
なんでStrConvを使えないの？

Dim A, B, C, D As Integer
と
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
だったら速度の違いってあるんですか？

form1のtextbox1の内容をform2のtextbox1の
内容に反映するにはどのようなコードを書けばいいのですか？

>>535
form1で、textbox1というインスタンスを作って
文字列を入れてるんでしょ？
それと基本的には一緒。

StrConv関数はWinXPで誤変換を起こすことが･･･

>>536
すいません。全然わからないので
わかりやすく教えてもらえないでしょうか？

だれかマジで＞535を教えて下さい。
コードで説明していただければわかりやすいかと
思います。よろしくお願いします。

>>539
コードで説明っていったってform1とform2の関係がわからないと
答えようがないと思うよ。

まあ、質問の仕方や内容からいってあなた自身がわかってないのだと
思うけど。

今は回り道だと思っても、まずはクラスとかインスタンスという概念を
理解するところから始めたほうがいいと思う。

>>540
そうなんですか・・・。
逆引きなどにも載っていなかったですしね。
インスタンスとか意味わからないですし。
出直してきます！

>>541
・・・

>>542
いや・・・マジですいません。
趣味程度でやってる者で・・・ちょっと限界かな？？

>>543
誰もが通る道だ。
がんがれ！

>>544
一皮むけるにはどうすればいいのですか？

>>545
とりあいずVBは辞める事だｗ

チンコの皮ならムケムケです

Visual Basic 言語リファレンス

\ 演算子参照
\= 演算子 | / 演算子 | 算術演算子 | Visual Basic における演算子の優先順位 | 機能別の演算子一覧 | 算術演算子 (概念)
2 つの数値の商を計算し、結果を整数で返します。

number1 \ number2
指定項目
number1
必ず指定します。整数型の任意の数式です。
number2
必ず指定します。整数型の任意の数式です。
-------------------------
とあり、\は整数同士の割り算にしかつかえないので、
少数÷少数の計算はどうすればいいのでしょうか？

>>548
うわぁぁぁぁ難しい問題だぁぁぁぁぁぁ

>>548
0.03/0.02を考えると、100倍して
3/2 →　1・・・1
で元に戻して
1・・・0.01

つまりは整数に直してやればいいんじゃないかな？ってこった。

>>549
ですね。
>>550
小数A÷小数Bで、AもBもケタすうがまちまちだったら、
Cstr(A)とかして、ピリオドの位置を探して小数点以下のケタ数を求めて、
それで何倍にするかを自動決定するプログラムをつくるしかないですかね？

それかまず普通に割る。
少数A/少数B.
で整数部分だけ取り出す。

0.031/0.01315を考える。
0.031/0.01315=2.357・・・
で、2（ｗ

余りは0.031-0.01315*2=
で求まるはず。
飯

Mod 演算子を使って、2 つの数値の除算を行い、その剰余を取得する例を次に示します。どちらかの数値が浮動小数点数の場合、結果は剰余を表す浮動小数点数になります。
Dim myResult As Double
myResult = 10 Mod 5 ' Returns 0.
myResult = 10 Mod 3 ' Returns 1.
myResult = 12 Mod 4.3 ' Returns 3.4.
myResult = 12.6 Mod 5 ' Returns 2.6.
myResult = 47.9 Mod 9.35 ' Returns 1.15.

>>552-554
割り算の記号には\のほかに/があって、/では小数を扱えることがわかったのでもういいです。

初心者です。よろしくお願いします。
数字がスペース区切りで並んだデータがあります。ただ、
2 56 3 14
33 9
2 31 55
1 134 9 21 2
のよう各行に何列あるかはばらばらです。
行数と最大列数は分かっています。
このようなデータを上手く読み込みたいのですが、
どうしたらよいのでしょうか？
教えてください。お願いします。

すいません、愚問だとは思いますが質問させてください。
VB.NETとVB６は別物なんでしょうか？
最近.netを使いはじめたのですが、近所の書店ではVB6の本しかなかったので
これでもいいやと思い、本に沿ってやってみたところ
ラベルの項目を変える.captionという項目がVB6の本には書いてあったのに
.netではそういった項目が出てきません。
やなり仕様が違うのでしょうか…？

>>557
過去ログぐらい読め

>>556
ReadLineメソッドで一行ずつ読み込みながら処理していく。あるいはvbCrLfなどの改行コードごとにSplitしたり。

ごめんなさいごめんなさい
過去ログ読んだら発見しました。
VB6と.netは別物なんですね。
マウスのコードで吊ってきます。

>>559
なるほど、ありがとうございます。やってみます。
さらに質問で申し訳ないのですが、
ここで読み込んだ数字を使って、
数字一つ一つについて、その上下左右の数字と足し引きなどを行い、
結果をもとの場所に返したいのですが、
どのようにすればよいのでしょうか？
隣に数字が無い場合には、0と演算をしようと思っています。
よく分からずに困っています。よろしくお願いします。

>561
特定文字で区切られた要素を配列に格納するには、
>559も言ってるけどSplitで出来る。
後はアルゴリズムの問題だろ。自分で考えれ。

>>562
わかりました。がんばってみます。
レスどうもありがとうございます。

糞初心者ですが、おながいします。

VB.NETで作ったアプリは、VB6.0アプリが動いていた端末でそのまま
動くでしょうか？やっぱ.net Frameworkが必要でしょうか？

>>564
知ってるくせに

これからプログラムを覚えようと思っています。
VBをやろうと思うのですが、ｸﾞｸﾞった所でVisual Basic Professional 6.0が紹介されていました。
それを買おうかと価格.COMで探してみたのですが、価格.COMに載っていません。
Visual Basic .NET Standard 2003 というのがありましたがこれが後継ソフトなんでしょうか？
そのサイトには高価と書いてあったのですが、
Visual Basic .NET Standard 2003の値段をみると１万７千円ぐらいです。
この価格ではアプリの価格としては普通より安いですよね？
7万とか10マンとかするVisual Studioというのがありますが
値段からしてVisual Basic Professional 6.0の後継はこっちですか？
教えてください。よろしくお願いします。

>566
http://www.microsoft.com/japan/msdn/vstudio/default.asp

>>566
知ってるくせに

>>567
レスありがとうございます。
ああ、やっぱり値段からしてVisual Basic Professional 6.0の後継はVisual Studioでしたか…
こっちの値段はさすがに簡単にﾎｲと買うわけにはいきませんね。
Visual Basic .NET Standard 2003ってどんな物なんでしょうか？
俺、これから初めてプログラムに触れるのですが、
最初はVisual Basic .NET Standard 2003で問題ないですかね？
こっちなら値段的にもすぐ手の出る値段なので、入門としてはどうでしょうか？

>>568
すんません、マジで知らんかったです…(´Д｀ ）

>>569
問題なし。

>>570
どうもありがとうございます。
スレをざっと読んだ所、上のほうでも同じ質問が出ていました。
どうもすみませんでした。読まずに質問してしまいました。
早速Visual Basic .NET Standard 2003を買います。
ありがとうございました。

>>566
確かVB6.0って販売終わってたような。
今からVBやるんだったら、VB.netで間違いないと思う。

配列の要素の最大値を求めるにはどうしたら良いのでしょうか？
分からないので教えてください。
お願いします。

>>573
UBound()

>>574
レスありがとうございます。
UBound()って最大添字を返す関数ですよね。
そうではなくて、配列に含まれる数字の最大値を求めたいのです。
分かりにくい言い方ですみませんでした。
よろしくお願いします。

>>575
Private Sub a()
　　Dim l_ia As Variant
　　Dim l_iIndex As Long
　　Dim l_iMax As Long
　　
　　l_ia = Split("5 4 2 1 9 0 7 8 6 3")
　　l_iMax = -2147483648#
　　For l_iIndex = LBound(l_ia) To UBound(l_ia)
　　　　If l_iMax < l_ia(l_iIndex) Then
　　　　　　l_iMax = l_ia(l_iIndex)
　　　　End If
　　Next
　　MsgBox l_iMax
End Sub

>>576
どうもありがとうございます。
助かりました。
しかし、みなさんすごいですね。
みなさんはVBというかプログラミング歴はどのぐらいなのでしょうか？
私は3日前に始めたばかりの超初心者です。
先は長いなー。

何か明らかに解りきった事聞いてる餓鬼が少なくとも一人いるだろう。

そんなのいちいち馬鹿正直に答えてやる奴もどうかしてると思うが、
こういう餓鬼には自意識ってものがないのかね。

普通の神経なら、わざと幼稚なこと書いて答えてくれる奴をみて喜んでる「寂しい自分」
なんて哀れな自己イメージには耐えられんと思うが。

配列を宣言するとき、例えばx(0)からx(100)すべて値を0にしたいとき
Dim x() As short = {0, 0, 0, 0, 0......0}
のようにいちいち0を101個書かなきゃいけないのでしょうか？

>>577
「プログラミング歴」となると22年ぐらいになっちゃう。
VBは、.netはさわったことなくてVB6かVBAだけ。
普段はVC++かC#がほとんど。

>>579
Dim x() As short
ReDim x(101)
For i As Integer = 0 To Ubound(x)
　　x(i) = 0
Next
と書くしかない気がする。
でも、ＶＢなら自動で0に初期化されてるハズ。。。

Array.Clear(x,0,x.Length)

>>576とか>>581みたいに配列の全要素に対して処理をする場合は、
配列の添え字をForで回すんじゃなくて、例えば

For Each ArrayItem in HogeArray
　　　　'配列の要素(ArrayItem)に対する処理
　　
Next

みたいに書くのが普通じゃないかな。それに>>576はMath.Max使ったほうが
簡単でわかり易いと思う。

ソフトを作って配る時はみなさんフレームワークを
同封しているのですか？

no

>>585
使えねーよ！とか言ってくる輩はいないのですか？

一般公開してないし。

すいません
http://kakaku.com/txtsearch/txtsearchresult.asp?TopCategoryCD=6&CategoryCD=0310&SearchWord=Visual+Basic
のなかにあるVisual Basic .NET Standard 2003 と Visual Basic .NET Standard 2003 (AC)
の違いは何なんでしょうか...

ｽｲﾏｾﾝageﾏｽ

お。アカデミックパックあるんか。

>>588
Microsoft Visual Studio .NET ファミリー 製品別機能一覧表
http://www.microsoft.com/japan/msdn/vstudio/productinfo/featureview.asp
Microsoft Education 学生教職員は安いアカデミックパッケージを買える。
http://www.microsoft.com/japan/education/purchase/academic.asp

>>591
なんで放置できんのかね。本当に分からなくて聞いてるとでも思ってるの？

それとも街頭で『お祈りさせてください』とかやってる「自分さがし君」の
同類なのかキミは。

>>592
なんでキミは「自分さがし君」なのかね。

それとも街頭の同類なのか。『させてください』

>>591ｻﾏ
ありがとうございました



首吊ってきます

http://vip.6to23.com/jpgman/gui/gui.htm
このサイトに置いているソフトはソースを展開しているのですが
ＶＢで作っているのですか...

>>595
ﾌﾞﾗｸﾗ注意!

>>596
違うだろ

HOGEってなんですか。

日本語で言う「ほにゃらら」にあたる英語です

FOOは？

hogeとかfooとか
ttp://www.wdic.org/?word=hoge

VB.NETで作ったプログラムは、
.NET Frameworksをインストールして無いPCだと動かないのですか？

>>602
動かない

教えて下さい。
１つの画像ファイル(bmp)から、指定したサイズ毎に
絵をとりだすには、どのようにすればよいのでしょうか？
※１つの画像に４個の画像がくっついているのを変数に分けたいたいのです。

TextBox1.Textの値とHScrollBar1.Valueの値を連動させたいのですが、

HScrollBar1.Maximum=200009
HScrollBar1.Minimum=1
HScrollBar1.Value=10000
TextBox1.Text=10000

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles TextBox1.TextChanged
HScrollBar1.Value = Val(TextBox1.Text)
End Sub

で以下のエラーがでます。↓
'System.ArgumentException' のハンドルされていない例外が
system.windows.forms.dll で発生しました。
追加情報 : '10000' は 'value' に有効な値ではありません。
'value' は 'minimum' と 'maximum' の間でなければなりません。

なんでエラーになるのでしょうか？

HScrollBar2.Maximum=30
HScrollBar2.Minimum=1
HScrollBar2.Value=15
TextBox2.Text=15

Private Sub TextBox2_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles TextBox2.TextChanged
HScrollBar2.Value = Val(TextBox2.Text)
End Sub

こっちだとエラーは出ないで、ちゃんと連動してくれてます。
ご教授お願いします。

>>604
白紙のbitmapオブジェクト4つ作ってそれぞれGraphicsオブジェクト(g)を（4つ）作る。
で
もうひとつ"１つの画像ファイル(bmp)"を入れるbitmapオブジェクト(bigbmp)を作る。

g.DrawImage(bigbmp,**位置を調節して**)
これを4個の画像についてそれぞれ実行。

>>605
わかんないねー。
↓
HScrollBar1.Maximum=200009
HScrollBar1.Minimum=1
HScrollBar1.Value=10000
TextBox1.Text=10000
↑これはどこに？

とあるアプリケーションを作っていて、
BGMを鳴らしたいが為にPlaySound文の使い方を勉強しました。

結果、PlaySound文ではwaveしか扱えず、mp3が使えない。
mp3やmidi等を使いたい場合、どの関数を使えばよいのか、
どなたか教えて下さい。著作権は侵害しません。

>>607
なるほどお。ありがとうです。
試してみます。

DirectX9.0b使用。

Microsoft.DirectX.AudioVideoPlaybackの参照追加とImports

Dim a As New Audio("山嵐 - 山嵐.mp3")
a.Play()

>>609
がんばれー。

>>608
midiは試してないけど、
http://www.gdncom.jp/general/bbs/ShowPost.aspx?PostID=2917
よろしく。

>>607
レスどうもです

Private Sub Form1_Load(ByVal ....略
　HScrollBar1.Maximum=200009
　HScrollBar1.Minimum=1
　HScrollBar1.Value=10000
　TextBox1.Text=10000
End Sub

です。わけわかめです。何か分かったらよろしくお願いします。

>>613
試してみたけど、エラーでないよ？

>>614
私ももう一度最初から作ってるんですけど、
確かに上記のコードだけならちゃんと動いてくれますね。
つまりどっかにミスがあるのかなぁ
色々いじって考えてみます。
ありがとうございました

>>605
スクロールバーのMaxかMinがどっかで変わっちゃってるんじゃないの？
エラーのでる行の前にMsgboxでも突っ込んで調べてみ。

最初から作り直して、コーディング→デバッグ→コーディング→デバッグ→コー・・・
って地道な作業繰り返していたのですが、結局エラーは出ませんでした。
全く同じ内容なはずなのですが・・・謎だ
一応解決できました。ありがとうございました

VBでPocket PCの開発を勉強しようとしているものです。(VB.NETです）

参考書籍が皆無ですし、Web上で初心者向けのサイトを探しているのですが
どこかいいところをご存じの方教えてください。

Google 検索: "Pocket PC" VB.NET 約320件
http://www.google.com/search?hl=ja&lr=lang_ja&q=%22Pocket+PC%22+VB.NET

もしOCX化できなくても
http://www.mvps.org/vbnet/index.html?code/subclass/comboflexgrid.htm
のようなことを実現できるコントロールってありませんかね？

もちろん、DataSourceプロパティとかで引っ張ってこれないと困りますが。
3,000円くらいしか予算がありませんが

ＶＢ．ＮＥＴでフラッシュ（swfファイル）を扱う方法を教えて下さい。
フラッシュ（ｓｗｆファイル）は、アニメーションと、
簡単なキー判定だけを持っているものを使います。

VB.NET2003 AC
Flash MX

初歩的で恐縮なのですが、
Dim N As Short = Val(TextBox1.Text)
これを複数のプロシージャで扱うには
どのようにすればよいのでしょうか？

>>621
なんかコントロールを探すことになるんじゃないかな？
ありがちなのは、WebBrowser + Flash プラグイン

>>622
意味がよくわからないんだけど、変数 N を他のプロシージャから参照
したいってこと？

それなら、フォームレベルの変数として宣言すればいい。具体的には、
フォームモジュールの頭（クラス定義内）で、

Private N As Short

とする。

>>623
Private N As Short だけなら、大丈夫なんですけど、
それといっしょに　N = Val(TextBox1.Text)　とやろうとすると
「オブジェクト参照がオブジェクト インスタンスに設定されていません。」
と怒られてしまうんです。
各プロシージャ内で　N = Val(TextBox1.Text)　と書かないと、
やっぱだめなんでしょうか？

>>624
だって、その時点では TextBox が存在しないわけだし。そういうときは、
フォーム上の各コントロールが生成された後の Load イベントなどで
やるのが定石。

値が変わらないのなら、各プロシージャでやる必要はまったくなし。

>>620
詳しく知らんがDataGridではあかんの？

>>622
それって、（仮にTextBox1がForm1にあるとして）Form1のTextBox1の内容（Textプロパティ）
に、他のフォーム（本当はフォームに限らないけど）からアクセスしたい、ってことでしょ？

旧ＶＢだったら直接Form1上のオブジェクトのプロパティにアクセスすればよかったのですが、
（もっとも、旧ＶＢであってもこういうコードを平気で書く人は「ＶＢ厨」と呼ばれて蔑まれても
仕方ないと思いますが。。）.NETではそういう時は普通はTextBox1のTextプロパティの値を
返すようなパブリックプロパティをForm1に書きます。

で、多分上に書いていることが理解できないから質問しているんだろうけど、
それならオブジェクト指向の意味から勉強するか、そういうことを実現するのは
諦めたほうがいいと思う。変にグローバル変数なんかを使ってその場をやり過ごす
ことを覚えると、「ＶＢ厨」への道まっしぐらです。

理解できんな（ﾊｹﾞﾜﾗ

Module Module1
Public frm2 As New Form2
End Module

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

form1のbutton1をクリックすると、form2が表示されるんですが、form2を閉じた後に再び、
form2を表示しようとして、form1のbutton1をクリックすると、
「Form2" という名前の、破棄されたオブジェクトにアクセスできません。」
とエラーが出てしまいました。
form2を閉じた後も、再び表示できるようにするには、どうすればよいのでしょうか？

>>629
も一回生成すればいい。つか、エラーメッセージどおりだろ？

理解できんな（ﾊｹﾞﾜﾗ

プロパティを入れ子にする方法キボンヌ
これだとできないです。教えてエロイ人

Public Property Hoge() As String
　　Public ReadOnly Property Count() As Integer
　　　　Get...
　　End Property

　　Public Property Value(Byval n As Integer) As String
　　　　Get...

　　　　Set...
　　End Property
End Property

>>632
クラスを受け取るプロパティを作ればよいかと。

>>633
詳細キボンヌ

当方VisualStudioは2003のアカデミックを使用。
ついこの間、VB.NETの参考本買ったんですが、
その本についてたサンプルプログラムを動かしてみたら、
「旧形式です」のビルドエラーがちらほら出てきたんですが…

2002と2003でそんなに違うもんなんですか？

海外掲示板用オフラインリーダーを作るスレ
http://pc2.2ch.net/test/read.cgi/tech/1072883528/

海外でよく使われていうる掲示板スクリプト
専用のオフラインリーダー作って下さい。

必要な条件はID、PASSを管理できること、
OpenJaneみたいな三面型の見た目。
簡単にローカライズできるように言語ファイルを採用

>>622
文法くらい勉強しろといいたい

2003買ってないからわかんないや。

>>632
632はそれでいったい何がしたいんだと小一時間問い詰めたい。

もし、Hogeの中のCountというのがHogeの文字数を意図してるんなら、
HogeをString型にしてるんだから、
そのクラスのインスタンス変数.Hoge.Lengthで文字数は取れるじゃないか。
部分文字列を取り出したいなら、SubStringメソッド使え。

>>627
なんか目が覚めた。
初心者向けの本だけ読んで627の言う通りのことをやってきちゃったよ。
パブリックプロパティとか、オブジェクト指向について再考するよ。
マジ、ありがとう。

大変お忙しい中失礼致します。どうしても分からなかったので質問させてください。
ピクチャーボックス内の好きな位置に好きな色の点を打つというプログラムを作りたいのですが、うまくいきません。6.0の場合だと、
　picture1.DrawWidth=10
picture1.Pset(x,y)=RGB(100,100,100)
のようなプログラムになるそうなんですが（どこか間違ってるかも）。どうかよろしくお願いします。

TreeViewでラベルの右横に文字を表示するにはどうすればよいでしょうか。
Outlook Expressのツリーで、未読の数が表示されるような。

【VisualBasic.NET】質問スレのみなさんに質問です！
今私は学校の課題でMP3のタグエディタ（ID3v1)のプログラムを作ろうとしています。
テキストボックスに文字を入力してボタンコントロールを押すと（タイトル、アーティスト、コメント…etc）
がMP3ファイルに書き込まれるような概要にしたいと思っています。

・・・ですが、テキストボックスに書いた物をどのようにしてID3に書き込めばいいのかが
まったくわかりませんでした。（4月から始め初心者ようの参考書も購入したのですが；；）

↑についてのアドバイスよろしくお願いします<m(__)m>

>>643
http://www.juno.dti.ne.jp/~dyama/t1_2.htm

質問なんですが、VB6.0の時にあったDoEventって使えないんですね。
じゃあ、以下のような内容の時、どうすればTextBox1.Textの内容がカウンターのように１ずつ動くのか
教えて頂けないでしょうか。お願いします。

Dim i As Integer
For i = 0 To 10000
TextBox1.Text = str(i)
Next

>>645

Dim i As Integer


For i = 1 To 1000
TextBox1.Text = i.ToString
TextBox1.Refresh() '<--これ
Next

じゃだめ？

Public Shared Sub DoEvents()
次のメンバ : System.Windows.Forms.Application

概要 :
メッセージ キューに現在ある Windows メッセージをすべて処理します。

教えて下さい　m(__)m
今テキストファイルから
StreamReaderのReadLine使って読み込んでいるんですが
半角カナがあると文字化けしてしまいます。
なにか設定が必要ですか？それとも別の方法で読み込むんでしょうか？

>>646
>>647
ありがとうございます。
これで内部で演算しているのか、単にフリーズしているのか
わかりやすくなりました。

>>644さん、ありがとうございました。
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Ansi, Pack:=1)> Public Class ID3tag
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=3)> Public ID() As Byte
<MarshalAs(UnmanagedType.ByValArray, Sizeconst:=30)> Public TITLE() As Byte
・・・・・・・End Class
ID3の構造体はこの様な感じでいいと思いますがTextBox1の内容を
ID3のTITLEに書き換えるプログラムがわかりません(ﾉ_･､)
**【ID3tag.TITLE.Items.Add(TextBox1.Text)】**
上の命令ではエラーがでてしまいます。どなたかアドバイスを宜しくお願い致しますm(__)m

質問：dosバッチファイルをVBスクリプトでの記述を教えたて下さい。VBスクリプト単体で無理なら、実現方法。ＶＢ初心者（勉強して２日目）です。

バッチファイルの記述。（XMLに変換するフリーソフトにパラメタを渡し実行）
cd C:\Program Files\Filistry101
Filistry.exe "D:\xml\2test\test220\moe" "D:\xml\2test\test220\moe\file-lists.xml"

追伸：最終的には、ＶＢスクリプト+ＷＨＳで、定時に動かします。参考とかになるサイト有ったら教えて下さい。
今勉強中のサイト：　
ｈttp://www.roy.hi-ho.ne.jp/mutaguchi/wsh/wshtop.htm
tｈtp://nacelle.info/wsh/01002.php
ｈttp://www.atmarkit.co.jp/fwin2k/win2ktips/335tasksched/tasksched.html

ｽﾚ違いということを教えよう

>>652
失礼しました。別の所にカキコしてみますハイ。

これってどうでつか？
http://online.plathome.co.jp/detail.html?scd=20902142

>>641
ピクチャボックスに線を引くだけのプログラム
Dim g As Graphics=picture1.CreateGraphics()
g.DrawLine(New Pen(New SolidBrush(Color.Coral),0,0,30,30)

>>648
Encodeが適切で無いと見た。shift-jisの部分は適当にかえてくれ。

Dim sr As New StreamReader(てくすと , Encoding.GetEncoding("shift-jis"))
While sr.Peek()>-1
Console.WriteLine(sr.ReadLine())
End While

コンパイル通らんかったらスマソ

>>642
ラベルをハッつけるのは・・・だめ？ｗ

>>655
shift-jisでできましたー
ありがとうございますー！！！

DatasetにFillでDBからデータを取得し、そのデータを
各テキストボックスにバインドしているのですが、この
テキストボックスの値を画面から変更して、Dataset
のupdateで更新したいのですが、肝心のDatasetの
方に変更が反映されません。どうしたらよいでしょうか？

Windowsアプリケーションです。
DBはDB2で、OleDataAdapter（？）を使用しています。
１テーブルの全項目を各テキストボックスに出力して
画面で各値を変更してそれを更新するという、簡単な
ものなのです。
DataGridではカラム数が多すぎ（１００以上）て横長に
なってしまうので上記のような方法にしてみたんですが、
他になにか簡単な方法があるでしょか？

フォームの表示位置と種類について教えてください
Form1からForm2を開く際にForm1から少しずれて表示させるようにしたいのです。
Class Form1
Private Sub Button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Dim Frm2 As Form2
Dim Frm1Point As Point = New Point
Frm2 = New Form2
Frm1Point = Me.Location()
Frm.Show()
Frm2.Location = New Point(Frm1Point.X + 20, Frm1Point.Y + 20)

Form2はme.closeで閉じる

このようにすると、Form1を移動させてからButton2を押してもFrom2はちゃんとずれて
表示ます。また、一度From2を閉じてから再びButton2をしても大丈夫です。
しかし、これだと一瞬違う場所にでてから少しずれた場所に移動します。
これはShowが先にあるため当然だと思うのですが、そこでShowを最後にもってくると
くるとlocationが反映されずに違う場所に表示されてしまいます。
また、ShowDialogにすると順序に関係なくlocationが反映されません。
できればShowDialogでForm1が触れないようにしたいのですがどうすれば
よいのでしょうか。よろしくご教授願います

>658
Frm2.Location = New Point(Frm1Point.X + 20, Frm1Point.Y + 20)
Frm2.Show()

で普通にうまくいくと思うが。
Form2のStartPositionプロパティはちゃんとManualになってるかえ？

>>657

コマンドビルダでUpDateコマンドを生成してますか？
また対象のテーブルに主キーが無い場合は実行できなかったような記憶があります

環境が違うため正解となるかわかりませんが

Dim HogeCB As OleDb.OleDbCommandBuilder
HogeCB = New OleDb.OleDbCommandBuilder(MyDA)
HogeDA.Update(HogeDS,"テーブル名")

小生の場合DataSet内のDataTableを取得して
DataTabeのRowごとに更新かけています

誤：HogeCB = New OleDb.OleDbCommandBuilder(MyDA)
正：HogeCB = New OleDb.OleDbCommandBuilder(HogeDA)

教えてください。
コマンドプロンプトから
nslookup -type=mx hoge.jp
と打ち込むと、ドメイン名からメールサーバー名が確認できます。
vb.netで同じような機能のクラス、メソッドはないでしょうか？

>>659
Form2のStartPositionプロパティがdefaultのままでした。
Manualにしたらうまくできました。

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

>>662
ms-help://MS.VSCC/MS.MSDNVS.1041/cpref/html/frlrfSystemNetDnsClassTopic.htm
一応DNSクラスはあるね。でもできないくさい。あんましわからんが。
自前でSocketとか使ってやるべし。POP3プロトコルも専用クラスはなくて、
helo（だっけ？）とか送って通信しないと・・・だし。
っと適当なことを言ってみるテスト。

できるんかな？！わっかんねぇや

Windowsフォームでtextboxとbuttonを作成したら・・・
buttonはEnterKeyで実行できるのにtextboxはフォーカスが移動しない！
なんで？？TabIndexで次のtextboxはあるのに。
Web仕様？？誰か助けてー

やりたいことは２点です。
・二重起動の防止
・もともとあったウィンドウをアクティブにする

アプリの内容はフォームにボタンが一つあってクリックでHelloWorldを表示するだけのものです。
やりたいことの一連の処理はForm_Loadに書いています。

二重起動の防止は、１を使って実現できましたが、
その後もともとあったウィンドウをアクティブにする方法がわかりません。
２、３を参照したのですが、どうしてもわからないのでご教授願います。
２をそのままコピペしてフォームのtextだけ変更しても動きませんでした。

１．httphttp://dobon.net/vb/dotnet/process/checkprevinstance.html
２．http://www7.big.or.jp/~pinball/discus/vb/log/030731/48140.html
３．http://techtips.belution.com/ja/vc/0025/

>>660
OleAdapterのプロパティでUpdateCommandを書いてます。
主キーがうまくとれず、ウィザードで自動生成されなかったので
手動で書きました。DataGridで更新はできました。

１画面１レコードを各テキストボックスに表示して、それらを
更新できればいいのですが。

>小生の場合DataSet内のDataTableを取得して
>DataTabeのRowごとに更新かけています

すみません。具体的にどういったコードになるのでしょうか？
VBの経験はまったくなく（Javaのみ）、チュートリアルを
みながら作っているのです。

テキストボックスの値を更新しても肝心のデータセットが更新
されないため、updateコマンドを発行しても空振りしちゃうんです。

DataGridを別に表示しておいて、テキストボックスを更新した
あと、DataGridの任意の列にフォーカスをあわせるとDataGrid
の中の値も更新され、その状態でUpdateコマンドで更新までは
できました。DataGridを使わずにDatasetの値を更新できないで
しょうか？

DataSetはAccessでいうMDBファイルのようなもので、DataTableはその内部のテーブル構造だと思って下ください

hogeDT = hogeDS("テーブル名")で更新したいテーブルを取得して
For Each vRow In hogeDT.Rows
　　vRow.Items(0) = 更新値
Next
でDataSet内の仮想テーブルを更新しています
ここで更新されるのはあくまでもPC上のメモリのテーブルなので
この後にDataAdapter.Updateで実際の更新をかけます

これで更新がかからない場合はもしかしたらトランザクションの関係があるかもしれません
どこかのｺｰﾄﾞでロールバックしてないか確認してみてください

DataGridは使ったことが無いので良く解らないんですが
もしかしたら内部に更新用の処理を持ってるかも？？？

>666
コーディングしない限り、フォーカスが移動しないのは当然だろ。
つーか何が言いたいのかワケわからん。


>667
APIのFindWindowとSetForeGroundWindowを使えば実現できる。
「FindWindow SetForeGroundWindow VB」でググればサンプルはいくらでも出てくるよ。

しかし、少し調べてみただけだけど、これ以外の方法は見つからないなぁ。
APIは使いたくないから他になんかいい方法がないものかね？

>>670
ありがとうございます。
ほとんど>>667の２のコピペなんですが、Me.Textを変更したら動きました。
以下のコードをForm_Loadに書いてます。


' 二重起動チェック
If existPrevInstance() Then
Me.Text = "二重起動"
MessageBox.Show("このアプリケーションは既に起動しています。", "二重起動禁止")

' トップレベルのウィンドウハンドルを得る。
lngFirstTophWnd = FindWindow(vbNullString, pCstStrAppTitle)
If lngFirstTophWnd <> 0 Then
' 直前にアクティブなウィンドウハンドルを得る。
lngFirstPophWnd = GetLastActivePopup(lngFirstTophWnd)
' ウィンドウをアクティブにする。
lngResult = SetForegroundWindow(lngFirstPophWnd)
' 最小化されタスクバーに格納されてある場合があるので、ウィンドウを通常表示にさせる。
lngResult = ShowWindow(lngFirstTophWnd, SW_RESTORE)
End If

End
End If

VB.NET開発と微妙にズレるますが、ご教授お願いします。
つい先日買った本のサンプルコードが
ttp://www.vbvbvb.net/jp/guide/ip/code.xml
にあったんで、ダウンロードして実行してみたんですが
「SocketExceptionにハンドルされてない例外が、System.dllで発生しました」
ってエラーが出るんです。

友達に聞いたら、プログラムにエラーがあるか
レジストリが壊れてるかどっちかだと言うんですが、市販されてる本の
サンプルにそんなにエラーがあるとあんまり思えないんで…

他の人でもエラーが出るなら、プログラムの問題だと思って
新しい本でも買って勉強します。
エラーが出ないようなら、とりあえずＯＳの再インストールでもしてみたいと
思っているので、すいません、どなたか試してみてください。

古い話題になってしまうのですが、質問があります。
MP3がならなくて困ってます。過去スレも見ながらVBMP3.dllの付属の宣言モジュールを
書き換えているのですが、part1スレ460の
　１：VBmp3.basをVBmp3.VBとしてプロジェクトに追加
　２：type を Structure に置換
　３：As LongはAs Integer
　４：Byvalと書いてない関数の引数にByrefと書く
　５：下記のようにStringのサイズを宣言
　<StructLayout(LayoutKind.Sequential)> _
　Public Structure InputInfo
　<MarshalAs(UnmanagedType.ByValTStr, SizeConst := 128)> _
　Public szTrackName As String '曲名
のように書き換え、ファイルの文頭にImports System.Runtime.Interopservices
をつけたのですが、ファイルオープンに失敗してしまいます。
それと、basファイル冒頭のAttribute VB_Name = "VBMP3"の部分の扱いがわかりません。
初心者なしれませんが、上記以外の変更など教えていただきたいです。

初心者な質問かもしれませんが、、、、、、でした。

TextBoxを動的にFormに追加する方法について教えてください
データベースより取得したRecordsetの件数分、Textboxを追加し、Recordsetのフィールドの値をテキストボックスに代入したいのです。
Recordsetを取得してからの処理を以下に掲載します。
Dim i As Integer = 0
Dim UDColl As New Collection
Dim oneTbxFdate As TextBox
Dim FormUriageData As New UriageData　'(←Form名）

Do Until i = Koncnt　'(←Recordsetの件数）
Dim TbxFdate As New TextBox
UDColl.Add(TbxFdate, i.ToString)
i += 1
Loop

rstkon.MoveFirst()　'(rstkonはRecordset名）
For Each oneTbxFdate In UDColl
oneTbxFdate.Text = CStr(rstkon("Fdate").Value)　'(フィールドの値）
oneTbxFdate.Location = New Point(10 + i * 5, 10 + i * 5)
FormUriageData.Controls.Add(oneTbxFdate)
rstkon.MoveNext()
Next
Debug.Write("UDColl.Count=" & UDColl.Count)
Debug.Write("Controls.Count" & FormUriageData.Controls.Count)
FormUriageData.ShowDialog()

実行するとFormが表示された際にTextboxがひとつしか表示されませんが、そのTextboxには正常な値が代入されています。
Collection.Count、Controls.CountともにRecordsetの数と一致しています。少なくともControl.Countが増加しているということは、FormにTextboxが
追加されているはずだと思うのですが、どこがおかしいのかわかりません。
間違いを指摘していただくか、ほかの方法をご教授ください。（そもそもCollectionを使わなくてもできるとか・・・）
よろしくお願いします。

windowsアプリケーションを作りたいです。
VBとVB.net どちらを勉強するべきでしょうか？それとももっと他のものでしょうか。

>>675
こんな感じではダメなんですか？
Dim TbxFdate As TextBox
rstkon.MoveFirst()
Do Until i = Koncnt
　　TbxFdate = New TextBox
　　TbxFdate.Text = CStr(rstkon("Fdate").Value)
　　TbxFdate.Location = New Point(10 + i * 5, 10 + i * 5)
　　FormUriageData.Controls.Add(TbxFdate)
　　i += 1
　　rstkon.MoveNext()
Loop

>>672
めんどくさいので>>2のどぼんのページからいける
http://dobon.net/vb/dotnet/internet/
などのコードを試すべし。
>レジストリが壊れてるか
ってのはなんでそう考えるのか、俺には全くわからん。

>>673
めんどくさいので>>610をみとくべし。

>>676
とりあえずVB.NETでよし。

>>677
ご提示いただいたコードでできました！！
最初にそのようなコードで試したのですが、その際もTextboxがひとつしか
追加されなかったので、先に私が掲示したようなややこしいというか無駄なコード
にしてしまったのです。最初に試したコードをはっきりと記憶してないのですが、
TextboxのNewをDo Loopの外側にしてたのか何かだと思います。
どうもありがとうございました。

そもさん！

テキストボックスの表示フォントのサイズをpixel単位で指定したいのですが、
テキストボックスのプロパティ上では指定できるものの、ダイアログボックス
から変更処理をするとpoint単位になってしまいます。
変更ルーチン上で、textbox.font.unitプロパティを戻そうとしても、ReadOnly
とのことではじかれてしまうのですが、どうすれば良いでしょうか。

先生がた、ぜひご教授ください。

>>680
桔梗屋かよ！（藁

フォントサイズをピクセルで指定ってなんか印刷プレビュー画面でも作らない限り
いらない気もするのですが、こんな感じかなあ。

1インチ = 72ポイント = 96ピクセル

∴1ピクセル = (72/96) ポイント

つまり例えば10ピクセル（に相当する？）のフォントを表示したいなら、
10 * (72/96) = 7.5　ポイントに設定すればいいんじゃないでしょうか。

ただし、厳密には1インチ = 96ピクセルってのはあくまでWinのデフォルト値に
過ぎず、たしか「画面のプロパティ」の設定で変わるからその点には
要注意かもしれません。

ていうかフォントサイズいろいろ変えたいのなら、フォームかピクチャーボックスに
描画したほうが良いような気が。

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

メルマガ用の入力システムを作ろうかと思っていじっているのですが、
固定フォント（ＭＳゴシックとか）を指定していても表示上は半角/全角
のサイズ比率が１/２ではない（文字数ドット分ずれる）ようなので、
どうにかならないものかと…。
（テキストボックスでunitプロパティをpixelにしたらなんとなくOK
でしたが、どうも考え違いっぽい…）

なるほど、直接文字をレンダリングしてしまえば良いんですね。
ご教授ありがとうございました。

ぽくぽくぽくぽく…

mshtml の使い方きぼんぬ

Dim Document As mshtml.HTMLDocument

Document.titile = "タイトルです"
Document.body.innerHTML = "本文テスト <b>太字</b> <i>これは斜め</i>"

とやってみるんですけど "オブジェクト参照がオブジェクト インスタンスに設定されていません。"ってエラーになるです。
要は HTML の文字列を Document にセットしたいんですけど。

>>683
mshtml とやらの事はサッパリ分かりませんが、
要するにインスタンスを作成しろって事なのでは・・・？
→　Dim Document As New mshtml.HTMLDocument

>>684
>Dim Document As New mshtml.HTMLDocument もだめですた。

さっきやっとMD5算出が・・・＾＾
報告（誰にだか....）

6.0の頃のGETとOPENを.netではどう使ったらいいか分かりません。例えば、6.0だと
Open fil For Random Access Read As #1 Len=256 　(filはstringで定義)
や、
Get #1,RNN,RdRdd 　(RNNはLong ,RdRddはRddで定義)
のようなプログラムです。上はFileOpen,下はGET...END GET を用いればいいのかと思いましたが、うまくいきませんでした。
これじゃわかりにくいかもしれませんし、自分の使い方が間違ってるだけかもしれませんが、どちらのことでもほんの些細なことでもいいです。何かアドバイスを頂けませんか？

>>687
Open fil For Random Access Read As #1 Len=256
Get #1,RNN,RdRdd
は、
Open fil For Random Access Read As #1 Len=256:Get #1,RNN,RdRdd
と同じ結果が得られる。

Crystal Reports で質問があります。

テキストオブジェクトにデータが出力される際、
データがフィールド幅より長い場合にされる改行なのですが、
この改行が場合によって、下記のような妙な場所で改行されてしまいます。


<-------------------------フィールド幅--------------------------------->
C:\Documents and Settings\user\デスクトッ
プ\user1\myProgram\program1\xxxx\xxxxx\xxxxx\xxxx\


この改行位置はどうもならないんでしょうか？
できれば一行目はフィールド幅いっぱいいっぱいに表示させるなどしたいのですが

>>689
英語と日本語でワードラップの仕様が異なるのが原因ぽい。
そういうときは、明示的に空白を入れるってのが解決策。

TextboxのReadOnlyについて
Trueにすると実行時のユーザーとの対話においては変更不可。
コード内でのテキストのプロパティの設定は可能とのことですが、
ForeColorも変更可能なのでしょうか？

TextBoxを動的にPanelに追加し、ReadOnlyをTrueにしているのですが
BackColorなど変更できるのに、ForeColorが黒のままで変更できません。

以下、実行コードの抜粋です
　　　　　　Dim TbxKinSum As New TextBox
　　　　　　TbxKinSum.Text = CStr(Format(CInt(KinSum), "#,##0"))
TbxKinSum.ForeColor = System.Drawing.Color.Blue
TbxKinSum.TextAlign = HorizontalAlignment.Right
TbxKinSum.Location = New Point(130, 10 + i * 20)
TbxKinSum.Width = 50
TbxKinSum.ReadOnly = True
DataPanel.Controls.Add(TbxKinSum)
よろしくお願いします。

691です。
BackColorと同時に設定した場合はForeColorの値が反映しました。
とりあえずはやりたいことができたのですが原因が知りたいです。
BacKColorのみ設定→○
ForeColorのみ設定→×
両方設定→○（両方反映）
ReadOnly=True既定のBacK,ForeColorに起因しているのでしょうか？
ご存知の方がいらっしゃいましたら教えてください。

>692
関係ないかと・・・

Private Sub CheckBox1_CheckedChanged...............
If CheckBox1.Checked = True Then
TextBox1.ReadOnly = True
Else
TextBox1.ReadOnly = False
End If
End Sub

Private Sub Form1_Click.............
TextBox1.BackColor = System.Drawing.Color.White
TextBox1.ForeColor = System.Drawing.Color.Black
End Sub

Private Sub Button1_Click.............
TextBox1.BackColor = System.Drawing.Color.Red
TextBox1.ForeColor = System.Drawing.Color.Blue
End Sub

Private Sub Button2_Click.............
TextBox1.ForeColor = System.Drawing.Color.Blue
End Sub

これで普通にできましたよ

>693
すみません。同じようにやってみたのですが、ひとつ確認させてください。
Button2をクリックした時の順序は
�@CheckBox1をチェック（Backがグレーに変更される＝ReadOnly)
�AButton1をクリックしてBack,Foreが反映
�BForm1をクリックしてBack,Foreを白,黒に変更
�CButton2をクリック
でしょうか？　これならできたのですが
�@�Cの順序でやるとReadOnlyの色のまま変わりませんでした。
お手数ですが、再度教えていただけますでしょうか。
よろしくお願いします。

>694
どうもそのようですm(_ _)m
Formクリックのイベントを間違って起こしてしまっていて
容易に"ForeColor"を変更できたようです。

解決ではないですが、一度でも"BackColor"を変更・明確に設定しておくと
ReadOnlyをTrueにしても「"ForeColor"のみ変更可　"BackColor"が変更されない（グレーにならない）」
ので、デザイン時にBackColorをWhiteなど・・・に設定すれば良いのでは？

質問させてください。
VBAやVBScriptで使われるEval関数というものは、
VBには存在しないのでしょうか。

今使っているのはVB5なのですが、最新のVB.netには
実装されているのかと考え質問しました。

文字型の引数を評価して、ステートメントとして扱いたいのです。
たとえば[textbox1]というテキストボックスにxを変数とする
任意の関数を文字列として入力し、コードで

strFx=Me![textbox1]
for x= 0 to 100
i=eval(strFx)
　Me![textbox2] = i
(中略)
next x

のようにしたいのですが。

質問です

ユーザー定義型の配列変数を初期化したいのですが、
udtDCInfo()=0
で修飾子不正のエラーが出てしまいました。
何のステートメントを使えばいいんでしょうか…

板間違いました。取り下げます

>695
やはりそうでしたか。安心しました。
とりあえずはご提案されているような内容で対応しています。
でも・・気になりますよね。。
再試行していただきありがとうございました。

>696
ない。
されるのは次のリリースだってどこかで読んだ希ガス。

はじめまして。
VB.NETのWEBサービスでasmxと同じフォルダにあるファイルを読み込みたいのですが、相対で指定すると取得できません。
これは絶対パスで指定するしかないのでしょうか？

すみません。
DB接続なのですが、今までJavaだったのでJDBCドライバを
プロジェクトのライブラリに入れてあげれば
わざわざパソの環境にドライバをいれなくてもOKだったのです。
が、VBは違うのでしょうか？
VB.netとかでODBCドライバなどをパソ環境にわざわざ設定せず
DBに接続する方法はないのでしょうか？
よろしくお願いします。

>>700
お答えいただきありがとうございました。
多少場違い化とも思いましたが、思い切って
質問してみました。本当に困っていたので、助かりました。

>702
.NET Framework さえ入れればADO.NETが使える。
ドライバを追加する必要がそもそもない……と思ってたけど、
漏れの認識は間違ってるかなぁ？

>>704
MDAC が必要だから、ドライバがまったく不要、ってわけではないね。

はじめまして。
Socket.Selectメソッドのような感じで、イベントの状態変化を
検知してくれるようなメソッドって無いですかね?

自分なりに調べてみましたが、無さ気なもんで質問させていただきました。

>>702
DSNの設定のことか？
MSSQLなら（たしか）ダイレクト接続できるがOracleなら無理
その他のDBはよくわからんが多分無理

>>707
DSN レス接続ってしってる？

DataGridの行ヘッダ
（一番左にある固定行。">"見たいな文字が入力セル位置にあわせて移動するところ）
に文字列を突っ込みたいんだけど、方法ないのかなぁ？

なけりゃ、代替案として、">"列に文字列を突っ込まなくてもいいんで、
一番左を１列だけ固定行にする方法、ないですか？？
DataGridTextBoxColumnのインスタンス作って、
こやつのReadOnlyをTrueにするのは思いついたけど、今一。。。

>709
DataGridにそんな器用なことはできないと思うのです。
高性能なGrid製品を買うのが一番手っ取り早い。

vb.NETで開発をしています
｢C:\TEST\｣にあるクリスタルレポートのファイル直接印刷したいのですが
そういうことは可能でしょうか？

>>708
半年ぐらい前にOracle9でDriverキーワード設定してやったら激しく安定しなかったもので
安定稼動してるようであればｽﾏｿ

6.0であったツール→プロシージャの追加というのは.netでは
どうすればいいのでしょうか？初心者質問で申し訳ないです。

6.0でのショートカット Shift (+Ctrl) + F2 にあたる機能（定義へジャンプ/戻る）は
vb.netでの統合開発環境には存在しないんでしょうか。
（一応過去ログ検索かけてみましたがHitしませんでしたので。かぶってたらすいません）

>>713
自分でコーディング汁

>>710

やっぱ、無理すかぁ。

あんなバカ高いGrid(FlexGridのことだ、ぐるぅぁ〜〜）
買えないもんなぁ。。。

Com使って、VB6時代のGrid、使おうか、思案中

>>714
あるよ。キーボードスキームを Visual Basic 6.0 にしておけば、同じ
ショートカットが利用できる。Visual Studio だと、キーボードショートカット
が違う。

ないんですね。
＞７１５そのようにします。

ＤＢへの接続。

UDLだったっけ、
あれでいけるんじゃない？

とりあえず、テキストファイル作って、拡張子をUDLに変更してみてください。

すみません。質問があります。ListViewなんですが、
まず、Form1に貼り付けたListView1に
データを表示させることはできました。

Public Class Form2
　　Private Form2_Load(略)
　　　　ListProc() 'Form2起動と同時にリスト表示
　　End Sub

　　Private sub ListProc()
　　　　ListView1.Items.Add・・・・
　　End Sub
End Class

次に、下のようにしたのですが

Module Module1
　　Public gList As New ListView
　　Public sub ListProc()
　　　　gList.Items.Add・・・・
　　End Sub
End Module
-----------------------------------------
Private sub Form1_Load(略)
　　ListProc() 'Form1起動時にリストを作成
End Sub

Private sub Button_Click(略)
　　Form2.ShowDialog()
End Sub
-----------------------------------------
Private sub Form2_Load(略)
　　ListView1 = gList 'Form2起動時に、リストをコピー
End Sub
-----------------------------------------
リストが表示されてくれません。
コピー後、ListView1のプロパティとかをみると、
値は入っているようなのですが、表示がされません。
なぜなんでしょうか・・・

>>721

それはリストビューをコピーしてるんじゃなくて、リストビューの参照を
突っ込んでるだけ。アイテムを追加しなきゃだめ。

>>722
そ、そうなんですか・・・　
すみません。レスありがとうございました。

>>717
できました。ありがとうございました。
質問に挙げたショートカット以外の操作も6.0のものが使えていい感じ。
やっぱ慣れ親しんだ操作の方が扱いやすいし効率もいい。
でも、最初は戸惑ってでも新しい環境に慣れたほうがいいのかなぁ・・・

VBでさえも、解説書(サイト)の説明で眠くなる・・・
やっぱディベロッパには向いてないのかな・・・
C++もDelphiもかじったけど、すべでだめぽ・・・

テキストボックスに入力されている文字が半角英数字のみか
どうかって、どうやって調べるんですか？

.NETで
ShellExecute
って使えなくなったの？？？

>>726
正規表現か、一文字ずつ確認

>>727
使えるよ。

動的に追加したコントロール配列にイベントを設定する方法を教えてください
追加したコントロールすべて共通でも、個々に設定でもどちらでもよいのですが・・

具体的には
Dim TxtBox() As TextBox = New TextBox(19) {}　'20個のTextBoxを作成
Do-Loopの中でTextBoxのプロパティを設定して
Me.Controls.Add(TxtBox(i))　'MeはメインのForm
というようにしています。

コントロール一つのみの場合は
Friend WithEvents txtbox As TextBox　を宣言して
Private Sub txtbox(......)Handles txtbox.ｲﾍﾞﾝﾄ
ですが、配列の場合はどのようにすればよいのでしょうか？
よろしくお願いします。

Pictureboxに写真をプログラムに載せたいのですがどう書いたらいいのでしょう？
写真はVBと同じフォルダに入れているのですが、指定の仕方がわからないです。
初心者です、よろしくお願いします。

＞729
AddHandler TxtBox(i).Click, AddressOf Me.TxtBox_Click
でTxtBox_Clickのコードを実行することができました。
お騒がせしました。

>>730
ｌｏａｄＰｉｃｔｕｒｅ

>>732
すいませんが、一文教えて頂けたら・・。meとかiとかdimとかもはっきりわからなくて・・

>>733
ヘルプで検索すれば、サンプルソースが載ってる。

質問です。

ＶＢ６．０だと、プロジェクトエクスプローラのところで、
右クリック→追加→既存のBasファイル　等で
共通basファイルを参照で追加できますよね。

でも.NETでこれと同じようにやると、プロジェクトフォルダの中に
追加したファイルそのものが新しく出来てしまい、共通化できません。
先のＶＢ６．０と同じことをVB.NETではできないのでしょうか。

>>735
ソリューションエクスプローラでプロジェクトを選択し、
ソリューションエクスプローラのツールバーの
「すべてのファイルを表示」を押す。
で、淡色表示されたファイルを右クリックし、
「プロジェクトに含める」

ということで取り合えずなんか作ろうと思って三次の正方行列の
逆行列を求めるプログラムを作っていたのですが結構多くの手順が
必要になりそうなんです。わたしがやっているのは線形代数で習った
（A|E)を簡約化していくとAの部分が単位行列になったときにEの部分に
Aの逆行列が現れるという方法なんですけど１つの手順ごとに新しい
行列を用意してやっています。
何か無駄が多いように感じているのですがこれで正解？ほかにスマートな
方法はありますか？プログラム初めてまだ2日の超初心者なんですが
よろしくお願いします。長々と失礼しました。

>>735
参照取り込みができないってこと？
それなら、ファイルを選択後、｢開く｣ボタンで確定するんじゃなくて、
その横の｢▼｣ボタンを押し、｢リンクファイル｣を選択すればＯＫ。

Visual Basic .NET Resource Kit
ってのがあるらしいけど、これってどうよ

http://msdn.microsoft.com/vbasic/vbrkit/

Ｃだと、
　/＊　コメント１
　コメント２　＊/
なんて、あったけど、
ＶＢって複数行にコメント打つ場合
どうするんだYO!
’
’
’
’
’おねがい教えてください。

>>736
>>738
レスありがとうございます。さっそく試してみます

>>737
ここは房の集まる場所だから大学レベルの数学は･･･

昨日も似たような事質問したんですが、背景に使う写真を使うのに、
「挿入」ってやってできますか？ヘルプにそのような事が書いてあった
んですが、挿入ボタンが見当たらなくて読み違いかと思ってるんですが・・

＞７４２
そうですか‥
誰かわかる人いたら答えてね！
またあとで覗きに来ます。

>>742
逆にそんな方法で逆行列を求めるコードが書けるってのはある意味すごいな。
もっと機械的に求める方法って線型代数の本に書いてあると思うんだけど。。？

>>745
>>737がいっているのが線形代数の本には書いてあったと思うが？
（A|E)→簡約化→（E|A^-1)というのじゃなくて？

>>737
一般的なやつを紙の上で計算して公式みたいにしちゃったら？

ベクターエンジン積んでるコンピュータってどういうプログラム書くんだろう･･･
教えてエロイ人

>739
最初のほうしか見てないけど、
結構基本的なところから始めてるね。初心者にも優しい。
色んな情報があるみたいだし、サンプルもある。
いいんじゃねぇの？

　英　語　が　苦　な　く　読　め　る　な　ら　な　。

日本語版は出ないんだろーなぁ……

>>746
だから間違ってる（線型代数の本にそんなこと書いてない）なんて言ってないよ。
もっと機械的に解ける、つまりコードにしやすい別の方法があるでしょ、って話。
それにその方法だと誤差の問題もあるんじゃない？

早い話コーディングの問題というより数学の問題じゃないのかなってこと。

DatSel()関数でマーシャリングのエラーになってしまいます。どこが悪いかご教授願います。

Public Structure S_DAT
<VBFixedArray(9)> Public Sdate() As Byte
Public Sub Initialize()
ReDim Sdate(9)
End Sub
End Structure

Public Declare Function DatSel Lib "MORE.dll" ( _
ByVal nm As String, _
ByVal fl As Integer, _
ByRef Sdate() As S_DAT _
) As Integer

ret = DatSel(nm, fl, SdateDat)

************** 例外テキスト **************
System.TypeLoadException: 型 SDATE_DAT のフィールド Sdate をマーシャリングできません : この型は構造体フィールドとして、マーシャリングできません。
at MORE.modMORESTORE.DatSel(String& nm, Int32 fl, SDATE_DAT[]& Sdate)
at System.Windows.Forms.Form.OnLoad(EventArgs e)
at System.Windows.Forms.Form.OnCreateControl()

ちょっとお邪魔します、、、

配布先PCでクリスタルレポートを開くと
[Cannot Find KeycodeV2.dll, or invalid keycode]というエラーが出ます。

regwiz.msm に License Key の設定もしてあります。

設定するキーはメールで送られてきた形をそのままコピペすればよいのですよね？
カンマでくくらなければならないとか、そういう特別なことはするのでしょうか？

初歩的な質問かもしれませんが、行き詰まっています（涙

ちなみにCR9,VB.net2003,Win2000の環境です。
どなたかわかりましたら助けてください。よろしくお願いします。

>750
過去スレに
構造体の中に構造体の配列があるとダメ
という情報があったぞ。それとは違うかね？

初代の最後とPart2の最初にあるはず。
確認してみては？

リレーションを定義したDataViewで、子テーブルの条件にしたがってフィルターをかけたいのですが、
DataViewのRowFilterの書き方がわかりません

つーか子テーブルの値を参照する方法もわかりません
グーグル検索でもはっきりしたやり方は探せませんでした
どなたか助けてください･･･

ずばり質問します。

Visual Basic時代のテクニックややり方や、プロジェクトファイルは
活用することが出来ますか？

>>754
出来るものと出来ないものがある。

>753
どんなフィルタをかけたいのか書かないと答えようがない。
とりあえずここ見て何とかしる。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemdatadataviewclassrowfiltertopic.asp

>754
そんなくそ曖昧な質問でズバリもへったくれもないと思うのです。
と言ってみるてすとー。

>>756
かけたいフィルタの例をあげます

親テーブル=Customers
列=CustomersID

子テーブル=Orders
列=CustomersID
列=Order

でCustomersIDで、一対多のリレーションを設定しているとします

この状態でOrderの値がhogeであるというフィルタをかけたいのです

>ttp://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemdatadataviewclassrowfiltertopic.asp

一応ここはすでに目を通しています
DataColumn.Expressionを使えばいいんでしょうか?

申し訳ない。質問させて下さい。

PL/SQLのストアドＤＢにアクセスし、複数レコードを一度に取得したいと思います。
その際VB側ではどのようにコールすれば宜しいか
ご存知の方おられたら、回答していただけますでしょうか？
がいしゅつだったらすみません。

>>758
Oracleのストアドを呼び出して複数のリザルトセットを取得ってことでスカイ？

For i=1 to 5
Dim sr As StreamReader = New StreamReader(Dfile2)
Dim line,lineAll As String

Next

DimがFor Nextの中にあるのに
変数srはすでに宣言されています
というエラーがでないでちゃんと動くのはなぜですか？

>>760
明らかに解ってて聞いてるでしょ。
そんなにしてまで「誰かに相手にされたい自分」に悲しくならないの？

>>761
VB.NETの仕様だから、だと思う

http://www.vector.co.jp/soft/win95/home/se110749.html
こういうソフトを作りたいのですが
設定の保存はどうやっているのでしょうか？

SaveSetting等でレジストリに保存する

>757
RowFilter 値を作成するには、列名の後に演算子とフィルタ処理をする値を付けて指定します。
値は引用符で囲む必要があります。

って書いてあるじゃん。
つーか使用例にそのままのが載ってるじゃないか。

>DataColumn.Expression
こっちでも出来るけど、列名指定はいらない。当然だけどね。
理由がわからないようならDataTableとDataViewについて理解を深めたほうがいいと思われ。

>>765
その検索する列名に子テーブルの列を指定する方法がわからないのです

DataView.RowFilte="Order = 'hoge'"

では、列名[Order]が見つかりません。　とエラーが出ます

>766
指定方法はそれで間違ってないはず。
RowFilter以外の場所が悪いんだろ。

DataColumnを調べてあなたがOrder列だと思ってる列の名前を確認すれ。

動的に作成したDataGridに
サブウウィンドウから値を渡して行を増やしたいのですが
そういうことは可能なんでしょうか？

配列の配列を使用して動的にLabelを作成したのですが、
LabelがClickされた際のイベントをすべて共通のイベントで処理したいのです。
�@AddHandlerおよびAddressOfの指定方法
�Aクリックされたラベルがどの配列に格納されているのかを取得する方法
　（共通のイベントの中で条件判断を行うため）
例えば、
Label(0)=Label0(3)、Label(1)=Label1(5)、Label(2)=Label2(7)
があり、Label(1)(2)のラベルがクリックされた際に
Label(X)(Y)のXにあたる値を取得したいのです。

各配列ごとの�@はわかるので、
現在は各配列を追加する際にLabel.NameにXにあたる値を含めて無理やり
取得しているという非常に情けない状態で動いてはいるのですが・・
よろしくお願いします。

>>767
レスありがとうございました

もう少し勉強してから出直します
DataColumについてあんまり理解してないんだろうと思います

以前に三次の逆行列のプログラムについて質問したものです。
がんばって作ったのですが答えが合いません。間違いがあったら
指摘してください。
For k = 1 To 3
P = A(k, k)
For i = k To 6
A(k, i) = A(k, i) / P
Next i
For i = 1 To 3
If i <> k Then
For j = k To 6
A(i, j) = A(i, j) - x * A(k, j)
Next j
End If
Next i
Next k

>768
DataGridがPrivateならフツーに出来ると思うけど？

>769
Label(1)(2)ってのは何？
よくわかんないけど、Label作成時に配列の位置をTagプロパティに入れるとか。
クリックした場所はイベントのsender引数に入る（と思う）から、
そのオブジェクトが持ってるTagプロパティで条件分岐。
検討外れだったらｽﾏｿ。

携帯から失礼します。
VB.netとCで作るDLL間で構造体の配列の受け渡しをしたいのですが上手くできません。
どうすれば実現出来るか知っている方いますか？

VB6ではAs Anyを使ってたのですがVB.netへ移植したら出来なくなってお手上げ状態なんです

誰か助けてください！
大学でレポートが出されまして、これが明日までに出来ないと留年してしまいます！
どなたか宜しくお願いします・・・・(T_T)

配列Ａのデータをソートせよ。ただしＡの入力は Void getdata(int *n,double *a)
を呼び出せば入力できるものとする。

っていうものです。このままでは本当に留年が確定してしまうのでどなたか助けてください・・・・・

>>773
Marshal すれば、Any でも渡せる。

>>774
VB じゃポインタは使えません。さようなら。

>>775
> VB じゃポインタは使えません。
ネタ？

ネタにしてもちょっと寒いな

>>775
＞Marshal すれば、Any でも渡せる。

お前嘘つきだな

Directory クラスは、ディレクトリのコピー、移動、名前変更、作成、削除などの一般的な操作に使用します。 Directory クラスは、ディレクトリに対する作成、アクセス、および書き込み操作についての DateTime 情報の取得および設定にも使用できます。

Directory のメソッドはすべて静的であるため、1 つの操作を実行するだけであれば、 File のメソッドを使用する方が、対応する DirectoryInfo のインスタンス メソッドを使用するよりも効率的な場合があります。
----------------------------------
この文に出てくる静的とはなんですか？

dim di as new DirectoryInfo("ファイル名とか")'インスタンスを作る。
di.メソッド 'インスタンス.メソッド　がインスタンスメソッド

Directory.メソッド　'クラス名.メソッド　が静的メソッド（インスタンスを作らない）

の違い。

質問です
リターンキーを押した場合
とにかく次のインデックスへフォーカスをいどうするということは出来ますか？
そのときにより使用できるコントロールが異なるので
それぞれ記述するとものすごくめんどくさいんです

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

>>781
SelectNextControlメソッドでいけると思いますよ

>>778

UnmanagedType.AsAny って知ってる？

>>778
それを使ってアンマネージDDLと構造体配列の値の受け渡しができますか？

<VB.net>
Public Structure DAT
　<VBFixedString(10), MarshalAs(UnmanagedType.ByValTStr, SizeConst:=10)> Public ch() As String
　Public Sub Initialize()
　　ReDim ch(9)
　End Sub
End Structure
Public Declare Function GetData Lib "AAA.dll" ( _
ByRef Dat As DAT _
) As Integer

Dim Dat As DAT
Dat.Initialize()
ret = GetData(Dat)
For i = 0 To 9
Msgbox(Dat.ch(i))
Next

<C>
typedef struct{
　char　chr[10];
} DAT;
extern int WINAPI GetData(char *buf ) {
　DAT　*ptr = (DAT*)buf
　for (i=0;i<10;i++) {
　　memcpy(ptr + i, 編集データ, sizeof(DAT));
　}
}

>>778⇒>>784の間違いでした

>>784さんお願いします

こんにちは。VB.NET 2003初心者です。
構造体のメンバのサイズをLenで調べようとしてますが、
０が返ってきて困ってます。以下がコードです。
型宣言は、
　Public Structure strMsgStruct
　　<VBFixedStringAttribute(10)> Public member1 As String
　　<VBFixedStringAttribute(10)> Public member2 As String
　End Structure
で、実体宣言は、
　Dim msgStruct As strMsgStruct
で、サイズ取得部分は、
　Len(msgStruct.member1)
です。
ちなみに、そのメンバに、何か値を代入すれば、その長さがlenで返ってくるのですが・・・。
（値を代入するまで、そのメンバがNothingになってるのがまずいんだと思う。）
もしかするとLen以外に何か在るのかな？

そもそも固定長になってないことが判明しました。
よく見たら、<VBFixedStringAttribute(10)>って、ファイルI/O用途以外は関係無いとヘルプに在りました。
ファイルI/Oの用途以外で固定長文字列の構造って定義出来ないんですかね・・・？
メッセージ電文とかでは必須ですよね・・・？

>>788
Public Structure strMsgStruct
　　<VBFixedString(10), MarshalAs(UnmanagedType.ByValTStr, SizeConst:=10)> Public member1 As String
　　<VBFixedString(10), MarshalAs(UnmanagedType.ByValTStr, SizeConst:=10)> Public member2 As String
End Structure
Dim msgStruct As strMsgStruct

msgStruct.member1.Lengthで取れないですかね？

「型'MarshalAs'が定義されていません。」とコンパイルエラーが出ます。

System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr,〜

もしくは、頭に
Imports System.Runtime.InteropServices　を追加

ＷＥＢアプリを作成しています。
DataGridの一部のセルの色を変えたいのですが方法がよくわかりません。
調べてみるとオーバーライドしたクラスを作る、みたいなことが
あるのですが。。。
直接プロパティをコードからいじれないのでしょうか？
リストをループ表示させているときにある条件にマッチしたら色を変えたいです。

あとDataGridの特定セルのコントロールを非表示にしたりできるでしょうか？
文字列：文字列：文字列：ボタン：ボタン：ボタン
という配置でコントロールブレイクを使用してループ表示。
ブレイクしたときにその１行のボタンを非表示にしたいのです。。

どなたか、お願いします。

>>791
度々すんません。変数を参照した時点で、
'System.NullReferenceException'のハンドルされていない例外がxxxx.exe
で発生しました。
追加情報：オブジェクト参照がオブジェクトインスタンスに設定されていません。
と出ます・・・。