VB.NET質問ｽﾚ (Part7)

1 名前：デフォルトの名無しさん [04/10/02 11:10:17] VB.NETの質問全般です 過去スレ VB.NET質問ｽﾚ (Part6) pc5.2ch.net/test/read.cgi/tech/1088812165/ VB.NET質問ｽﾚ (Part5) pc5.2ch.net/test/read.cgi/tech/1078134703/ VB.NET質問ｽﾚ (Part4) pc2.2ch.net/test/read.cgi/tech/1065269043/ 【老若】VB.net質問ｽﾚ【男女】 (Part3) pc2.2ch.net/test/read.cgi/tech/1056281084/ 【老若】VB.net質問ｽﾚ【男女】 (Part2) pc2.2ch.net/tech/kako/1043/10436/1043629429.html 【老若】VB.net質問ｽﾚ【男女】 pc2.2ch.net/tech/kako/1025/10258/1025848458.html 862 名前：777 mailto:sage [04/12/02 11:35:48] Private Sub DrawLine(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal c As Color) Dim x As Integer Dim y As Integer Dim a As Double If x1 = x2 Then x = x1 If y1 <= y2 Then For y = y1 To y2 Step 1 DrawPoint(x, y, c) Next Else For y = y2 To y1 Step 1 DrawPoint(x, y, c) Next End If 863 名前：777 mailto:sage [04/12/02 11:36:15] Else a = CDbl(y2 - y1) / CDbl(x2 - x1) If Math.Abs(a) <= 1 Then If x1 < x2 Then For x = x1 To x2 Step 1 y = CInt(a * CDbl(x - x1) + CDbl(y1)) DrawPoint(x, y, c) Next Else For x = x2 To x1 Step 1 y = CInt(a * CDbl(x - x1) + CDbl(y1)) DrawPoint(x, y, c) Next End If Else If y1 < y2 Then For y = y1 To y2 Step 1 x = CInt(1.0 / a * CDbl(y - y1) + CDbl(x1)) DrawPoint(x, y, c) Next Else For y = y2 To y1 Step 1 x = CInt(1.0 / a * CDbl(y - y1) + CDbl(x1)) DrawPoint(x, y, c) Next End If End If End If End Sub 864 名前：777 mailto:sage [04/12/02 11:36:40] Private Sub DrawPointScs(ByVal x As Integer, ByVal y As Integer, ByVal c As Color, ByVal vp As ViewPort) Dim Xg As Integer Dim Yg As Integer Xg = x + vp.Xgc Yg = -y + vp.Ygc DrawPoint(Xg, Yg, c) End Sub Private Sub DrawPointWcs(ByVal x As Double, ByVal y As Double, ByVal c As Color, ByVal vp As ViewPort) Dim Xv As Double Dim Yv As Double Dim Xs As Integer Dim Ys As Integer Xv = x - vp.Xvc Yv = y - vp.Yvc Xs = CInt(Xv * vp.Xgw / vp.Xvw) Ys = CInt(Yv * vp.Ygw / vp.Yvw) DrawPointScs(Xs, Ys, c, vp) End Sub 865 名前：777 mailto:sage [04/12/02 11:37:01] Private Sub DrawLineScs(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal c As Color, ByVal vp As ViewPort) Dim Xg1 As Integer Dim Yg1 As Integer Dim Xg2 As Integer Dim Yg2 As Integer Xg1 = x1 + vp.Xgc Yg1 = -y1 + vp.Xgc Xg2 = x2 + vp.Xgc Yg2 = y2 + vp.Ygc DrawLine(Xg1, Yg1, Xg2, Yg2, c) End Sub Private Sub DrawLineWcs(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double, ByVal c As Color, ByVal vp As ViewPort) Dim Xv1 As Double Dim Yv1 As Double Dim Xv2 As Double Dim Yv2 As Double Dim Xs1 As Double Dim Ys1 As Double Dim Xs2 As Double Dim Ys2 As Double Xv1 = x1 - vp.Xvc Yv1 = y1 - vp.Yvc Xv2 = x2 - vp.Xvc Yv2 = y2 - vp.Xvc Xs1 = CInt(Xv1 * vp.Xgw / vp.Xvw) Ys1 = CInt(Yv1 * vp.Ygw / vp.Yvw) Xs2 = CInt(Xv2 * vp.Xgw / vp.Xvw) Ys2 = CInt(Yv2 * vp.Ygw / vp.Yvw) DrawLineScs(Xs1, Ys1, Xs2, Ys2, c, vp) End Sub End Class 866 名前：777 mailto:sage [04/12/02 11:40:01] リンク切れてると言うか本体ごと無くなってますね_|￣|○ ちょっと長いですがこちらに張らせて頂きました。すみません。 求めるモデルが 三角形の頂点　(200,200) (400,200) (300,400) ViewPort 左下座標(150,150) 幅300　高さ300 となります。 867 名前：デフォルトの名無しさん [04/12/02 12:56:04] >856 反応サンクスです。 >855　の続きです。 まるっきり初心者ですので宜しくお願いします。 Submitでページを移行させると、フォームの内容がURLの後ろの方に 「 hogehoge=**** 」 のように追記されて、次のページで内容を取得できますよね？ 同じように、Hyper Linkでページを移行させて、次のページで元ページの フォームの内容を取得する為には、どのような方法を使えば良いのでしょうか？ SubmitのようにURLの後ろに付いてくれるとありがたいのですが、 全く別の方法でも構わないので教えて頂けるとありがたいす。 868 名前：デフォルトの名無しさん [04/12/02 15:24:41] DataGridにArrayListをバインドさせているのですが、 869 名前：デフォルトの名無しさん [04/12/02 15:27:09] ぐはっミスッタ 途中でArrayListの編集を行った後 DataGridが更新されないのです。 フォーカスが移るとDataGridも反映されます。 DataGrid1.DataSource = objArray DataGrid1.Refresh() DataGrid1.Update() じゃ駄目ですか・・ 870 名前：869 [04/12/02 17:35:28] 仕様上ArrayListを使用した時のDataGridは反映されないみたいですね。 871 名前：デフォルトの名無しさん mailto:sage [04/12/02 18:05:51] >>867 <A href="www.google.co.jp/search?ie=UTF-8&q=%e3%83%8f%e3%82%a1%ef%bc%9f"> 872 名前：デフォルトの名無しさん [04/12/02 18:39:31] >>871 すみません、用語の使い方とかメチャクチャってことっすか？ もっと簡単に書くと、「Submitボタン」を 「下線付きの文字列」(hrefとかasp:hyperlink)に変えたいんですが、 テキストボックスに入力された内容を次のページで取得する為には どうすれば良いのでしょうか？ （Submitの時は、URLから前頁の情報を引っ張ってました。） 873 名前：デフォルトの名無しさん mailto:sage [04/12/02 18:57:20] <A href="javascript:document.forms('xxx').submit()" 874 名前：デフォルトの名無しさん mailto:sage [04/12/02 19:00:39] >872 うろ覚えだけど、リンクボタンっていうオブジェクトがなかったっけ？ 875 名前：デフォルトの名無しさん [04/12/02 21:08:50] C#のイベントのアクセサってVBだとどうかくのでしょうか？ もしかしてVBにはない？ [attributes] [modifiers] event type member-name {accessor-declarations}; の{accessor-declarations}を書きたいんですが 876 名前：デフォルトの名無しさん mailto:sage [04/12/02 21:31:01] >874 　確かにあるし、普通のボタンと全く同じ感覚で使えるので、867=872が 普通にWebアプリケーションの処理を理解していれば問題ないんだけどね。 >872 　あのねぇ、Webアプリケーションの基礎的な動作について、根本的な 理解が足りないのね。 　そして、根本的にASP.NETでのコントロールの値の取り方が分かって いない。(以前の経験を引きずりすぎ) 　Submitボタンでページ遷移(サーバーに送信)を行う際の動作は、 「GET」Methodと「POST」Methodの二種類あるのよ。 　「GET」Methodの場合は、ブラウザが自動的にsubmit先のURLに QueryStringを自動的に生成・追加して送っているのよ。 　「POST」MethodはQueryStringを使わず、submit先のサーバーに 接続した後にデータを送っているのよ。 　ASP.NET(VB.NETのWebアプリケーション)は「POST」Methodを使う様に 作られているのよ。(まずGETを使おうと思わないし) 　VB.NETで普通にWebフォームを作成して、普通にWebフォームに 配置したコントロールの値は、Me.コントロール名.(値の格納されているプロパティ) だけで取れるんだよ。余計な事を考えすぎ。 877 名前：デフォルトの名無しさん mailto:sage [04/12/02 23:40:39] 質問なんですがVB.netでEXCELシートにテキストボックスから 文字列を出力させる方法を誰か知っている方教えてください。 いろいろ調べてはいるんですが、よく分からなくて 初歩的な質問でｽﾏｿ 878 名前：デフォルトの名無しさん mailto:sage [04/12/03 00:53:57] InstallShieldで作成したインストーラでアプリをインストールすると 同時に.NET Frameworkを最新版にするようなことは可能でしょうか。 879 名前：872 [04/12/03 00:57:56] >>874 >> 876 ありがとうございます。 全てが初めてなので大変参考になります！ POSTにすべきというのは理解しました。 遷移先での取得方法ですが、サンプルでもよく「Me」という単語 を見かけるのですが、どう使うのでしょうか？ 880 名前：デフォルトの名無しさん [04/12/03 07:40:07] ２つのコンボボックスの選択メンバのデータソースに同一のＤＢテーブルを設定すると 片方のドロップダウンから選択した値が、 もう片方のコンボボックスにも自動的に入ってしまうんですが、 それぞれ独立して選択できるようにするにはどうしたらいいでしょうか？ できればテーブルは増やしたくないです。 仕事いってきます。 881 名前：デフォルトの名無しさん mailto:sage [04/12/03 09:25:16] >>877 「Excel.Application」を検さくぁｗせｄｒｆｔｇｙふじこ 882 名前：デフォルトの名無しさん mailto:sage [04/12/03 09:31:52] >>880 そんな変態的な設計を止める 883 名前：デフォルトの名無しさん mailto:sage [04/12/03 09:48:56] アクセス形式のDBを使っているのですが、NULL値の取得方法が分かりません。 例えば、コンボボックスを使ってSelectionValueがNULL値のときに他のコンボボックスの EnabledをFalseのようにしたいのですが、うまくいきません。 Private Sub combobox1_SelectedIndexChanged(・・・・・・） If combobox2.SelectionValue ="" then combobbox1.Enabled = False End If End Sub のようにすると「演算子が、型 'DBNull' および 文字列 "System.DBNull" に対して有効ではありません。」 になってしまいます。　　 　「If combobox2.SelectionValue ="" then」　の部分を「If combobox2.SelectionValue =　null then」 にしても同じでした。。。このような場合どのようにしてNULL値を取得するのでしょうか？ よろしくお願いします。 884 名前：デフォルトの名無しさん mailto:sage [04/12/03 09:54:08] すいません(T_T)コンボボックスの「１」と「２」が間違ってました。 Private Sub combobox1_SelectedIndexChanged(・・・・・・） If combobox1.SelectionValue ="" then combobbox2.Enabled = False End If End Sub でした（*_*)よろしくお願いします 885 名前：デフォルトの名無しさん mailto:sage [04/12/03 10:27:03] DBのNULL値はSystem.DBNullという独自クラスなので、チェックにはIsDBNull関数を使うんだったはず。 886 名前：デフォルトの名無しさん mailto:sage [04/12/03 11:26:19] おお♪IsNull関数を調べたら出てきました♪ null値は""でもnullでもないのですね（汗） オブジェクトの型にデータ（system.DBNull)を渡して、IsNull関数を使ってBoolean型にTrue、Falseを返すのですね＾＾ ちなみに自分なりに書いてみたのですがうまく行きました♪ Dim aaa As Object Dim bbb As Boolean aaa = ComboBox1.SelectedValue bbb = IsDBNull(aaa) If bbb = True Then TextBox1.Text = "self" Else TextBox1.Enabled = True TextBox1.Text = ComboBox1.SelectedValue End If End Sub >>885さんありがとうございます♪♪♪ 887 名前：デフォルトの名無しさん [04/12/03 15:00:36] 簡単なタイピングソフトを作ろうと思ってます。 やろうとしてること↓ 例文(ローマ字)をテキストボックスに表示して、 フォームがアクティブなときに打ったキーを取り出して、 例文の1文字目から順番に比較しようとしました。 しようとしたのですが、例文から1文字ずつ取り出すっていうのができません。 substringで文字を取り出して、for文でまわそうとしたのですが失敗しました。 文字列を配列のようにするにはどのようにすればよいでしょうか？ 888 名前：デフォルトの名無しさん mailto:sage [04/12/03 15:14:42] StringのCharsプロパティが各文字の配列になってる。 TextBox1.Textの三文字目が欲しいならTextBox1.Text.Chars(2)。 String.Lengthプロパティで文字列の長さも分かる。 889 名前：デフォルトの名無しさん [04/12/03 16:29:38] WindowsのDataGridって表示行数指定するプロパティない？ 890 名前：デフォルトの名無しさん mailto:sage [04/12/03 16:59:55] >>889 好きが行数のデータソースを作ればいいだろ。 891 名前：デフォルトの名無しさん mailto:sage [04/12/03 17:13:49] VB.NETって何ですか？ 892 名前：880 mailto:sage [04/12/03 18:13:58] 結局ひとつのテーブルから、まったく同じデザインのVIEWを２つ定義することで解決しました。 こういうやり方が妥当かどうか分かりませんが、 データの冗長性を排除して保守性を高めるには、とりあえずこれしか思い浮かびませんでした。 朝っぱらからすんませんでした。 これから残業です。 多分また来ます。 893 名前：デフォルトの名無しさん [04/12/03 18:50:26] VB.NET 2003ってさVSSついてないんですね。 んで、VB6.0のVSSをUpdateすればVB.NET2003で使えるようになるのかなって 試してみたらソース管理の項目が出ねー どうなってんだこらー 894 名前：デフォルトの名無しさん mailto:sage [04/12/03 19:04:25] ふつうCVS 895 名前：デフォルトの名無しさん mailto:sage [04/12/03 19:21:08] >>893 [ﾌｧｲﾙ]の中に無え？ tu-ka、”ＶＢ”6.0 にもVSSは憑いてない訳だが・・・・・・ 896 名前：デフォルトの名無しさん mailto:sage [04/12/03 21:08:08] >891 それを説明できるレベルの人はこのスレにはいないでしょう。 897 名前：デフォルトの名無しさん mailto:sage [04/12/04 00:29:31] VSSはMSDN買わないとついてこなかったはず ついてきても使わないけど 898 名前：デフォルトの名無しさん mailto:sage [04/12/04 04:25:21] .NETじゃないスレに質問してしまいました。 わざわざ謝罪でスレを消費するのは良くないと思いましたので、ここでお詫びします； >昨日購入し、まだ条件分岐を覚えたレベルです。 >binフォルダにあるexeはVBがインストールされているPCでしか使えない。 >という事ですが、配布されている方はどうやってexeを作っているのですか？ >アプリケーションをうまく初期化できませんでした？見たいに表示されるみたいです。 >自PCじゃないので詳細なエラーメッセージがわからないのですが、宜しくお願いします。。 >相手のPCに.NET Frameworkが入ってないとか… との事ですが、.NET Frameworkを入れてあるPCに、binフォルダのEXE渡せば良いのですか？ ディストリビューションウィザードでしたっけ？そういうの無いんですか？ アホすぎる質問ですが・・・誰か教えて下さいorz 899 名前：デフォルトの名無しさん [04/12/04 05:35:39] >898 そうみたいね。でも昔のDLLとかも使うでしょ。だからその時はむかしの ディストリビューションウィザードをつかうんじゃない？ 　 900 名前：yukki mailto:sage [04/12/04 11:07:49] メインフォームに「更新」などのボタンを設置し、ボタンが押されたときにメインフォームを閉じ、フォームを再表示する方法はありませんか？ ShowDialogではなく、フォームをアップデートするイメージです。 ご存知の方いましたら伝授お願いします。 901 名前：デフォルトの名無しさん mailto:sage [04/12/04 11:32:56] できない事はないが、たかがフォームのアップデートごときでフォームを作り直すのも馬鹿馬鹿しい。 必要な部分をメソッドに切り出してそれを実行すれば済む話。じゃないのか？ 902 名前：デフォルトの名無しさん mailto:sage [04/12/04 13:58:32] >>900 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles Button1.Click Refresh() End Sub じゃだめなの？ 903 名前：887 [04/12/04 15:54:29] >>888さん ありがとうございます。配列として使うことは出来ました。 後は打った文字を取り出す処理ができれば・・・ 出来てると思ってたらそれも出来てなかった(´･ω･｀) keypressでできると思ってたら甘かった罠・・・ 904 名前：デフォルトの名無しさん mailto:sage [04/12/04 20:54:19] .NET Framework 1.1はSP1が出てるけど、dotnetfx.exe は 新しいの出ないの？ 905 名前：デフォルトの名無しさん mailto:sage [04/12/04 22:15:38] >904 これ誰か分かりませんか？SP1用のdotnetfx.exeを自分で 作れたりするといいのですが・・・ 906 名前：デフォルトの名無しさん mailto:sage [04/12/05 02:57:02] nyやshareで使われてるListViewの中に進行状況のグラフ があるやつってVB.NETで作れるの？誰かわかる人いる？ ぐぐってもでてこない 907 名前：デフォルトの名無しさん mailto:sage [04/12/05 05:23:36] >>906 OwnerDrawで描画制御を乗っ取る 初期のny1はVB.NETで作られてるらしいからｶﾞﾝｶﾞﾚ 908 名前：デフォルトの名無しさん [04/12/05 06:43:41] とある測定マシンの制御プログラムを書いているのですが、 マシンがある状態になるまで処理を中断するうまい方法が思い浮かびません。 とりあえず考えたのは、 〜メイン処理 While 1 System.Windows.Forms.Application.DoEvents() If Timer2.Enabled = False Then Exit While End If End While 〜タイマー Private Sub Timer2_Tick(…) If (マシン = ある状態) Then Timer2.Enabled = False End If End Sub として、Timer2で設定した時間ごとにマシンの状態を聞き、 所望の状態になったらTimer2を無効化する、というものです。 が、これだとWhileループで無駄な負荷が生じてしまい、困っています。 何か良い方法はありませんでしょうか？ 909 名前：デフォルトの名無しさん mailto:sage [04/12/05 08:36:22] 普通はメイン処理のwhileの中でSLEEPするわな。 910 名前：908 mailto:sage [04/12/05 10:38:28] >909　ありがとうございます、うまくできました！ 911 名前：デフォルトの名無しさん mailto:sage [04/12/05 12:56:17] ネットに送信、ネットから受信した総バイト数を所得できますか？ 912 名前：1 ◆ExGQrDul2E mailto:sage [04/12/05 13:12:50] 4年前私はマイクロソフトのCOM+2.0の評価メンバーに誘われました。 私の興味はASPの組み込みオブジェクトに興味があったのですがそれでも参加することにしました。 COM+2.0の仕様書を見て私は驚愕しました。 すべての言語の境界がなくなり、さらに便利で強力なクラスが膨大に盛り込まれていたのです。 それは後に.NETと名づけられました。 強力なWEBアプリを構築できる.NETを知ってからはもはやASPに戻ることはありませんでした。 913 名前：デフォルトの名無しさん mailto:sage [04/12/05 13:39:01] >>911 コントロールパネル内のどっかのローカルエリア接続の状態 でパケット数が出てるからな。取れるだろ。 送信したバイトって自分で数えりゃ出るじゃん。 カウント関数はないのか？VB 914 名前：デフォルトの名無しさん mailto:sage [04/12/05 16:44:35] >910 おー、そりゃよかった。乙。 915 名前：デフォルトの名無しさん mailto:sage [04/12/05 16:45:28] >912 で？ 916 名前：デフォルトの名無しさん mailto:sage [04/12/05 17:01:48] >>913 どうやったらいいんですかねー 917 名前：デフォルトの名無しさん mailto:sage [04/12/05 17:17:06] >>916 ttp://www.google.com/search?hl=ja&lr=lang_ja&oe=utf8&q=%E9%80%81%E5%8F%97%E4%BF%A1%E3%83%90%E3%82%A4%E3%83%88%E6%95%B0+%E3%82%B3%E3%83%BC%E3%83%89 918 名前：デフォルトの名無しさん mailto:sage [04/12/05 17:53:42] >>917 �d やってみます 919 名前：デフォルトの名無しさん mailto:sage [04/12/05 18:53:58] マルチうぜー 920 名前：デフォルトの名無しさん [04/12/05 23:16:31] 夜分遅くにすいませんが、助けてください。 データグリッドにテーブルの情報を表示させる時、 そのテーブルの或る列に持っている１〜７の文字値については グリッド上では月〜日に読み替えて表示させたいのです。 列スタイルクラスのFONTプロパティが怪しそうですが、 使い方を調べてもなんだかよく分かりません。 自分ももっと調べてみますが、何かいい方法があれば教えてください お願いします。 921 名前：デフォルトの名無しさん [04/12/05 23:20:56] >>912 同じ言語仕様にいろんな文法をかぶせただけとも言える。 まぁ、従来の構造化オブジェクト指向言語も少なからずそんな感じだったから 相互運用出来るようになったくらいか。 922 名前：フナ太郎 mailto:sage [04/12/05 23:31:02] >>920 DataColumnオブジェクトのExpressionプロパティでなんとかなんないっすかね。 923 名前：デフォルトの名無しさん [04/12/05 23:51:02] >>922 早いレスthxです。 グリッド上のその列は、ネットで拾った、グリッド上にコンボボックスを乗せるクラス から生成した列スタイルオブジェクトを使っていて、 教えていただいたプロパティはないんですよ。 そのクラスはコンボボックス得意のDisplayMenberと ValueMenberが設定できるので、１〜７を月〜日に表示させる こと自体はできるんですが、でもコンボボックスは要らないってことで（汗 なんとかならないもんかと。 コンボボックスを使用不可設定してもいいんですが、 見た目も変だし、そもそも編集不可の列としたいんで なんかもっとちゃんとしたやり方があるような気がしてるんです。 もうちっと調べてみます。ありがとうございました。 920の訂正：FONTプロパティ→formatプロパティ 924 名前：デフォルトの名無しさん [04/12/06 01:00:49] ピクチャーボックス又は読み込んだ画像を1度単位で回転させるにはどうすればいいのでしょうか。 RotateFlipType.Rotate90FlipNoneで90、180、270度の回転はできるのですが・・・。 925 名前：デフォルトの名無しさん mailto:sage [04/12/06 01:06:59] う ざ 926 名前：デフォルトの名無しさん mailto:sage [04/12/06 01:12:30] >>924 これは？ ttp://dobon.net/vb/dotnet/graphics/skewing.html 927 名前：924 mailto:sage [04/12/06 01:17:34] >>926 ありがとうございます、求めたい表現ができるようになりました。 このテンプレサイトはみてたけど回転しか見てなかった(´・ω・`) 928 名前：デフォルトの名無しさん mailto:sage [04/12/06 02:11:08] う 929 名前：デフォルトの名無しさん mailto:sage [04/12/06 02:16:57] チェックボックスがチェックされているかされていないかってどうやってわかるんですか？ チェックボックス Dim box1 As Integer box1 = CheckBox1.Checked ボタン Dim box1 As Integer If box1 = True Then MsgBox("on") Else MsgBox("off") こんな感じでやってもダメでした。。 930 名前：デフォルトの名無しさん mailto:sage [04/12/06 02:25:22] なぜBoolean型をわざわざInteger型にするのかさっぱりわからん。 .NETではBooleanとIntegerは全く別物であるという認識を持ってないからか。 そもそも If CheckBox1.Checked Then ... で済むし。 Ifの条件式はBoolean型ならOKなんだから。 931 名前：デフォルトの名無しさん mailto:sage [04/12/06 02:33:38] >>930 ありがとうございます！ 実は数日前届いたばかりで・・・。 意味不明な質問すいません。。 932 名前：デフォルトの名無しさん mailto:sage [04/12/06 07:24:36] >931 いや、意味は分かるよ。>930が人としてなっちゃいないだけ。 気にするな。 933 名前：デフォルトの名無しさん mailto:sage [04/12/06 11:59:50] うぜー 934 名前：デフォルトの名無しさん [04/12/06 13:45:43] この問題は全てｸﾗｽで解決できるのか？ 935 名前：デフォルトの名無しさん mailto:sage [04/12/06 16:08:44] 条件式にBooleanをつっこむのは同意だが、BooleanとIntegerが まったく別物と言い切るのもどうよ。"-1"や"0"で相互に扱えるし。 936 名前：デフォルトの名無しさん mailto:sage [04/12/06 16:35:02] 「いちおう別物」ぐらいだな。 937 名前：デフォルトの名無しさん mailto:sage [04/12/06 17:14:20] DialogResultをBooleanで受けて変になったことがあったな。 938 名前：デフォルトの名無しさん mailto:sage [04/12/06 17:15:21] DialogResultをBooleanで受けて変になったことがあったな。 939 名前：デフォルトの名無しさん mailto:sage [04/12/06 17:16:28] DialogResultをBooleanで受けて変になったことがあったな。 940 名前：デフォルトの名無しさん mailto:sage [04/12/06 17:43:11] DialogResultをBooleanで受けて変になったことがあったな。 941 名前：デフォルトの名無しさん mailto:sage [04/12/06 19:00:25] あえて聞こう。 DialogResult列挙体をどうやってBooleanで受けるんだ？ 俺の知らない隠し値でも定義されてるのか。 942 名前：デフォルトの名無しさん mailto:sage [04/12/06 19:01:56] >>941 空気嫁 DialogResultをBooleanで受けて変になったことがあったな。  943 名前：デフォルトの名無しさん mailto:sage [04/12/06 19:31:49] Dim result As Boolean, box As New System.Windows.Forms.OpenFileDialog() result = box.ShowDialog() System.Windows.Forms.MessageBox.Show(result) '問答無用でTrue。　FalseになるのはDialogResult.Noneだけ とにかくOption Strict Onしとけってことだな。 944 名前：デフォルトの名無しさん mailto:sage [04/12/06 19:40:02] ( ﾟДﾟ)‥‥ 945 名前：デフォの名無しさん [04/12/07 00:11:48] 文字列変換処理を作っています。 ab→xyのときabc→xyc はReplace関数を使えばイイんですが a?b→xyのときacb→xy（？は任意の1字） a*b→xyのときacpqb→xy（*は任意の文字列） のような変換をしたいのですが、 このような機能を実現する関数は用意されているでしょうか？ 946 名前：デフォルトの名無しさん mailto:sage [04/12/07 00:44:12] Regexクラスで実装されている正規表現を使う。 947 名前：デフォルトの名無しさん [04/12/07 00:44:39] 項目 'Form1.resx' はプロジェクト ディレクトリに存在しません。移動したか、名前が変更されたか、または削除された可能性があります。 というエラーが出たんですが修復可能でしょうか？？ 948 名前：デフォルトの名無しさん mailto:sage [04/12/07 01:58:22] Form1.vbを保存するか何かしたら再度作ってくれたような気がする 漏れも一度出したことがあるんだけど簡単に解決できたので余りよく覚えてない 949 名前：デフォルトの名無しさん mailto:sage [04/12/07 02:05:15] >>948 訂正 メモ帳でForm1.resxって空ファイル作って Form1.vbと同じフォルダに突っ込む 950 名前：デフォルトの名無しさん mailto:sage [04/12/07 02:16:59] だいぶ作り直してしまいました・・・ でもありがとうございます！！！(TT) 951 名前：デフォルトの名無しさん [04/12/07 08:10:20] VB.NETで作ったＰＧのＩＣＯＮはどのツールで作るんですか？ 952 名前：デフォルトの名無しさん mailto:sage [04/12/07 08:21:02] >>951 VB.NET 953 名前：デフォルトの名無しさん [04/12/07 08:35:36] VB.NET のどこにＩＣＯＮ作るツールがある？　 えっプログラムでつくるのか？ 　ＢＭＰともフォーマット違うみたいだし。 ＢＭＰ＋＠だろけどね。だれかフォーマットの規格どこにあるか おしえてくれ。 954 名前：デフォルトの名無しさん [04/12/07 08:58:43] VB.NETににはICON作成はできない。そういうツールはない。 ICOとBMPのファイルをStreamで開いて解析する。どうせ２，３バイトの ヘッダーが付いてるぐらいだから、BMPにそのヘッダーをつければいい。 955 名前：デフォルトの名無しさん [04/12/07 09:18:22] >954 やってみました、なんだ簡単なんだね。 956 名前：デフォルトの名無しさん mailto:sage [04/12/07 09:27:18] VS.NETならファイル→新規作成→ファイルにアイコンファイルがあるんだがな。 VB.NET単体にはなかったのかorz 957 名前：最凶VB厨房 mailto:sage [04/12/07 20:40:24] App.icoだぼぉくぃっくしたら編集できるぞ。 2002。 VB.NET2003単体にはなかったのかorz 958 名前：デフォルトの名無しさん [04/12/07 21:10:45] ［Ｔｅｘｔ１］に入力した文字（アルファベット）を ［Ｔｅｘｔ２］（数値）文字分マイナス転置（アスキーコードで）する プログラムを作っています。 例：cde⇒abc　2文字動かす 下のプログラムだと最初の１文字しか表示されません。 入力した数だけ表示させるにはどうすればいいでしょうか？ お願いします。 Private Sub Command1_Click() i = Len(Text1.Text) Text3.Text = Chr(Asc(Mid(Text1.Text, i, 1)) - Val(Text2.Text)) End Sub 959 名前：デフォルトの名無しさん mailto:sage [04/12/07 21:11:28] Dim num As Integer If num = 0 Then num = 1 Else num = 0 End If MsgBox(num) これでボタン押すたびに1になったり0になったりするはずなのに！！！ ならないのは何故ですか('A｀) 960 名前：デフォルトの名無しさん mailto:sage [04/12/07 21:24:18] num の定義を public とかにする。 961 名前：デフォルトの名無しさん mailto:sage [04/12/07 21:26:19] 定義というのは型という事ですか？ 962 名前：デフォルトの名無しさん mailto:sage [04/12/07 21:35:53] Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim num As Integer If num = 0 Then num = 1 Else num = 0 End If MsgBox(num) 無理でした、MsgBoxに1しか出ません！

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef