VB.NET質問スレ(Part26) - 暇つぶし2ch

VB.NET質問スレ(Part26) at TECH

1:デフォルトの名無しさん
08/06/04 18:07:34
前スレ

VB.NET質問スレ(Part25)
ｽﾚﾘﾝｸ(tech板)

テンプレは2～5くらいまでの間にある予定

2:デフォルトの名無しさん
08/06/04 18:07:58
MSDN
URLﾘﾝｸ(msdn2.microsoft.com)
どぼん！のVB道のトップページとTipsページ
URLﾘﾝｸ(dobon.net)
URLﾘﾝｸ(dobon.net)
Microsoftクイックスタートチュートリアル
URLﾘﾝｸ(ja.gotdotnet.com)
Insider.NET
URLﾘﾝｸ(www.atmarkit.co.jp)
宇宙仮面の C# プログラミング
URLﾘﾝｸ(uchukamen.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)
URLﾘﾝｸ(dotnetfan.org)
C#プログラミングTips
URLﾘﾝｸ(www.atmarkit.co.jp)

3:デフォルトの名無しさん
08/06/04 18:08:21
CodeProject
URLﾘﾝｸ(www.codeproject.com)
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.winapi-database.com)

4:デフォルトの名無しさん
08/06/04 18:08:44
Windows Api programming in C# , VB.NET, and VB6. Examples of P/Invoke and DllImport with Source code
URLﾘﾝｸ(custom.programming-in.net)
CodeZine
URLﾘﾝｸ(codezine.jp)
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 行でズバリ !!」シリーズ
(VS2005) URLﾘﾝｸ(www.microsoft.com)
(VS.NET 2003) URLﾘﾝｸ(www.microsoft.com)
PAPA'n VB
URLﾘﾝｸ(papanvb.i-love-vb.net)
(旧コンテンツ) URLﾘﾝｸ(www.mitene.or.jp)
VB レスキュー花ちゃん
URLﾘﾝｸ(www.bcap.co.jp)

5:デフォルトの名無しさん
08/06/04 18:44:26
989 名前：デフォルトの名無しさん[sage] 投稿日：2008/06/03(火) 19:15:46
webbrowserでポップアップウインドウを抑止する方法を教えて下さい。

これは誰もわからない？

6:デフォルトの名無しさん
08/06/04 19:41:58
>>5
ググればすぐに出てくるよ。
その上で分からないことがあったらまた聞いてみな。

7:デフォルトの名無しさん
08/06/04 20:26:49
でてこない。検索ワードは？

8:デフォルトの名無しさん
08/06/04 22:33:09
こうですか？わかりません＞＜
URLﾘﾝｸ(www.google.co.jp)

9:デフォルトの名無しさん
08/06/04 23:07:06

Protected Overrides Sub OnNewWindow(ByVal e As System.ComponentModel.CancelEventArgs)
'ポップアップ・ウィンドウをキャンセル
e.Cancel = True
End Sub

これでは新しいウインドウで開くも無効になります。
javascriptでのポップアップを抑止したいです。

10:デフォルトの名無しさん
08/06/04 23:50:35
二次元配列をそのままコピーしたい場合、例えば

moto(9,9) のコピーを作りたいとして
copy(9,9)という配列をもう一個作って

for x 0 to 9
for y 0 to 9

copy(x,y) = moto(x,y)

next
next

みたいなループでの力技でやるしかないかな。なんかもっとスマートな
やり方ないでしょうか。

11:デフォルトの名無しさん
08/06/05 00:06:38
>>10
こことか
URLﾘﾝｸ(homepage1.nifty.com)

12:デフォルトの名無しさん
08/06/05 00:07:09
Clone

13:デフォルトの名無しさん
08/06/05 00:08:06
copy = moto

14:デフォルトの名無しさん
08/06/05 00:09:07
おおありがたい　大変助かります。
copy = moto のわずか一行一発
出来るのでしょうか。
とりあえず試してみます。

15:デフォルトの名無しさん
08/06/05 00:11:56
>>14
それはコピーじゃなくて単なる参照だ
>>11を最初から読め

16:デフォルトの名無しさん
08/06/05 00:12:25
うそつくなｗ
Cloneが簡単だけど，motoのインスタンスをあらかじめ作ってあるならArray.Copyでもいい

17:16
08/06/05 00:12:57
>>16は>>13に対して

18:16
08/06/05 00:15:05
まちがえたmotoじゃなくてcopy

19:デフォルトの名無しさん
08/06/05 00:44:09
>>6
教えて下さい。

20:デフォルトの名無しさん
08/06/05 05:19:54
>>17
いい事言うなあお前。
みんなが頭じゃわかっててもなかなか実践できない事を口に出して言えるなんざ大変な自信だよ。
それで出来てなかったらあのインチキ占いのバアさんと一緒だぞお前。
そんなに当たり前の事を言いたかったら尼さんにでもなってから説教したらどうだ。

21:デフォルトの名無しさん
08/06/05 07:52:56
>>9
ポップアップっていうのは、新規ウインドウでドキュメントを開くことでしょ。

JavaScript以外で新しいウインドウを開くって、具体的には？
IEじゃなくてWebBrowserコンポーネントの話ですよね。
デフォルトで新規ウインドウが開くのを抑制して、新規ウインドウが
必要なときだけ抑制を解除すれば良いんじゃないのかな。

新規ウインドウのURLを取得する拡張WebBrowserのコードが
公開されているので、それを使ってURLで分岐させるのもよさげ。
URLﾘﾝｸ(connect.microsoft.com)

