VB.NET質問スレ(Part38)

1 名前：デフォルトの名無しさん mailto:sage [2011/12/28(水) 23:43:48.38 ] 前スレ VB.NET質問スレ(Part37) toro.2ch.net/test/read.cgi/tech/1317448996/ 12 名前：デフォルトの名無しさん mailto:sage [2011/12/30(金) 19:33:24.96 ] 環境設定を変更したら いったんアプリを終了して また再起動しないと 設定変更が反映されないソフトから脱却するにはどうすれば 13 名前：デフォルトの名無しさん mailto:sage [2011/12/30(金) 21:35:37.98 ] >>12 まず他人が読んで何を言ってるのか理解できるように書こう。 14 名前：デフォルトの名無しさん mailto:sage [2011/12/30(金) 22:40:08.63 ] unixだとsignal送ったりするんだが、windowsだから何かmessageを送るんじゃね？ 15 名前：デフォルトの名無しさん mailto:sage [2011/12/30(金) 23:24:18.43 ] Windowsサービスだと似たような通知機構があるけど、 この場合、GUIプロセスの話だろうなあ。 適時、My.MySettings.Default.Reloadを呼び出す感じになるのだろうか。 16 名前：デフォルトの名無しさん mailto:sage [2011/12/31(土) 05:06:25.78 ] これでエラー出るのなんとかならんの Dim S1, S2, S3 As String = "" 17 名前：デフォルトの名無しさん mailto:sage [2011/12/31(土) 09:05:41.49 ] 言語仕様だしなあ。纏めて型指定するなら初期値指定は諦めるしか。 Dim S1$, S2$, S3$ = "" Dim S1%, S2%, S3$ = "" VB2010で試してみたけど型宣言文字でも駄目だな。 というか違う型でも何故かエラーだw 18 名前：デフォルトの名無しさん mailto:sage [2011/12/31(土) 12:36:31.31 ] Dim S1, S2, S3 As New String("") で一応出来ないことはないけど、わざわざ書き方変えてまでやるほどじゃないかな 19 名前：デフォルトの名無しさん mailto:sage [2011/12/31(土) 22:35:28.46 ] クリスマスから今日まで-100000 なので パチンコ台を改造するVB.NETコードきぼんぬ 20 名前：デフォルトの名無しさん mailto:sage [2012/01/01(日) 02:54:28.63 ] Dimって.NETで仕様が変えられた命令だしなぁ 21 名前：デフォルトの名無しさん [2012/01/01(日) 19:13:59.70 ] そもそも命令じゃないから 22 名前：デフォルトの名無しさん mailto:sage [2012/01/01(日) 19:36:32.69 ] 実行ファイルのあるディレクトリでなく \bin\Debug にStartUpPathがなっちゃう 不思議 デバッグ時じゃなくても 23 名前：デフォルトの名無しさん mailto:sage [2012/01/01(日) 20:10:44.23 ] デバッグ時かどうかは関係ないかと 24 名前：デフォルトの名無しさん mailto:sage [2012/01/01(日) 23:08:02.63 ] >>22 そこに実行ファイルがあるからな。 25 名前：デフォルトの名無しさん mailto:sage [2012/01/05(木) 13:35:54.08 ] そこに山があるから、登るんだ。 26 名前：デフォルトの名無しさん mailto:sage [2012/01/05(木) 20:54:16.52 ] ウィンドウのなかにフォームがいっぱいあるアプリをつくるにはどーすれば nyannyan3.minidns.net/up/2012_01_05a-A4-002.png 27 名前：デフォルトの名無しさん mailto:sage [2012/01/05(木) 20:56:19.59 ] MDIだけど 今時流行らん時代遅れのUI 28 名前：デフォルトの名無しさん mailto:sage [2012/01/05(木) 21:13:45.62 ] 急にアイデアがわいたけど 子フォームたくさん はやめて、 メインのForm1から Form2.Show Form3.Show ........... FormN.Show (N→limit∞) として、 WindowsのタスクバーにわForm1のバーしか表示されないようにするにはどぅーすれば 29 名前：デフォルトの名無しさん mailto:sage [2012/01/05(木) 22:09:14.44 ] ショウインタスクバーをフォルるだけ。 30 名前：デフォルトの名無しさん mailto:sage [2012/01/05(木) 22:30:48.32 ] 最近のはやりはなんなのさ？ 31 名前：デフォルトの名無しさん mailto:sage [2012/01/05(木) 22:59:45.19 ] タブ 32 名前：デフォルトの名無しさん mailto:sage [2012/01/06(金) 00:10:47.31 ] WinFormsのTabControlは微妙なんだよな VB6は大っキライだけど、その点はSSTaBのがデザインも 操作もしやすかった 33 名前：デフォルトの名無しさん mailto:sage [2012/01/06(金) 00:14:11.32 ] >>32 それはたぶん、TabPageをコンテナとして使わないといけないと思い込んでるだけ。 34 名前：デフォルトの名無しさん mailto:sage [2012/01/07(土) 02:12:54.11 ] フォームに線を引くコントロールが見当たらないんだけど? 35 名前：デフォルトの名無しさん mailto:sage [2012/01/07(土) 02:25:59.44 ] PowerPacksかラベル 36 名前：デフォルトの名無しさん mailto:sage [2012/01/07(土) 07:19:12.70 ] Encodingの指定に書くときの UTF8かUTF-8かutf8かutf-8かいつもわすれちゃうんだけど 37 名前：デフォルトの名無しさん mailto:sage [2012/01/07(土) 07:37:33.32 ] ハイフン無しは論外だけど、大文字小文字の区別はされない。 XMLファイルなら書く必要すらないし。 38 名前：デフォルトの名無しさん mailto:sage [2012/01/07(土) 08:45:50.41 ] Encoding.UTF8 って書くからなあ… 39 名前：デフォルトの名無しさん mailto:sage [2012/01/08(日) 18:51:22.90 ] nyannyan3.minidns.net/up/2012_01_08a-VBNETico.png Form1のアイコンじゃなくてexe自体のアイコンをアプリ実行時に変更するにわ? 40 名前：デフォルトの名無しさん mailto:sage [2012/01/08(日) 18:59:51.48 ] exeファイルのアイコン変更はAPIの範疇になるな。 msdn.microsoft.com/en-us/library/ms648008(VS.85).aspx 「Updating Resources」辺りを.NETで実装すればよろし。 41 名前：デフォルトの名無しさん mailto:sage [2012/01/08(日) 19:24:26.07 ] LINQは勉強しなくても一生なんとかなるかしら 42 名前：デフォルトの名無しさん mailto:sage [2012/01/08(日) 20:16:41.10 ] 自分で同じルーチン作ればやらんでもいいんじゃないのか・・・ 43 名前：デフォルトの名無しさん mailto:sage [2012/01/08(日) 20:30:06.24 ] LINQは高階関数とか拡張メソッドとかが分かってれば基本部分はすぐに分かる。 それこそ1日もかからない位なので、休日に適当な文書読んでね。 44 名前：デフォルトの名無しさん mailto:sage [2012/01/08(日) 21:50:34.48 ] Button1,Button2,Button3 のあるForm1で Form1_Activate のイベントプロシージャ のところに Button3.Focus と書いても アプリ起動直後にButton3にフォーカスが行かないのは仕様なのかい 45 名前：デフォルトの名無しさん mailto:sage [2012/01/08(日) 22:03:11.32 ] うん 46 名前：デフォルトの名無しさん mailto:sage [2012/01/08(日) 22:13:12.19 ] ContainerControl.ActiveControl プロパティ ttp://msdn.microsoft.com/ja-jp/library/system.windows.forms.containercontrol.activecontrol.aspx 47 名前：デフォルトの名無しさん mailto:sage [2012/01/09(月) 02:06:50.19 ] Shownイベントにでも記述してはどうでしょうか 48 名前：デフォルトの名無しさん mailto:sage [2012/01/09(月) 19:20:41.78 ] 1/100で当りを引くプログラムはこれでいいのかしら。 Dim cRandom As New System.Random Dim iR As Integer iR = cRandom.Next(1, 100 + 1) 49 名前：デフォルトの名無しさん mailto:sage [2012/01/09(月) 19:22:05.60 ] Randomは毎回newするもんじゃないぞ 50 名前：デフォルトの名無しさん mailto:sage [2012/01/09(月) 20:10:27.00 ] それだと1〜101になるな。+1は蛇足。 51 名前：デフォルトの名無しさん mailto:sage [2012/01/09(月) 20:18:14.86 ] >>50 なんないよ 52 名前：50 mailto:sage [2012/01/09(月) 21:41:19.25 ] 　　　∧∧ 　　 /⌒ヽ)　うどんで吊ってくる…… 　　i三　∪ 　○三　| 　　(/~∪ 　　三三 　三三 三三三 53 名前：デフォルトの名無しさん mailto:sage [2012/01/10(火) 21:51:58.08 ] Process.Start("ハローワールド.exe",いんすう) ハローワールドアプリのウィンドウを いんすうによって 最小ウィンドウ、最大ウィンドウ、ノーマルウィンドウ に制御することできたっけ? 54 名前：デフォルトの名無しさん mailto:sage [2012/01/10(火) 22:06:26.63 ] い、引数 55 名前：デフォルトの名無しさん mailto:sage [2012/01/10(火) 22:33:45.23 ] マジっぽいから困る 56 名前：デフォルトの名無しさん mailto:sage [2012/01/10(火) 22:44:34.46 ] jeanne.wankuma.com/tips/vb.net/process/startinfo.html 57 名前：重水素 mailto:sage [2012/01/11(水) 13:24:37.05 ] Visual Basic 2010に於いて、データベースアプリの作成に取り組んでいます。 Bindingsourceを基本に組んでいるのですが（一部はSQLを使ってます）、頭の中で流れをイメージで きていないため、構築で困ってる点があります。 ■状況 １．humanテーブルには個人のマスタが入ってます ２．rirekiテーブルには各個人の様々な履歴が入っています ３．Bindingsourceの名前はA.Bindingsourceとします １．のフォームを作り、１．のIDに基づくデータを起動時にA.Bindingsourceに取り込んでDataGridに 表示していますが、色々な理由があって、以下の処理をしたいのです。 １．今表示しているhumanのIDに基づく表示をしたあと、ボタンを押してDatagridに表示中のデータを消去 ２．ある計算結果をそこへ挿入 ３．フォームを閉じる時に、A.Bindingsourceの内容をデータベースに反映（消去を反映し追加を反映） ３．はTableadapter.updateall(me.morimori)でできるので問題にならないと思うのですが、反映した時に、 me.morimoriに入っている消去前のデータは消え、２．のデータが入るのでしょうか？ また、ここが本題なのですが、１．と２．の流れはどのように書いたら良いでしょうか？ 当方、AccessでのDAOしか経験がないため、なかなかに難しくて悩んでます。 58 名前：デフォルトの名無しさん mailto:sage [2012/01/11(水) 13:41:47.29 ] >>26 >>27 Access使いゆえに、MDIはとても馴染みがあるのですが、Single Windowのタブ管理ですか。。。 例えば、images.six.betanews.com/screenshots/1043809773-1.jpg　のような感じで 管理するようなアプリの場合 １．左側のペインはどういうコントロールで実現しているのか？ ２．右側のペインはどういうコントロールで実現しているのか？ が気になります。Visual Basic 2010だとSplitContainerを配置して、それぞれの中にそれぞれPanel をいくつもつくって、小さくして切り替えて表示みたいな感じなんですかね？ ウィザードもどきは自作したのですが、そんな感じで作ったのですが、みなさんどうしてらっしゃるのかなと。 それとも、SplitContainerの中にTabコントロールを入れてるとか？ 59 名前：58 mailto:sage [2012/01/11(水) 13:55:37.52 ] >>27>>31 タブじゃないけれど、形をつくってみたのですが、こんな感じ www.rupan.net/uploader/download/1326257480.jpg 右下のペインの中にいくつものパネルコントロール配置して、左のリストビュー的な何か（ここをどうしたらいいものか） のアクションによって切り替える。 タブだとこの場合うまくない（タブの耳の部分が消せればいいのですが） 60 名前：デフォルトの名無しさん mailto:sage [2012/01/11(水) 14:00:32.74 ] >>59 やりたいことはわからないけどたぶんこれの応用でできると思う。 dobon.net/vb/dotnet/form/formwithinform.html 61 名前：デフォルトの名無しさん mailto:sage [2012/01/11(水) 14:02:46.61 ] >>59 そのパネルは何に使うの？ >>60 それやるぐらいならMDIの方がいいかと 62 名前：デフォルトの名無しさん mailto:sage [2012/01/11(水) 14:13:41.69 ] >>61>>60 このパネルは左側のリストビューのアイコンをクリックした時に表示する項目類を、項目ごと にパネルに納めるものです。 普段はvisibleをfalseにしていますが、右のリストビューのアイコンに応じてtrueにするという やり方です。自分の頭脳ではこれくらいしか、切り替え方法を思いつきませんでした。 なので、みなさんこういうSDIなプログラムで内容切り替えや、例えばウィザードのようなもの ってなんか旨い方法あるのかなぁと。 ※今まではこういうのをAccessの流れもあって、MDIで作ってました。 ※左側のペインのリストビュー的なもの（これは本当はどんなコントロールなのか・・・）には １．設定 ２．マスタ登録 ３．マスタ更新 なんて具合にいくつものアイコンが縦に並んでいてボタンみたいにしたいですね。どうしたら よいのかはわからないのですが。 なんか、綺麗な方法ってあるんですかね？自分で作っていて、すごく力技というかゴリ押し で作ってる感がすごくしていて・・・ 63 名前：58 mailto:sage [2012/01/11(水) 14:15:38.69 ] ちなみに、右側はsplitcontainerの中にさらに縦のsplitcontainer入れてます。 こういうUIの作り方ってやっぱり、汚いやり方になりますか？ Accessのようにサブフォーム（>>60の手法はちょっとアレゲなんですが）が便利 でこういう３ペインも楽チンに作れたのですが。 64 名前：デフォルトの名無しさん mailto:sage [2012/01/11(水) 14:19:51.02 ] >>63 作れるよ だって右下のペイン内にフォームを開けばいいんだから 超楽チンに作れるよ 65 名前：デフォルトの名無しさん mailto:sage [2012/01/11(水) 14:23:03.43 ] >>64 すると、フチなしでアンカー右下ペインにぴったしにハマってくれると。 フォーム単位での項目表示切り替えだと綺麗に管理できそうですが。 66 名前：デフォルトの名無しさん mailto:sage [2012/01/11(水) 14:27:11.00 ] >>65 うん。その通り。 飲み込みが早いすな。 67 名前：デフォルトの名無しさん mailto:sage [2012/01/11(水) 16:36:36.85 ] >>66 ちょっとやってみます。 これなら、パネルコントロールのあれやこれやでやるより、スマートに管理できるかも。 68 名前：デフォルトの名無しさん mailto:sage [2012/01/11(水) 17:47:22.71 ] >>67 かもじゃなく確実にできます。 69 名前：デフォルトの名無しさん mailto:sage [2012/01/11(水) 20:32:07.03 ] 別にSplitContainer重ねるのが悪いとは思わんが？ 普通に5つ6つ重ねるし プログラミングに綺麗も汚いもない｡要は目的が果たせればいい 今動いてるプログラムが良いプログラムだから 70 名前：デフォルトの名無しさん mailto:sage [2012/01/11(水) 22:17:50.43 ] >>68 ありがとうございます >>69 なるほど どうしても慣れない開発環境だと、このやり方でいいのかなと迷うこと山の如しだったのですが、頑張って完成させて見たいと思います。 こういう問題を解決してくれるような虎の巻があったらいいんですけれど。 それでは、また 71 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 06:10:55.82 ] If "メンマ" = "シナチク" Then MsgBox("True") Else MsgBox("False") End If なぜかトルーじゃなくファルスが帰ってきちゃうんだけど 72 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 06:53:49.27 ] 死ね 73 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 07:28:13.92 ] 72が貧乏になるように呪いをかけた 74 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 07:28:57.87 ] 72を毎日しねしねと思うことにした 75 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 07:44:45.46 ] >>71 ja.wikipedia.org/wiki/%E3%83%95%E3%82%A1%E3%83%AB%E3%82%B9_(%E6%80%A7) よかったじゃん。 76 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 07:53:12.03 ] めんまであの花ねたかと思ってしまった俺乙 77 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 09:54:06.17 ] おねてぃ 78 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 10:46:18.24 ] winformで拡大縮小表示機能を持った画面を作れる、.net framework互換ライブラリはありませんか？ WPFをwinformの文法で使えるようにラッピングするライブラリでも良いです。 79 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 14:22:26.38 ] ElementHostじゃだめなんでせう？ 80 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 14:27:12.17 ] コントロールのプロパティやメソッドに互換性がないとダメです… 81 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 16:48:07.54 ] すごいつまらん質問ですまんが、 bit落とした白黒2色bitmap吐き出すには、 自力でヘッダとかつけて吐き出すしかない？ 82 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 21:04:45.14 ] 自分のアプリから他のアプリを ProcessでKillしちゃうと他のアプリのForm Closingイベントとかわ起こらないんでしょ? 起こるように他人を閉じるにはどおすれば 83 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 21:06:16.33 ] >>81 WPFで一発 84 名前：デフォルトの名無しさん mailto:sage [2012/01/13(金) 22:14:39.20 ] こないだからこの気違いは何なの？ 85 名前：デフォルトの名無しさん mailto:sage [2012/01/14(土) 00:04:39.19 ] >>81 Format1bppIndexedのイメージを保存したら勝手になるだろ。 86 名前：デフォルトの名無しさん mailto:sage [2012/01/14(土) 08:14:55.57 ] ボタンに&をただたんに表示には? アンダーバーが付いちゃう 87 名前：デフォルトの名無しさん mailto:sage [2012/01/14(土) 08:24:14.70 ] && 88 名前：デフォルトの名無しさん mailto:sage [2012/01/14(土) 22:52:57.06 ] UseMnemonicプロパティをFalseにするんだ 89 名前：デフォルトの名無しさん mailto:sage [2012/01/14(土) 23:36:56.48 ] SendInputって.netのメソッドなんですか？ 90 名前：デフォルトの名無しさん mailto:sage [2012/01/14(土) 23:39:07.31 ] >>82 CloseMainWindow 91 名前：デフォルトの名無しさん mailto:sage [2012/01/15(日) 00:29:16.55 ] >>89 EnvDTE.CommandWindowインターフェースのメソッドだな。 92 名前：デフォルトの名無しさん [2012/01/15(日) 12:50:01.94 ] webbrowserコントロールで表示されている文字列のみを取得するにはどうすればいいでしょうか 仮にwww.google.co.jpだとすると、 検索 画像 動画 地図 ニュース ショッピング Gmail もっと見る ▼翻訳 書籍 Scholar ブログ ・・・ といった感じです。 htmlソースから取得する方法しか無いでしょうか。 93 名前：デフォルトの名無しさん mailto:sage [2012/01/15(日) 13:18:07.95 ] ウィンナーってのがあるだろ 94 名前：デフォルトの名無しさん [2012/01/15(日) 17:39:56.22 ] >>93 ありがとうございます！ レスを参考にさせていただき、エクセルvbaからクエリで取得するという方法に至りました 本当にありがとうございました 95 名前：デフォルトの名無しさん mailto:sage [2012/01/15(日) 17:41:50.84 ] んな回りくどいことしなくてもDOMのOuterTextで取れるぞ 96 名前：デフォルトの名無しさん [2012/01/15(日) 18:15:25.26 ] ありがとうございました・・・ この四時間の苦労は一体 97 名前：デフォルトの名無しさん mailto:sage [2012/01/16(月) 11:26:50.38 ] 文字列（たとえば住所）のマスキングについて質問です。 全角、半角文字を任意の全角、半角文字（あ,A）に置換したいのですが 一番簡単な方法は何でしょうか？ マスキングしたデータは元に戻せなくて良いのですが 1文字ずつ全角、半角文字を判定しながら置換するしかないですか？ 98 名前：デフォルトの名無しさん mailto:sage [2012/01/16(月) 20:20:24.94 ] 適当な住所を例に、これを、こうしたいと書いてくれ。 99 名前：デフォルトの名無しさん mailto:sage [2012/01/17(火) 02:01:51.64 ] ガチ初心者です。考えすぎて頭が爆発しそうです。 麻雀のシミュレーションソフトを作ろうと試行錯誤しています。 Dim hai(135) As String hai(0) = "萬1" hai(1) = "萬1" hai(2) = "萬1" hai(3) = "萬1" hai(4) = "萬2" ・・略・・ hai(135) = "中" というような配列を作っています。 手牌はDim tehai1, tehai2, tehai3, tehai4, tehai5, tehai6, tehai7, tehai8, tehai9, tehai10, tehai11, tehai12, tehai13 As Stringという風においてあります。 この136個の中からランダムに手牌に13個持ってきてなおかつ1種類の牌につき4つまでしかでないという様に設定するにはどうすれば良いでしょうか。 最終的にtehai1に持ってきた牌を設置してあるボタンtehaib1にテキスト状態で表示させたいです。 Randomize（）を使うのでしょうか？ 100 名前：デフォルトの名無しさん mailto:sage [2012/01/17(火) 03:00:01.23 ] もうひとつシャッフル用の配列（ランダムに並んだ状態の配列）を作って先頭から取り出せばいいだけ。 Fisher?Yates法でシャッフルすればいいよ。 101 名前：デフォルトの名無しさん [2012/01/17(火) 03:00:42.86 ] >>99 もう少し基本的なゲーム作ったほうが結果的に早いと思うけど。といっても聞かないよな。俺も層だった Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' Random クラスの新しいインスタンスを生成する Dim cRandom As New System.Random() Dim unko As Long Dim hai(5) As String hai(0) = "萬1a" hai(1) = "萬1b" hai(2) = "萬1c" hai(3) = "萬1d" hai(4) = "萬2a" ' 0 以上 512 未満の乱数を取得する unko = cRandom.Next(5) tehaib1.Text = hai(unko) End Sub End Class テスト用に5個までで作ったからテキトーに数は変えてね 102 名前：デフォルトの名無しさん mailto:sage [2012/01/17(火) 03:24:54.00 ] >>101 ありがとうございます。もう何日も考え続けて後に引けない状態だったものでorz 助かります。頑張ってみます！ 103 名前：>>99 mailto:sage [2012/01/17(火) 03:46:27.52 ] 何度もすいません。 h = cRandom.Next(135) tehaib1.Text = hai(h) tehaib2.Text = hai(h) tehaib3.Text = hai(h) と繰り返すだけでは手牌が全て同じ牌になってしまうのですが解決策はありませんか・・・orz 前も似たような状態になったときは Dim intResult(16) As Integer Dim cRandom As New System.Random() intResult(0) = cRandom.Next(135) ntResult(1) = cRandom.Next(135)・・・・・ tehai1.text= text(hai(intResult(0))) tehai2.text = text(hai(intResult(1)))・・・・ という様に１つのボタンごとにランダムに取り出すように？して解決したと思ったのですがこの方法だと1種類の牌につき4個までというのがクリアできませんでした。 104 名前：デフォルトの名無しさん mailto:sage [2012/01/17(火) 04:35:41.42 ] >>101　牌が重複しないか？ 105 名前：デフォルトの名無しさん mailto:sage [2012/01/17(火) 05:01:53.70 ] Fisher-Yates法 dobon.net/vb/dotnet/programing/arrayshuffle.html シャッフルする配列の上限が135になっただけ。 （１，２，３，４，５）　をランダムに取り出すのも （３，５，１，３，２）　とランダムに並べ替えて先頭から取り出すのも等価だよ。 106 名前：デフォルトの名無しさん [2012/01/17(火) 05:36:36.89 ] VB2010EEを使っています 正規表現について質問です。 </a>というhtmlタグを空白文字列に置換して削除したいのですがうまくいきません 出てくるパターンは『</a>』『</A>』『</a> 』『</A> 』と四種類です。 大文字か小文字、また">"の後に半角スペースがあるかないかです。 以下だと末尾にスペースがあるものしか置換できません。お助け下さい。 Dim r2 As New System.Text.RegularExpressions.Regex("(</[a|A]> .*?)") TextBox1.Text = r2.Replace(TextBox1.Text, "") 107 名前：106 [2012/01/17(火) 06:55:46.09 ] すいません、ピリオド見落としていました 自己解決しました 108 名前：デフォルトの名無しさん mailto:sage [2012/01/17(火) 18:44:19.72 ] 正しくは　"</[aA]> ?"　だよ。 109 名前：デフォルトの名無しさん mailto:sage [2012/01/17(火) 19:06:25.60 ] '参照する配列 Dim wSt(135) As String Dim wSuji() As String = {"一", "二", "三", "四", "伍", "六", "七", "八", "九"} Dim wHaiji() As String = {"萬", "筒", "索", "東", "南", "西", "北", "白", "發", "中"} Dim wIdx As Integer = -1 For i1 As Integer = 0 To 9 Select Case i1 Case 0 To 2 For i2 As Integer = 0 To 8 For i3 As Integer = 0 To 3 wIdx = wIdx + 1 wSt(wIdx) = wSuji(i2) & wHaiji(i1) Next i3 Next i2 Case Else For i4 As Integer = 0 To 3 wIdx = wIdx + 1 wSt(wIdx) = wHaiji(i1) Next i4 End Select Next i1 110 名前：デフォルトの名無しさん mailto:sage [2012/01/17(火) 19:06:48.67 ] 'シャッフルする配列 Dim ary(135) As Integer '配列の初期化 For ix As Integer = 0 To 135 ary(ix) = ix Next ix 'Fisher-Yatesアルゴリズムでシャッフルする Dim rng As New System.Random() Dim n As Integer = ary.Length While n > 1 n -= 1 Dim k As Integer = rng.Next(n + 1) Dim tmp As Integer = ary(k) ary(k) = ary(n) ary(n) = tmp End While 'テスト　シャッフルの結果を先頭から13個表示 For m As Integer = 0 To 12 MsgBox(wSt(ary(m))) Next m 111 名前：デフォルトの名無しさん [2012/01/17(火) 20:05:50.16 ] DataGridViewがうまく使えません とりあえずDataGridViewを用意し、行を追加するごとに1・2・3・4・5と入れようとしたのですが 最終行に5と入るだけです 何が間違っているのでしょうか For i = 1 To 5 DataGridView1.Rows.Add() DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(0).Value = i Next 112 名前：デフォルトの名無しさん mailto:sage [2012/01/17(火) 20:07:00.32 ] For i = 1 To 5 DataGridView1.Rows.Add() DataGridView1.Rows(i).Cells(0).Value = i Next でよくない？

---

---

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

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