06/08/11 19:40:44
[前スレ]VB.NET質問スレ (Part16)
ｽﾚﾘﾝｸ(tech板)
2:最凶VB厨房
06/08/11 19:47:09
MSDN
URLﾘﾝｸ(msdn2.microsoft.com)
3:最凶VB厨房
06/08/11 19:48:03
どぼん！のVB道のトップページとTipsページ
URLﾘﾝｸ(dobon.net)
URLﾘﾝｸ(dobon.net)
Microsoftクイック スタート チュートリアル
URLﾘﾝｸ(ja.gotdotnet.com)
Insider.NET
URLﾘﾝｸ(www.atmarkit.co.jp)
宇宙仮面の C# プログラミング
URLﾘﾝｸ(ukamen.hp.infoseek.co.jp)
.NET のつぼ
URLﾘﾝｸ(park16.wakwak.com)
.NET TIPS
URLﾘﾝｸ(www.atmarkit.co.jp)
緑のバイク ★ 初めてのC# プログラム全般
URLﾘﾝｸ(homepage3.nifty.com)
VB.NETとC#でデザインパターン
URLﾘﾝｸ(hccweb1.bai.ne.jp)
匣の向こう側
URLﾘﾝｸ(www.ne.jp)
WisdomSoft
URLﾘﾝｸ(wisdom.sakura.ne.jp)
じゃんぬねっと
URLﾘﾝｸ(jeanne.wankuma.com)
どっとねっとふぁん - C# Tips And Samples -
URLﾘﾝｸ(homepage3.nifty.com)
C#プログラミングTips
URLﾘﾝｸ(www.atmarkit.co.jp)
CodeProject
URLﾘﾝｸ(www.codeproject.com)
4:最凶VB厨房
06/08/11 19:48:37
the GotDotNet Home Page
URLﾘﾝｸ(www.gotdotnet.com)
KEN's .NET
URLﾘﾝｸ(www5b.biglobe.ne.jp)
Cetus Links: 19,498 Links on Objects and Components / .NET
URLﾘﾝｸ(www.cetus-links.org)
HIRO's.NET
URLﾘﾝｸ(vbdotnet.fc2web.com)
＠IT：特集 .NET開発者のためのオンライン・リソース・ガイド
URLﾘﾝｸ(www.atmarkit.co.jp)
.NETでいきまっしょい！
URLﾘﾝｸ(santamartadotnet.hp.infoseek.co.jp)
これがほしかった！厳選サンプルツール集
URLﾘﾝｸ(anetm.com)
ぬーやんのdotNET講座
URLﾘﾝｸ(www.geocities.jp)
PINVOKE.NET
URLﾘﾝｸ(www.pinvoke.net)
WinAPI Database for VB Programmer
URLﾘﾝｸ(www.geocities.co.jp)
Windows Api programming in C# , VB.NET, and VB6. Examples of P/Invoke and DllImport with Source code
URLﾘﾝｸ(custom.programming-in.net)
5:最凶VB厨房
06/08/11 19:49:29
ConvertCSharp2VB
URLﾘﾝｸ(www.kamalpatel.net)
＠IT：.NET Tools
URLﾘﾝｸ(www.atmarkit.co.jp)
SharpLibrary Redirector
URLﾘﾝｸ(www.sharplibrary.com)
MSDN アカデミック アライアンス 技術資料
URLﾘﾝｸ(www.microsoft.com)
「300 秒でズバリ !!」&「10 行でズバリ !!」シリーズ
URLﾘﾝｸ(www.microsoft.com)
PAPA'n VB
URLﾘﾝｸ(www.mitene.or.jp)
VB レスキュー花ちゃん
URLﾘﾝｸ(www.bcap.co.jp)
（Java覚え書き）デザインパターンあれこれ
URLﾘﾝｸ(www.dmz.hitachi-sk.co.jp)
algorithm
URLﾘﾝｸ(www.mnet.ne.jp)
ラムダ計算入門
URLﾘﾝｸ(www.kb.ecei.tohoku.ac.jp)
数値計算の基礎
URLﾘﾝｸ(www7.ocn.ne.jp)
6:最凶VB厨房
06/08/11 19:53:21
テンプレ 完
7:デフォルトの名無しさん
06/08/11 20:27:14
>6
乙
8:デフォルトの名無しさん
06/08/11 22:04:48
次スレから翔泳社のCodeZineもテンプレにいれてやろうよ
URLﾘﾝｸ(codezine.jp)
で、質問。
2003のWindows FormでLocalizable = Trueにして多言語アプリ作ってるとき、
Languageで間違った言語を選択しちゃうとその言語用のリソースがbinフォルダなんかに
生成されると思うんだけど、これが削除してもしつこく復活してきやがります。
なにかこの不要なリソースが生成されなくなるようにする方法ってないかな？
9:デフォルトの名無しさん
06/08/11 23:00:03
vbproj ファイルのそのカルチャ文字列調べて要素を消してみたらどうだ
10:8
06/08/11 23:28:34
>>9
うーん、やっぱりそういう泥臭い方法になっちゃうんですかね。
しかるべき方法が用意されてて当然のような気もするんですが。
11:デフォルトの名無しさん
06/08/12 23:29:44
質問です。
form間でのDataSetの値渡しがしたいです。
ただ、他画面起動時に渡すのではなく、テキストボックスに書き込まれた後で、
つまりChangeイベントで渡したいのですが、いい方法ないでしょうか？
12:デフォルトの名無しさん
06/08/12 23:37:08
はぁ？
むしろ何がわかんねえのかわかんね。
だからChangedイベントで渡せよw
13:デフォルトの名無しさん
06/08/13 01:07:18
１１はFORM間でデータをやり取りする方法がわからないのか？
14:デフォルトの名無しさん
06/08/13 01:44:21
悪いことは言わんからDatasetみたいなデカイもんは参照にしとけって。
15:デフォルトの名無しさん
06/08/13 04:01:28
むしろどうやって参照以外にするというのか
リモーティング？
16:デフォルトの名無しさん
06/08/13 09:57:13
vb.net 2005 です。
textbox の validated で、button の click イベントを実行したくて、
button. PerformClick() と書いたのですが、click が発生しません。
textbox の leave イベントで button. PerformClick() を呼んだ時は
button の click が発生しました。
validated で button. PerformClick() は実行できないのでしょうか？
なにか方法があればアドバイスよろしくお願いします。
17:デフォルトの名無しさん
06/08/13 13:35:16
.net 2.0 SDKをインストールしてから時々Explorerなどを起動中にJUST-TIME-INデバッガのエラーが起動してExplorerが落とされる事があるのですが
このJUST-TIME-INデバッガをSDKインストール前のように起動しなくなるようにするにはどうすればいいのでしょうか？
SDKをアンインストールしてもエラーは出てしまいます・・。
ちなみに他のアプリも落とされる事があります＾＾；
18:デフォルトの名無しさん
06/08/13 14:17:51
vbと関係ないし。
エラーがでる元から断たなきゃ
19:デフォルトの名無しさん
06/08/13 14:27:22
>>18
エラーを出ないようにする ×
JITを削除する ○
JITがあるといろんなアプリでデバッガ起動しようとして落とされるのは良くあること
20:デフォルトの名無しさん
06/08/13 22:34:14
form間の値渡しって、
（Ｂ画面にて）
public A as formA = new fromA
A.label.text = "１１１"
って、newする方法以外、何かありますか？
あまり、newしたくありません。
21:デフォルトの名無しさん
06/08/13 22:53:33
いやだから、そういうレベルの人はこんなところで質問してる場合じゃないよ。
まずは大人しく本でも読めよ。
22:デフォルトの名無しさん
06/08/13 22:57:21
>>21
教えてやれよ。
すまんな。俺、コボル専門だから、わかんねーや。
23:デフォルトの名無しさん
06/08/13 23:03:44
>>20
newする方法以外って言われても、それ値渡ってないし。
あなたが渡したいのは『すでにある』FormAのインスタンスに、でしょ?
そのコードは新しく作った『別の』FormAのインスタンスに渡してるんでしょうが。
まあフォートラン専門のおれに言えるのはここまでだ
24:デフォルトの名無しさん
06/08/13 23:04:15
FormをPublicにしちまえよ
25:デフォルトの名無しさん
06/08/13 23:20:15
大域変数を使えばいいじゃない。
26:デフォルトの名無しさん
06/08/13 23:21:57
そもそもForm間で渡す設計が悪い
それぞれのFormからメソッドを呼び出すようにそろ
27:デフォルトの名無しさん
06/08/13 23:26:46
>>20
URLﾘﾝｸ(dobon.net)
まずはここ見て、自分の好みにあったやり方を探しておくれ。
28:デフォルトの名無しさん
06/08/13 23:34:36
そうやって基礎もろくに覚えてないうちから対処療養的なことを教えるから
理屈もわからずサンプルコードをコピペしまくる「VB厨」が生まれるんだけどね。
親切なことしたつもりなのは「教えたがり」の本人だけで、実際には相手に
毒を盛ってるのと同じだと俺は思うがね。
29:デフォルトの名無しさん
06/08/13 23:37:34
どこからどこまでが基礎なんだろうなぁ
30:デフォルトの名無しさん
06/08/13 23:41:16
悪魔のささやきとしては、Formはすべて暗黙のインスタンスを使う（笑
31:デフォルトの名無しさん
06/08/14 00:20:15
×暗黙のインスタンス
○暗黒のインスタンス
32:最凶VB厨房
06/08/14 10:01:59
理屈もわからずサンプルコードをコピペしまくって
いまだに基礎がわかっていないVB厨の俺が来ましたよ。←帰れ
33:デフォルトの名無しさん
06/08/14 11:01:12
SCSIといっしょで、理屈に合ってなくても動いていればそれで良し。
34:デフォルトの名無しさん
06/08/14 15:06:06
あまりnewしたくないって
新鮮な発想だ。
35:デフォルトの名無しさん
06/08/14 15:47:40
たしかにあまりnewしたくないなぁ
36:デフォルトの名無しさん
06/08/14 17:30:04
うちなんてコンストラクタ使用禁止だ
37:最凶VB厨房
06/08/14 17:34:51
コンストラクタ使用禁止って･･･
虐待やな。
38:デフォルトの名無しさん
06/08/16 02:30:00
構造体の内容をそのままファイルに書き込むにはどうすればいいですか？
39:最凶VB厨房
06/08/16 02:42:56
BinaryFormatter使ってみるのはどうだ？
40:デフォルトの名無しさん
06/08/16 02:51:08
人間に読めるほうがいい→XMLにシリアライズ
人間に読めなくてもいい→BinaryFormatterでシリアライズ
41:デフォルトの名無しさん
06/08/16 09:58:36
リストビューについてですが選択行が変わったイベント
SelectedIndexChangedはありますが
選択行が変わるよイベントが見つからないのですが
そのようなイベントは無いのでしょうか？
42:デフォルトの名無しさん
06/08/16 10:38:28
あまりニューしたくないって理屈は何だ？
43:デフォルトの名無しさん
06/08/16 11:09:04
それよりもファイルが1000個あるフォルダでCtrl+AするとSelectedIndexChangedイベントが
1000回起きるのがイヤだ
そりゃSelectedIndexChangingだろ…
44:デフォルトの名無しさん
06/08/16 18:08:16
VB.NETです
Formを開いた後に実行されるイベントはあるでしょうか？
ゲームを作っているのですがLoadが終わったあとにビジーループさせたいのです
（Loadイベントでビジーループさせるとフォームが開かない）
45:デフォルトの名無しさん
06/08/16 18:09:05
Shown
46:44
06/08/16 21:30:26
>>45
すいません、見当たらないです……
47:デフォルトの名無しさん
06/08/16 21:33:22
shownは.NET Framework 2.0からだからね。
48:デフォルトの名無しさん
06/08/16 21:43:52
>>Loadが終わったあとにビジーループ
っつーのを、もうちょっと詳しく。
49:デフォルトの名無しさん
06/08/16 21:57:11
質問です。助けてください。
自分で作成したDatasetとスプレッドシートをバインドさせたいのですが
出来ません。
データグリッドみたいにバインド出来ると、思ってたのですが、無理でした。
スプレッドシートは初めて使うので、全くわかりません。
教えていただけるのが、一番嬉しいのですが、
駄目なら、この本を読めとか、このサイトを見ろとか、ヒントを下さい。
50:デフォルトの名無しさん
06/08/16 21:59:31
スプレッドシートって何だよ？
サードパーティー製ならそこに聞け
51:デフォルトの名無しさん
06/08/16 22:01:43
>>50さんへ
VB.NETのコンポーネントタブに入ってる、コントロールです。
エクセルみたいな感じのヤツです。
52:デフォルトの名無しさん
06/08/16 22:17:24
だから標準でそんなコントロール付いてないってば
53:デフォルトの名無しさん
06/08/16 22:18:18
ていうか何故正式名称を出さないんだ？
54:デフォルトの名無しさん
06/08/16 22:26:27
>>51
マウスポインタをコンポーネントタブの該当コントロールに当てて、
ちょっと待ったら出てくるツールチップに書いてある名称を一言一句
間違いなく書き出すんだ。
55:デフォルトの名無しさん
06/08/17 00:03:39
本当だ。
付いてない。
家で試したら無かったです。
でも、職場でダウンロードもインストもした記憶がないのですが・・・
サードパーティー製スレに行ってきます。
56:デフォルトの名無しさん
06/08/17 00:12:59
そんなスレあるの？
メーカーに聞けという意味で言ったんだけどｗ
57:デフォルトの名無しさん
06/08/17 12:11:14
datagridに書き込んだデータをExcelのシートに流し込んでExcelの機能を使って印刷
するソフトを作ったのですが、Datagridの中に特定の文字列が書き込まれているとき、
Excelに流し込む文字列を変更することは出来ないでしょうか？
ちょっと分かりにくいのですが、
Datagridにkm3と書き込まれたとき、3をExcelの文字飾り上付きにしたいのです。
(要するにkm3では無く立方キロメートルの単位にしたい)
どうやったらいいのかが全く分かりません。
実現可能であれば方法を御教授願います。
58:デフォルトの名無しさん
06/08/17 13:26:00
>57
ExcelのVBAでやれば済むのでは？
59:デフォルトの名無しさん
06/08/17 15:05:31
>>58
MySQLと連動させているのでVBAでやるのは難しいと思うのです。
作ったアプリでMySQLにデータを入力しつつExcelで作ってある
フォーマットに出力という形です。
60:デフォルトの名無しさん
06/08/17 15:20:17
>>59
なんで？
VBAからODBC経由でもつながるし。頑張れば.net側からExcelVBAの関数呼べるだろうし。
61:デフォルトの名無しさん
06/08/17 16:00:18
Excelオブジェクト作れば大体の制御は出来るよね
62:デフォルトの名無しさん
06/08/17 16:10:13
>>60
もう作ったソフトがあるのでそれを改良する方向にしたいのです。
>>61
Excelオブジェクトを作って書き込んでいると思います。
Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oRng As Excel.Range
って奴ですよね？
63:デフォルトの名無しさん
06/08/17 16:11:51
書き込むだけじゃなく、VBAの呼び出しも出来ると思うが。
それに、Excel操作の基本は、マクロで記録して、それをぱくるですよ。
64:デフォルトの名無しさん
06/08/17 16:40:15
VB.NET 2005 ExpressEditionをセットアップ実行中に、
.NET 2.0 日本語Language Pack のインスコ途中で、
文字化けのメッセージで error 1324とかでるのですが、
こいつの原因および対処方法はどうしたらよいでしょうか？
あと.NET FrameWork 1.1関係も再セットアップやアンインスコしようとすると
同じエラーが出ます。ボスケテ。
65:デフォルトの名無しさん
06/08/17 17:39:33
HDDをハンマーで叩き割る。
66:デフォルトの名無しさん
06/08/17 18:43:12
>>63
つまりExcelでVBAを吐かせてそれをプログラムに組み込むって事ですか？
(なかなか上手く行かない～)
67:デフォルトの名無しさん
06/08/17 18:45:05
.NETフレームワーク1.0で動作しているアプリケーションは2.0でも正常に動作するのでしょうか？
68:デフォルトの名無しさん
06/08/17 18:50:09
するかもしれないし、しないかもしれない。
でも、だいたいはする。
69:64
06/08/17 19:18:55
スマン自己解決できた、
AppLocaleの一時ファイル（apploc.tmp）のせいで文字化けしていた。
・問題点
AppLocaleを使って中国語等のソフトを使用・インストール・アンインストールした後、
日本語のソフトをインストールしようとするとインストール画面が文字化けすることがあります。
Windows Installerを使用するソフトやOfficeセットアップで発生します。
・原因
AppLocaleの一時ファイル（apploc.tmp）が、Windows Installerに影響を与えているようです。
・解決方法 （ファイルを書き換え、読み取り専用にする）
１：メモ帳で「c:\windows\apppatch」にあるapploc.tmpを指定して開きます。
ファイルの種類を「すべてのファイル」にしないと見えませんから注意してください。
２：メモ帳で開くと「・・ 」のようなものが見えますから、これを全部消して、上書き保存してからメモ帳を終了します。
３：「c:\windows\apppatch」にあるapploc.tmpを右クリックして、プロパティを出し、「読み取り専用」にチェックを入れます。これでOKです。
70:デフォルトの名無しさん
06/08/17 20:54:53
大きなチラシが必要だな
71:デフォルトの名無しさん
06/08/17 23:06:37
>>66
よくわかんないけど、今あるExcelファイルにデータはき出すのでないの？
なら、普通にthisworkbook.load(だっけか？）でいいのでは？？
新規作成なら、また別のお話で。（でもどのみちVBAかと）
72:66
06/08/18 10:16:11
>>71
今はVB.net2003で作ったアプリでMySQLとExcelを使ってます。
伝票を作るアプリで、DataGridが配置されています。
そのDataGridに書き込んだデータを定型フォーマットとして作られた
Excelのシートに流し込んで印刷というものです。
要はデータ管理はMySQL、印刷のみExcelでそれを操作するために
VBでアプリを作ったのですが、DataGridに書き込んだ文字列はその
ままExcelに送られて印刷するだけなので体積や回転速度の単位を
表すことが出来ないのです(DataGrid上ではm3やmin-1としか表記
出来ないが、印刷のときこのまま印刷ではなく、この場合の3と-1は
右上に小さく出したい）。
使う単位はm3とmin-1しかないので、Excelにデータを送る直前に
文字列検索を掛けてm3やmin-1とあったときのみこの3と-1を文字飾り
上付きにしてExcelに送りたいのです。
73:デフォルトの名無しさん
06/08/18 10:55:39
>>72
VB2005+Excel2003でとりあえず動くコンソールアプリのサンプル(多分VB2003でも動くはず）
COMの解放とかやってないけどその辺は気にしないように
Imports Microsoft.Office.Interop
Module Module1
Sub Main()
Dim app As Excel.Application = New Excel.Application()
Dim wbk As Excel.Workbook = app.Workbooks.Add()
Dim wst As Excel.Worksheet = DirectCast(wbk.Worksheets(1), Excel.Worksheet)
Dim r1 As Excel.Range = wst.Range("A1")
r1.Value = "100m3"
r1.Characters(CStr(r1.Value).Length).Font.Superscript = True
Dim r2 As Excel.Range = wst.Range("B1")
r2.Value = "10min-1"
r2.Characters(CStr(r2.Value).Length - 1).Font.Superscript = True
app.Visible = True
End Sub
End Module
74:72
06/08/18 11:39:51
>>73
これって
r2.Characters(CStr(r2.Value).Length - 1).Font.Superscript = True
の部分で-1を文字飾り上付きにしてると理解したつもりだけど、
DataGridに
5-10kw 20min-1
ってあった場合、5-10kwの部分にある-1も小さくなりますか？
75:デフォルトの名無しさん
06/08/18 11:43:01
ｳﾎﾞｧ('A`)
76:デフォルトの名無しさん
06/08/18 11:46:00
>>74
サンプルをアレンジすることなくそのまま使う気か？
自分でデバッグする気もないのか？
77:73
06/08/18 11:55:39
>>74
セルの文字列の右から2文字を上付きにするというコードです。
DataGridからExcelにどうやって編集してるか分からないので
あなたの質問には答えられません。
78:74
06/08/18 12:12:25
>>76
いや どうやってmin-1とほかの-1を区別しようか考え中です。
今のところは
１、min-1をReplaceで絶対使わないであろう文字列(仮にX）にする
２、-1をReplaceで絶対使わないであろう文字列(仮にY)にする
３、XをReplaceでmin-1に戻す
４、-１をSuperscriptで小さくする
５、YをReplaceで-1に戻す
でいいのかなと考えてるところです。
>>７７
右から2文字を上付きにするコードとありますがその2文字を指定している
部分が見当たらない(上手く探せないだけだと思いますが)ので考えたのです。
単位が出るのは確実に右端なのでこのままで良いと思いますが、折角なので
色々試してみようかなと思います。
79:デフォルトの名無しさん
06/08/18 12:16:18
>>78
> でいいのかなと考えてるところです。
なら>>74みたいなことまで聞くなよ('A`)
80:78
06/08/18 12:23:40
>>79
脊椎反射で書き込んだ。
今は反省している。
てかその顔いいな。
私は好きです。>('A`)
81:デフォルトの名無しさん
06/08/18 12:26:50
>右から2文字を上付きにするコードとありますがその2文字を指定している
>部分が見当たらない
ｳﾎﾞｧ('A`)
82:デフォルトの名無しさん
06/08/18 12:27:00
システム屋には向かん性質だな。
転職考えなよ。
83:デフォルトの名無しさん
06/08/18 14:03:20
r2.Characters(CStr(r2.Value).Length - 1).Font.Superscript = True
の.Length - 1← この-1はmin-1の-1と勘違いしていた。
絶対にmin-1は右端だと思っていたら
10min-1 200V
(40min-1) とかいろんなパターンを見つけちゃったのでこれから
min-1の位置を正確に割り出す方法を考えます。
みんなサンクス。
84:デフォルトの名無しさん
06/08/18 18:51:28
Label1とLabel2に
タイマーを使った乱数のスロットの値aとbを表示するプログラムを作ったのですが
Label1とLabel2に表示された値が同じ（a=b）だった時に、また自動的に選び直すようにしたいのに
Do until（a<>b）文にInt関数を挟んでも、
それらをIf（a=b）文で挟んでも、選び直してくれません。
タイマーのスタートとストップをInt関数のかわりに二段並べて記述しても、当然の事ながらうまくいきませんでした。
どうすれば良いのかどうかお知恵をお貸し下さい。
85:デフォルトの名無しさん
06/08/18 19:11:40
>>84
そういうエスパー向きの質問はムーにでも投稿しろよ。
誰がそんな文章読んで理解できるんだよアホか
86:デフォルトの名無しさん
06/08/18 19:56:08
>>84
コードを全部貼れ。
話はそれからだ。
87:デフォルトの名無しさん
06/08/18 21:44:05
想像されるコード
If(a=b)Then
Do Until (a<>b)
Int()
Timer1.Start
Timer1.Stop
Loop
EndIf
88:84
06/08/19 05:34:58
>85>86
ドコで聞けば良いでしょうか？
>87
そうなんです！
Label1=Int（ランダム）
Label2=Int（ランダム）
もしくは
Timer1=true
Timer2=true
Timer1=false
Timer2=false
のどちらかをDo until文の中に記述したんです。
どなたか、助けて下さい!!
89:デフォルトの名無しさん
06/08/19 07:35:14
>>88
ヒント : Do ～ Loop Until(While)
90:88
06/08/19 09:31:23
>89
ありがとうございます！
来週始めに学校に行った時に試してみます。
91:デフォルトの名無しさん
06/08/19 12:31:53
VB.net Express Edition で発行した際のインストール先について教えてください。
インストール環境 XP .NetFramework2.0
1)発行で作成したsetup.exeでXPのマシンにインストールする場合
インストール先はユーザーから選択することはできないのでしょうか？
（インストールしたユーザーのMyDocuments以下のLocal Settings\Apps\2.0\に作成されます）
インストール時にユーザーがフォルダを選択できるのがベストです。
2)XPでAdministrator権限のユーザーがインストールした場合でも
そのユーザーしか使用できません。他に何か設定する必要がありますか？
VB.netでの開発が初で面食らっております。なにとぞよろしくです。
92:デフォルトの名無しさん
06/08/19 13:02:39
>>91
ClickOnceとはそういうもの。
普通のセットアップが作りたければStandard以上が必要。
93:デフォルトの名無しさん
06/08/19 13:15:06
>>92
なるほど、そうでしたか。
早速の回答どうもありがとうございました。
94:デフォルトの名無しさん
06/08/21 13:06:44
VB.NET2005で質問です
DayOfWeekで曜日の番号を取得した後
それを日本語名の曜日名に変換するにはどうすればいいでしょうか？
だｙOfWeekの結果=0
の場合
”日” または ”日曜日”
を取得したいのです。
日付から曜日は検索しても出てくるのですが
しつもんのは内容の見受けられませんでした。
ご存知の方よろしくお願いいたします。
95:デフォルトの名無しさん
06/08/21 13:10:23
自作汁
96:デフォルトの名無しさん
06/08/21 13:22:32
>>94
enum DayOfWeekJP
{
日曜日,
月曜日,
火曜日,
水曜日,
木曜日,
金曜日,
土曜日
}
97:デフォルトの名無しさん
06/08/21 13:36:39
>>94
For d As DayOfWeek = DayOfWeek.Sunday To DayOfWeek.Saturday
Console.WriteLine(System.Globalization.DateTimeFormatInfo.CurrentInfo.GetDayName(d))
Next
98:97
06/08/21 13:48:11
短い方が欲しければGetAbbreviatedDayName(d)
99:84
06/08/21 14:09:52
以前に>84で質問を致しまして、このスレで教えていただいた方法を試してはみたのですが、なかなかうまくいかないので、どなたか助けていただけないでしょうか…？
以下に、参照用としてコードを記入しておきます。
Timer1_Tick
Label2.Text = Int((52 * Rnd()) + 1)
Label3.Text = Int((52 * Rnd()) + 1)
Button1.Click
Timer1.Enabled = True
Button2_Click
Timer1.Enabled = False
a = Val(Label2.Text)
b = Val(Label3.Text)
Do
Label2.Text = Int((52 * Rnd()) + 1)
Label3.Text = Int((52 * Rnd()) + 1)
Loop Until a <> b
100:デフォルトの名無しさん
06/08/21 14:18:40
>>99
すまんが、何がやりたいのかもっとまとめてくれないか？
１、Button1でタイマースタート。乱数表示開始。
２、Button2でタイマーストップ。表示されている乱数をa,bに代入。
３、‥‥
みたいな感じで、箇条書き＆時系列に沿って書き出してみてくれ。
101:デフォルトの名無しさん
06/08/21 14:31:37
>>99
Button2_Click
Timer1.Enabled = False
Do Until Label2.Text <> Label3.Text
Label2.Text = Int((52 * Rnd()) + 1) 'こっちはいらない気もする
Label3.Text = Int((52 * Rnd()) + 1)
Loop
でいいんじゃねえの？
102:デフォルトの名無しさん
06/08/21 14:43:29
>>96
トンクス！
まさにこれが欲しかった
開始番号の都合で1ほど数値をずらさないといけないけど問題ないようです。
DateTimeとは違ってこっちにあるのか･････
ありがとうございました！
103:97
06/08/21 14:48:20
>>102
え、そっちかよｗ
104:デフォルトの名無しさん
06/08/21 15:06:16
ﾜﾛﾀw
105:デフォルトの名無しさん
06/08/21 15:44:56
>>103
質問が悪かったと思うとです。
System.Globalization.DateTimeFormatInfo.CurrentInfo.GetDayName()
↑これなら基本的にある日付からDayOfWeekで取れる番号（または、範囲内の番号）で処理できるじゃないですか？
本来 日付型.String("ddd")とかでも取れるんですが、条件的に日付だけではなく曜日番号からも取得したかったんです。
で曜日の取得名もフォーマットを変更すれば可能だし、これがいいかな？っと思ったわけです(；´Д｀)
＋フレームワークの機能だけで出来るだけ行いたかったということもあります。
か・・・肩透かしでごめんなさいorz
106:97
06/08/21 16:02:21
いや、enum(>>96)使うのかよ、というツッコミだったんだがｗ
107:デフォルトの名無しさん
06/08/21 16:10:55
うぉ！！
そういうことか～！！！！orz
書き間違えてたとは・・・・
おれ自身も苦笑ozr
108:99
06/08/21 16:43:18
>100
お騒がせしました。
>101
どちらか片方で良いとは思って片方だけを記述したりしても何もならなかったのですが、その記述の仕方はなるほどです…今度試してみます。ありがとうございました！
109:デフォルトの名無しさん
06/08/21 17:45:05
>>108
結局何がやりたかったのか誰もわからないままでいいのか
110:デフォルトの名無しさん
06/08/21 18:17:48
>>99
>>Loop Until a <> b
参照型じゃないんだから、これじゃまずいのでは？
aとbの値は変わってないし。↓
>>Do
>> Label2.Text = Int((52 * Rnd()) + 1)
>> Label3.Text = Int((52 * Rnd()) + 1)
>>Loop Until a <> b
111:デフォルトの名無しさん
06/08/21 18:27:09
てか、このスレでやることか？
112:89
06/08/21 20:07:04
>>99
すまん、そういうことか
てっきりTimer1_Tickの中で選びなおすのかと思ってた
113:デフォルトの名無しさん
06/08/22 15:34:12
VB2005です
同じ種類の繰り返し文ネストから脱出するときはどうすればいいんでしょうか？
do
do
if a=b
exit do
loop
loop
これで一番外まで出られますか？
114:デフォルトの名無しさん
06/08/22 15:49:21
なあ、この板にはVB初心者スレとかVB質問スレとか無いのか？
115:デフォルトの名無しさん
06/08/22 15:50:01
>>114
質問スレはここだと思うぞｗ
116:108
06/08/22 15:56:59
>109-112
１、Button1でタイマースタート。 Label2,Label3に乱数表示開始。
２、Button2でタイマーストップ。Label2,Label3に表示されている乱数をa,bに数値として代入する。
３、a,bが同じ数であった場合のみ、再度、自動的に選び直させてLabel2,Label3に表示させる。
明らかに滅茶苦茶かもしれませんが、以下を試しても無理でした。
Do
Timer1.Enabled = True
If Timer1.Enabled = True Then
Timer1.Enabled = False
End If
Loop Until a <> b
a,bの値が変わってないと仰るのも、どうしてであるのかよくわからないので、是非ともご教授下さい。
そして、スレ違いのようですので、然るべきスレへのご誘導も宜しくお願いします…
117:デフォルトの名無しさん
06/08/22 16:17:25
>>116
Rnd()のシードが変わらないからずっと同じ値が帰って来てるんじゃないの?
118:デフォルトの名無しさん
06/08/22 16:22:34
>>116
ここでいい。
ここがお前様を立派な(?)プログラマにしてくれる(はず)。
・・・ところで試さずに聞くけど乱数ってちゃんと違うものになるか？
シード値とか無いと同じタイミングで作られた乱数って同じになるような無いような・・・。
まぁお前様よりドヘタレな俺の与太だから忘れてくれ。
119:デフォルトの名無しさん
06/08/22 16:29:09
> Timer1.Enabled = True
> If Timer1.Enabled = True Then
んと
120:デフォルトの名無しさん
06/08/22 16:52:46
>>116
初めにそれを書けばすぐ解決してたぞ
Private Sub Button1_Click()
Timer1.Enabled = True
End Sub
Private Sub Button2_Click()
If Label1.Text <> Label2.Text Then
Timer1.Enabled = False
End If
End Sub
Private Sub Timer1_Tick()
Label1.Text = CInt(Rnd() * 52)
Label2.Text = CInt(Rnd() * 52)
End Sub
121:デフォルトの名無しさん
06/08/22 17:00:41
> ３、a,bが同じ数であった場合のみ、再度、自動的に選び直させてLabel2,Label3に表示させる。
は、そういう意味なの？
122:113
06/08/22 17:14:49
質問が意味不明ですか？
それともアホすぎる質問なのかな･･･
123:デフォルトの名無しさん
06/08/22 17:16:51
>>113は乱数君と同一人物？
124:デフォルトの名無しさん
06/08/22 17:19:25
>>122 素直に こうしとけば？
do
do
loop until a=b
loop until a=b
125:113
06/08/22 17:50:58
なんだか自分でもわけわからなくなってきたので出直します。
>>123
いや今日から始めたので違います。
126:デフォルトの名無しさん
06/08/22 18:08:58
>>121
確かにそこを正確に説明しないと伝わらない
127:116
06/08/22 18:35:21
>117
是非に、詳しい具体策をお教え下さい！
>120
コードを書き直して、Int→CIntにもしましたが、同じ数が表示されて思うようにはなりませんでした…
３、a,bが同じ数であった場合のみ、再度、自動的に選び直させてLabel2,Label3に表示させる。
というのは、単に、結果としてLabel2とLabel3に表示されている数が異なれば良いんです。助けてください…
128:デフォルトの名無しさん
06/08/22 19:39:21
>>127
>>101では駄目なの？
129:116
06/08/22 19:45:42
>118
忘れてました…
ちゃんと違う値になる事の方が多いですが、デバックモードはコンピュータがあらゆる場合を試そうと判断しているのか、数回繰り返しているだけで２数が一致したりします（一致するのは1/52の確率です）。
130:デフォルトの名無しさん
06/08/22 19:52:29
「はぁ～ ﾌﾟｯﾌﾟｸﾌﾟ～ッ ♪」
∧＿∧ ∧＿∧ ∧＿∧
（・ ε ・） （・ ε ・） （・ ε ・）
⊂ つ ⊂ つ ⊂ つ
（＿）`Ｊ （＿）`Ｊ （＿）`Ｊ
「やれ ﾌﾟｯﾌﾟｸﾌﾟ～ ♪」
∧＿∧ .∧＿∧ ∧＿∧
∩ ・ε・ ∩ ∩ ・ε・ ∩ ∩ ・ε・∩
〉 ノ 〉 ノ 〉 ノ
し´ （＿） し´ （＿） し´ （＿）
「 アキヒロ～音頭で ﾌﾟｯﾌﾟｸﾌﾟｰの ﾌﾟ♪」
∧＿∧ ∧＿∧ ∧＿∧
（・ ε ・） （・ ε ・） （・ ε ・）
⊂ つ ⊂ つ ⊂ つ
（＿）`Ｊ （＿）`Ｊ （＿）`Ｊ
131:デフォルトの名無しさん
06/08/22 20:33:37
>>116
>>a,bの値が変わってないと仰るのも、どうしてであるのか
aとbは値型でしょ？
参照型ではないから
>>Do
>> Label2.Text = Int((52 * Rnd()) + 1)
>> Label3.Text = Int((52 * Rnd()) + 1)
>>Loop Until a <> b
これでは、Label2.TextとLabel3.Textの値は変わるけどaとbの値に変動はないんだから、永遠ループに入ると思うんだが。
132:116,127
06/08/22 21:11:22
>128
>101でもダメでした…
>131
Do
Label2.Text = Int((52 * Rnd()) + 1)
Label3.Text = Int((52 * Rnd()) + 1)
a=Val(Label2.Text)
b=Val(Label3.Text)
Loop Until a <> b
もしくは
Do
Label2.Text = Int((52 * Rnd()) + 1)
Label3.Text = Int((52 * Rnd()) + 1)
a=Str(Label2.Text)
b=Str(Label3.Text)
Loop Until a <> b
としてみます。
ありがとうございます！
133:デフォルトの名無しさん
06/08/22 21:27:46
それよりも、何でラベルのテキストを変更してからそれを変数に取ろうとするの？
普通変数に受けてそれをコントロールに落とそうとしない？
オレはコントロールはあくまで人間とのインターフェースだと思ってるけどな
134:デフォルトの名無しさん
06/08/22 21:36:29
それよりも彼の場合まずロジックを考えられるようになる方が先決。
135:デフォルトの名無しさん
06/08/22 21:48:05
ちょっとした疑問なんだが、
>>Do
>>Label2.Text = Int((52 * Rnd()) + 1)
>>Label3.Text = Int((52 * Rnd()) + 1)
>>a=Str(Label2.Text)
>>b=Str(Label3.Text)
>>Loop Until a <> b
タイマーで乱数まわす意味あるのか？
シード設定もしてないようだし。
136:デフォルトの名無しさん
06/08/22 22:07:42
そもそも>>120でやっても
>>127
> コードを書き直して、Int→CIntにもしましたが、同じ数が表示されて思うようにはなりませんでした…
と、「同じ数が表示された」ってことなんだから、何か根本的に間違ってる/理解していないと思う。
137:89
06/08/22 22:26:52
>>120
button2押しても止まらないときがあるような・・・
>>135
スロットっぽくしたいんじゃないの？
ちなみに俺が言いたかったのは、Timer1_Tickで
Do
a = CInt((52 * Rnd()) + 1)
b = CInt((52 * Rnd()) + 1)
Loop Until a <> b
Label1.Text = a
Label2.Text = b
まぁ、選びなおしは停止するタイミングでやった方がいいかもね
138:デフォルトの名無しさん
06/08/22 22:54:52
>>137
「同じだったら止まらない」仕様通りでは？
139:デフォルトの名無しさん
06/08/23 00:04:39
なあ、俺の思い違いだったらいいんだが。
スロットって回転してる間は、別に表示してる値の評価なんてしなく
てもいいんでないか？ ストップボタンを押した時に、初めて表示さ
れてる値を比べて、当たり外れを付けるもんだろ？
140:デフォルトの名無しさん
06/08/23 00:06:05
誰が比較して当たり外れを付けろと
141:デフォルトの名無しさん
06/08/23 00:17:12
例え確立やタイミング的に大丈夫でもTimer内でLoopは嫌だな。俺は。
それはさておき、
> まぁ、選びなおしは停止するタイミングでやった方がいいかもね
を考えてと、質問者のやり方に近い作りにすると、たったこんだけ。効率とか他の仕様とかコーディングポリシーとかは無視して。
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
hoge()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Timer1.Enabled = True
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Timer1.Enabled = False
Do Until Me.Label1.Text <> Me.Label2.Text
hoge()
Loop
End Sub
Private Sub hoge()
Me.Label1.Text = CInt((52 * Rnd()) - 1)
Me.Label2.Text = CInt((52 * Rnd()) - 1)
End Sub
要は質問の仕方の悪さで長引いただけだと。
142:デフォルトの名無しさん
06/08/23 00:52:40
ここは
値型と参照型
値の代入と参照の代入
の区別がつかないヒドイ言語ですね
どうしてこのような言語仕様になっているか
エロイ人教えてください。
143:デフォルトの名無しさん
06/08/23 01:06:29
何処の受け売り？
144:デフォルトの名無しさん
06/08/23 01:22:48
>>142
またC++の悪口か
145:デフォルトの名無しさん
06/08/23 01:36:58
ところでスロットを作りたいのでなければ何を作りたかったのだろうか
146:デフォルトの名無しさん
06/08/23 08:30:41
> スロットを作りたいのでなければ
同じ数値を排除したいって言ってるので最初っからスロットなんて考えられないのに。
147:デフォルトの名無しさん
06/08/23 09:41:41
>>84でスロットという言葉が出ているんで仕方ないんでないか？
148:デフォルトの名無しさん
06/08/23 10:23:10
絶対に当たらないスロットを作って稼ごうとしたのでは
149:デフォルトの名無しさん
06/08/23 10:59:17
Datagridviewをコード内で作成したDataTableにバインドして利用しようとしています。
データを表示するまでは可能なのですが、DataTableにデータを追加してもDatagridviewが更新されないで
表示が固まってしまいます。再描画？か何かが必要なのだと想像するのですが、分かりませんでした。
InvokeとかBackgroundworksなどを使うと良いとはあったのですが、理解できませんでした。
どのように処理すれば良いのでしょうか？よろしくお願いします。
（こんな感じのコード）
Dim ds as Dataset
Dim dt as Datatable
Dim bind1 As BindingSource
Sub form1_load() Handles MyBase.Load
ds.Tables.Add(dt)
dt.Columns.Add("column1", GetType(String))
(以下略）
bind1.DataSource = dt
Datagridview1.DataSource = bind1
End Sub
Sub test()
Dim Row as DataRow
Row = dt.NewRow
Row(0) = "a"
Row(1) = "b"
dt.Rows.Add(Row)
End Sub
150:デフォルトの名無しさん
06/08/23 11:50:22
テキストファイル読み込みは
textfieldparserとstreamreaderどっちを使ったらいいの？
151:デフォルトの名無しさん
06/08/23 12:35:59
読んで字の如く
152:デフォルトの名無しさん
06/08/23 12:55:37
>>150
中身による。
153:デフォルトの名無しさん
06/08/23 16:40:42
>>151-152
textfieldparser
テキストの分野の解析?
streamreader
流れながら読む?
csvとかにはtextfieldparserで
通常はstreamreaderってことですかね
154:デフォルトの名無しさん
06/08/23 17:00:05
>>153
>>2
MSDN
URLﾘﾝｸ(msdn2.microsoft.com)
textfieldparser
>構造化テキスト ファイルの解析に使用するメソッドとプロパティを提供します。
streamreader
>特定のエンコーディングのバイト ストリームを読み込む TextReader を実装します。
とりあえず、読んだ方がよいかと。
155:デフォルトの名無しさん
06/08/23 21:38:07
Do-Loopキモイ。
156:デフォルトの名無しさん
06/08/23 21:42:09
乗り遅れ突っ込みもキモイ
157:デフォルトの名無しさん
06/08/23 23:33:27
うそつきはDoLoopのはじまり
158:デフォルトの名無しさん
06/08/24 08:10:35
>>154
おお、ありがとう。
159:デフォルトの名無しさん
06/08/24 09:19:11
最近はMSDNすら見ないのか・・・・・
160:デフォルトの名無しさん
06/08/24 11:32:50
ここの議論はいつも Do Do めぐり。
161:デフォルトの名無しさん
06/08/24 17:51:13
URLﾘﾝｸ(homepage1.nifty.com)
ここ見ながら勉強してるんだけど、
graphicsで描写したものを消すにはどうしたらいいの？
一度最小化するとかってのは無しで･･･。
162:デフォルトの名無しさん
06/08/24 17:56:05
無限ループしたらパソコン壊れますか？
163:デフォルトの名無しさん
06/08/24 18:41:08
デルノートなら爆発もありうるな
164:デフォルトの名無しさん
06/08/24 19:05:46
>>161
Invalidate
165:デフォルトの名無しさん
06/08/24 21:06:59
VB2005の解説サイトで良いところありませんか？
Cなんかは簡単に見つかりましたが、
VBではテンプレみてもどれがいいのか、
何を書いているのかほとんどわかりません。
>>161みたいなものがいいのですが、
あまり体系立った説明がされていない
（後回し後回しで要点がつかみ難い）
のでわかりにくいです。
具体例を用いてあると尚良いのですがどこかありませんか。
166:デフォルトの名無しさん
06/08/24 21:23:36
>>165
>>3-5
167:デフォルトの名無しさん
06/08/24 21:49:23
テンプレみてもどれがいいのか
何が書いてあるのかほとんどわかりません…
ある程度基本が身に付いた人であれば
知りたい情報はどこにあるか見当もつけられると思うのですが
現時点では>>3-5のサイト一通り巡回してもわけがわかりませんでした。
あと、関係ないのも多数混じっていませんか？
168:デフォルトの名無しさん
06/08/24 21:55:17
>>164
さんくす。でも具体的な使い方はどうやればいいの？
MSDNで検索したけどワカラン
たとえば
ボタン１をクリックしたらピクチャーボックス１に黒い円が浮かび上がって
ボタン２をクリックしたらその円が消えるようなプログラムは
どうする？
169:デフォルトの名無しさん
06/08/24 22:11:53
>>168
背景色で塗りつぶしたらよかんべえ
170:デフォルトの名無しさん
06/08/24 22:13:46
>>167
「あまり体系立った説明がされていない」なんてえらそうなこと言う
前に、まずどこでもいいからひとつでも全部通して読むべきだよ。い
まの「どこがわからないのかわからない」状態から脱したいならね。
171:デフォルトの名無しさん
06/08/24 22:16:16
だるまの目を塗りつぶしたいんだけど、
背景色で塗りつぶすとだるまも消えちゃう･･･。
だるまも再表示するようにしても、うまくいかないのよー
172:161・168･171
06/08/24 22:19:12
↑は>>169宛です
173:デフォルトの名無しさん
06/08/24 22:20:00
>>167
体系立った説明が欲しいなら、仕様書。これ。
URLﾘﾝｸ(msdn.microsoft.com)
>>171
逆に考えるんだ
描画したものを消すと考えるんじゃない
描画したものの上から黒眼/白眼を書けばいいと考えるんだ
174:デフォルトの名無しさん
06/08/24 22:36:10
>>173
ありがと。考え方は理解できた。
でもだるまの目の部分よりも、塗りつぶす黒目が大きい場合はどうしたらいいの？
175:デフォルトの名無しさん
06/08/25 01:17:25
buttonの名前をいじってて
cancelbuttonにしたらエラーが多発してデザイン画面が出てこなくなった･･･。
いったん他の名前に変えて難を逃れたんだけど、
もともとのデザイン画面がでてこない･･･。
表示タブのデザインっていうの選んだらデザインタブでてくるよね？
再起動してもでてくるよね？
･･･出てこない。
･･･ｵﾜﾀ？
176:デフォルトの名無しさん
06/08/25 02:01:48
自分でデザイン部分のソース修正。
177:デフォルトの名無しさん
06/08/25 02:11:22
>>175
CancelButtonとかAcceptButtonは地雷。つかプロパティ名とかぶるのでそういうことになるよ。
フォーム名.Designer.vbをごりごり修正。
178:デフォルトの名無しさん
06/08/25 08:38:42
FlexGridで処理後に次の行特定の列を選択した状態にしたいのですが、
選択するとそこがboolreanで勝手にチェックがはいってしまいます。
FlexGrid.cols(4).type=boolrean
FlexGrid.select(3,4)
初歩的だと思いますが何か設定があるのでしょうか？
179:デフォルトの名無しさん
06/08/25 09:18:23
boolrean
180:デフォルトの名無しさん
06/08/25 12:10:23
DataGridViewの中にコンボボックスをいれたいんだけどどうすんの？
181:デフォルトの名無しさん
06/08/25 12:33:00
いれればいいじゃん
182:デフォルトの名無しさん
06/08/25 14:45:26
それがわからんのです(´；ω；｀)ﾌﾞﾜｯ
183:デフォルトの名無しさん
06/08/25 14:54:09
DataGridViewの、コンボボックスにしたい列をコンボボックスにしてあげればいいと思うよ。
184:デフォルトの名無しさん
06/08/25 15:03:14
そのままやんけ！って思ったけどそのままやったんですね。
できました。どうもありがとうございます。<(_ _)>
185:178
06/08/25 18:36:20
自分で解決できました。
ただ単にarrolweding=falseにするだけでした。
186:デフォルトの名無しさん
06/08/25 20:29:54
arrolweding
187:チョ初心者
06/08/25 21:02:24
クラスにテキストボックスそのものを渡して
ｷｰｺｰﾄﾞに応じて処理をしてテキストボックスの中身を変えて戻す
そうゆうのって問題なしですか?
188:デフォルトの名無しさん
06/08/25 21:35:09
それにキモさを覚えなければ問題ないが、
それにキモさを覚えないのには問題があるな
189:デフォルトの名無しさん
06/08/25 21:42:37
>>187
そうしたい理由や手順をフローにして書いてみそ。
もっと洗練されたやり方があるかもしれない。
190:デフォルトの名無しさん
06/08/25 22:46:28
助けてください。いろいろ調べたのですが、うまく出来ません。
参照の循環する依存関係で苦しんでます。
同じソリューションの別プロジェクトの画面遷移をしたいです。
スタートアップのＡ画面からＢ画面へ、そしてＢ画面からＡ画面へ
戻る遷移になります。つまり、相互遷移です。
Ｂ画面が開いたら、Ａ画面は閉じるのが条件です。
で、双方のプロジェクトに参照設定を試みました。
下記の図です。
ソーリューション
|
|-プロジェクトＡ
参照設定(FormB.dll)
FormA
|-プロジェクトＢ
参照設定(FormA.dll)
FormB
当然ながら、循環参照でエラーとなります。
基礎的な事でしょうが、
まだ、開発経験が浅く、どう調べていいかがわかりません。
ヒントなりもといただきたいと考えております。
よろしくお願いします。
191:デフォルトの名無しさん
06/08/25 22:53:26
流れを管理するプロジェクト C を作って、C が AB を参照。
AB は他は気にせず自分の事だけやればよい。
192:190です。
06/08/25 22:54:28
書き残しました。
共通部分をクラスライブラリとして括り出して、それを参照する
とういう方法論までは、わかったのですが、
そこから先がわかりません。
下の図のように、新プロジェクトを作成し、
そこで、イスタンス化を計ったのですが、
やはり、循環参照でエラーになります。
ソーリューション
|
|-新プロジェクト
参照設定(FormA.dll,FormB.dll)
classA
|
|-プロジェクトＡ
参照設定(classA.dll)
FormA
|-プロジェクトＢ
参照設定(classA.dll)
FormB
193:デフォルトの名無しさん
06/08/26 01:00:09
っていうか、プロジェクトとか、クラスライブラリを参照するってことの意味を
何か勘違いしているような。。
いやそれ以前にクラスって概念からしてわかってないんじゃねえの？
フォームなんてハリボテに過ぎないもの、推移とかいったって所詮
表示したり消したりするだけのことなのに、いちいち画面ごとにプロジェクト分ける気か？
194:187
06/08/26 03:12:35
>>189
遅くなりましたが…
理由は入力チェックをクラスで纏めたい為です。
・エスケープなら指定オブジェクトへフォーカスを移す。
・リターンなら種類によってコードチェック
次のオブジェクトにフォーカスを移す。
・入力ミスならエラー表示をする。
と、そんな感じにしたいのですが
フォーカス指定と入力テキストボックスで３つもオブジェクトを渡すのってマズいのかな…と
先生方、もっとｶｺｲｲやり方があれば是非ご教授下さい
始めたばかりで、クラスとかもよく分かってないですが…(つД`)
195:デフォルトの名無しさん
06/08/26 03:27:21
>>194
単にチェック＆エラー表示したいだけならErrorProviderがお手軽だけど。
196:デフォルトの名無しさん
06/08/26 03:57:15
過去に既出であったり、王道があれば教えてください。
WMPのように、多重起動せず受け取ったコマンドラインを
すでに起動している同じソフトに送信するのに
・APIのSendMessage GetMessege
・APIのSetProp GetProp
・127.0.0.1でSOCKET
・変数のポインタをどっかのファイルに書き込むorレジストリでそこを読んで 改変
・特定のファイルorレジストリでそこを監視
・.net新規のものでもっといいのあるよ～
受け渡しは前述の通り、文字列だけです。
使用バージョンは VB.net 2005です。
これらの中で”一般的にはこれ”等あればご教授お願いします。
197:デフォルトの名無しさん
06/08/26 05:27:20
>>196
プロジェクト－プロパティ－アプリケーション「単一インスタンスのアプリケーションを作成する」。VB専用。
名前つきMutex（System.Threading.Mutex）を使う。C#でも可能、データの受け渡しは不可。
198:デフォルトの名無しさん
06/08/26 05:30:58
>>196
あとは、.NETリモート処理を使う方法もあるが、実例はあまり見たことがない。
.NET 2.0で追加されたIpcChannelが9x系ではエラーになるなど問題が多い。
199:デフォルトの名無しさん
06/08/26 07:42:50
Formにスナップ機能？winampのように他のウィンドウや画面の端にくっついたりするにはどうすればいいですか？
教えてください。お願いします。
200:190です。
06/08/26 11:55:03
>>193
すいません、正直、あまり、わかっていません。
動きは全て、仕様です。
Formの開閉時に、ＤＢに接続して、Select,Update,Insertを
行う仕様になってます。
201:デフォルトの名無しさん
06/08/26 12:02:46
>>197-198
どうもありがとうございます。
単一インスタンスにすると２重起動時、
Loadなりなんなりで
後から起動したほうを終了して、
普通に宣言してある変数の内容を書き換えるだけで
すでに起動していた側からその変数を見たら変更されてて
この目的なら万事おｋ ってことですよね？
とりあえず試してくるｗ
202:デフォルトの名無しさん
06/08/26 12:11:29
そんなことしなくても後から起動されたほうは勝手に終了する。
先に起動してた方のMy.Application.StartupNextInstance イベントのパラメータに
後から起動したコマンドラインが渡されるので後はお好きなように。
つーかMSDN嫁。
203:デフォルトの名無しさん
06/08/26 12:17:23
>>202
そんな楽にできるのかｗ
MSDNじっくり読んできます～
マジありがとう。
204:デフォルトの名無しさん
06/08/26 12:20:32
>>200
>>191さんが書いてるのは仕様に外れるからダメってことか？
205:149
06/08/26 12:33:16
その後色々と調べたところ、同じ症状の対策がでてました。
DataGridViewのスクロールバーがおかしくなる
URLﾘﾝｸ(dobon.net)
delegate void DataTableAddRowCallback(DataTable dt, DataRow dr);
private void DataTableAddRow(DataTable dt, DataRow dr)
{
if (dataGridView.InvokeRequired)
{
DataTableAddRowCallback d = new DataTableAddRowCallback(DataTableAddRow);
Invoke(d, new object[] { dt, dr});
}
else
{
dt.Rows.Add(dr);
}
}
//別スレッドから
DataTableAddRow(dataSet.Tables["TableName"], dataRow);
で、解決するらしいのですがC#はさっぱりで、VBに書き換えも撃沈しました。
どなたか、教えていただけないでしょうか。よろしくお願いします。
206:デフォルトの名無しさん
06/08/26 12:40:25
>>195 遅くなりましたが、有り難う御座いました
こんな見易い便利なの物があるんですねｰｰ
初めてみました(´Д`)
複数コード入力した後の最終チェックなんかに使ってみたいです
とはいえ、やはりコード入力がものすんごいあるので
フォームでのコード入力のところをごっそり省きたい……
やはり、オブジェクト渡してやっちまいまつ(ﾟ∀｡)
207:デフォルトの名無しさん
06/08/26 12:47:17
>>205
>>149のコードを見る限りDataRowへのデータの追加を
別スレッドでやってるようには見えないんだが、そこんとこはどうなの？
同一スレッドでやってるんならリンク先の対策は役に立たないと思うが。
208:149
06/08/26 13:06:25
>>207
すいません、そうでした。現在のソースはこのような感じです。仮想モードは使っていません。
Dim ds as Dataset
Dim dt as Datatable
Dim bind1 As BindingSource
Friend WithEvents Bg_main As System.ComponentModel.BackgroundWorker
Sub form1_load() Handles MyBase.Load
ds.Tables.Add(dt)
dt.Columns.Add("column1", GetType(String))
(以下略）
bind1.DataSource = dt
Datagridview1.DataSource = bind1
Bg_main.RunWorkerAsync() '別スレッドへ
End Sub
Sub Bg_main_DoWork() Handles Bg_main.DoWork
Row = dt.NewRow
Row(0) = "a"
Row(1) = "b"
dt.Rows.Add(Row)
End Sub
Bg_main.RunWorkerCompleted で追加を検出してMe.Refreshでも固まってしまいます。DataGridViewで何かイベントがいるのかな。
209:デフォルトの名無しさん
06/08/26 13:13:30
>>208
順序がおかしいな。
別スレッドで DataSet/DataTable にデータを突っ込む＞元スレッドで DataSource に設定
だ。
> DoWork イベント ハンドラでユーザー インターフェイス オブジェクトを操作しないように注意する必要があります
と MSDN にあるが、 DataSource に設定済みの DataSet/DataTable への操作も UI の操作に当たる。
210:149
06/08/26 13:35:50
>>209
レスありがとうございます。
頻繁に書き換えがあるので、左記にDataSourceを割り当てているのです。
実際には、スレッドは沢山あって、それぞれにDataDableを更新しています。
その更新結果を、DataGridViewにリアルタイムで表示しているのですが、スクロールバーが出ると固まってしまいます。
MSDNにはUIを操作するなと書いてあるのは知ってますが、リアルタイムでデータが流れてくるので、別スレッドに流し込まない
と処理が間に合わないのが現状でして。
表示自体は、RunWorkerCompletedにMe.Refresh()を入れれば改善はされるのですが、やはり触ると固まってしまいます。
そこで、色々調べたら>>205の症状と似ていたので。
205のソースは、いろいろと変更して入れて見る努力はしたのですが、そもそも知識不足で理解できませんでした。
211:デフォルトの名無しさん
06/08/26 13:50:50
だったらこんなところに質問している間に理解しようとすればいいのに。
この人に限らないけど、ダメな奴っていうのは基本的に努力の方向が間違ってるよ。
212:149
06/08/26 13:55:24
>>211
C#のヘルプとか見ながら色々と試行錯誤しているんですけど、なかなか上手くいかなくて。。。。
213:デフォルトの名無しさん
06/08/26 14:06:52
いや、だからたぶんデリゲートとかスレッドがよく分からんのでしょ？
だったらまずそれを理解しろよ。でなきゃ埒があかん。小学生でもわかる理屈。
@ITとかCodeZineに解説あるし、別にたいして難しいもんじゃない。
214:デフォルトの名無しさん
06/08/26 14:15:37
> スレッドは沢山あって、それぞれにDataDableを更新しています。
ってアンタ……
なんか色々絶望的だな
215:149
06/08/26 16:32:56
Invokeを使ってもやっぱりかたまる。DataGridViewのイベント関係なのかも。
Delegate Sub DataTableAddRowCallback(ByVal dt As DataTable, ByVal dt_row As DataRow)
Public Class Form1
>>208と一緒
Public Sub DataTableAddRow(ByVal dt As DataTable, ByVal dt_row As DataRow)
If DataGridView1.InvokeRequired Then
Dim d As DataTableAddRowCallback
d = New DataTableAddRowCallback(AddressOf DataTableAddRow)
Me.Invoke(d, New Object() {dt, dt_row})
Else
dt.Rows.Add(dt_row)
End If
End Sub
Sub Bg_main_DoWork() Handles Bg_main.DoWork
Row = dt_temp.NewRow
Row(0) = "a"
Row(1) = "b"
DataTableAddRow(dt, Row)
End Sub
End Class
216:デフォルトの名無しさん
06/08/26 19:00:19
ダメグラマが「固まる」って言葉が好きなのは法則か何かかねw
ダメグラマはなんでダメなくせになんでいきなり全部を完成させようとするんだろう。
そのくせ問題が起こると、「問題の切り分け」すらしようともせず、
全然見当違いのことを問題の原因だと思い込む。
もちろん彼はシンプルなコードを書いて、本当に彼が思っていることが
問題の原因なのか、確認しようともしない。
217:デフォルトの名無しさん
06/08/27 00:42:02
510 ：ワールド名無しサテライト：2006/08/26(土) 09:43:50.46 ID:8fm3vXed
「やっぱりVBが悪いんじゃないか。VBなんて」
「いいえ。全ては使い方しだい。私たちがVBの本当の使い方を見せてあげますわ。」
218:デフォルトの名無しさん
06/08/27 13:02:03
スマートクライアント（リッチクライアント）についてサンプルが載ってる
本でいいのって無いですかね？
219:デフォルトの名無しさん
06/08/27 15:42:58
ネットで見つからなければ本も期待できないと思ったほうがいい
220:デフォルトの名無しさん
06/08/27 18:49:09
そっか、したら、もう少しネット浮浪者でがんばってみる。
221:デフォルトの名無しさん
06/08/28 01:05:59
>>215
同じインスタンスなら、Invokeなんてまったく意味ない。
単にロジックがおかしいんだと思うけど、
ソースコピって一からデバッグしてくれる親切な人なんていないんだからさ、
もうちょっと、的を絞って質問できないか？
あとデータ量が多いならMSDN読んで作り直したほうがいいかもしれない。
222:デフォルトの名無しさん
06/08/28 02:02:42
>同じインスタンスなら、Invokeなんてまったく意味ない。
( ﾟдﾟ)
( ﾟдﾟ )
223:デフォルトの名無しさん
06/08/28 02:15:54
こっちみんな
224:デフォルトの名無しさん
06/08/28 05:08:38
みんな～こっちこっち～
225:デフォルトの名無しさん
06/08/28 16:07:38
VB.NET2003でTabControlついてですが
デフォルトでは標準コントロールらしく味がありません。
これはデザインを変更することは可能ですか？
226:デフォルトの名無しさん
06/08/28 16:47:53
継承して頑張ってみれば？
227:デフォルトの名無しさん
06/08/28 19:18:30
>>225
つ VB2005
話はそれからだ。
228:デフォルトの名無しさん
06/08/28 20:39:13
>>227
2005のはどんな感じですか？
229:デフォルトの名無しさん
06/08/28 22:24:41
私VB.NETの初心者です。
CopyMemory
の使い方が分からなくて、たまたま見つけた
URLﾘﾝｸ(www.winapi-database.com)
の例
Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" _
(Destination As Integer, Source As Integer, ByVal Length As Integer)
を試したらエラーしたので、二行目を適当に変更して
(ByVal Destination As IntPtr, ByVal Source As String, ByVal Length As Integer)
としたら無事動きました。
動いたのはいいのですが、これでいいのかどうかよく分かりません。
適当に勘で置き換えただけです。
それで質問なのですが、私が行った操作は、VBでは何という分野ですか？
こういうことに関してより詳しくなるためには、私は何を勉強すればいいでしょうか？
よろしく。
230:デフォルトの名無しさん
06/08/28 23:00:01
>>229
自学して理解できない人が触ったらだめだよ。そういうAPIは。
つりじゃなくまじめに。
子供には早いって奴。
231:デフォルトの名無しさん
06/08/28 23:34:36
>>229
P/Invokeだけど、
本当にCopyMemoryする必要があるの?
ライブラリ内で完結できるなら初学の頃はフレームワークの外にでるべきじゃない
232:132:乱数君
06/08/28 23:57:56
やっと時間を持てるようになり、皆さんのご意見を参考にさせていただいて、まずは、タイマーを外しまして（出来れば、タイマーを使ってスロットのようにしたかったのですが、背に腹は代えられません）、思うような成果が得られました。
ただ、以下のコードをButton1_Clickに記入しているにもかかわらず、
Do
Label3.Text = Int((52 * Rnd()) + 1)
h = Val(Label2.Text)
i = Val(Label3.Text)
Loop Until h <> i
何のコードも記入していないはずのButton2をクリックした時に、上記のイベントが起きます。（Button1をクリックした時には何も起きません。）
これは何故なのでしょうか…？
233:デフォルトの名無しさん
06/08/29 00:14:13
それは霊のしわざです
234:デフォルトの名無しさん
06/08/29 00:30:26
>>232
半年くらいコーディングやめてバカンスにでも行ってきたら？
つーか何で>>141とかでダメなのかと。
235:デフォルトの名無しさん
06/08/29 11:08:42
夏休みの宿題なんじゃねーの？
236:232
06/08/29 12:02:00
>234
Private Sub 『hoge』
というツール？がよくわからなかったので、参照が出来ませんでした…
>235
リミットはありませんが、何とか時間のある夏のうちに完成させておきたいんです。
237:デフォルトの名無しさん
06/08/29 12:15:31
>>236
> Private Sub 『hoge』
> というツール？がよくわからなかったので、参照が出来ませんでした…
これが仮に「釣り」ではなく真面目な回答なら、煽りでも何でもなく真面目な助言なんだが、
初心者向けの書籍を最低一冊は自分で購入して学習ないといけない。
238:デフォルトの名無しさん
06/08/29 12:17:45
>>236
どうやら Handles の意味も調べなおしといたほうがよさそうだな・・・
239:デフォルトの名無しさん
06/08/29 12:21:26
> Private Sub 『hoge』
> というツール？がよくわからなかったので、参照が出来ませんでした…
この時点でスルー決定でおｋ？
240:デフォルトの名無しさん
06/08/29 13:09:49
ﾜﾛﾀ
241:236
06/08/29 13:57:31
私は.NETしか使用した事がありませんから、>141に使われている言語全体が、私が使用しているものと違い、何の本を参考にしていいのかもわかりません。
少なくとも、『学生のためのVisual Basic .NET』（東京電機大学出版局）には、件のワードは載っていないと思われます。
どうかお知恵をお貸し下さい…
242:デフォルトの名無しさん
06/08/29 13:58:36
これは・・・
243:デフォルトの名無しさん
06/08/29 14:08:28
ｸﾏｰ
244:デフォルトの名無しさん
06/08/29 14:09:25
>>241
URLﾘﾝｸ(bookweb.kinokuniya.co.jp)
これか？
第6章に書いてないか？
"hoge"は命名の例え。"baka"でも何でも自分で付けるもの。
（各自コーディング規約に則っての修飾等は置いておいて）
普通はその自分で作った関数の機能がわかるように命名する。
関数に名前を付け、中身も（この例だとRnd()のある2行）記述し、使いたい各所でその名前にて呼び出す。
Private, PublicやSub, Functionについても第6章に書いてあると思われ。
君はその本を読んだのかもしれないが、理解も習得もしていないし断片を記憶に留めることもしていない。
245:デフォルトの名無しさん
06/08/29 14:11:56
>>241
目次で見る分には十分そうな気もするんだが。
URLﾘﾝｸ(www.tdupress.jp)
このあたりからやってみたらどうだろう？
URLﾘﾝｸ(www.seshop.com)
あと、>>141のコードを丸ごと動かしてみてトレースしてみたら？
246:デフォルトの名無しさん
06/08/29 14:16:56
> >141に使われている言語全体が、私が使用しているものと違い
この時点でスルー決定でおｋ？
247:デフォルトの名無しさん
06/08/29 14:20:43
foo() や bar() 関数(api?)をよく見るのですが、
どのリファレンスにも載っていません。
どうもいろいろな言語に共通しているようですが、
いったいどういう動作をするのでしょうか。教えてください。
248:デフォルトの名無しさん
06/08/29 18:42:43
また人に教えを垂れたい「答えたがりクン」と、友達がいないからこんなところでも
馴れ合いたい「馴れ合いクン」が湧いてくるんだろw
馬鹿なことだよな。
こういう奴らはどっちかというと本来質問する側にまわるヘッポコ野郎のくせに、
自分で自分の利用可能なリソースを破壊してることにも気づかないんだから。
こんな下らん馴れ合いが続けば、ある程度スキルがあるまともな奴から去っていくだろ。
249:デフォルトの名無しさん
06/08/29 19:17:46
本人乙
250:241
06/08/29 20:07:47
>244>245
>141のコードを記述してみると、確かに、うまく動作していました。プロシージャの項目と言わず、もっと精進していくつもりです。大変にお騒がせしました。ありがとうございます。
>248
きっと、ある程度スキルがある人の事は、ある程度スキルがある人にしかわかりません。揣摩臆測でしょう。
251:デフォルトの名無しさん
06/08/29 20:51:28
>>232
貴方のいうButton1_Click は、別にどんな名前でもいい。これは解るかな？
そして、好きなイベントをHandleできるということも解るかな？
コレが解ればなぜButton2をクリックしてButton1_Click が動くのかは理解できるだろう。
252:232
06/08/29 21:05:36
>251
ありがとうございます。今はわかりませんが、精進してわかり得るように努めます。
253:デフォルトの名無しさん
06/08/29 21:14:10
精進する気がある奴ならそんな程度の質問などしないはずだがね。
まあ人事だからどうでもいいけど。
ただ鬱陶しいから二度と来ないでは欲しい。
254:デフォルトの名無しさん
06/08/29 21:18:23
多重起動時のウィンドウ制御について教えてください。
アプリを多重起動させようとしたときに、
既に同じアプリが動いてれば、何もさせずに、
起動済みのインスタンスをアクティブにして、
２つ目に起動したインスタンスは何もせずに終了させるという
ロジックを組もうとしています。
インスタンスが起動済みかどうかは Process.GetProcessesByName
などを使って判別することができ、
１つ目のインスタンスにPostMessageでWM_USERを送り、
自分自身でアクティブ化させるという方法をとったのですが、
問題なのは、このアプリが最小化されたときは、タスクバーから消して、
トレイに格納するようにしていることです。
タスクバーから、ウィンドウを消してしまうと、
たとえアプリが起動していても、２つ目のインスタンスから、
１つ目のインスタンスのMainWindowHandleを取得しようとしても
０しか返って来なくなるようで、PostMessageが使えない状態です。
２つ目のインスタンスに何かメッセージを送る方法はないでしょうか？
255:デフォルトの名無しさん
06/08/29 21:36:33
>>254
単一インスタンスのアプリケーションを作成 ではだめなん？
だめだよね…
256:デフォルトの名無しさん
06/08/29 21:49:12
>>254
>>196以降のレスは読んでる？
つーか同一人物か？
257:デフォルトの名無しさん
06/08/29 22:06:28
Do-Loopキモイ。
258:デフォルトの名無しさん
06/08/29 22:22:26
.NETのdatagridviewに、VB6のmsflexgridでいう
margeColやmargeRowみたいな機能はありますか?
探すのですが、みつからない…Orz
259:デフォルトの名無しさん
06/08/29 22:27:16
ない
260:デフォルトの名無しさん
06/08/29 22:43:15
>>259
お答え有り難う御座いました
無いのですか…orz
編集とか出来るようなので、ないような予感はしてましたが…
(つД`)あぁ
261:254
06/08/29 23:13:32
>>255
単一でもアクティブにならないとダメなんで・・・
>>256
すみません、見逃していました
IpcChannelってのが使えそうなのでとりあえず試してみます。
262:デフォルトの名無しさん
06/08/30 00:38:03
DataGridViewに50列1万件程度のレコードを仮想モードで表示させています。
この状態で、画面をスクロールさせたり、複数セルを選択するたびに、
かなり画面がちらついてしまいます。
この現象を回避する良い方法はないでしょうか？
263:デフォルトの名無しさん
06/08/30 00:49:36
>>262
50万セルは大杉
DataGridViewに限らずもうすこし現実的な仕様を考えたほうがいい
普通にそれだけあったら絞るか分割するだろう。
５０列も一度に見渡すよりも必要な列だけ見れたほうが扱いやすい事もある。
行の場合も必要な範囲をさくさく見れるほうが便利な事もある。
少なくとも１万行全部を見渡す必要なんて無いと思うが・・・
生データをただ丸ごと全部並んでればいいってもんじゃないだろお。
どうすれば最も扱いやすくなるかを考えなさい。
264:デフォルトの名無しさん
06/08/31 10:59:36
UIの仕様に話が変わってるなｗ
265:デフォルトの名無しさん
06/08/31 11:04:53
OS:Windows2000
言語：VB.NET(2003)
現在、CSVファイルとPDFファイルをそれぞれ暗号化し
メールで送信後、送信先で復号化して保存する
アプリケーションを作成しています。
そこで、
URLﾘﾝｸ(dobon.net)
を元に、暗号化と復号化機能を作成しました。
CSVファイルの暗号化、復号化は問題なく出来たのですが
PDFファイルを同じように暗号化し、復号化すると
復号化した後のPDFファイルを開くと
「この文章を開くときエラーが発生しました。
ファイルが壊れています。修復できませんでした。」
とメッセージが表示されうまく復号化出来ませんでした。
私なりに調べてみたのですが、どう解決すればよいかわかりませんでした。
どなたか、実装例や参考アドレスなどでも結構などで教えていただけないでしょうか？
266:デフォルトの名無しさん
06/08/31 11:07:55
マルチ乙
267:デフォルトの名無しさん
06/08/31 11:09:32
よくわからんが、それ対象がテキスト以外でも大丈夫なんか？
268:デフォルトの名無しさん
06/08/31 11:45:26
DecryptFileを下のやつに置き換えてないとか
269:デフォルトの名無しさん
06/08/31 12:27:28
OS:WindowsXP
言語：VB.NET(2003)
外部端子からの映像入力をリアルタイムでフォーム上に表示することって出来ますか？
出来ればやり方教えてください。
270:デフォルトの名無しさん
06/08/31 12:29:00
外部端子てなによ。キャプチャカード?
271:デフォルトの名無しさん
06/08/31 18:36:57
開発言語：VB.NET(Windowsアプリケーション)
：SPREAD Windows FORM Edition
現在 VB.NETでフォーム上にSPREADを配置した
アプリケーションを開発しています。
そのスプレッド上の特定のセルに
フォーカスが当たった時、喪失した時に、
ＩＭＥの「全角あ」「半角ｱ」の制御を行いたいのですが、
なかなか実現できずに困っています。
どなたか同様の案件を実現された方がいらっしゃれば、
教えていただけないでしょうか？
よろしくお願いします。
272:デフォルトの名無しさん
06/08/31 21:08:27
パブリックな標準モジュールとクラスの差異ってばなんですか?????
273:デフォルトの名無しさん
06/08/31 21:13:13
今からVBを始めようと思っている超初心者です。
今日、PC屋に行ってVisual Basicを買おうと思ってみていたら、
Win2000とXPに対応していないものしか売っていませんでした。
Meに入るVBはどこで入手したらいいのでしょうか・・・・・・
274:デフォルトの名無しさん
06/08/31 22:41:19
>>272
たくさんあって書き切れない
>>273
VS買う金があるならOS買ってVB Express Edition使っとけ
いやまじで。
275:273
06/09/01 00:26:27
>>274
回答サンクスです
マジですか。。。
確かにVBに限らずいろんなソフトがxp/2000専用になってますもんね・・・（VB体験版もMe入らないみたいだし・・）
ありがとうございます。
ｘｐ検討してみます。
276:デフォルトの名無しさん
06/09/01 20:27:13
項目内容が同じdatatable1とdatatable2の両方を
datatable3に入れたいのですが可能ですか?
277:デフォルトの名無しさん
06/09/01 20:34:24
追記
1列ずつnewとaddで追加する方法以外で
無理ですか…?
278:デフォルトの名無しさん
06/09/01 21:54:01
insert into datatable3 select * from datatable1
insert into datatable3 select * from datatable2
279:278
06/09/01 21:55:23
あ、RDBじゃないのか。すまん。
280:デフォルトの名無しさん
06/09/02 00:26:12
>>276
最初にDataTable1の複製を作って、そこにDataSet.Mergeメソッド
で2の内容をくっつけるのはどうだろう？
URLﾘﾝｸ(msdn2.microsoft.com)
281:ぼよん
06/09/02 02:58:31
アニーメーションGIFを出力する方法ってご存知ありませんか？
標準のライブラリでできるのでしょうか？
282:デフォルトの名無しさん
06/09/02 03:21:05
どこに出力すんだ
283:デフォルトの名無しさん
06/09/02 06:16:04
VB.NET 2005 で
マルチスレッドWindowsサービスの
プログラムを作成しようとしているのですが
手持ちの本がサービスとスレッド関係の情報が
少ししか載っておりません。
先輩方で良い本をご存知の片がいらっしゃいましたら
教えて頂けませんでしょうか？
284:276
06/09/02 12:25:57
>>278 280 有り難う御座いました
思った感じに出来ましたｰｰ
285:デフォルトの名無しさん
06/09/02 12:33:37
つーかそれ、VB.NETじゃなくてSQLの質問…
286:デフォルトの名無しさん
06/09/02 13:00:22
いえいえ、たぶんVB.NETで間違いないです
変数名 AS datatable
の関連です
親FILEと子FILEがあり
datatableへそれぞれdatatable1とdatatable2に入れてまとめた後、
ビューでソートしたものをdatagridviewに渡すべきか
rowをaddでゴリゴリ追加すべきか、悩むところです
(´Д`)
287:デフォルトの名無しさん
06/09/02 13:17:56
アフォの子は退場
288:デフォルトの名無しさん
06/09/02 13:59:54
もすかすて、SQLになるんですか…
まだVB.NET2005を触り初めて数日で
正直よくわかってません…orz
289:デフォルトの名無しさん
06/09/02 14:03:14
Mergeでいいやん
290:デフォルトの名無しさん
06/09/03 13:23:31
すいません、質問なんですが。
デバッグモードでプログラムを実行中に無限ループに陥ってしまった場合、
現在どのステートメントを実行しているか知る方法ってありますか？
VBというよりデバッガの質問になってしまっていますが、もしよろしければ
教えていただけないでしょうか。
291:デフォルトの名無しさん
06/09/03 13:39:28
妖しそうなコードの手前にブレークポイント置いてステップ実行。
292:デフォルトの名無しさん
06/09/03 15:46:44
大文字小文字を区別しないIndexOfって無いんでしょうか・・・
調べ方が悪いのかなorz
293:デフォルトの名無しさん
06/09/03 16:26:55
.NET 2.0/VB2005 なら String.IndexOf にオーバーロードがあるが、
それ以前なら Regex.Match でも使ってれば。
294:デフォルトの名無しさん
06/09/03 17:44:35
>>292
string.IndexOf(String, StringComparison)
string.ToLower.IndexOf(string)
string.ToUpper.IndexOf(string)
295:デフォルトの名無しさん
06/09/03 17:47:41
下の2つ、
比較先もToLower()/ToUpper()しなきゃだめじゃね?
296:デフォルトの名無しさん
06/09/03 19:18:24
日曜プログラマなんだけどVB.NETはgoto文使えないの？
VBはお気楽に使えるのがいいのにな
297:デフォルトの名無しさん
06/09/03 20:31:05
なんでお気楽に書くためにgotoが要るのか分からない。
てか使えるだろ別に。
298:デフォルトの名無しさん
06/09/03 21:03:43
On Error Gotoの替わりはtry catchだよ。
299:デフォルトの名無しさん
06/09/03 21:05:29
そういや普通のgotoって残ってたっけ？
300:デフォルトの名無しさん
06/09/03 21:13:17
プロジェクトウインドウのツールボックスのように、画面の隅にひっこめたり
表示したりするコントロールはなんて名前ですか
301:デフォルトの名無しさん
06/09/03 21:52:42
>>299
残ってる。ループ構文のネストから脱出する場合のGO TOは禁じてではない。
302:デフォルトの名無しさん
06/09/03 21:59:01
>>301
まあそもそも深いところからの脱出が必要なネスト構造自体禁じたいもんではあるな
303:デフォルトの名無しさん
06/09/03 22:06:07
VBの場合whileの２階層離脱は出来たりする。
Do While ...
While ...
Exit Do
End Wend
Loop
304:デフォルトの名無しさん
06/09/03 23:19:35
.NETでCABファイルを作成しWEBサーバに配置。
ASPを実行して、objectタグでクライアントにダウンロード
し実行しようとしています。
ここで、CABはダウンロードされ、DOWNLOADED PROGRAM FILESに
表示はされますが、状態が「不明」となり、レジストリ登録されず
、実行することができません。
.NETモジュールとASPに記述したクラスIDは同期がとれています。
VB6.0で作成したCABは問題なく使用できたのですが・・・
同様の経験のかたいらしたら、ご教授ください。
305:デフォルトの名無しさん
06/09/03 23:25:49
Do-Loopキモイ
306:デフォルトの名無しさん
06/09/04 09:18:53
>>302
お前さんは簡単なプログラムしか作ったことが無いのか？
多重ループ構造なんて良くあることだし、
途中で結果が出たら無駄にループせずに脱出したほうがいいに決まってる。
>>303
go to はともかく
Doイベントは、もはや使うべきではない。
>>304
同様の経験もなにも、意味不明。
まずは、どこに問題があるのかを自分で特定しなさい。
特定できたらそこに絞って質問してくれ。
答えようが無い。
307:デフォルトの名無しさん
06/09/04 09:34:40
問題も何も、普通1行目の前半の問題である可能性を一番に疑うし。
308:デフォルトの名無しさん
06/09/04 09:42:00
> Doイベント
ってｗ
309:デフォルトの名無しさん
06/09/04 09:45:34
> 途中で結果が出たら無駄にループせずに脱出したほうがいいに決まってる。
多重ループはよくあるが、gotoで脱出しなくても綺麗な流れで抜けられるようなロジックにするよな普通。
310:デフォルトの名無しさん
06/09/04 09:51:47
まぁ、何だ。>>306みたいな素人程、複雑怪奇なコードを書いて
「難しいプログラムだぜ」と自己満足に浸るもんだしな。
311:デフォルトの名無しさん
06/09/04 10:05:39
exit for とかで抜けれるならいいけど多重構造によってはgotoもありじゃね？Ｃ言語全盛期じゃあるまいし
「綺麗な流れ」とか、芸術性で物作ってるわけじゃないけどgoto使ったほうが綺麗になる場合もある。
何もかもgotoだと気持ち悪いけどね。
312:デフォルトの名無しさん
06/09/04 10:17:02
gotoで見通しが格段に良くなる場合だけだな。使うのは。
313:デフォルトの名無しさん
06/09/04 10:24:23
>>306
go to は良くて Do Loop が良くない理由を教えてください
314:デフォルトの名無しさん
06/09/04 10:50:49
お世話になります。
現在VS2003 .NET Framework1.1にて開発を行っています。
DataGridの行追加が許可されている状態で
一番下の行（全項目が空白の行）をctrl+cでコピーをしようとすると
IndexOutOfRangeExceptionが発生してしまいます。
これは、DataGridの一番下の行に値が入力されるまでは
関連付けられているDataTableに新規行が追加されていない為だと思うんですが、
どうしたらこのエラーを回避する事が出来るのでしょうか？
315:デフォルトの名無しさん
06/09/04 14:05:02
DataGridでデータ追加をするってこと自体がヤバいと思う。
単票フォームを別に作って、そこから一件づつ追加するような遷移に
すれば？ 入力データのエラーチェックもその場で可能だし。
Gridは一覧表示とまとめて削除くらいに特化して、追加編集は別フォ
ームにて確認しながら行うのがいいかと。
316:デフォルトの名無しさん
06/09/04 19:22:51
>>307－310
ヴ ォ ケ
317:デフォルトの名無しさん
06/09/04 20:29:17
見事な敗北宣言だな 実に美しい
318:デフォルトの名無しさん
06/09/04 20:31:25
何か叫んで走って逃げてったな。>>316
319:デフォルトの名無しさん
06/09/05 02:30:21
ガキばっかりだな。
勝敗競うスレでもなければ、技術自慢するスレでもない。
おとなしくスルーしろよ。
320:デフォルトの名無しさん
06/09/05 06:42:31
モマエモナー
321:デフォルトの名無しさん
06/09/05 10:21:50
オマエモナー(=ﾟωﾟ)つ)ﾟ∀ﾟ)ｸﾞｧ
322:デフォルトの名無しさん
06/09/05 14:20:56
HashtableのValueにデータ型（System.Int16やSystem.Object）を入れたいんだけど、入れる方法ってあります？
323:デフォルトの名無しさん
06/09/05 14:27:54
(ﾟдﾟ)ﾊｧ?
324:322
06/09/05 15:34:11
判りにくかったようなので、再度書きます
Dim hash As Hashtable
hash.Add(1, System.Int64)
↑のような事をやりたいのですが、コンパイルエラーになります。
System.Int64を入れるやり方ってありますか？
325:デフォルトの名無しさん
06/09/05 15:55:57
GetType(System.Int64)
326:デフォルトの名無しさん
06/09/05 22:15:43
それが分からんやつにTypeを入れる方法を教えても
Typeの使い方が分からんから、どうにもならないよ。
327:178
06/09/06 08:25:15
Datasetで同じスキーマ情報のdatatableにデータをコピーする
場合ってどうするんですか？
dim A as dataset.mmtable
dim B as dataset.mmtable
Adapter.Fill(A)
B=A ←こんなことがしたい。
328:デフォルトの名無しさん
06/09/06 08:54:26
>>327
URLﾘﾝｸ(msdn2.microsoft.com)
329:322
06/09/06 09:21:47
>>325
出来ました、ありがとう御座います
330:デフォルトの名無しさん
06/09/06 09:38:03
VS2003 .NET Framework1.1で開発しています。
PictureBoxにTIFファイルを表示させるプログラムを開発しています。
TIFファイルには1つのファイルに複数の画像を格納できるので、
そのページ数と表示倍率、画像の回転率を指定し、画像を表示させています。
テストを行っている時に気づいたのですが、
2ページ目以降で倍率100％、回転率180度の時に
なぜか1ページ目の画像が表示されてしまいます。
表示倍率や回転率を変えると
ちゃんと指定したページの画像が表示されます。
これは一体なぜなのでしょうか？
331:322
06/09/06 09:53:00
Dim hash As new Hashtable
dim object1 as object
dim object2 as object
hash.Add(1, GetType( System.Int64 ) ' ←ここはこれで行けました。
object2 = CType( object1 , hash(1) ) ' ←ここがいけません。
object2 = CType( object1 , GetType( hash(1) ) ) ' ←これもだめです。
Ctypeの第２引数にHashtableに入っているTypeを入れたいのですが、どうすればいいですか？
332:330
06/09/06 10:05:40
以下がそのプログラムの抜粋です。
長いので分割します。
Private Sub pctPreview_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles pctPreview.Paint
Dim g As Graphics
Dim img As Image
Dim fd As FrameDimension
Try
sngZoomNum = intZoomNum / 100 'ここで倍率指定
g = e.Graphics
g.InterpolationMode = _
System.Drawing.Drawing2D.InterpolationMode.HighQualityBicubic
img = Image.FromFile(strFilePath)
'FrameDimensionを取得
fd = New FrameDimension(img.FrameDimensionsList(0))
'フレームを選択
img.SelectActiveFrame(fd, intPageNum) 'ここでページ数指定
333:330
06/09/06 10:09:34
'画像を表示（回転率ごとに変更）
Select Case sngRotate
Case 0
sender.Size = New System.Drawing.Size(sngZoomNum * img.Width, sngZoomNum * img.Height)
Case 90
sender.Size = New System.Drawing.Size(sngZoomNum * img.Height, sngZoomNum * img.Width)
g.TranslateTransform(sngZoomNum * img.Height, 0)
Case 180
sender.Size = New System.Drawing.Size(sngZoomNum * img.Width, sngZoomNum * img.Height)
g.TranslateTransform(sngZoomNum * img.Width, sngZoomNum * img.Height)
Case 270
sender.Size = New System.Drawing.Size(sngZoomNum * img.Height, sngZoomNum * img.Width)
g.TranslateTransform(0, sngZoomNum * img.Width)
End Select
'画像の傾き指定
g.RotateTransform(sngRotate)
g.DrawImage(img, 0, 0, sngZoomNum * img.Width, sngZoomNum * img.Height)
img.Dispose()
Catch ex As Exception
throw ex
End Try
End Sub
以上です。
どうぞよろしくお願いします。
334:デフォルトの名無しさん
06/09/06 10:39:39
>>331
無理
335:デフォルトの名無しさん
06/09/06 12:09:24
>>330
VB2005だけどやってみたら確かにそうなった。
原因はわからない(GDI+のバグ？)けどDrawImageするときに
Dim img2 As Bitmap = New Bitmap(img)
g.DrawImage(img2, 0, 0, sngZoomNum * img.Width, sngZoomNum * img.Height)
img2.Dispose()
としたらちゃんと描画されたので試してみて。
336:330
06/09/06 13:13:41
>>335
どうもありがとうございます。
教えていただいたコードを実装してみたところ、
正常に動作する事を確認しました。
自分もGDI+のバグかと思ったんですが、
それらしい記述が見当たらずに困っていました。
本当にどうもありがとうございました。
337:デフォルトの名無しさん
06/09/06 13:19:09
ListViewでヘッダをクリックでソートする事は許可しつつ、ヘッダをドラッグでサイズ変更はされたくないのですが、
これって出来ますか？
338:デフォルトの名無しさん
06/09/06 14:15:32
>>337
C#だけどこんなのがある。VBでやりたければ翻訳して。
URLﾘﾝｸ(hongliang.seesaa.net)
339:337
06/09/06 16:30:56
>>338
ありがとう、出来ました＾＾
340:デフォルトの名無しさん
06/09/06 22:26:18
>>328
ご丁寧にありがとうございました。
助かりました。
341:デフォルトの名無しさん
06/09/07 11:57:28
リストボックスの垂直スクロールバーを非表示にして、
なおかつ矢印キーでのスクロールは可能な状態に
したいのですが、出来ますでしょうか？
342:デフォルトの名無しさん
06/09/07 20:59:06
singletonパターンを使用しているクラス（newがprivate）をxmlでデシリアライズすると、
publicなコンストラクタが無いからだめと怒られてしまいます。
SoapFormatterを使用すれば出来る事は知っているのですが、SoapFormatterで作ったファイルは見にくいので、
XmlSerializerでやりたいと思っています。
対応策やアドバイスお願いします。
343:342
06/09/07 21:26:02
↑は取り消します。すみません。
SoapFormatterで作ったファイルが汚いのはシリアライズ時のファイルモードがCreateで無かったからです、すみません。
344:デフォルトの名無しさん
06/09/08 00:11:48
変換ウィザードでVB.NET(2002)のプロジェクトを2005に変換したんですが
コードの表示やビルドは成功するのに、デザインで開けないフォームがあります。
「クラスが登録されていません」
場所 System.Windows.Forms ･･･
のような表示が出るのですが
System.Windows.Formsを参照させても解消しません。
ご存知の方がいらっしゃいましたらアドバイスをお願いいたします。
345:デフォルトの名無しさん
06/09/08 00:45:19
ググレよ池沼
URLﾘﾝｸ(www.google.com)
346:デフォルトの名無しさん
06/09/08 00:53:17
変換ウィザードはぜんぜん使い物にならないってこと。
フォームは新規作成、コードはコピペでちょっとずつ確認しながら
やったほうがいいよ。
347:デフォルトの名無しさん
06/09/08 17:22:55
環境はVisual Studio 2003、.Net FrameWork1.1です。
GetLogicalDrivesを使ってコンボボックスに
ドライブ名の一覧を表示させたいのですが、
試した限りではネットワークドライブに関しては
一度Windows上でそのドライブにアクセスしないと
ドライブ名が取得できないようなのです。
ネットワークドライブにアクセスしないで
ドライブ名の取得をする事は出来ないのでしょうか？
348:デフォルトの名無しさん
06/09/08 19:27:47
VB.Netをやってる 鬱だ 鬱だ 鬱だー
349:デフォルトの名無しさん
06/09/09 19:16:34
VB.NETについて質問があります。
VB.NET STANDARDをインストールしています。
必須コンポーネントインストールで
Visual Studio .NET Prerequisites ディスクを入れると
以下のようなメッセージが出てしまいます。
コマンドラインパラメータ:
/V パラメータを MsiExec.exe へ送る
/S 初期化ダイアログを非表示。サイレント モード用: /S /v/qn.
/P パスワード モード
/A 管理インストール
/J アドバタイズモード
/X アンインストール モード
/UA<InstMsiA.exe の URL>
/UW<InstMsiW.exe の URL>
/B キャッシュのローカル インストール
これから先へは進むことが出来ません。
どのようなことが考えられるでしょうか。
350:デフォルトの名無しさん
06/09/10 10:35:07
VB.NETは日曜プログラマーも多いが、それ以上に日曜なしプログラマーが多い。
おまいら見積もり尼杉。
351:デフォルトの名無しさん
06/09/10 10:42:39
VB.NET2003からHTTPでレガシーASPのサイトにファイルを
アップロードしたいのですが、HTMLで以下のような形で
ファイルを送信するのと同じ処理をVB.NETのWindowsアプリから
やりたいのですが、よいサンプルが見つからず悩んでおります。
どなたかご存知の方がおられましたら教えてください。
よろしくお願いします。
<form action="hoge.asp" enctype="multipart/form-data">
<input name="File" type="file">
</form>
352:351
06/09/10 13:03:11
すみません。事故解決しました。
353:デフォルトの名無しさん
06/09/10 14:01:33
「'''」と入力してエンター押すと、勝手にメソッドのコメントの枠組みを
作ってくれるソフトの名前を知ってる方いらっしゃいませんか？
354:デフォルトの名無しさん
06/09/10 14:04:39
VB2005
355:デフォルトの名無しさん
06/09/10 15:36:37
>>354
2005では標準で付いてたんですね・・・すみません。ありがとうございました。
356:デフォルトの名無しさん
06/09/11 06:57:59
>>353
VBCommenter
357:347
06/09/11 09:45:36
どなたかわかりませんでしょうか？
358:デフォルトの名無しさん
06/09/11 10:11:18
>>357
A:\からZ:\までDirectory.Existで存在確かめたらいいんじゃね?
359:デフォルトの名無しさん
06/09/11 11:11:33
.NETの2003 WEBアプリケーションにおいて
「テキストボックスがフォーカス状態になったらリストボックスの可視をTrueにする」
といったような内容のIF文を記述したいのですが
どういった記述になるのでしょうか？
どなたかご教授ください、お願いいたします。
360:デフォルトの名無しさん
06/09/11 11:16:33
>>359
visble = falseじゃフォーカス取れなくね?
361:デフォルトの名無しさん
06/09/11 11:19:41
>>360
そうなんですよ･･･
一体どうすればいいのやら･･･何かよい方法ご存じないですか？
362:デフォルトの名無しさん
06/09/11 11:26:08
>>361
textBoxの上にパネルでも乗っけて隠して、
textBox.Enterでパネル.visible = false
textBox.Leaveでパネル.visible = true
みたいな感じでどうか
363:デフォルトの名無しさん
06/09/11 11:34:22
>>362
その「.enter」についてですが普通に記述するだけではなく
何か定義(準備？)のようなものが必要なのでしょうか？
以前 別のサイトで似たような記述を発見したので試したのですが
その部分がうまくいかなかったものでして･･･
364:デフォルトの名無しさん
06/09/11 11:55:58
イベントを学べ
365:デフォルトの名無しさん
06/09/11 13:33:35
すいません質問です。
文字列のソート・・例えば「あえいうお」を「あいうえお」
にする簡単な方法ありますでしょうか？
よろしくお願いします。
366:デフォルトの名無しさん
06/09/11 13:35:49
>>365
ORDER BY
367:デフォルトの名無しさん
06/09/11 13:51:48
>>365
Dim s As String = "あえいうお"
Dim c() As Char = s.ToCharArray()
Array.Sort(c)
s = New String(c)
368:365
06/09/11 14:03:08
!!
ありごとうございました！！
369:デフォルトの名無しさん
06/09/11 14:21:46
そのお礼が366宛てだったら笑えるなｗ
370:デフォルトの名無しさん
06/09/11 14:28:15
>>369
すまん今日一番ワロタ
371:365
06/09/11 15:33:13
何度もすいません。
例えば「abcABC」を「ABCabc」ではなく「aAbBcC」と並び替えるには、
どうすればいいでしょうか？
宜しくおねがいします。
372:デフォルトの名無しさん
06/09/11 15:35:58
>>371
ORDER BY
373:デフォルトの名無しさん
06/09/11 18:43:03
>>371
Public Class MyCompare : Implements IComparer(Of Char)
Public Function Compare(ByVal x As Char, ByVal y As Char) As Integer Implements IComparer(Of Char).Compare
Dim xLow As Char = Char.ToLower(x)
Dim yLow As Char = Char.ToLower(y)
If xLow = yLow Then
Return -x.CompareTo(y)
End If
Return xLow.CompareTo(yLow)
End Function
End Class
Array.Sort(c) の代わりに Array.Sort(c, New MyCompare())