22:デフォルトの名無しさん
08/06/05 14:45:03
A というフォーム（メインメニュー）に配置されているボタン（開始）をクリックすると、
B というフォーム（サブメニュー）が立ち上がり、A は閉じる。
B の中のボタン（終了）をクリックすると B が閉じて、再度 A が開く。

こういうのを実現しようとしているのですが、どうすればいいのかわかりませんorz

A の開始ボタンクリックで、以下のようなコードを書き、B が開くところまではできたのですが、
B を閉じて A に戻る方法がわかりません。
どなたかご教授いただければ幸いです。

-----------------------------------------
Dim f As New A
f.Owner = Me
f.Show()
Me.Hide()

23:22
08/06/05 15:09:45
連カキすみません。

B の終了ボタンクリックで、以下のようなコードを書いたところ、
B が終了し（隠れているだけですが）、また A の画面に遷移したのですが、
A のフォームを閉じても、B のフォームが隠れているため、アプリケーションの終了になりません。
どのような場合でも、ウィンドウ右上の終了ボタンを押下した場合、アプリケーションを終了させるには
どうしたらいいでしょうか？
このようなフォームの切り替え方自体に問題があるということでしょうか？

-----------------------------------------
Dim g As New B
f.Owner = Me
g.Show()
Me.Hide()

24:デフォルトの名無しさん
08/06/05 16:34:15
>>22
f.FormClosedイベントに元のフォームのShowメソッドを呼びだすデリゲートを追加する。
コードは面倒だから書きません。俺C#erだし。C#ならこう。
f.FormClosed += (sender, e) => this.Show();
VBって匿名デリゲートとかλって使えたっけ？
多分こんな感じかね
AddHandler f.FormClosed, (Me.Show()を格納したデリゲート)

誰か翻訳頼むわ。

>>23
同じ原理で、AのフォームのFormClosedイベントでApplication.Exit()メソッドを呼び出す。

25:デフォルトの名無しさん
08/06/05 17:22:23
ApplicationContextでMainForm切り替えだろJK

26:デフォルトの名無しさん
08/06/05 18:23:14
>>21
> JavaScript以外で新しいウインドウを開くって、具体的には？
Shift押しながらクリック、右クリックで新しいウインドウを開く

WebBrowserコンポーネントの話です

27:デフォルトの名無しさん
08/06/05 19:55:00
>>26
なるほど。
それならマウスクリックのイベントを発生させる拡張WebBrowserを作って
それで処理すればよいかと。
方法としては、HtmlElementのマウスクリックイベントを使うか、WebBrowserに送られる
ウインドウメッセージを直接処理してマウス操作を拾う感じで。

もっと単純に、ナビゲート直後だけ新規ウインドウを抑制するとか、後は工夫次第で
何とかなりそうだけどな。

28:27
08/06/05 20:22:48
＞HtmlElementのマウスクリックイベント
MSDNを見たらHtmlDocumentのイベントもありますね。
それなら、こっちの方が良いか。

29:デフォルトの名無しさん
08/06/05 20:43:23
そのイベントで右クリックメニュからのも拾えるの？？

30:デフォルトの名無しさん
08/06/05 22:32:48
以下のようなコードがあります:

Class QRS
Dim M() As QR
Public Shared Opeartor *(ByVal a As QRS, ByVal b As QRS) As QRS
'M(i).inrt を参照
End Class

Class QR
Public inrt As Long
End Class

QR のメンバを参照するために、現在はこれを Public にしていますが、適切なレベルでカプセル化する方法はありますか。
アクセス修飾子などでうまくやる方法がわからず、現在は Property を使おうかと思っていますが、変数の値を返すだけのコードというのも無駄な気がします。

31:デフォルトの名無しさん
08/06/05 22:45:46
その無駄さこそがカプセル化なんだけどね

32:デフォルトの名無しさん
08/06/05 22:53:50
>>29
クリックを拾うだけでメニューは関係ありませんよ。

具体的な用例やコードが示されていない以上、他人にはある程度
あいまいな答え方しかできないわけで、後は自分で工夫してくださいな。

33:デフォルトの名無しさん
08/06/05 23:14:56
やはりクリック披露だけでは無理ですね
ただ用例といっても「javascriptでのポップアップ抑止」に文面以上の用はないですよ

34:デフォルトの名無しさん
08/06/05 23:47:41
>>30
あとで変えることがあるかもしれないからとりあえずプロパティにしとくんだよ
でも配列を返すプロパティというのはあまり使われない
そのままフィールドの値を返すと外から配列の中身を弄り放題になっちゃうからね
だからといってコピーして返すのはコストがかかるからMSのガイドラインでは禁止されてる
Collection<T>使ってIList<T>とか通して見せるのが一番いいんじゃないかな

35:34
08/06/05 23:50:18
ああすまんMじゃなくてinrtの方の話だったのか

36:デフォルトの名無しさん
08/06/05 23:55:09
>>33
JavaScriptでのポップアップっていっても、どのタイミングで
行われるのか示されてないでしょ？
ドキュメントの読み込み時のみの話なら、そのタイミングだけ
一時的に抑制して、あとは抑制を解除すれば一番簡単な話。

タイミングが分からないのなら新規ウインドウのURLを拾って、
リンクと一致すれば新規ウインドウを開くようにする・・・とか、
JavaScriptソースを先にDLして判断するとか、デフォルトで
新規ウインドウを抑制して、クリックイベントが発生した数秒間
だけ抑制を解除するとか、Proxomitronのようにプロクシを
使ってJavaScriptコードを書き換えてしまうとか・・・

