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 841 名前：７７９ [04/12/01 12:22:04] ＞どうして言い切れる？ 　できない例をだしてください。 たちどころに、、、、ｃｌｓでかいて見ましょう。 高度すぎて中身が書いて無いとどうにもなりませんが。 842 名前：７７９ [04/12/01 12:31:31] Obfuscation for .NET ドットネットのこころを暗くする要因 -- Dotfuscator by PreEmptive Solutions 先制攻撃的解決によるドットフスケーター（これは英語かよ？） 843 名前：７７９ [04/12/01 12:45:20] 　なんだDotfuscatorって隠蔽ツールか。マニュアルまで隠蔽ツールで 処理しないでね。 844 名前：デフォルトの名無しさん mailto:sage [04/12/01 13:04:57] 構造体はバイト配列などで代用できるな 845 名前：832 mailto:sage [04/12/01 13:06:23] クラスだけで実装ができるからって構造体が無意味とは いえない。 初心者の内はそれでいいが、最適化の過程で構造体を 使いたくなってくる場面もある。 「なくてもできる=無意味」じゃないということだ。 846 名前：７７９ [04/12/01 13:30:17] 　何の最適化ですか？　ソースの見栄え、飾りのこと？ それとも実行コードの？　コードには違いは影響しないと思うよ。 違いを儲ける必然せいがない。 いらない機能は有害とおもう。 　まあベテランが新しい技術についていけないから、とりあえず残してある という理由はわかりますが。 　少なくとも初心者にとっては有害ですね。 847 名前：デフォルトの名無しさん mailto:sage [04/12/01 13:41:00] 非管理のメッセージをやり取りするにはどうしても構造体が必要になるな ﾓﾉによってはｸﾗｽでも大丈夫だが、厳密に定義されて無いメッセージが戻る場合や 構造体そのもののサイズが重要な場合はｸﾗｽだとちと難しい罠 848 名前：832 mailto:sage [04/12/01 13:45:31] >>846 まー、いずれわかる。 要らないうちはあわてて知る必要もないから、せいぜい頑張れ。 将来なにかで行き詰まったら、まじめに検証してみるといい。 849 名前：７７９ [04/12/01 14:07:03] >非管理のメッセージをやり取りするにはどうしても構造体が必要になるな >ﾓﾉによってはｸﾗｽでも大丈夫だが、厳密に定義されて無いメッセージが戻る場合や >構造体そのもののサイズが重要な場合はｸﾗｽだとちと難しい罠 　それは配列でしょ。 　構造体というのは配列を含んでいるの？　配列は重要だとおもうよ。 配列以外の構造体のことね。 　　それとも、構造体はメモリーアレンジが予測可能とかそういう性質が 　あるの？　うんそれなら意味あるね。クラスにはそんな機能は無いかも？ 　つければいいだけなんだけどね。 　　そういう違いがあるのか？　ヒョットシテ。 850 名前：デフォルトの名無しさん [04/12/01 14:23:32] (　ﾟДﾟ)ﾎﾟｶｰﾝ 851 名前：７７９ [04/12/01 14:36:29] ＞将来なにかで行き詰まったら、まじめに検証してみるといい。 そうします。 　要するに、要らん機能がOS周辺にあるから、それに合わすために 言語にも要らん機能がいるってことですね。 852 名前：デフォルトの名無しさん mailto:sage [04/12/01 14:52:23] (　ﾟДﾟ)ﾎﾟｶｰﾝ 853 名前：デフォルトの名無しさん mailto:sage [04/12/01 22:03:43] マルチスレッドに対応していないDLL内のメソッドをマルチスレッド プログラムから呼び出したいのですが、安全に呼び出すための 常套手段はどんな方法でしょうか。 イメージ的には呼び出し前に何らかのロックを取得して 呼びだし、実行後にロックを解除するみたいな 感じかなと・・・ 854 名前：デフォルトの名無しさん mailto:sage [04/12/01 22:31:45] Monitor 　Enter 　Exit 855 名前：デフォルトの名無しさん [04/12/01 23:11:51] ハイパーリンクで飛ばす時に、Submitボタンのように フォームの内容をURLに追記したいのですが、 どうすれば良いのでしょうか？ 856 名前：デフォルトの名無しさん mailto:sage [04/12/02 00:00:45] >855 もうちょい詳しくお願い 857 名前：デフォルトの名無しさん mailto:sage [04/12/02 00:08:36] >>779 まぁ、記述が長いと思うならImports　であってるんだっけ？ それで名前空間をインポートしてもいいと思うんだが？ そこまで判らないとは言わせない（;´Д｀） そこまでの記述を吹っ飛ばせるから長さは感じないはず まぁ、コレをするとそのうち似たよな名前作ってしまうと、名前空間がこんがらがってくるのだが・・・ まぁ、普通に問題ないと思われ 858 名前：777 mailto:sage [04/12/02 09:29:24] HELPヽ(´Д`)ノ 全然わかんないよママン_|￣|○ 859 名前：フナ太郎 mailto:sage [04/12/02 10:23:08] >>858 もうリンク切れてるし。 860 名前：777 mailto:sage [04/12/02 11:26:36] Public Class Form1 Structure ViewPort Dim Xgw As Integer Dim Ygw As Integer Dim Xgc As Integer Dim Ygc As Integer Dim Xvw As Double Dim Yvw As Double Dim Xvc As Double Dim Yvc As Double End Structure Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim c As Color Dim vp As ViewPort c = Color.FromArgb(255, 255, 0, 0) ↓ここから 　vp.Xgw = 000 vp.Ygw = 000 vp.Xgc = vp.Xgw / 2 vp.Ygc = vp.Ygw / 2 vp.Xvw = 000 vp.Yvw = 000 vp.Xvc = 000 vp.Yvc = 000 DrawPoint(000, 000, c) DrawPointScs(000, 000, c, vp) DrawPointWcs(000, 000, c, vp) DrawLine(000, 000, 000, 000, c) DrawLineScs(000, 000, 000, 000, c, vp) DrawLineWcs(000, 000, 000, 000, c, vp) ↑ここまで　の数値入力がわかりません。 End Sub 861 名前：777 mailto:sage [04/12/02 11:32:43] Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click PictureBox1.Refresh() End Sub Private Sub DrawPoint(ByVal x As Integer, ByVal y As Integer, ByVal c As Color) Dim g As Graphics Dim p As Pen g = PictureBox1.CreateGraphics p = New Pen(c) g.DrawEllipse(p, x, y, 1, 1) End Sub 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で受けるんだ？ 俺の知らない隠し値でも定義されてるのか。

---

---

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

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