VB.NET質問ｽﾚ (Part12)

VB.NET質問ｽﾚ (Part12 ..

607:デフォルトの名無しさん
05/10/10 11:36:29
chkVisible.CheckedはmblnVisibleの１条件と見るべき、たまたま条件が１つだっただけ。
従って、mblnVisible = chkVisible.Checked は良くないな。

608:595
05/10/10 11:41:55
んー、なんとなく了解しました。

まあ俺の作法が駄目ということではなさそうなので安心。
可読性と速度と保守性と一貫性を考慮してればいいよってことだよね。

MVC初めて知ったので、これから勉強。でもVB.netのユーザー入力部分だけ
のコーディングにMVCもくそもないかw
分離できてるってことか。

相手してくれた方々、ありがとう。

609:デフォルトの名無しさん
05/10/10 12:00:15
>>608
例えば、ユーザー入力に対するチェックだって、きちんと分離しろ。
関数化して、I/Oをきちんとすること、そこから始まりだよ。
イベント関数はそれらを呼ぶだけにする。

610:デフォルトの名無しさん
05/10/10 12:12:28
言葉遣いが偉そうな奴ってなんで例外なく無能なんだろう。。

>例えば、ユーザー入力に対するチェックだって、きちんと分離しろ。
>関数化して、I/Oをきちんとすること、そこから始まりだよ。
>イベント関数はそれらを呼ぶだけにする。
もう馬鹿丸出し。そんなの程度問題でしょ。

611:デフォルトの名無しさん
05/10/10 12:18:44
>>610
出来もしない奴がよく言う言い訳だね。

612:デフォルトの名無しさん
05/10/10 13:22:18
>>606
それは設計規約、コーディング規約、設計書等の記述が甘いからです。
中国人プログラマー相手であればコーディングの1行がこうなると設計書の記述から100%読めない限りダメです。
その為ブリッジＳＥの単価は跳ね上がるのです。

ＳＥで来てるんなら、そいつはＳＥじゃなくてＰＧだという事で単価交渉しろ

613:デフォルトの名無しさん
05/10/10 17:03:51
複数選択する時にマウスでドラッグして選択する場合がありますが、その時の「四角い枠で
選択中」ってイベントはどうやって知ればいいのでしょう
つーか複数選択解除しただけで何でselecteditemchangeが選択してたアイテム数回
発生しやがるんでしょうね

614:613
05/10/10 17:06:13
間違えました
selectedindexchangedでした

615:デフォルトの名無しさん
05/10/10 17:10:01
MouseMoveでe.Buttonのチェックでもすれば？

616:デフォルトの名無しさん
05/10/10 20:02:26
ソース修正後に追加した覚えのない存在しないコントロール「_label4」など
が参照できないためコンパイル不可に陥るのは、vb.netの仕様ですか？

617:613
05/10/10 20:52:01
>>615
この間のイベント
mousemove
　:
mousemove
mousedown
ドラッグ開始
selectecindexchanged
　:
selectecindexchanged
ドラッグ終了
mouseup
mousemove
　:
mousemove
ドラッグの間はmousemoveが発生しないし、mousedownの時点ではこれからドラッグ
するのか分からない、
要はselectecindexchangedが連続して発生しているものなら最初の1回以外無視
したいのです

618:デフォルトの名無しさん
05/10/10 21:27:58
必然性の良く分からない要求だなぁ……。

派生クラスを作る。
フラグを用意。
OnSelectedIndexChangedで、
・フラグが立ってれば返る。
・Control.MouseButtonsがMouseButtons.Noneでないのなら、フラグを立てて返る。
・どちらでもないのなら基底クラスのOnSelectedIndexChangedを呼ぶ
　（SelectedIndexChangedイベントに登録されたハンドラを処理する）。
OnMouseUpで、
・フラグが立ってれば、フラグをおろし、
　必要ならOnSelectedIndexChangedを呼ぶことでSelectedIndexChangedを処理させる

とかどう？

619:613
05/10/11 00:11:46
ちょっと複雑に考えすぎてた
要はmousedownで右クリ、Ctrl、Shiftでスキップ用のフラグ立てるだけで良かった
んでselectedindexchangedの中で処理回避してフラグ立てて、mouseupで解除する、と

要は、選択したファイルのサイズとか作成日とか表示してるのだけど、複数選択
してもどうせ最初の1つしか表示しないので、最初の1回しか表示ルーチンに
回さないようにしたかったってこと
(実際チラチラして見辛かったし時間も僅かとは言え食ってたから)

620:デフォルトの名無しさん
05/10/11 04:20:25
文法エラー（青色の波状の下線）の場所にマウスカーソルをあてても、
何か設定を弄ったのか、エラー内容が出なくなりました。
「ツール」→「オプション」や、説明書を確認してみても分かりませんでした。

アホな質問ですみませんが、どこの設定を確認してみればいいのでしょうか。

621:デフォルトの名無しさん
05/10/11 09:40:12
ASP.net、VB.NETにてウェブアプリケーションを作製しています。
DataGridコントロールのテンプレート（TextBox）に配列の内容を表示したいのですが、
以下の様に書くとエラーがでてしまいます。
なにか方法があるのでしょうか。

<asp:DataGrid id="DataGrid1" runat="server" AutoGenerateColumns="False">
<Columns>
<asp:TemplateColumn HeaderText="名前">
<ItemTemplate>
<asp:TextBox id="TextBox1" runat="server"><%# Container.DataItem %></asp:TextBox>
</ItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>

Public a() As String = {"あああああ", "いいいいい", "ううううう"}
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGrid1.DataSource = a
DataGrid1.DataBind()
End Sub

622:デフォルトの名無しさん
05/10/11 09:55:01
取りあえずエラーの内容ぐらい書こうよ

623:621
05/10/11 10:00:32
すいません。
以下のようなエラーが出ています。

例外の詳細: System.Web.HttpException: 'TextBox' に型 'DataBoundLiteralControl' の子を指定することはできません。

TextBoxのところをLabelに変更するとエラーもなく動きましたが、TextBoxだと動きません。

624:デフォルトの名無しさん
05/10/11 10:52:47
すいません。自己解決しました。
TextBox部分を以下のように変えたら動きました。

<asp:TextBox id="TextBox1" runat="server"><%# Container.DataItem %></asp:TextBox>
　　　　　　↓
<asp:TextBox Runat="server" Text="<%# Container.DataItem %>"></asp:TextBox>

625:デフォルトの名無しさん
05/10/11 16:51:08
Fromを最大化、最小化した際のWidth, Heightプロパティの値を取得すると、
最大、最小化時の値が取得されますが、
そのままの状態で、Normal時に戻したときのWidth,Heightの値を取得する方法はありますか？

Form終了時に、Width,Heightの値を設定ファイルに記憶したいのですが、
最大、最小化時に終了した際に、最後の時点のNormal時の値を書き込みたいのです。
（次回起動時に反映させたい為）

626:デフォルトの名無しさん
05/10/11 17:07:29
ResizeイベントでWindowStateがNormalの時にフィールドに保存。

627:デフォルトの名無しさん
05/10/11 17:14:25
>>626
ありがとうございます。
やってみます。

628:デフォルトの名無しさん
05/10/11 23:35:18
構造体の初期化はどうやって行うのでしょうか？
Constraction DATA
dim A as integer
dim B as string
end Constraction

dim tData as DATA

Redim tDatata ←これもだめ
Erase tData　　　　 ←これもだめ

教えてください。

629:デフォルトの名無しさん
05/10/11 23:38:39
Structure

630:デフォルトの名無しさん
05/10/11 23:38:51
Dim dData As Data
dData = New Data()
'むしろDim dData As Data = New Data()

ところでConstractionってなんだ

631:デフォルトの名無しさん
05/10/11 23:46:16
wordのスペルチェック機能を
vb.netで作ったテキストエディタで利用したいんだけど（もちろんwordが既にインストールされている状態
どうすればいいの？

632:デフォルトの名無しさん
05/10/11 23:46:21
ストラクチャでコンストラクタ書けばいいんでねーけ？

633:628
05/10/12 01:41:03
>>629 >>630 >>632
ありがとうございました。Newキーワードについて調べてみます。
Structureですね、初心者なので間違えました。

634:デフォルトの名無しさん
05/10/12 09:51:17
ODBC接続をするアプリケーションを作成しているのですが、
接続情報が顧客によってちがいます。OdbcConnectionクラスで
接続していますが、どんなDBでも対応できるようにできますでしょうか？
VC++6.0で作成したプログラムを見たことがあるのですが、
ODBC接続情報を入力する標準のダイアログが出てきました。
こういうものは、VB.NETにはないでしょうか？
どなたかお聞かせ下さい。
よろしくお願いします。

635:デフォルトの名無しさん
05/10/12 11:03:35
>>634
なぜにＯＤＢＣ？
接続情報は当然顧客毎に違うでしょうね。
ＤＢＭＳ差を吸収するのがＯＤＢＣだと思いますが。
ユーザー名等は設定ファイルなどで記述して、接続先はインストール時に作るか手順書では？

まあ、.netっぽくやるのであればOLEDBに移行すべきだと思う。

636:デフォルトの名無しさん
05/10/12 14:02:16
中国人のブリッジSEがODBCにしろというんですよね。
彼が言う標準のODBCダイアログというのは、どうやら、｢SQL Serverログイン｣のことのようですね。
ODBCデータソースアドミニストレータで、システムDSNにある特定の名前を入れるんだけど、
アクセスだとパスワードの入力要求はされないが、SQLServerでSQLServer認証を使うと、
パスワードが入力要求されるんです。
中国人BSEが言う｢ODBC用の標準的な接続ダイアログ｣なんて、本当にあるんですか?
よろしくお聞かせ下さい。

637:デフォルトの名無しさん
05/10/12 14:04:12
その中国人BSEに聞いたらあかんの?

638:デフォルトの名無しさん
05/10/12 14:43:54
ACCESSで出るダイアログと同じものが出るはず
VB6ではお世話になったが.NETでは使わなくなったから検証できず

639:デフォルトの名無しさん
05/10/12 15:54:30
>>637
中国人BSEも、遠い記憶を基にして言っているので、ソースが定かではない。
結局、中国人の思いつきを、おれが調査しなくてはならない。

>>638
VB6では、どんなダイアログか分かりますか？
教えて下さい。
お願いします。

640:デフォルトの名無しさん
05/10/12 16:06:54
>>639
接続先データソース名
ID
パスワード
の入力ダイアログが出る（はず

641:デフォルトの名無しさん
05/10/12 16:56:38
>>640
どんなコントロールですか？
コントロール名とか分かりますか?

642:デフォルトの名無しさん
05/10/12 17:04:58
>>620ですが、
fixでOS（XP）を再起動したら回復しました。
よく見たら、他のソフトも表示されておらず、
どうやらポップアップがウィンドウの背後に出ているようでした。
（些細な事で、数時間無駄にしてしまいました）

3週間位連続して使っていたのですが、まれにこんなことがあるんでしょうかね。

643:デフォルトの名無しさん
05/10/12 17:57:30
>>636
それはODBC ドライバマネージャが表示するもので、
RDOでOpenConnectionするとき、DSNが無かったり接続情報が不完全な場合に出てた。
もっぱら開発時やデバッグ用の機能で、通常のアプリケーションではDNS情報が不完全な場合は
rdDriverNoPromptを指定してプロンプトを出さずにエラーにしてプログラムで処理する。
ADO.NETはもちろんADO以降そんな機能はない。
第一バックグランドで動くかもしれないプログラムが勝手に妙なプロンプトを出したらユーザーが困る。
System.Data.OdbcはOLEDBや専用の.NET Driver(SQLServerやOracle)が無い場合にやむなく使う機能。
もしプロンプトを出したいだけの理由でODBCを使いたいといってるなら却下だな。

644:デフォルトの名無しさん
05/10/12 19:17:05
sub とか function の内部でローカル宣言した const に2040バイトほどの
文字列を入れるとコンパイル時にVisualStudioごと落ちるんですが、これは
仕様なんでしょうか？

645:デフォルトの名無しさん
05/10/13 00:02:03
TcpClientについて質問です。

現在、DataAvailableのプロパティで、読み取りデータがあるかないかを調べ、
データがある場合はデータを読み込み、無い場合はスルー
という感じで、受信待ちの形(Do Loop)にしているのですが、

WinsockのDataArrivalイベントのように、データを受信した場合にイベントなどで知リたいと思うのですが、何か良い手立ては無いでしょうか？

646:デフォルトの名無しさん
05/10/13 01:06:22
BeginRead使うとか？
なぜそうしたいのか分かれば代替案も出せるかも知れないけど

647:デフォルトの名無しさん
05/10/13 02:04:29
基本的なことで恐縮です。
タイマーについての質問です。

Form上にTimer1とTimer2の2つを実装したとします。
仮に
Timer1　Interval 500ms Tickイベント時の処理時間100ms
Timer2　Interval 150ms Tickイベント時の処理時間10ms
とし、正確な処理時間はさほど必要ないとします。

このとき、Timer1のTickイベント処理中にTimer2の処理のタイミングが重なった場合の
動作は、処理を割り込んでくるのでしょうか？それともTimer2は待機しているのでしょうか？
要は、割り込んでほしくないときは、Timer2を止めるなどの処理が必要なのかどうかです。
逆に、Timer2の処理を優先したいときなどはどのようにすればいいのでしょうか？

648:デフォルトの名無しさん
05/10/13 02:16:26
>>647
System.Windows.Forms.Timer なら割り込んでこない。

649:デフォルトの名無しさん
05/10/13 02:34:16
>>648
レスサンクス。
ということは、System.Windows.Forms.Timer を使用していると
割り込んでくるな処理は不要ということですね。
逆に割り込ませたいときは、System.Timers.Timerとかかな？
もう少し調べてみます。ありがとうございました。

650:デフォルトの名無しさん
05/10/13 05:48:27
>>644
VisualStudioのバージョンと言語、落ちるソースを出さないと誰も相手にしないよ。

651:デフォルトの名無しさん
05/10/13 08:19:07
>>649
「割り込む」とかいう言葉遣いの人が
安易にSystem.Timers.Timerとか使うと危険。
危険ってのは別に煽って言ってるわけじゃなく、本当に危険だよ。

652:デフォルトの名無しさん
05/10/13 09:22:52
WindowsでのTimerって、メッセージキューにTimerイベントが置かれるだけですよ。
それを理解すれば答えは出ると思うんだが。
まあ、メッセージループを知らずに、メッセージも知らずにプログラム書けるのも一長一短だな。

653:デフォルトの名無しさん
05/10/13 09:31:08
>>650
ここはVB.NETスレでしょ？
なんで言語を書く必要が？

654:デフォルトの名無しさん
05/10/13 10:30:46
>>653　揚げ足取っておもしろいか？

655:デフォルトの名無しさん
05/10/13 10:38:09
>>652
System.Windows.Forms.Timerはその通りだが、全てのタイマがそうというわけではないぞ。

656:デフォルトの名無しさん
05/10/13 10:43:41
>>655
その程度のこと元質問を読めば自明。

657:デフォルトの名無しさん
05/10/13 10:59:50
System.Timers.TimerとSystem.Windows.Forms.Timerは何が違うんﾃﾞｨｽｶ?

658:デフォルトの名無しさん
05/10/13 11:40:20
>>654
じゃあちゃんと書くから追試よろしく。

Visual Studio .NET 2003でVB.NETを使用し、以下のコードをコンパイル。

Public Class Test

Privete Sub TestMethod()
　　'↓改行記号で連結した2040バイトの文字列定数(長くなるので省略)
　　Const TestConst As String = _
　　　"abcdef ..... xyz" & _
　　　....
End Sub

End Class

これだけでコンパイル完了前にVisual Studioが突然死する。

659:デフォルトの名無しさん
05/10/13 12:15:03
>>658
2036バイトまでなら通った。
2037バイトの文字列にすると落ちた。

660:デフォルトの名無しさん
05/10/13 12:42:19
しかし.NETってバグフィックスがちっとも出ないのはなんでかね？
これ以外にも小さな（？）バグって山ほどあるよな
発売以来二年以上経過してるのにフレームワークのSP1がでてそれきり。

661:デフォルトの名無しさん
05/10/13 14:39:12
DataGridに列を追加し、さらに列名（列見出し）を表示させるには
どうしたらよいのでしょうか？
画面の何かのプロパティで追加できるのでしょうか？
手順を教えてください、よろしくお願いします。

662:デフォルトの名無しさん
05/10/13 15:39:02
>>661
入門書を買うか、入門HPを嫁。

663:デフォルトの名無しさん
05/10/13 17:30:34
>>660
バグではありません，それは仕様です，，なのでは？

664:デフォルトの名無しさん
05/10/13 17:31:29
>>661

'Test Data 作成
ds = New DataSet("testDs")
Dim dt As DataTable = ds.Tables.Add("testTable1")
dt.Columns.Add("id", Type.GetType("System.Int32"))
dt.Columns.Add("value", Type.GetType("System.String"))
dt.Columns.Add("date", Type.GetType("System.DateTime"))
Dim row As DataRow
For i As Integer = 1 To 100
row = dt.NewRow()
row.Item("id") = i
row.Item("value") = "Test" & i.ToString
row.Item("date") = Now
dt.Rows.Add(row)
Next

'DataGrid.DataSourceにDataTableを設定
Me.DataGrid1.DataSource = dt

'Columnを1つ追加(この時点でDataGridにはColumnが追加されている)
dt.Columns.Add("addCol", Type.GetType("System.Int32"))
'Columnのキャプション設定(この時点で追加されたColumnのキャプションが変わる)
dt.Columns("addCol").ColumnName = "Add Column"

665:デフォルトの名無しさん
05/10/13 19:07:06
新しいフォームを作ってそれを呼び出し元のフォームより後ろに表示したい
んですが、何とか実現する方法ってないですか？

666:デフォルトの名無しさん
05/10/13 20:02:40
>>665
アブフレックス

667:デフォルトの名無しさん
05/10/14 18:28:18
>>664　さん
661です、サンプル例ありがとうございました。
おかげでできました、助かりました。どもです。

668:647
05/10/15 12:44:49
レスサンクスです。
最近プログラミングの基本を勉強する必要を痛感していただけに・・

System.Timers.Timer・・・いまんとこはやめときます orz

669:デフォルトの名無しさん
05/10/15 15:49:25
クラス内変数なのですが、

private SqlConnection sqlConnection = null ;

と　C#　で書かれていたものをVB.NETで書く場合はどう書けばよろしいのでしょうか？

670:デフォルトの名無しさん
05/10/15 16:05:55
番号　データ
1　　　10
2　　　12
3　　　10

のようなテーブルを作ってDataGridに表示していて、
ボタンを押すと、
4　　　13
などとデータが追加されていきます。

どんどん追加していくと、追加した行が見えなくなってしまいますが、
追加した行にフォーカスを移して、その行が見えるようにする方法を教えてください。

DataGrid1.Select(dataTable1.Rows.Count - 1)
だと選択されるだけで、見えるようにはなりませんでした。

671:670
05/10/15 16:16:23
DataGrid1.CurrentCell = New DataGridCell(dataTable1.Rows.Count - 1, 1)
でした。

672:デフォルトの名無しさん
05/10/15 16:18:15
>>669
君はどの部分が変換できないの？
あと「クラス内変数」って表現は「フィールド」と言った方が良いよ。

673:デフォルトの名無しさん
05/10/15 16:33:27
>>672
レスありがとうございます。

private SqlConnection sqlConnection = null ;
と、C#で書かれているものを

VBNETで書くとこんな感じかなと思ったのですが、これだとエラーになってしまいます。
Private sqlConnection As SqlConnection = New SqlConnection
sqlConnection = null

よろしくお願い致します。

674:デフォルトの名無しさん
05/10/15 16:42:28
>>673
Private sqlConnection As SqlConnection = Nothing
または
Private sqlConnection As SqlConnection

参照無しの状態になるのを明示して欲しいから、上の書き方が良いかな？
意図的にインスタンス生成してませんよって。

675:デフォルトの名無しさん
05/10/15 17:23:56
自分もＣ＃のソースＶＢで書き換えたいのですが、

If color = Color.Empty Then

と書きたい時に、
Color.Empty が color.Empty に（大文字が小文字に）
強制的に代えられてしまうのは何故でしょうか？

知ってる方お願いします。

676:デフォルトの名無しさん
05/10/15 17:28:44
すみません、color は
Dim color As Colorです。

677:デフォルトの名無しさん
05/10/15 18:16:28
VBは大文字小文字が区別されないから。
C#なら大小の区別で別物になるがVB.NETではそうもいかないので、できれば別のネーミングにすることを薦める。

678:デフォルトの名無しさん
05/10/15 20:49:19
>>677
大文字と小文字の区別が無い事は全然知りませんでした。
どうもありがとうございます。

679:673
05/10/15 21:37:36
>>674
大変参考になりました。。
ありがとうございます。

680:デフォルトの名無しさん
05/10/15 23:27:36
でも Dim color As Color ってつい書いちゃうんだよな。
大文字小文字の区別はないけど、
クラス名とインスタンス名はいちおうちゃんと別物として扱われるんで。

681:デフォルトの名無しさん
05/10/16 03:15:24
int, str, bol, tbx, lbx, objとか出来るだけ接頭子付けているが
color は col だとﾌｨｰﾙﾄﾞ関係と間違えそうだし、clr かな？

682:デフォルトの名無しさん
05/10/16 07:55:17
ハンガリアンは捨てたのさ。

683:デフォルトの名無しさん
05/10/16 13:58:11
webbrowserコントロールでエクセルファイル表示するとおもむろにエクセル立ち上がるのって
どうにか出来ないでしょうか？(せめて最小化とか)
そして閉じてもエクセルやワードのプロセスが残ってるのも何とかしたいんです

684:デフォルトの名無しさん
05/10/16 15:53:06
Webブラウザコントロールを使って表示しなければいいんじゃないか？
これってたぶんだけどIEで表示してるのと同じだよね。
関連付けで開いた相手のプロセスはIEの監視下？

レガシーなOLE連携でCreateObjectでやった場合でもプロセスは起動するのはやむなしだな。
でもプロセスは残らない。

単純にファイルの関連付けで開いた場合、プロセスの終了は使用者任せだね。

そうじゃなければ、市販コントロールであると思うよ。

685:デフォルトの名無しさん
05/10/16 18:02:04
>>684
それ言っちゃうと身も蓋も無いんだけどねw
フリーソフト作るのに市販コントロール買ってまでするってのも…
ヘルプ見ようとしても出てこんし
諦めた方がいいかな

686:デフォルトの名無しさん
05/10/16 20:29:09
>>681
その調子で一度すべてのクラスに識別可能なプレフィックスを付けながら
コーディングしてみ？プレフィックスが変数名より長くなるか、
プレフィックスを覚えきれなくなるのが落ち。まともなOOの環境で
コーディングしたことあるやつなら、プレフィックスを付けることの
無理にとっくに気がついている。だから最近はプレフィックスを付けないのが主流。

687:デフォルトの名無しさん
05/10/16 22:59:06
>>685
それを言うならば、フリーソフトでEXCELマクロでもないアプリなのに、要EXCELってのも･･･。
企画原案を変えるべきでは？

688:デフォルトの名無しさん
05/10/17 00:57:28
>>660
Javaやってりゃ分かるが細かいバグもチョコチョコ直されると激しく迷惑

689:デフォルトの名無しさん
05/10/17 13:31:05
IPメッセンジャーのようなメッセージ配信機能を電話オペレータの操作画面の一部にテロップのような形式で配信したいと考えています。
また、配信する人は一部の管理者を想定しているのですが、この管理者の権限でメッセージ表示を削除する機能も付加したいと考えています。

VB.NETのWindowsアプリケーション開発で技術的に可能でしょうか？教えてください。お願いします。

690:デフォルトの名無しさん
05/10/17 13:46:13
可能です

691:デフォルトの名無しさん
05/10/17 13:50:39
すいません、具体的なヒントとか頂けたら嬉しいです。。

692:デフォルトの名無しさん
05/10/17 15:20:36
690じゃないが、具体的じゃない質問に対して具体的なヒントって？
まず、何が疑問なのか。

693:デフォルトの名無しさん
05/10/17 16:18:35
特定のURLから内容を表示するプログラムを造ってますが、ウェブページ上の表形式のデータを取得する場合、
便利な方法は何かないでしょうか。Ezcelのウェブクエリを高速化したかったのですがwebtableのような概念が
見つけられないもので。VB.NETは質問からも分かるように初心者です。本2冊買ってHELPもあたったのですが・・

Imports System.Net
Imports System.Text
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = ""’URLを入力
TextBox2.Text = ""
End Sub

694:デフォルトの名無しさん
05/10/17 16:19:08
693の続き

Private Sub Button1_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click

Dim wreq As HttpWebRequest
Dim wres As HttpWebResponse
'ウェブリクエストでテキスト1の内容表示、エンコード
wreq = HttpWebRequest.Create(TextBox1.Text)
wres = wreq.GetResponse()
Dim enc As System.Text.Encoding = _
System.Text.Encoding.GetEncoding("euc-jp")
Dim s As IO.Stream = wres.GetResponseStream()
Dim sr As New IO.StreamReader(s, enc)

'コンテンツ内容をテキスト2に表示
Dim Textline As String = sr.ReadToEnd()
TextBox2.AppendText(Textline)

sr.Close()
s.Close()

End Sub
End Class

695:デフォルトの名無しさん
05/10/17 21:24:43
>>689
まずはTCP/IPの勉強をして来なさい

696:デフォルトの名無しさん
05/10/17 21:38:51
>>693
整形式XML（のフラグメント）になりうるんであればXmlReaderとかが使えるけど、HTMLだと難しい場合も多いだろうね。
素直なのは、正規表現(System.Text.RegularExpressions名前空間のRegexを中心とする各クラス)を使って整形するとか。
mshtmlを使って解析させるって手もあるけど……。

697:デフォルトの名無しさん
05/10/17 23:41:11
タスクバーを扱うには、どのあたりのクラスを使えばいいんでしょうか。
シンプルにクイックラウンチをON/OFFしたいだけなんですが。

698:デフォルトの名無しさん
05/10/17 23:51:21
他のプロセスのコントロールをいじるってのは.NETのクラスライブラリでは無理。
Win32APIを駆使することになる。
Shell_TrayWnd の ReBarWindow32 に
RB_GETBANDINFO で ToolbarWindow32 のハンドルと一致するの探して
RB_SHOWBAND で操作、かねぇ。
構造体ポインタのやりとりとなるとVirtualAllocExとかCreateFileMappingとか使う必要もあるね。

699:デフォルトの名無しさん
05/10/17 23:54:41
トレイアイコンのこと？
notifyiconをフォームにドロップするだけ
でフォームのresizeとnotifyiconのmousedownあたりにゴニョゴニョ書けばｏｋ

700:デフォルトの名無しさん
05/10/18 00:13:55
>>698
あ、サンキューです。
そのあたりの情報までは見つけていたけど、「.NETならもっと簡単なんじゃねぇの？」と
思ったんですが、できないというのがわかればがんばってAPI叩きます。助かりました。

>>699
いえ、>>698に書いてあるあたりです。

701:デフォルトの名無しさん
05/10/18 00:59:19
>>696
調べを進めていく上でのキーワードがいただけました。ありがとうございます。
（実は何を書いてあるのか殆ど分かりませんがｗ　XMLは聞いたことがあるので、ググリまくります。）

702:デフォルトの名無しさん
05/10/18 02:38:28
>>698

あくまで他スレッドがコントロールを直接操作できないだけ

他スレッドがよんだ自スレッドのメソッドがコントロールをそうさするのはok

703:デフォルトの名無しさん
05/10/18 02:42:19
>>702
？
いつスレッドの話になった？

704:デフォルトの名無しさん
05/10/18 03:46:05
XMLをQueueメモリに保存し、適時取り出して再度Xmlとし、処理していきたい
と考えています。

次のようなコードでQueueに書き込む分にははエラーは出ませんが、

　Dim WriteQueue As Queue = New Queue
　Dim xmlDoc As New System.Xml.XmlDocument
　（ここにXMLを構築するコードを書き込んでいます）
　WriteQueue.Enqueue(xmlDoc)

DequeueメソッドでXMLに書き戻すのがうまくいきません。Queueに書き込んだ
ものとソックリ同じ物を、新しく作成したXmlDocumentとしたい（つまり、コピー
を作る）んですが・・・・・

705:デフォルトの名無しさん
05/10/18 05:52:26
>>702
話がずれてる上に間違ってる。

＞他スレッドがよんだ自スレッドのメソッドがコントロールをそうさするのはok
okじゃないから　Control.Invoke / BeginInvoke を使おうな。

706:デフォルトの名無しさん
05/10/18 06:31:27
>>704
インスタンスとか参照とか理解してなさそうだが……。
取りあえずClonseメソッド。

707:デフォルトの名無しさん
05/10/20 07:09:58
.netではDDE通信が推奨されていないらしいですが
代わりにどのような方法が推奨されているでしょうか？

708:最凶VB厨房
05/10/20 07:12:12
リモチン？

709:デフォルトの名無しさん
05/10/20 09:34:36
>>707
.net Remoting
情報少ないけど、ほぼ唯一でてるオレンジの本見れば、DDE程度はOK。
ただ、自アプリ同士の連携の場合だからね。

昔のOfficeとかがDDEを提供していた（？）のと同じように、OfficeとかがRemoteオブジェクトを提供してるわけじゃないので。
（.netの弱点ってネイティブでOffice連携が無いことなように思える）

710:デフォルトの名無しさん
05/10/20 10:11:43
>>708, 709
thx.調べてみます。
代わりにソケット通信っていうのはありでしょうか？

711:デフォルトの名無しさん
05/10/20 12:13:24
>>710
.NET RemotingはTCP/HTTPをベースにしてる（内部で利用している）。

712:デフォルトの名無しさん
05/10/20 12:46:14
>>711
さんくす。じゃ、簡単にソケット通信でやっちゃおうかな

713:デフォルトの名無しさん
05/10/20 13:01:00
ソケットは単なる文字列の送受信。
リモーティングはシリアル化されたオブジェクトのやり取り。

目的が全く違います。

714:デフォルトの名無しさん
05/10/20 13:27:10
質問です。
スタートアップに指定したフォームを判断することはできますか？

　if Form1 = Application.StartupForm then

みたいなことをしたいんですがー。。

715:デフォルトの名無しさん
05/10/20 14:00:22
画面から『閉じる（×）』ボタンを非表示にしたいです。
最大化・最小化は残したいので、ControlBoxでは実現できませんでした。
何かいい方法はないでしょうか

716:デフォルトの名無しさん
05/10/20 14:54:17
Visual Studio の操作？に関してになるのですが、

C# の場合メソッドのオーバーライドを行なう際は

Protected Override とタイプすると、インテリセンスが開き、
その中からオーバーライド可能なメソッドを選択すると自動的に
シグネチャ含めてコードが追加されるのですが、VB.NET の場合は

Protected Overrides とタイプしてもインテリセンスが開きません。
VB.NET の場合は、エディタの左上から (overrides) を選択し、
その右からオーバーライドしたいメソッドを選択する、といったように
マウスでカチカチやるのが一般的なのでしょうか？

717:デフォルトの名無しさん
05/10/20 18:28:22
>>715
無効化なら
URLﾘﾝｸ(www.atmarkit.co.jp)
だが、さて非表示にはできたかねぇ……。

718:デフォルトの名無しさん
05/10/20 19:06:49
>>714
プログラマがどれで起動したか把握できないってのはどうよ？

719:デフォルトの名無しさん
05/10/20 19:44:58
ASP.NET、VB.NETで開発しております。
ログをテキストファイルに出力するような共通関数を作成したいのですが
どうにも行き詰って困っております。

wwwroot下にフォルダを作成し、その下に動的にログファイルを作成したいのですが
何かいい方法ありますでしょうか？
よろしくお願いします。

720:デフォルトの名無しさん
05/10/20 19:46:50
どこで行き詰まったの？

721:デフォルトの名無しさん
05/10/20 23:03:31
>ソケットは単なる文字列の送受信。
やはりそういうことか！

722:デフォルトの名無しさん
05/10/21 09:28:57
でも簡単なやり取りだけならソケット通信でもいいよね？

723:デフォルトの名無しさん
05/10/21 09:51:56
>>722
だから自分で目的を考えてでしょ。
単なる非同期・同期での通信ならばソケットでコマンドで十分。
イベント＋情報の送受信ならばリモーティング。

724:デフォルトの名無しさん
05/10/21 13:32:37
VB.NETの勉強としてTextBoxクラスを継承して
書式チェック機能を持ったTextBoxを作成しようとしています。

Validatingイベント内で、書式チェックエラーとなった場合に
フォーカスの移動をさせないようにしたのですが
Formの閉じるボタンを押しても同イベントが発生して
閉じるボタンが無効になってしまいます。

イベント内でイベントをキャンセルしているので当然なのですが
チェックを行ってエラー時はフォーカスを移動させないが
特定の処理（画面を閉じるなど）の場合はチェックしない
という機能を作ろうとした場合、どのようにすればいいでしょうか？
先人達の知恵を貸してください。

725:デフォルトの名無しさん
05/10/21 20:28:20
>>724
＞閉じるボタンが無効になってしまいます。
普通そんな事にはならないと思うけど。
閉じるボタンってウィンドウの右上のＸのことだよねえ？

フォーム上にフォームを閉じるためのコマンドボタンが用意してあって、
それをクリックしようとしてもクリックできない、なんてオチだったりして。

726:デフォルトの名無しさん
05/10/22 08:06:42
＞何かいい方法ありますでしょうか？

log4net
EntLib/LoggingAB

727:デフォルトの名無しさん
05/10/22 16:45:43
TextBox1 - TextBox10 の .Text　にすべて"*"を表示させたいのですが、

それぞれに
TextBox1.Text ＝ "*"
TextBox2.Text ＝ "*"
：
：
；
TextBox10.Text ＝ "*"

より頭のいい方法を教えていただきたいのですが、

728:デフォルトの名無しさん
05/10/22 17:03:24
>>727
TextBox配列にいったん格納してからループで値セット、ってあまり手間は変わらんか。

729:最凶VB厨房
05/10/22 17:14:01
TextBox型のものに"*"をFor Eachでセットしていくとか。

730:デフォルトの名無しさん
05/10/22 18:00:23
>>728, >>729

727ですが、私は初心者ですので、
具体的にお願いできますでしょうか？

教えていただいてるのにすみません。。。

731:デフォルトの名無しさん
05/10/22 18:09:10
初心者ならまずは地道にやっとけってこった

732:デフォルトの名無しさん
05/10/22 18:54:52
>>727
URLﾘﾝｸ(dobon.net)
↑のようなことをやりたいってわけじゃないってこと？

733:最凶VB厨房
05/10/22 20:51:25
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Const kome As String = "*"
　　　　Dim c As Control
　　　　For Each c In Me.Controls'フォームのコントロール全部に対して
　　　　　　If c.GetType() Is GetType(TextBox) Then'テキストボックス型のものなら
　　　　　　　　Dim t As TextBox
　　　　　　　　t = CType(c, TextBox)'コントロールをテキストボックスとして扱って
　　　　　　　　t.Text = kome'テキストプロパティに*をセット
　　　　　　End If
　　　　Next'していく
　　End Sub'とかネ

734:デフォルトの名無しさん
05/10/22 21:00:24
>>733
ControlにTextがあるんだからCType(c, TextBox)は必要ないぜ。
それより「結果を表示するTextBox11まで*になってしまいましたどうしたらいいですか」とか返されそうだな。

735:デフォルトの名無しさん
05/10/22 21:01:41
あ、それと型判定は
If TypeOf c Is TextBox Then
な。

736:最凶VB厨房
05/10/22 21:06:09
具体的な指摘どもども。
　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Const kome As String = "*"
　　　　Dim c As Control
　　　　For Each c In Me.Controls　　 'フォームのコントロール全部に対して
　　　　　　If TypeOf c Is TextBox Then　　　　　　 'テキストボックス型のものなら
　　　　　　　　c.Text = kome　　　　　　　　 'テキストプロパティに*をセット
　　　　　　End If
　　　　Next　　　　 'していく
　　End Sub 'とか

737:デフォルトの名無しさん
05/10/22 21:07:10
>>733
そんな気張って答えるような質問とも思えんが。。

>>734
突っ込む奴が馬鹿だと萎えるなw

738:最凶VB厨房
05/10/22 21:09:46
>>737
最近コードを書いてなかったので
ちょっとしたリハビリや。

739:デフォルトの名無しさん
05/10/22 21:15:06
第一さ、そういうの「頭のいい方法」って呼んでよいものかどうか。。
サンプルコードとしてもあまり良質と思えないし。
俺がサンプルかくならせめて、

(1) Nameが"TextBox*"に一致するTextBoxのコレクションを作る関数を示す

(2) Nameが"TextBox*"に一致するTextBoxのコレクションを内部的に作って、それを
　　操作するクラスを示す

このぐらいするよ。

740:デフォルトの名無しさん
05/10/22 21:17:31
>>739
先生、VSを使ってないのでNameプロパティは基本的に空です！　どうしたらいいですか！

741:先生
05/10/22 21:23:20
>>727

742:デフォルトの名無しさん
05/10/22 23:04:42
10個くらいなら手で書いちゃえよ

743:デフォルトの名無しさん
05/10/22 23:27:21
初回しか埋めないってんなら、>>742で。
何度か＊でクリアするってんなら、>>728で。

744:デフォルトの名無しさん
05/10/22 23:29:20
>>743
いや、複数回クリアするならメソッドに切り出せばいいと思うんだな

745:初心者
05/10/23 11:48:58
USBドライブを差し込んだことを検知する方法ありますでしょうか？

746:初心者自己レス
05/10/23 12:11:14
７４５　自己レス
Ｃ＃ですけど、URLﾘﾝｸ(www.publicjoe.f9.co.uk)にありました。
お騒がせ

747:デフォルトの名無しさん
05/10/23 12:54:15
Range("D2:D6").Value = Array("国", "数", "理", "社", "英")

エクセルのマクロでこうやって入力すると全部国ってなってしまいます
Ｄ２が国Ｄ３が数Ｄ４が理って具合になればいいんですが
どうすればいいんですか？

748:デフォルトの名無しさん
05/10/23 13:04:09
>>747
URLﾘﾝｸ(oshiete1.goo.ne.jp)

749:デフォルトの名無しさん
05/10/23 13:13:32
>>748
マルチだっていいたいのかな？
嫌味な奴w
マルチの何が悪いのかサッパリわからんが、マルチが気に入らないなら放っときゃいいのに。

>>747
自分で答え見つけた方が楽しいだろうからヒントだけ。
ヒント：直線は平面の特殊ケースだと考えよう。

750:デフォルトの名無しさん
05/10/23 14:02:28
ＶＢでスロットのプログラム作ってるのですが、「スタート」ボタンを押したら
０．１秒単位でラベルの数字が回転しているように見せるにはどうしたらいいのでしょうか。
お願いします。

751:デフォルトの名無しさん
05/10/23 14:04:46
>>749
お前馬鹿ですね。

「 V B . N E T 質問スレ」

752:デフォルトの名無しさん
05/10/23 14:06:22
＞０．１秒単位でラベルの数字が回転しているように見せる
まず日本語の勉強をした方がいいね。意味不明。

753:デフォルトの名無しさん
05/10/23 14:36:06
>>750
数字をパラパラ切り替えるんじゃなくて、リアルに上下スクロール
しているように見せたいってこと？　けっこう面倒だと思うよ。

すべての数字や絵柄をピクチャ扱いで配列に入れて、乱数を元にス
タックしたシリンダ用の配列を使って、Ｙ軸方向に詰めながらスラ
イド表示させるくらいかな？

0.1秒を刻むならEnvironment.TickCountプロパティでどうにかな
るかと。数字の全体が表示されるまでに0.1秒かかるようにしたい
ってのは、自分で管理する必要あり。

754:デフォルトの名無しさん
05/10/23 14:40:56
>>753
おいおい750も750だが、あんたもあんただなあ。。
いったい750のどこをどう読めばそういう解釈がw

755:デフォルトの名無しさん
05/10/23 17:56:30
>>719
そういや俺もできなかったわ
結局トレースログのテキストをそのまま使った記憶あるな
そもそもファイル自体が作れなくない？
ファイル作れない、既存ファイルへの書き込みができないみたいな状態になって
すげぇ困ってトレースログをそのまま使ったな。できるのかな、これ

756:デフォルトの名無しさん
05/10/23 20:10:17
IISのセキュリティー設定とかきちんとやった？
プロセスの所有者が書き込み権限あるかとか。

757:デフォルトの名無しさん
05/10/23 21:00:45
VB.NETを使用して、Winアプリを開発しています。
アプリは、画像アップローダなんですが、VB.NETでサーバにファイルを
アップロードする方法がわかりません。
どなたかわかる方がいたらお教えください。

758:デフォルトの名無しさん
05/10/23 21:06:36
サーバによる。

759:757
05/10/23 21:09:24
言葉が足らず申し訳ございません。
サーバは、webサーバです。

760:757
05/10/23 21:14:06
まだ足りませんでした、ＩＩＳではないです。
よろしくお願いします。

761:デフォルトの名無しさん
05/10/23 21:35:34
>757
相手がWebサーバーなら受け取る側もアプリが必要だが・・・

アプリが必要かどうかはアップする方法やサーバーの設定による。

762:デフォルトの名無しさん
05/10/23 21:38:16
>>757
ヒント：<input type="file">
　　　　HttpWebRequest

763:757
05/10/23 21:55:18
ヒントありがとうございます。現在はこのように処理をしてるんですが
req = CType(System.Net.WebRequest.Create(url), System.Net.HttpWebRequest)
req.Method = "POST"
req.ContentType = "multipart/form-data"
reqStream = req.GetRequestStream()
reqStream.Write(data, 0, data.Length)

さて？こっからファイルのアップロードは
どうやるんだろうとなってしまっています。

もう少しヒントを頂けたら幸いです。

764:デフォルトの名無しさん
05/10/23 22:06:37
つうかね、入門書かってこいよ。
ファイルのアップロードなんて入門書に載ってる。

765:デフォルトの名無しさん
05/10/23 23:32:18
winXP、vb.net2003、office2003使用です。

vb.net側で、「Imports Microsoft.Office.Interop」と「Dim ThisApplication As New Excel.Application」を利用してエクセルを起動した後、エクセル側で「ファイル」→「終了」の操作をしてエクセルを終わらせた場合に、
「エクセルが終了した」ことをvb.net側で情報として捉えることができるコマンドはありませんか？

766:デフォルトの名無しさん
05/10/23 23:39:36
>>765
それってVB4+Office95時代からある問題だけど今でも出来ないんじゃない？

767:デフォルトの名無しさん
05/10/23 23:55:41
どうしても必要ならタイマ使ってポーリングすればいいじゃん。
エクセルが生きているかどうかの確認は工夫すれば出来たはずだよやった記憶があるから。

768:デフォルトの名無しさん
05/10/23 23:56:15
MSDN2のVSTOのリファレンスにWorkbook.Shutdownイベントなんてのがあったけどこの辺？
解説読むと違う気もするけど。

769:765
05/10/23 23:57:16
>>766
ホエ！やっぱムリなのか～？
ネットで調べても、VB側ですべて処理させたら、プロセスの終了まで出来ることはわかってんだけどね。。
やってることは、VB側でマクロを含んだエクセルを起動させて、あとの処理はエクセルのマクロまかせでエクセル側で終了まで処理させるのよ。。
マクロでやらせてるのは、定型の様式への入力支援で、文字の入力まですれば、罫線や結合や印刷範囲の指定までマクロで一気にやらせてます。ただ、そのほかの処理もあるんでエクセル側での終了は必須なんだよな～
で、エクセル側で終了しても、VB側のフォームが終了するまで起動したエクセルのプロセスが残るもので、それを何とか終了できないかと。。

>>766
回答サンクスです。も少し研究してみます。

770:デフォルトの名無しさん
05/10/24 00:05:07
ポーリングしてたら、もしExcelファイル開いていたら保存ダイアログ出る場合に固まっちゃうぞ

771:765
05/10/24 00:18:17
ThisApplication.ActiveWorkbook.Nameで既存ファイルを呼び出した場合でも、起動したworkbookの名前は取得できるんで、それから何とかできないかと考えてるんですが。。
「ポーリング」はよくわからないですが、一定時間ごとに監視するというやり方ですかね？だとしたらなるべくパソコンには余計な負担はかけたくないですが。。
できれば、「エクセルが終了した時点で」その情報を取得する方法がないかと。。

明日もあるんで今日は寝ます。レスくれた皆さんありがとうございました。。

772:765
05/10/24 00:26:32
>>768
Visual Studio Tools for Office..
たかがこんなプログラムにこんな高い製品は買えない。。
今の.netも個人持ちなのよ。。

773:デフォルトの名無しさん
05/10/24 09:27:56
お世話になります。
データセットのDataRowの値が｢H｣だった場合には、データグリッドに、｢ハードディスク｣と表示するというような処理をしたいのですが、MSDNで調べても方法が分かりません。
できれば、データグリッドの値だけを変えるようにしたいのですが、どなたか方法をご存じないでしょうか？
よろしくお願いします。

774:デフォルトの名無しさん
05/10/24 09:33:39
WinFormかASP.NETかどっちだ？

775:デフォルトの名無しさん
05/10/24 09:51:01
すいません。WINDOWSのFORMです。

776:デフォルトの名無しさん
05/10/24 09:57:59
あげ

777:724
05/10/24 14:16:12
返事が遅れてすみません

>>725
×ボタンの事であってます
Validatingイベント内で

If IsNumeric(CType(sender, TextBox).Text) = False Then
e.Cancel = True
Exit Sub
End If

のようにしているだけです
Validatingイベント内でキャンセルしているので
フォーカスは移動できないのですが（これが当然の動作という事は判ってます）
Formの×ボタンを押そうとした時はValidatingを発生させないような事はできますでしょうか？

778:デフォルトの名無しさん
05/10/24 15:30:11
>>777
.NETフレームワークのアップデート汁

779:デフォルトの名無しさん
05/10/24 15:39:26
>718
そのレスはもしかしてVB.NETで派生フォームとか使ってないの？

フォームAからフォームB、フォームC、フォームDを派生させたとして、
B～Dのいずれかがスタートフォーム。
それをフォームAの中で判断したい。

フォームAの記述

　If ( me = StartupForm) Then
　　・・・
End If

780:デフォルトの名無しさん
05/10/24 19:40:10
ユーザーコントロールを派生したくラスの
デフォルトのイベントを OnLoad 以外にすることって可能ですか？

781:デフォルトの名無しさん
05/10/24 19:53:11
デフォルトのイベントって何？

782:デフォルトの名無しさん
05/10/24 20:43:47
>>777
あ、なるほど確かにそうなるね。
確信はないけどコントロール側で対処するのは正攻法では難しいんじゃないかな。

フォームのClosingイベントハンドラで引数のeの値をヲチすると、
コントロール側でそういうことをしている場合これのCandelメンバが
Trueに設定されるようだから、これをFalseに書き戻してやれば
いいんじゃないかな。

とりあえず俺の環境ではうまくいった。

次ページ