まだまだ、いろんなやり方があると思いますが、でもどれが適切なのか
他人には判断できないんですよ。
ですので、ご自身で何とかするしかないわけです。

>>33
＞やはりクリック披露だけでは無理ですね
このコメントも、どのようにしてどのようになったのか。
なぜダメなのか、なぜダメと判断したのか、見ている人には全く分からない。
他の人はエスパーじゃないんですよ。

37:デフォルトの名無しさん
08/06/07 05:35:02
プログラム作り終わってから肝心な事に気付いてしまった。
VB EXPRESSってネットワーク上のDBを更新する事って出来ないんですよね？
例えば、今はACCESSで作ったアプリをネットワーク上に置いてみんなで使用出来るようにしているんだけど、このような使い方が出来るアプリは上位エディションじゃないと無理ですか？

38:デフォルトの名無しさん
08/06/07 05:46:40
>>37
*,exe,configのデータベース接続文字列を手動で変更すれば対応可能。

39:37
08/06/07 06:40:58
>>38
そんなー。
さすがに素人の私には不可能です。

40:デフォルトの名無しさん
08/06/07 07:03:14
jetのmdbならファイル共有型なのだからファルパス以外の変更はないだろ

41:デフォルトの名無しさん
08/06/07 08:09:17
Accessでもデータ部分のmdbをネットワークで共有してUI部分のmdbをローカルに置いてたら同じように接続文字列使ってると思うが

42:37
08/06/07 09:28:16
データソースをサーバー上のDBにしても、結局ローカルにコピーされてしまうんです。
それでアプリを作ってもローカルDBとして作られてしまいます。

43:37
08/06/07 10:33:28
連投すみません。
そもそもアプリにしたら接続してるDBが何処にあるかわかりません。
指定した接続文字列の場所のDBは更新されてません。

44:デフォルトの名無しさん
08/06/07 12:31:00
そらビルドでコピーされてるんだろ多分。
つかどれにつながってるかわからんようなアプリをどうやって使わせる気だったんだよ

45:37
08/06/07 19:23:28
おそらく、アプリとして発行した時点で出来たアプリケーションにDBの情報が
書き込まれていくんだと思うんですが、間違っているでしょうか？
expressは仕様でDBのリモート接続が出来ないんですが、やっぱり無理だった
んでしょうか？

46:デフォルトの名無しさん
08/06/07 19:36:40
>>39
というレベルのお前には上位エディションを買えとしか言えないな。

47:ぽち
08/06/07 21:08:26
現在、VB.NET2005とSQL　Server2005(Express Edition)を使用して簡単なソフトを作成しています。
50音のボタンを押すとそれに対応した画像が表示されるというものです。
50音以外に英・数字等もあるため、SQLを使用してみようと思い、作成しています。
VBもですが、SQLに関して本当に初心者です。

Imports System.Data.SqlClient '接続クラスの作成

Public Class Form1
Dim Cn As New SqlConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=○○○;Initial Catalog=shuwa;")
Dim SQLCm As SqlCommand = Cn.CreateCommand

SQLCm.CommandText = "SELECT かな　FROM shuwa　WHERE 指文字 = 001 "

Dim Value As String

Cn.Open()
Value = SQLCm.ExecuteScalar
Cn.Close()

End Class

他のサイトで値の取得するためのコードとして書いてあったものを参考にして書いたのですが・・・
宣言をしているはずのSQLCm,Cn,Value,にエラー文が表示され”宣言が必要です”とでます。
いろいろいじってはみたのですが、わかりません。
どのようにして解決したらよいでしょうか？
分かる方いましたら、よろしくお願いします。

48:デフォルトの名無しさん
08/06/07 21:16:42
まずVBの基礎から始めろよ

49:デフォルトの名無しさん
08/06/07 21:33:36
ホントにDB必要かそれ

50:37
08/06/07 23:55:15
プロジェクトで共有ネットワーク上にあるDBソースを追加したら、ローカルのデータセットが出来てしまって、どうやってもネットワークのDBを扱えません。
お願いです。
助けて下さい。

51:デフォルトの名無しさん
08/06/08 01:01:03
リストビューの一番左側のアイテムを一つずつ調べたいのですが、
下のようにすると
Cast from type 'ListViewItem' to type 'String' is not valid.
というエラーになってしまいます。

Dim str As String
For Each str In ListView1.Items
If str = ．．．
Next

どのように直したら良いでしょうか。
宜しくお願いします。

52:デフォルトの名無しさん
08/06/08 04:12:44
>>51
>Dim str As String
Dim str As Object

53:デフォルトの名無しさん
08/06/08 08:30:48
WebBrowserで、マウスでページをドラッグしたまま下へ動かしたりするとスクロールできてしまうのはどう対処したらいいのでしょう？
ページの一部分だけ表示したいのですが、対処法が判りません。教えて頂けないでしょうか。

54:デフォルトの名無しさん
08/06/08 09:36:37
>>52
普通
for each lvi as listviewitem in listview1.items
　if lvi.name=...
　if lvi.subitems(0).text=...
next
だろ

55:デフォルトの名無しさん
08/06/08 12:37:43
ツールで、複数のボタンの中から１つだけ押された状態になるように
したいのですが、そういうのはありますか？
機能としてはラジオボタンなんですが、見た目はボタン、というようにしたいのです。

よろしくお願いします。

56:デフォルトの名無しさん
08/06/08 12:49:56
Appearance

57:デフォルトの名無しさん
08/06/08 15:39:36
Private Sub GetSubDirectories(ByVal DirName As String, ByRef Dirs As
List(Of String))
For Each strDir As String In System.IO.Directory.GetDirectories(DirName)
'リストに追加
FolArray(FolArnum) = strDir
FolArnum = FolArnum + 1
ReDim Preserve FolArray(FolArnum)

'再帰でサブフォルダを取得する
GetSubDirectories(strDir, Dirs)
Next strDir
End Sub

指定のディレクトリ以下サブフォルダ含むすべてのフォルダを検索し
配列に格納するプログラムを組みたくて、上記であらかた問題がないのですが、
アクセス権のないフォルダを見つけてしまうと検索をとめてしまいます。
アクセス権のないフォルダ(ほかのユーザのフォルダ)を無視して
作業を続行させたいのですが、うまい対処法を教えていただけないでしょうか？
環境はVS2008とXPのSP3です。

58:デフォルトの名無しさん
08/06/08 17:51:19
アクセス権を調べる方法を調べる

59:デフォルトの名無しさん
08/06/08 18:22:12
VB2008環境で開発している初心者です。
フォームのLoadイベントでプロパティを変更しているのですが
デザイナでValueプロパティを０以外に設定すると
LoadイベントのValue変更が無効になります。
他のイベントで変更するべきなのでしょうか？

60:57
08/06/08 18:46:30
>>58
一ファイルずつ出てきた物を格納するのであれば、
配列に入れる前に確認を行えるのですが、
For Each strDir As String In System.IO.Directory.GetDirectories(DirName)
だと、一括で読み込みを行ってしまい途中に判断を入れる事が出来ないのですが・・・
上手いやり方ご存じでしたら教えて貰えないですか？

61:デフォルトの名無しさん
08/06/08 19:40:09
GrapeCityのSPREAD 7.0Jを使うことになりました。
細かい質問が山ほどあるので、このコンポーネントに関する書籍を
買おうと思うのですが、Amazonで検索してもSPREADの本が見当たりません。
こういうサードパーティ製のコンポーネントは書籍やサイトも無いのでしょうか。

62:デフォルトの名無しさん
08/06/08 21:15:50
>>61
ある

63:デフォルトの名無しさん
08/06/08 22:06:34
>>62
黙ってろカス

64:デフォルトの名無しさん
08/06/08 22:11:07
>>62
そのレス同様におまえの存在も社会にとって役立たずなんだろうな・・・

65:デフォルトの名無しさん
08/06/08 22:12:46
釣堀かよここは・・・

66:デフォルトの名無しさん
08/06/08 22:15:07
>>62
書いた奴の根性の悪さが滲み出ている

67:デフォルトの名無しさん
08/06/08 22:17:13
>>63はどじょっこ
>>64はふなっこ
>>66は藻

68:デフォルトの名無しさん
08/06/08 22:26:33
>>62
よくこういう奴いるけど、なんで空気読めないのかね

あるだけじゃ欠片も有用な情報にならないだろ

69:デフォルトの名無しさん
08/06/08 22:29:57
馬鹿ばっかりでワロタ

70:デフォルトの名無しさん
08/06/09 00:29:01
>>62は死んだ方がいいね

71:デフォルトの名無しさん
08/06/09 00:52:42
>>62
こういうやつマジで死んで欲しい人間性が最悪杉

72:デフォルトの名無しさん
08/06/09 01:14:24
粘着

73:デフォルトの名無しさん
08/06/09 01:47:47
>>61の書き込みであふれています

74:デフォルトの名無しさん
08/06/09 02:07:50
タブコントロールについてWindows フォームデザイナで自動で生成されるコードの
下の部分なのですが、

Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage4)

だったものが、いつの間にか

Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage4)

に変わってしまいます。何が原因でしょうか？教えて頂けると助かります。

75:デフォルトの名無しさん
08/06/09 17:52:24
フォームを最大化したまま、画面サイズを変更可能にしたいのですが
ControlBox = Falseにしても、最大化が解除できてしまいます。
画面サイズを固定にする方法はどうすればよいのでしょうか？
ちなみにシステム仕様の関係でFormBorderStyle = None　は使えません。

76:デフォルトの名無しさん
08/06/09 18:08:38
画面サイズを固定したいのか変更可にしたいのかどっちだ？

77:デフォルトの名無しさん
08/06/09 18:53:18
途中でディスプレーの解像度を変えたいのではないかとエスパーしてみる

78:デフォルトの名無しさん
08/06/09 22:01:11
>>74
重なり順じゃね？

79:デフォルトの名無しさん
08/06/10 15:35:11
CDドライブのトレイを開く方法で
MciSendString("Set CDAudio Door Open Wait", Nothing, 0, 0)
だけだと複数のCDドライブがあったときに最初のドライブしか開きません。
ドライブを指定してトレイを開く方法はないでしょうか

80:デフォルトの名無しさん
08/06/10 19:11:04
質問させてください。

VB2005でハードディスクのAAMとAPMを設定する
プログラムを作りたいのですが、参考になるような
サイトなどご存知の方いましたら、教えてください。

よろしくおねがいします。

81:デフォルトの名無しさん
08/06/10 20:39:34
>>79
あるよ

82:デフォルトの名無しさん
08/06/10 21:39:06
formのloadイベントが、

frm = new frm
frm.text　= "たいとる"
frm.visible = false
frm.visible = true <ここで発生します

要するに画面表示を行うタイミングで発生しています。
newのタイミング、又は、画面表示を行わずに任意のタイミングでLoadイベントを発生させるにはどうしたらいいですか

83:デフォルトの名無しさん
08/06/10 21:53:49
コンストラクタに書く

84:デフォルトの名無しさん
08/06/10 22:00:23
処理を移せばまあ、似た様なことにはなると思います。
ただloadを任意に呼べたほうが全体的にやり易いんですが、無理ですかね

85:デフォルトの名無しさん
08/06/10 22:03:30
間違えた。

private withevent frm as form1

で宣言してて宣言してるところで
frmのloadイベントに処理を書きたいので
コンストラクタではいろいろ無理があるのでした

86:デフォルトの名無しさん
08/06/10 22:06:09
何がしたいのか分からない
form1に手を入れられるんだったらコンストラクタに書くなり
初期化用のメソッドを定義するなりすればいい
form1に手を入れられないんだったら，表示する前にfrm.Size=…とか外から弄れば同じこと

87:デフォルトの名無しさん
08/06/10 22:19:01
したいことは
「画面表示を行わずに任意のタイミングでLoadイベントを発生させる」
です。
どういう方法がありますか

88:デフォルトの名無しさん
08/06/10 22:27:57
継承して基底クラスのOnLoadを呼ぶしかない
表示される直前に発生するのがLoadイベントなんだから関係ない時に発生させるのはおかしい

89:デフォルトの名無しさん
08/06/10 22:56:23
>>79
result = mciSendString( "open " & _Drv & " type cdaudio alias cdrom", space(255), 255, 0)
result = mciSendString( "stop cdrom", space(255), 255, 0)
result = mciSendString( "set cdrom door open", space(255), 255, 0)
result = mciSendString( "close cdrom", space(255), 255, 0)

90:デフォルトの名無しさん
08/06/10 22:59:16
ああ、nothing,0でもいいのか…

91:デフォルトの名無しさん
08/06/11 00:07:27
質問です。

文字列のバイト数を調べるということはできますか？
いくつかソースや例はあったのですがバージョンが違うらしくて途方にくれてます･･･。

92:デフォルトの名無しさん
08/06/11 00:09:25
URLﾘﾝｸ(www.atmarkit.co.jp)

93:デフォルトの名無しさん
08/06/11 00:15:58
お早い回答ありがとうございます・・・っ

どうVBでやればいいのかさっぱりですが
これをヒントに格闘再開してみます･･･。

94:デフォルトの名無しさん
08/06/11 06:17:30
>>81
それ面白いの？

95:デフォルトの名無しさん
08/06/11 11:07:00
>>94
というより、質問の仕方が悪いことに突っ込んでるんだろ。
"ありますか？"と聞かれれば返答はbool型で返ってくるもんだよ。
プログラミングの前に日本語をしっかり習得するべきだと思う。

96:デフォルトの名無しさん
08/06/11 11:20:35
質問です。

vb.netと他の言語（C#）のファイルをひとつのプロジェクトに混在させることはできないのでしょうか？
たとえば、vb.netで作ったクラスをc#側から参照・呼び出しするといったようなことです。
調べてみても分からなくて・・よろしくお願いいたします

97:デフォルトの名無しさん
08/06/11 11:52:14
>>96
ビルドしてできたDLLなりEXEなりを他のプロジェクトの参照に追加すれば

98:デフォルトの名無しさん
08/06/11 12:03:37
>>95
よくいる捻くれプログラマだな。

99:デフォルトの名無しさん
08/06/11 12:05:49
混在させる理由って他人が作ったライブラリを組み込むとかその程度だろ
自分で作って混在は捻くれてるな

100:デフォルトの名無しさん
08/06/11 12:24:53
>>96
ひとつのプロジェクトではなくひとつのソリューションということなら
Visual　StudioのStandard　Edtion以上を購入する。
Expressでやりたいなら>>97のとおり。
EXEなりDLLをひとつにしたいなら裏技的というか試練の道になる。あきらめたほうが良い。

101:デフォルトの名無しさん
08/06/11 13:24:25
expressでも出来るだろ。
VWDだけは無理だが。

102:デフォルトの名無しさん
08/06/11 14:59:55
基本的な事を質問させて下さい。

Dim url As String = "URLﾘﾝｸ(aaa.jp)<)")

のようにソースを短くするのでは、
どちらが動作が速いのでしょうか。
また、二つ以上の引数を要求するメソッド等の場合では変わったりするのでしょうか？

103:デフォルトの名無しさん
08/06/11 15:19:03
誤差の範囲内
その二つならどうせ最終的には同じバイナリが実行される

104:デフォルトの名無しさん
08/06/11 15:42:37
>>102
どっちのコードでコンパイルしてもコンパイラが最適化してくれるから、
最終的なEXEの中身は同じになるはず。

105:デフォルトの名無しさん
08/06/11 16:51:20
何でもこんな些細なことを気にする人が多いの？

106:デフォルトの名無しさん
08/06/11 18:34:06
>>95
それってただの無能さをひけらかしてるだけだよｗ
有能なら相手が何を知りたがっているか考えて
そこから先も答える

107:デフォルトの名無しさん
08/06/11 19:30:17
VB6で書かれたインターフェース部分のコードから、C++で書かれたDLLを読み込んで利用していたものを
VB.Netで読み込みなおして再利用したいと思っています。

このDLL、COMに非対応の様なのですが、書き直しなしで読み込みってできるでしょうか？
出来ないならある程度楽そうな方法としては何が思いつくでしょうか？

.Net環境歴短いので、初心者質問申し訳ございません。

108:デフォルトの名無しさん
08/06/11 20:12:47
>>107
VB6でDeclareを使って呼び出していたDLLをVB.NETで使いたいということでいいのかな？
VB.NETにもほぼ同等のDeclareがあるからこれを使う。
違いもありおそらくVB側のコードは手を入れる必要がある。
DLL側の変更はいらないはず。
プラットフォーム呼び出しやP/Invokeでぐぐったらいい。

109:デフォルトの名無しさん
08/06/11 20:39:55
>>106
バカはお前w
分かってるけど教育的指導ってやつなのに

110:デフォルトの名無しさん
08/06/11 20:51:05
日本語遊びしたいならよそ池。

111:デフォルトの名無しさん
08/06/11 21:26:14
教育的指導とかこのスレに必要なくね
ここどこだと思ってんだよｗｗｗ

112:デフォルトの名無しさん
08/06/11 21:56:48
すみません、また質問させて下さい。
Clickのイベントで、複数のハンドルがある時に、
Clickハンドルを呼び出したオブジェクトのTagプロパティを参照したいのですが、
皆さんならどのような方法を用いますでしょうか。
どうかご口授下さい。

113:デフォルトの名無しさん
08/06/11 21:57:48
sender引数をControlにキャストする

114:デフォルトの名無しさん
08/06/11 22:06:16
>>112
何を言ってんのか分からない

115:107
08/06/11 23:07:55
>> 108
どうも、ありがとうございます
これでいろいろと目処が立ちました。

116:デフォルトの名無しさん
08/06/11 23:10:05
>>112
教育的指導も必要かと思った

117:デフォルトの名無しさん
08/06/11 23:53:45
>>114
フォームにボタンを3つ置いて、そのボタン3つのクリックイベントを同じイベントで処理するようにしています。
そのクリックイベントで、押されたボタンのTagプロパティを参照したり、ForeColorを変更したりしたいのです。

>>113
Me.Text = CType(sender, Control).Tag
のような事でしょうか？

118:デフォルトの名無しさん
08/06/12 11:11:52
>>117
Yes

119:デフォルトの名無しさん
08/06/12 11:59:59
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
AddHandler Button1.Click, New EventHandler(AddressOf Me.ButtonClick)
AddHandler Button2.Click, New EventHandler(AddressOf Me.ButtonClick)
AddHandler Button3.Click, New EventHandler(AddressOf Me.ButtonClick)
End Sub

Private Sub ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs)
Dim A As String
AA = CType(sender, Control).Text
Me.Text = AA
End Sub

のようにしているのですが、エラーが起きてしまいます。
何が原因なのでしょうか？

120:デフォルトの名無しさん
08/06/12 12:03:11
>>119
× AA = CType(sender, Control).Text
○ AA = Ctype(sender, Button).Text

ちっとは頭使おうな。ControlのメンバにTextというものはないとかどうとか言われてるんだろ？
元がボタンなんだからボタンにキャストしる。

121:デフォルトの名無しさん
08/06/12 12:03:16
エラーに書かれてるとおりだと思うよ

122:デフォルトの名無しさん
08/06/12 12:03:47
>>120
Control.Text は存在してるよ

123:デフォルトの名無しさん
08/06/12 12:07:04
>>122
適当なこと言ってスマナカッタ。
ちっと検証してみるわ

124:デフォルトの名無しさん
08/06/12 12:15:41
俺の環境ではControlのままでも問題なく動作したな・・・
というかButton1,2,3の型はなんだ？

×Private Sub ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs)
○Private Sub ButtonClick(ByVal sender As System.Object, ByVal e As System.EventArgs)

これで問題なさそうだけど

125:デフォルトの名無しさん
08/06/12 16:14:25
>>124
ありがとうございます。
思う通りにできました。
イベントを作る時に一つ下のイベントから少しコピーしたので、その時に間違った引数になってしまったみたいです。
お騒がせして申し訳ありませんでした。

126:デフォルトの名無しさん
08/06/12 16:58:02
87 名前：男です女です名無しです[] 投稿日：2008/06/12(木) 11:16:32 ID:K9IgFOCw

この歌、荻野目洋子の　「六本木純情派」　とだいぶ似ている
気がするのは俺だけ？

88 名前：男です女です名無しです[] 投稿日：2008/06/12(木) 11:21:47 ID:K9IgFOCw

YouTube - 荻野目洋子　六本木純情派　　1987.12
URLﾘﾝｸ(jp.youtube.com)

89 名前：男です女です名無しです[] 投稿日：2008/06/12(木) 11:25:49 ID:K9IgFOCw

YouTube - 鼠先輩「六本木～GIROPPON～・クラブ編」
URLﾘﾝｸ(jp.youtube.com)

やっぱり似ている。

127:デフォルトの名無しさん
08/06/12 23:47:07

単一インスタンスのアプリケーションを作成するにチェックし、
スタートフォームを最小化、タスクバー表示なしにして、起動してるんですが
（意図通りにスタートフォームは非表示で起動されています。タスクトレイ常駐させています）

起動後、もう一度exeをクリックすると、スタートフォームが表示されてしまいます。＜②

どうしたら②を起きないようにできますか？

128:デフォルトの名無しさん
08/06/13 09:05:32
>>127
＞どうしたら②を起きないようにできますか？
どういう動きにしたいの
もう一度押した時に二番目以降も同様に非表示で起動したいの
それとも多重起動はさせないようにしたいの

多重起動防止ならMutex辺りを調べると幸せになれるかも。

129:デフォルトの名無しさん
08/06/13 12:03:18
DMI画面でWindowsアプリを作成しているのですが、問題が発生してしまいまして…
どなたか解る方がおられましたらご教授お願いします。

問題点:DMIの親画面の適当な場所にボタンを貼り付ける。
　　　　子画面を作成、実行し、子画面を呼び出すと、なぜかボタンだけが子画面の上にきてしまう。
　　　なぜこういう問題が起こるのでしょうか？？

130:デフォルトの名無しさん
08/06/13 18:44:29
>>128

Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) _
Handles Me.StartupNextInstance
e.BringToForeground = False

これで表示されなくなりました。

131:デフォルトの名無しさん
08/06/13 20:48:37
>>95
方法を知りたくてありますか？って聞いてる人間に対して
あるよ。なんて答えたら実生活なら池沼扱いだぞ

132:デフォルトの名無しさん
08/06/13 20:55:17
俗にいうKYですな

133:デフォルトの名無しさん
08/06/13 20:56:59
>>131
2ちゃんで「実生活なら」とか言ってる時点でお前も池沼

134:デフォルトの名無しさん
08/06/14 01:01:53
asp厨房からやっとvb.netに昇進できます
VBとほとんど同じだろと思っていたら、難しいですね、ぜんぜん違う
継承って何だ？宣言だけじゃだめなのかよ！状態
変数宣言したのに、なんか変数の値が知らない間に変わってるし
やさしい本ないすか？

135:デフォルトの名無しさん
08/06/14 04:01:19
String型の1という数字を使ってコントロールの番号を指定するにはどうやったら良いですか？

例えば
TextBox1に 3 と入力してある場合に

PictureBox3.Image = ("******")

ということをやりたいです。宜しくお願いします。

136:デフォルトの名無しさん
08/06/14 04:10:18
>>134
aspやったことないけど、そのレベルならVB中学校から始めた方が良い。
VB関連で2000円ぐらいで買える本よりはずうーっと親切だから。
一通り基礎が終わったらリファレンス本一冊あれば十分。

>>135
下三行の意味がわからない。

137:デフォルトの名無しさん
08/06/14 04:16:36
select文でいいんじゃね？

138:デフォルトの名無しさん
08/06/14 04:38:56
レスありがとうございます。

>>136

わかりにくくてすみません。

使い方のような説明をさせていただきます。
例えば、Label1に画像のファイル名が書いてあって、
そのファイルを１～１０まであるピクチャーボックスのどれに表示するかを
テキストボックス１に数字を入力して1ならPictureBox1に2ならPictureBox2に
という感じで表示させたいです。

139:138
08/06/14 04:39:22
実際はそういう用途ではなくて、PictureBoxどうしのD&Dで画像を入れ替えたいのですが、
表示した手段があっていないのか、表示がされているのに
MouseDownイベント内の
PictureBox1.DoDragDrop(PictureBox1.Image, DragDropEffects.All)
を実行すると
Object reference not set to an instance of an object.というエラーが出てしまうため、
PictureBox1.DoDragDrop("1", DragDropEffects.All)
というようにして、どこの画像をドラッグしてきたのかということを１という数字で
渡すようにしました。

PictureBox1.DoDragDrop(PictureBox1, DragDropEffects.All)
という方法が出来れば良いのですが、そうすると
PictureBox2_DragEnterイベント内の
　If e.Data.GetDataPresent(DataFormats.*****) Then
e.Effect = DragDropEffects.Copy

の******の部分の書き方が分からないため使えないでいます。

>>137
Selectですとピクチャーボックスが沢山ある場合にCaseの記述がその数だけ
必要になってしまうので、簡単にしたいです。
（プロシージャをコピペで増やす際に中身を書き換えなくて済むようにしたいです。

140:デフォルトの名無しさん
08/06/14 05:01:14
>>135
FAQだ。過去スレ見れば出てくると思うが、VB6にあったその機能はなくなった。
PictureBoxの配列を自分で作って必要なものを放り込め。

141:デフォルトの名無しさん
08/06/14 05:06:43
System.Reflection

142:デフォルトの名無しさん
08/06/14 05:59:36
Form.Controls("pictureBox1")　という方法もあるが>>140のをすすめる。

143:デフォルトの名無しさん
08/06/14 06:16:47
レスありがとうございます。
今回は配列の方法でやることにします。
ありがとうございました。

144:134
08/06/14 22:04:45
>>136
ありがとうございます！
今見てますが、なかなか良さそうです
今の僕にピッタリかも

145:デフォルトの名無しさん
08/06/15 02:03:26
またお助けください。
Private Sub PictureBox2_DragDrop(ByVal sender As Object, _
ByVal e As System.Windows.Forms.DragEventArgs) Handles PictureBox2.DragDrop
のイベントの中で

PictureBox2の2という数字を文字列として取得したいのですが、どうすれば良いですか？

146:デフォルトの名無しさん
08/06/15 08:36:36
"2"

147:デフォルトの名無しさん
08/06/15 09:17:49
>>145
「2という数字」の意味が分からんがｴｽﾊﾟｰすると
sender.name.substring(10)
って意味か？

148:デフォルトの名無しさん
08/06/15 12:51:24
それなら
sender.ToString.substring(10)
じゃないか？

149:デフォルトの名無しさん
08/06/15 15:49:20
レスありがとうございます。
sender.ToString.substring(10) でできました。！
分かりにくい説明を察して頂きありがとうございました。

150:デフォルトの名無しさん
08/06/15 16:12:43
作業管理表のプログラムを作成しています。

その中で、作業内容の登録時に
作業開始予定日が作業終了予定日より後の日付になっていたら
作業登録ボタンを押下後にエラーメッセージを表示させたいです。

調べてみたんですが、それらしい単語も分からないのでまったくヒットせず・・・。

このようなチェックに名前ってあるんでしょうか？
良ければサンプルコードを教えてもらえるとありがたいです。

151:デフォルトの名無しさん
08/06/15 16:53:52
>>150
悪いけどググったら出る内容はなるべくググって欲しい
URLﾘﾝｸ(www.google.com)

152:デフォルトの名無しさん
08/06/16 13:22:50
>>151
150じゃないけど、ありがとう。

153:ＶＢ始めて１カ月
08/06/16 16:43:23
文字列の最後にくっついているアスキーコードで 00 の文字を trimEnd で取り除きたい。
Ｃ言語の \0 はＶＢではどう表現するのか教えてちょうだい。

154:デフォルトの名無しさん
08/06/16 17:10:35
Chr関数

155:ＶＢ始めて１カ月
08/06/16 17:23:04
>>154
ありがとう
うまくいった

156:デフォルトの名無しさん
08/06/16 22:46:20
windowsのプロダクトキーってどうやって取得しますか

157:デフォルトの名無しさん
08/06/17 02:54:50
画像ファイルを右クリックした時にメニューに表示される
「編集」を選んだときに起動されるアプリのパス名を取得したいのですが、
教えて欲しいです。

自分の場合はmspaintが設定されているので、レジストリエディタで
%SystemRoot%\system32\mspaint.exe
を検索してみたところ、いくつかヒットはするのですが、どれのレジストリに
メニューの「編集」に設定されているものなのか分かりませんでした。

画像ファイルのダブルクリックは「Windows 画像とFAXビューア」というのが
設定されているので、Process.Startを使うとビューアが起動されてしまい
mspaintが出てくれません。お助け下さい。

158:157
08/06/17 03:44:53
ここの場所から取得してみたのですが、大丈夫でしょうか？
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\SystemFileAssociations\image\shell\edit\command

159:デフォルトの名無しさん
08/06/17 12:03:20
VB.NET初心者なのです。
FormAから呼び出しているFormBを閉じた際に
FormAを閉じて(FormBで変更した内容のデータをFormAに反映してから)
FormAを再ロードしたいのですが

Private Sub FormB_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed

Dim a As New FormA

a.Close()

a.show()

とすると破棄されたオブジェクトにアクセスできません。
というエラーが出ます。
どうしたら回避できるでしょうか？
よろしくお願いします。

160:デフォルトの名無しさん
08/06/17 12:04:26
閉じるんじゃなくて非表示にする

161:159
08/06/17 12:36:29
>>160
度々すみません。

a.hide()もしくはa.visible = False後に
a.showとすると
FormAが２重に開かれてしまうのですが…

162:デフォルトの名無しさん
08/06/17 12:41:30
そんなむちゃなでたらめなコードがまともに動くかいな

163:デフォルトの名無しさん
08/06/17 12:44:59
Newって言葉和訳できる？

164:デフォルトの名無しさん
08/06/17 13:15:12
出来ないからいるんだろ？

165:デフォルトの名無しさん
08/06/17 15:03:06
Private Sub FormB_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed

FormA.Hide()

'FormBで変更した内容をFormAに反映させる記述をこのへんに

FormA.Show()

End Sub

166:デフォルトの名無しさん
08/06/17 16:35:57
すみませんが、ご教授お願いいたします。
フォームＡからフォームＢを呼び出しますが、
既にフォームＢが開かれていた場合、二重に呼び出さないようにするための条件式を教えていただけますか？

167:デフォルトの名無しさん
08/06/17 16:40:45
単一のFormBインスタンス使いまわせば十分じゃね？

168:デフォルトの名無しさん
08/06/17 16:43:58
>>166
普通にShowやShowDialogを使っていれば二重に呼び出す事は無いと思うんだけどな。
もし二重になってしまう場合でも、呼び出す際に変数を使って条件分岐させればいいと思うし。
どういう場合の事を言っているの？

169:166
08/06/17 16:51:04
すみません、言葉が足りませんでした。
ちょっと長くなりますが、以下詳細です。
----------------
フォームＡ（メインフォーム）
フォームＢ（サブフォーム）
フォームＣ（サブフォーム）
があります。

（１）フォームＡからフォームＢをモーダルフォームとして開きます。
（２）フォームＢ・Ｃにはラジオボタンが配置されており、ラジオボタンのチェックの移動で
　　　フォームＢ・Ｃを行き来できるようにします。
　　　（その際、もう１つのフォームは閉じる）
（３）フォームＢ・Ｃともに「終了」ボタンが配置されており、ボタンを選択することで、
　　　自フォームを閉じ、フォームＡに遷移します。　　　
----------------

長くなるので１回区切ります。

170:166
08/06/17 16:52:50
以下、ソースです。

＜フォームＡ＞

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

FormB.ShowDialog(Me)
FormB.Dispose()

End Sub

171:166
08/06/17 16:55:23
＜フォームＢ＞

Private Sub FormB_Show(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Shown

Me.RadioButton1.Checked = True
Me.RadioButton2.Checked = False
FormC.RadioButton1.Checked = False
FormC.RadioButton2.Checked = True

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

Me.RadioButton1.Checked = True
Me.Hide()
FormC.ShowDialog(FormA)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

FormA.Show()
FormC.Close()
Me.Close()

End Sub

172:166
08/06/17 16:57:03
＜フォームＣ＞

Private Sub FormC_Show(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Shown

Me.RadioButton1.Checked = False
Me.RadioButton2.Checked = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

FormB.Close()
Me.Close()
FormA.Show()

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

Me.Hide()
FormB.Show(RollingPlan)

End Sub

次ページ