VB.NET質問ｽﾚ (Part7) - 暇つぶし2ch

VB.NET質問ｽﾚ (Part7) ..

75:デフォルトの名無しさん
04/10/12 20:22:45
>>73
そんな難しい問題か？
それに学校の課題ならテキストにヒントみたいなこと書いてあるんじゃない？

2分法とかのアルゴリズムとか、数学で「はさみうち」を勉強したことがあれば
その考え方の応用でいけるでしょ。

ところで、たぶん>>74は解放が分らないに５万両。

76:73
04/10/12 21:25:43
>>74,75
εに適当な値を代入した時に、
1+εが1より大きいか、等しいかを判別するプログラムは
あらかじめ与えられています。
それ以外のテキストはないに等しいです。
自分でネットで極基本的な文法は勉強しました。
For文で1+εが1より大きくなるまで(1e-10から1e-20位まで)
演算させて、If文で大きくなる直前のεを出力させるプログラムを
組もうと思ったんですが、
For文とIf文の条件式の書き方とか、
どうしたら有効数字三桁で出力できるのかとか、
分からない事が多すぎて立ち止まってます・・・。

77:デフォルトの名無しさん
04/10/12 22:06:56
>>75
解放誤字乙

78:デフォルトの名無しさん
04/10/12 22:09:08
1+(1/(2^n))でnを増やすのが良いと思う

79:デフォルトの名無しさん
04/10/12 22:39:30
>>76
条件式の書き方がわからないんだったらネットで調べる前に文法の本を買ってきたほうがいいと思うぞ
全部ネットで調べようとすると時間がかかってしかたない

80:初心者 ◆qIFvKWN9EM
04/10/12 23:24:56
はじめまして初心者です^^
ヴィジュアルベーシックを扱ってみたいのですが
今流行りなのは.NETと聞きそれを購入してマイピーシーに導入しようと思うんですけど
本体はいくらぐらいするものなのでしょうか？
それと参考書など独学で学んでいくのにお勧めの物などあれば教えてもらえませんか？

81:デフォルトの名無しさん
04/10/12 23:38:40
VB.NETの文法なら
URLﾘﾝｸ(www.atmarkit.co.jp)

でも、本で見るほうが分かりやすいと思われ
このページの元になった本持ってるけど、本のほうがやっぱり見やすい。

82:デフォルトの名無しさん
04/10/12 23:41:47
補足：>>81は>>73からの一連の流れに対するレスだからな。

>>80に対するレスは
本はｽﾚﾘﾝｸ(tech板)
本体価格は URLﾘﾝｸ(www.kakaku.com)

83:デフォルトの名無しさん
04/10/12 23:47:33
>>73
こういうことか？「有効数字」の意味とどの型をターゲットにているのかが
よく分らんが。とりあえずDoubleで。

　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　Dim BandWidth As Double = 0.5R
　　　　Dim LeftVal, RightVal, CenterVal As Double
　　　　Dim Epsilon As Double = 0
　　　　Do While BandWidth <> 0.0R
　　　　　　'LeftVal = 1.0R + Epsilon
　　　　　　'RightVal = 1.0R + Epsilon + BandWidth * 2
　　　　　　CenterVal = 1.0R + (Epsilon + BandWidth)
　　　　　　If CenterVal = 1.0R Then
　　　　　　　　Epsilon += BandWidth
　　　　　　End If
　　　　　　BandWidth /= 2
　　　　Loop

84:デフォルトの名無しさん
04/10/12 23:48:24
83の続き

　　　　Dim FormatString As String = "0."
　　　　Dim NumDigit As Integer = 0
　　　　Do
　　　　　　FormatString &= "0"
　　　　　　Dim EpsilonString As String = Epsilon.ToString(FormatString)
　　　　　　If Epsilon.ToString(FormatString) <> FormatString Then
　　　　　　　　Dim TrimedEpsilonString As String = EpsilonString.Substring(0, EpsilonString.Length - 1)
　　　　　　　　Dim TrimedFormatString As String = FormatString.Substring(0, FormatString.Length - 1)
　　　　　　　　If TrimedEpsilonString = TrimedFormatString Then
　　　　　　　　　　NumDigit = 1
　　　　　　　　Else
　　　　　　　　　　NumDigit += 1
　　　　　　　　End If
　　　　　　End If
　　　　Loop While NumDigit < 3
　　　　MsgBox("Epsilon = " & Epsilon.ToString(FormatString))
　　End Sub

85:73
04/10/13 00:15:02
皆さんアドバイス本当にどうもありがとうございました。
いただいたアドバイスを元にがんばってみます。
また分からないことがあったらお願いします。

86:初心者 ◆qIFvKWN9EM
04/10/13 01:31:11
>>82
ありがとうございます^^
なるほど、本体のほうは見る限りだと1万～2万前後が相場なんですね
本のほうはよくわかりませんでしたが本屋で立ち読みでもして
気に入ったのを買って家でじっくりとやっていこうと思います
また困ったことがあったらよろしくお願いします^^

87:初心者2
04/10/13 06:03:55
visual basicで
『フォームに６個のピクチャボックスを作成し、
ピクチャボックス番号と色指定をすると、指定された
ピクチャボックスがその色で塗られる』
という課題なのですが教えてください

88:デフォルトの名無しさん
04/10/13 06:07:56
>>87
なぜ朝に…

89:初心者2
04/10/13 06:11:09
明日の課題なのを忘れてました

90:デフォルトの名無しさん
04/10/13 06:16:21
それはVisualBasic6じゃないだろうな？.NETでいいんだな？

91:デフォルトの名無しさん
04/10/13 06:19:39
つーかマルチにはとりあわなくていいじゃん

92:初心者2
04/10/13 06:20:37
６です。ここじゃ無理ですか

93:デフォルトの名無しさん
04/10/13 06:50:12
マルチで６なのかよ。そりゃここじゃ無理だ

94:デフォルトの名無しさん
04/10/13 08:50:13
>>87
こんなの考える余地なんてないだろ
ただの作業だ

95:デフォルトの名無しさん
04/10/13 10:38:17
>>87
解決したらそれもマルチポストしとけよ

96:デフォルトの名無しさん
04/10/13 13:11:28
test

97:デフォルトの名無しさん
04/10/13 13:19:27
フォーム上でmpgファイルはどうやったら再生できますか？
メディア関係には疎いので何もわかりません

98:デフォルトの名無しさん
04/10/13 13:24:00
VB6.0からVB.NETに移行するのﾏﾝﾄﾞｸｾｰ
MSに金払ったらやってくれるのかな？

99:デフォルトの名無しさん
04/10/13 13:52:55
>>98
MSに金払ったら移行するための勉強をさせてもらう権利が得られますｗ

100:デフォルトの名無しさん
04/10/13 13:55:05
>>97
一番手っ取り早いのはメディアプレーヤのコンポーネントを貼り付ける
かな？

101:デフォルトの名無しさん
04/10/13 14:37:40
>>99
５万／Kstep払うから、やらないか？

102:デフォルトの名無しさん
04/10/13 20:22:17
SelectionMode.MultiSimpleにしたListBoxで、
Itemを複数選択し一度に削除する為以下を実行しましたがエラーになります。

For i = 0 To Me.ListBox.SelectedItems.Count - 1
　　　　Me.ListBox.Items.Remove(Me.ListBox.SelectedItems(i))
Next i

上記を

Me.ListBox.Items.Remove(Me.ListBox.SelectedItems(i))

だけにすると、1番上のItemは削除されるのですが、
Forで連続して削除することは出来ないのでしょうか。
宜しくお願いします。

103:デフォルトの名無しさん
04/10/13 20:39:17
>>102
んーなもんiは単なるインデックスであってIDじゃないからでしょ。
例えば１０コのアイテムから５コ削除完了してi=5になった時点で
Me.ListBox.SelectedItems(i)なんて存在しないじゃん。

解決法としては、例えばFor Eachつかえばいいんじゃないの？

104:デフォルトの名無しさん
04/10/13 21:18:41
>>103
たしかにSelectedItems(i)では、消したItemによっておかしくなりますね。
だるま落としの容量で、SelectedItems(0)にしたところうまく動きました。

For i = 0 To Me.ListBox.SelectedItems.Count - 1
　　　　Me.ListBox.Items.Remove(Me.ListBox.SelectedItems(0))
Next i

ありがとうございました。

105:デフォルトの名無しさん
04/10/13 22:10:07
リッチテキストコントロールの内容をそのまま
printDocument使って印刷する方法を教えてください。

漠然と簡単にできると思ってたら、意外にこの2つを結ぶ線が見つからないんです。

106:デフォルトの名無しさん
04/10/13 22:57:56
今日VB.NET買ってきました。
FrameWorkって何なんですか？
.NETで作ったﾌﾟﾛｸﾞﾗﾑが他のPCで動きません。
色々調べた結果FrameWorkに関係あるような気がしました。

どなたかこのﾌﾟﾛｸﾞﾗﾐﾝｸﾞ好きな素人めに救いの手を・・・

107:デフォルトの名無しさん
04/10/13 23:20:17
>>106
何のつもりか知らんが全然面白くないよ。
ナンセンスギャグ？もう80年代じゃないんだけど。

108:デフォルトの名無しさん
04/10/13 23:48:00
>>107
よくわかりませんがここは初心者は来てはいけないわけですね。
わかりました。
もっと貴方にとって有意義な質問ができるようになったらまた来ます。

(´･ω･`)でもせめてどうやったら他のPCで動くか教えて欲しかったな・・・

109:デフォルトの名無しさん
04/10/13 23:59:23
107はこのスレに粘着しているC++厨だから気にするな

110:デフォルトの名無しさん
04/10/14 00:06:27
>>108
初心者がいかんのではなくて、「初心者です」を楯に調べられることも
調べない人が嫌われるのです。
そして、その嫌う様をおもしろがって、誰でも知ってるような調べれば
すぐわかるようなことを、わざと質問する人がいます。
そういう人だと思われたわけです。

111:デフォルトの名無しさん
04/10/14 02:11:13
なにを偉そうに

112:デフォルトの名無しさん
04/10/14 02:26:40
>>106　もう来ないかもしれないが念のため核心だけ

VB 6で作成したプログラムを実行するにはVB 6のランタイムDLLが必要であったが、VB.NETで作成したプログラムを実行するには、.NET Frameworkランタイムが必要である

113:デフォルトの名無しさん
04/10/14 02:56:06
いろいろ試してみれば、ここで不愉快になることもないよ、２ｃｈに来る奴バカしかいない

114:デフォルトの名無しさん
04/10/14 03:02:52
VB.NETも移植したいな、マークに

115:デフォルトの名無しさん
04/10/14 08:17:01
「初心者です」を免罪符のようにして調べずに質問するからな
プログラム初めてなのに本一冊も読まないでどうやってプログラム書いてるのかと

116:デフォルトの名無しさん
04/10/14 09:20:49
>>106
君の書いたソースを見てみたいYO!

117:デフォルトの名無しさん
04/10/14 13:48:35
>>113
やーいバカ

118:デフォルトの名無しさん
04/10/14 14:36:16
VB.NETで表データを表示したいのですが、
FlexGrid か　DataGrid のどちらを使用したらいいか
迷っています。
表の仕様は、
行列数は固定、プログラムからの表示のみでキー入力不可、
マウスクリックされた表内の行・列番号をプログラムで取り込む機能が必要、
セルの色はプログラムにより変更可
と言った感じです。
FlexGridでもDataGridでも可能なんでしょうが、
どちらがより適切なんでしょうか？
よろしくお願いします

119:デフォルトの名無しさん
04/10/14 15:03:23
クリックしたところを拾うのはどちらでもほぼ同じ動作で出来ると思う
セルの色を任意に変えたいのだったらFlexGridのほうが楽
DataGridだとオーナードロー使っていちいち変えてやる必要がある

120:デフォルトの名無しさん
04/10/14 19:43:52
WebBrowserで開いた新しいウィンドウを
タブに追加するにはどうすれば良いのですか？
タブブラウザみたいなやつです。

121:デフォルトの名無しさん
04/10/14 19:45:06
WebBrowserで出てきた新しいウィンドウを
タブに追加するにはどうすれば良いのですか？

タブブラウザみたいなのです。

122:デフォルトの名無しさん
04/10/14 19:45:56
すまない。ミスった。
-100で書き込んでて、書き込まれて無いと思った。m(__)m

123:デフォルトの名無しさん
04/10/14 20:19:46
だいぶ前に、IEコンポーネントブラウザのスレがあったけど、どこいったの？

124:デフォルトの名無しさん
04/10/14 20:41:11
学校の宿題でてんぱってます・・・
誰か助けてください　

問題
掛け算の99を表示させなさい

どうかお願いします

125:デフォルトの名無しさん
04/10/14 20:51:50
>>124
C#だけどテキトーに。

for(int count = 1; count <= 99; count++)
{
for(int count2 = 1; count2 <= 99; count2++)
{
Console.WriteLine(count.ToString() + " "+"+"+" "+count2.ToString()+" "+"="+ " "+ (count*count2).ToString());
}
}

126:デフォルトの名無しさん
04/10/14 20:53:06
間違った。99じゃなくて9999になってた。しかも*を+にしてた。
for(int count = 1; count <= 9; count++)
{
for(int count2 = 1; count2 <= 9; count2++)
{
Console.WriteLine(count.ToString() + " "+"*"+" "+count2.ToString()+" "+"="+ " "+ (count*count2).ToString());
}
}

127:デフォルトの名無しさん
04/10/14 21:04:40
>>125-126
ありがとうございます
宿題Visual　Basicなんです
これをVBでやるとどうなるんでしょう
たびたびすいません

128:デフォルトの名無しさん
04/10/14 21:47:11
>>123
どこか、作り方とか説明してるサイトありませんかね？

129:最凶VB厨房
04/10/14 21:52:49
URLﾘﾝｸ(www.gotdotnet.com)

130:デフォルトの名無しさん
04/10/14 22:03:46
ここは救いようのない初心者が集まるスレですね

131:デフォルトの名無しさん
04/10/14 22:29:16
＞＞129
VBのソースは･･･

132:デフォルトの名無しさん
04/10/14 22:29:51
空気読めない独りよがりのネタを指摘された奴が逆ギレしてやってるんだったりして(w

133:デフォルトの名無しさん
04/10/14 23:29:31
宿題聞いている輩は本気なのか？
この程度のことが思いつかないようでは、授業を受けている意味がないような・・・

134:デフォルトの名無しさん
04/10/14 23:35:56
文系大学で単位とるための選択口座・・・
OTL
おながいします

135:デフォルトの名無しさん
04/10/14 23:59:52
文法がわからないのかプログラムの流れが思いつかないのか

136:デフォルトの名無しさん
04/10/15 00:06:44
>>134
来年もガンバレ

137:デフォルトの名無しさん
04/10/15 00:10:11
文系にプログラミングの単位なんてあるの？
電算室ある理系の大学でないと無理な気がするんだけど。

138:デフォルトの名無しさん
04/10/15 00:12:24
俺の学生の頃は工学部でもUNIXの授業しかなかった・・・
10年くらい前か

139:デフォルトの名無しさん
04/10/15 00:14:39
>>136
やってみました
添削お願いします

Dim i, j As Integer
For i = 1 To 9
For j = 1 To 9
Console.Write(i * j)
Next
Console.WriteLine()
Next
Console.Read()

>>137
あるんです・・・

140:デフォルトの名無しさん
04/10/15 00:30:48
サーバー監視ソフトを作りたいのですが、
スクリーンショットを保存する方法を教えてください。。

141:デフォルトの名無しさん
04/10/15 00:36:27
「Print Screen」キーを押す
「ペイント」を開いて「クリップボードから貼り付け」
「ファイル名を指定して保存」

142:デフォルトの名無しさん
04/10/15 00:43:08
言語でって意味だとおもう

143:デフォルトの名無しさん
04/10/15 01:23:06
わかってやってんだと思う

144:デフォルトの名無しさん
04/10/15 02:03:35
なんでスクリーンショットがいるのかワカラン。

145:デフォルトの名無しさん
04/10/15 06:45:46
mshtml.HTMLDocumentをAxWebBrowser使わないで単独で使いたいんだけどできるかな？

146:デフォルトの名無しさん
04/10/15 12:43:09
>>140
(　・∀)人(∀・　)通報しますた！

147:デフォルトの名無しさん
04/10/15 21:50:38
>>140
検索しまくればなんとかなるレベルだと思うんだが

148:デフォルトの名無しさん
04/10/15 22:31:23
宿題厨まだー？

149:139
04/10/16 19:59:38
スルーされた
OTL

150:デフォルトの名無しさん
04/10/16 20:12:15
>>139
これだと掛け算の結果が羅列されるだけで不十分だと思う

151:139
04/10/16 20:26:35
>>150
結果が出ればいいってことだったんで・・・
どの辺り直せばいいでしょうか？

152:デフォルトの名無しさん
04/10/16 20:50:42
そんな宿題をVBで課す意味がわからん
CでやれＣで

153:デフォルトの名無しさん
04/10/16 21:16:05
式を表示するだけだが、連結演算子を使って
Console.Write(i & "×" & j & "=" & i * j)

154:139
04/10/16 21:35:16
>>152
教授に言ってくれ・・・
>>153
これをformat使って
綺麗にしたいのですがどうすればいいでしょうか？

155:デフォルトの名無しさん
04/10/17 00:51:03
宿題を人にやらせるのか

156:デフォルトの名無しさん
04/10/17 01:30:57
てきとうに見た目がよくなるボタンコントロールって無いかしら.

157:デフォルトの名無しさん
04/10/17 06:23:36
すいません、ASP.NETって、HTMLのフォームではなくて、.NETのWEBフォームを使用してページ間でデータを共有する方法って、セッションを使うしかないんですね。
もしそうなら、PHPでHTMLのフォームを使っていたのと比べると、隔世の感がありますね。
いかがでしょうか？
ご教授願います。

158:デフォルトの名無しさん
04/10/17 07:36:53
WebClientクラスを使ってHTMLデータをダウンロードしようとしているのですが、
EUCで書かれたページがうまくダウンロードできません。

StreamReaderを作る際に
New StreamReader(wc.OpenRead("URLﾘﾝｸ(www.asahi.com)"), Encoding.GetEncoding("euc-jp"))
こんな感じで書いているのですが、日本語の一部（8割方ちゃんと読める）が
文字化けした状態になってしまいます。
正しく変換するにはどのように書いたらよいのでしょうか。

159:デフォルトの名無しさん
04/10/17 10:23:28
群を抜いてレベルの低いスレだな、ここは。

160:デフォルトの名無しさん
04/10/17 12:05:04
>158
すまん。自己解決。犯人は秀丸だった。

161:デフォルトの名無しさん
04/10/17 13:13:59
>>159
足を入れたとたんに低レベルですよ

162:デフォルトの名無しさん
04/10/18 03:51:53
.netで、XML WEB サービスを作っています。
WebMethodで、引数を与えて、引数から計算をして戻り値を返すという関数を作ったのですが、
WebMethod名に引数を与えたURLを入力すると、
「'/WebServiceSoap' アプリケーションでサーバーエラーが発生しました。
要求形式が認識されません。」
と出てきてしまいます。
WebMethod名だけを指定したURLにすると、テスト画面になってしまいます。
なぜ、直接、レスポンスがないのでしょうか？

163:デフォルトの名無しさん
04/10/18 10:23:50
>>162
URLﾘﾝｸ(www.google.co.jp)

164:デフォルトの名無しさん
04/10/18 11:33:12
漫才見てるようで面白いスレだ

165:デフォルトの名無しさん
04/10/18 12:11:21
データーを作った後、帳票印刷にエクセルを使おうとして、下のように組んでみました。
印刷するところまでは上手く言ったのですが、閉じようとするとエクセル側に”変更を
保存してもいい？”って聞かれてしまいます。このメッセージを無視して、エクセルを
閉じてしまうにはどうしたらよいのでしょうか？

166:デフォルトの名無しさん
04/10/18 12:12:01
　　　　　　　Try
　　　　　　　　　　　　Dim ExcelApp As Excel.Application
　　　　　　　　　　　　Dim ExcelBook As Excel.Workbook
　　　　　　　　　　　　Dim ExcelSheet As Excel.Worksheet
　　　　　　　　　　　　ExcelApp = CreateObject("Excel.Application")
　　　　　　　　　　　　ExcelBook = ExcelApp.Workbooks.Open("\\filesaver\data\printMitsumori.xls")
　　　　　　　　　　　　ExcelSheet = ExcelBook.Worksheets(1)
　　　　　　　　　　　　ExcelApp.Visible = True
　　　　　　　　　　　　ExcelSheet.Cells(1, 1).Value = data1
　　　　　　　　　　　　ExcelSheet.Cells(2, 1).Value = "data2
　　　　　　　　　　　　ExcelSheet.PrintOut()
　　　　　　　　　　　　ExcelApp.Quit()

167:デフォルトの名無しさん
04/10/18 12:12:22
　　　　　　　　　　　　ExcelSheet = Nothing
　　　　　　　　　　　　ExcelBook = Nothing
　　　　　　　　　　　　ExcelApp = Nothing
　　　　　　　　Catch ex As Exception
　　　　　　　　　　　　MessageBox.Show("印刷処理に失敗しました、暫くしてから再度ボタンを押してください")
　　　　　　　　　　　　ExcelApp.Quit()
　　　　　　　　　　　　ExcelSheet = Nothing
　　　　　　　　　　　　ExcelBook = Nothing
　　　　　　　　　　　　ExcelApp = Nothing
　　　　　　　　End Try

168:デフォルトの名無しさん
04/10/18 13:37:03
Quitの前にDisplayAlertsをFalseにしる

169:165
04/10/18 13:48:03
できますた。ありがとうママン。

170:デフォルトの名無しさん
04/10/18 14:50:41
フォームの表示に関しての質問です。

Sub Form_Load() Handles MyBase.Load
'処理Ａ（５分程度時間がかかる）
End Sub

この時、処理Ａが終了するまで、フォームが表示されません。
処理Ａの前にMybase.Showを実行すると、
ウィンド枠と、メニューは表示されるのですが、ボタンやテキストボックスが
白く表示されてしまいます。（処理Ａが終了したら正しく表示される）
処理Ａの間も正常に表示させるにはどうしたらいいのか教えてください。
お願いします。

171:デフォルトの名無しさん
04/10/18 14:51:32
すみませぬ、スレ違いなんだけど、ココくらいしか聞けそうなところないようなんで。
VB.NET ではなく、C#を利用してasp書いてるんですが、
質問はどこでしたらいいんでしょう？それともそんなスレない？

172:デフォルトの名無しさん
04/10/18 17:44:43
処理中にウインドウを操作されても良いならば、
ループの中でApplication.DoEventsを呼べばいいかと。

173:デフォルトの名無しさん
04/10/18 18:59:21
>>171
WebProg板
ｽﾚﾘﾝｸ(php板)l50

174:170
04/10/18 20:55:52
>>172
ありがとうございます。

ただ、処理Ａ（Function のコール）は
外部から提供されている部分で、できれば手を加えたくありません。
他にもなにか方法があればお願いします。

175:デフォルトの名無しさん
04/10/18 21:15:52
>>170
そもそもLoadイベントでなにか処理をするなんて根本から間違い。
別のタイミング（たとえばActivatedイベントなどで）行うべき。

さらに、そんな重い処理なら別スレッドで実行するようにするべき。
>>172には悪いが、DoEventsなんて下策中の下策。
というか、>>170の問題はDoEventsでは恐らく解決しないだろう。

176:デフォルトの名無しさん
04/10/18 21:57:26
質問です。
Dim Class1 As ClassName
...
Class1 = New ClassName(0)
...しばらくClass1を使う
Class1 = New ClassName(1)

こんなことしてもVBさんは勝手にお掃除してくれるのでしょうか？

177:デフォルトの名無しさん
04/10/18 22:06:37
しばらくしたら掃除してくれる

178:176
04/10/18 23:54:05
>>177
ありがとうございました。

179:デフォルトの名無しさん
04/10/19 01:46:45
その、GCの仕組みってどうなってるのかなぁ

180:デフォルトの名無しさん
04/10/19 01:50:42
ガベージをコレクトするのだよ。

181:デフォルトの名無しさん
04/10/19 01:58:07
できる！VisualStudio.NETには
参照が解除された後に適当な時期に破棄される
とある

182:170
04/10/19 10:29:39
>>175
ありがとうございました。
別スレッドで実行できる事を知りませんでした。
（Activated はFocusが移る度に実行されてしまうので向いていませんでした）

183:デフォルトの名無しさん
04/10/19 15:00:46
スクロールバー付きのテキストボックスで
キーボードからの入力は不可、表示はプログラムからのみ。

この時、テキストボックスの大きさより表示行が増えた時に、
一番下の行を常に表示したいのですが、
どういう設定をしたらいいのか教えてください。

現状は、行数が増えても同じ場所を表示してしまいます。
お願いします。

184:デフォルトの名無しさん
04/10/19 16:01:33
>>183
テキストの入力位置をSelectメソッドで一番最後に指定して、
ScrollToCaretメソッドでその位置を表示させる

具体的にソースを書けば、以下のような感じ
MyTextBox.Select(MyTextBox.Text.Length, 0)
MyTextBox.ScrollToCaret()

185:デフォルトの名無しさん
04/10/19 16:54:03
久々に回答らしい回答を見た希ガス

186:183
04/10/19 17:07:42
>>184
ありがとうございます。
早速試してみます。

187:デフォルトの名無しさん
04/10/19 18:11:22
っていうか久しぶりにVB.NETの問題を見たから答えただけだけどね

188:デフォルトの名無しさん
04/10/19 20:13:04
引数の数を可変にする方法があったら教えてください。

Function x(a As String,b As String,c As String,d As String)
という感じのファンクションを呼び出す時に、
ある部分からは、aのみ設定して
ある部分からは、a,b,c,を設定する
という様な処理をしたいのですが。

よろしくお願いします。

189:デフォルトの名無しさん
04/10/19 20:17:31
>>188
Overloads

Optionalってキーワードもあるが、これは旧VBの負の遺産だから
使わないほうがいいと思う。

190:デフォルトの名無しさん
04/10/19 23:56:34
すいません、ASP.NETを使えるレンタルサーバーを借りたのですが、使用時の心得に、
「共有サーバーとしてのデバッグ知識のない方はASPは絶対に利用しないでください！
ローカルテストと共有サーバーは環境が全く違います」
という内容がありました。
これは、VisualSTudio.netのデバッガと、@pageやTrace.write()の相違のことを言っているのでしょうか？

191:デフォルトの名無しさん
04/10/20 00:24:13
せめてそのレンタルサーバのアドレスぐらい書いてくれれば・・・

192:デフォルトの名無しさん
04/10/20 00:31:05
>191
190の2行目そのまま、ぐぐるとヒットするようね。

193:デフォルトの名無しさん
04/10/20 00:42:48
190です。
すいません,上記内容はメールで送られてきたものです。
ASPの使用心得は、以上のみでした。
常識的には、VisualSTudio.netのデバッガと、@pageやTrace.write()の相違ということでいいのでしょうか？

194:デフォルトの名無しさん
04/10/20 07:09:10
要するに>190はASP使うなってことでしょ。
わかってないんだから。

195:188
04/10/20 08:32:22
>>189
ありがとうございます

196:デフォルトの名無しさん
04/10/21 00:27:49
VB.netって、コントロール配列のやり方が、VB6.0と違いますよね。
VB6.0では、コピーアンドペーストでできたけど･･･
みなさんは、どうやってコントロール配列を作っていますか?
俺が見つけた方法は、どれもコードが汚くなる。
コードがきれいになる方法をご存知ないでしょうか

197:デフォルトの名無しさん
04/10/21 00:55:08
>>196
質問は明確に。

どうやってもこうやっても、ないものは作りようがない。
つまりまったく同じ機能を享受したい、というわけにはいかない。
それはわかってるんでしょ？

だったらなぜ、コントロール配列のこの機能と同じことができないか？
という風に質問しないの？

198:デフォルトの名無しさん
04/10/21 08:49:37
>>196
コントロール配列を使うことがあまり無いかな

たまに使うときはコンストラクタで
MyButton(1) = MyButton1
MyButton(2) = MyButton2
MyButton(3) = MyButton3
ってしておく

あとは実行時に複数登録する場合もあり

Dim i As Integer

For i = 1 To 10

　　　Dim item As MenuItem = New MenuItem("MenuText")
　　　AddHandler item.Click, AddressOf MyMenuItem_Click
　　　MyMenu.MenuItems.Add(item)
Next

199:K
04/10/21 16:24:03
メールソフトを作ろうと思っているのですが、
POPサーバーにログインするにはどうしたらいいかわかりません。

どなたか、教えてくれませんか～？

200:デフォルトの名無しさん
04/10/21 16:47:10
>>199
C#でちょこっと作ってみた。
URLﾘﾝｸ(www.asahi-net.or.jp)

もし読んでなければ、RFCを読むのがおすすめ。
URLﾘﾝｸ(www.goto.info.kanagawa-u.ac.jp)

201:デフォルトの名無しさん
04/10/21 16:48:18
URLﾘﾝｸ(www.goto.info.kanagawa-u.ac.jp)
単純なプロトコルだけあって短いな

202:ぬるぽ大明神
04/10/21 16:52:37
ここは初心者にやたらと優しいスレですね。

203:K
04/10/21 16:57:32
>>200,201
POPサーバーにログインだけするにはどうすればいいですか？

204:デフォルトの名無しさん
04/10/21 17:11:43
>>203
USERとPASSを送って待機(かQUITで終了)。
なんの意味があるかわからんが(POP before SMTPのためか?)。

205:K
04/10/21 17:18:18
>>204
>なんの意味があるかわからんが(POP before SMTPのためか?)。
その通りです。
ソース作ってもらえませんか？

206:デフォルトの名無しさん
04/10/21 17:21:26
URLﾘﾝｸ(dobon.net)
( ﾟДﾟ)ｳﾎﾞｫｱｰ

207:K
04/10/21 17:27:09
>>206
ソースがほしかったんですけど、なかなか聞き出せなくて…
ごめんなさい。

208:デフォルトの名無しさん
04/10/21 17:34:02
死刑確定ですか？

209:K
04/10/21 17:46:47
で、POPサーバーにログインするにはどうしたらいいのですか？

210:デフォルトの名無しさん
04/10/21 18:09:17
ｸﾞｸﾞりゃ出てくるがな

211:デフォルトの名無しさん
04/10/21 18:28:49
VB.NETで縁取りした文字列の形にコントロールを切り抜きたいと思ってます。
GraphicPathに文字列を追加して、DrawPathで太めの縁を描画すると、
元のパスから外側に少しはみ出しますよね？
このはみ出た分も収まるようにコントロールのRegionを設定したいのですが、
何か方法ありますでしょうか？

212:デフォルトの名無しさん
04/10/21 23:47:49
>>211
やったことないんで間違ってたらゴメン。
これ使ってパスを「膨張」させといて、そのパスからリージョンを
作ればいいんじゃないかな。
URLﾘﾝｸ(www.microsoft.com)

213:Ｋ（偽者）
04/10/22 05:17:14
で、ログインのソースはまだですか？

214:デフォルトの名無しさん
04/10/22 10:05:14
>>213
今作っています。２年程待って下さい。

215:デフォルトの名無しさん
04/10/22 10:26:29
>213
2年もまてませんよね？
ソースあります。１行１００円でどうですか？
全体で３０万行ほどあります。

216:211
04/10/22 10:37:29
>>212
ほぼ思った通りのことができました。
ありがとうでした。

217:デフォルトの名無しさん
04/10/22 10:52:44
チェックボックス状態の配列参照の仕方について教えてください。

チェックボックスが複数あり、そのcheckd状態を
check(1),check(2)・・・といった感じの配列として参照したいのですが、
方法が分かりません。
お金は払えませんが、よろしくお願いします。

218:デフォルトの名無しさん
04/10/22 12:29:28
>217
ちょっとは過去ログ嫁

219:デフォルトの名無しさん
04/10/22 12:42:48
>>196=217?

220:Ｋ(偽者2)
04/10/22 12:52:07
>>215
分かりました、３０００万円ですね。
バイトで貯めますので、３年待ってください。

221:217
04/10/22 18:00:14
>>218
検索のヒントとなるキーワードだけでもお願いします。
ちなみに、フォームのデザイン上CheckListBoxでは無く、
CheckBoxでの配列参照を考えています。
お願いします。

222:デフォルトの名無しさん
04/10/22 18:27:01
現在ログオンしているユーザーを取得するのはどうすんの？
GetUserNameだとユーザー切り替えに対応してないから無理なんだけど....
教えてエロイ人

223:デフォルトの名無しさん
04/10/22 18:30:07
デジャヴを感じる・・・

224:デフォルトの名無しさん
04/10/22 23:16:56
VB.NET のプロジェクトに、VB(というかWindowsプログラミング)経験無しで
いきなりつっこまれました(いままで Unix で C か Java)

VB.net で業務画面アプリを作っていて、サーバにXMLで電文を
送っているんだけど、xsd というファイルは XML スキーマですよね。
xsx と resx っていうのがセットであるんだけど、この二つはなに？
たとえばソースコードを VSS なり CVS で管理するとき、
xsd は必要だけど、xsx や resx もあった方がいいの？

225:デフォルトの名無しさん
04/10/23 01:25:34
通信処理で、非同期スレッド内で受信データを読込み、読込みが完了したら、イベントを発生させ
フォームでそのイベントを受け取ろうとしています。
で、フォームでイベントを受けた時に、TextBoxのプロパティをウォッチウィンドウで参照しようと
するとプロパティの欄が全て"Error:Cannot obtain value"となります。
いろいろ試したのですが、なぜこのようなエラーが発生するか見当もつきません。
どんな些細なことでもかまいませんので、皆様の意見をお聞かせください。
簡単なソースを付けておきます。(フォーム上にテキストボックスとボタンを貼り付けてください。)

226:225
04/10/23 01:26:00
Public Class Form1
Inherits System.Windows.Forms.Form
WithEvents test_cls As New test
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
test_cls.Start()'受信スレッド実行
End Sub
Private Sub test_cls_test_Event(ByVal count As Integer) Handles test_cls.test_Event'受信完了したイベント
TextBox1.Text = count'ここで、TextBox1をウォッチウィンドウでデバックしようとすると、"Error:Cannot obtain value"となる
End Sub
End Class

Class test'簡単な通信クラスのつもり
Public Event test_Event(ByVal count As Integer)
Private m_Thread As Threading.Thread
Public Sub Start()'スレッド開始ポイント
m_Thread = New Threading.Thread(AddressOf test_Thread)
m_Thread.Start()
End Sub
Sub test_Thread()'受信データチェックスレッド
Dim Count As Integer
While (1)
RaiseEvent test_Event(Count)'受信データが有りとみなして、イベントを発生させる
Count += 1
System.Threading.Thread.Sleep(10000)
End While
End Sub
End Class

227:デフォルトの名無しさん
04/10/23 01:35:36
>>225
たぶんDOBON.NETさんのメルマガの25号に書いてあるようにすればいいんじゃないかな。

228:225
04/10/23 01:58:55
>>227
ありがとうございます。まさに、行いたい事がそのまま書いてありました。
以前BeginInvokeも試したのですが、
その時は、サンプルもほとんどなかったのでどうやら使い方が間違っていたみたいです。
サンプルも豊富に載っているみたいなので、ちょっと勉強してきます。

229:デフォルトの名無しさん
04/10/23 12:06:14
>>222
ここにその方法がある
URLﾘﾝｸ(forums.belution.com)

でもVC用なので俺はわからん
誰かVB用に書き直してくれ

230:デフォルトの名無しさん
04/10/23 17:01:05
仮に王とジンの強さが同じくらいとする。
でも、ネテロや他のハンターが王を倒したら、ジンの強さって何？ってことになる。
しかも、その後の展開で、旅団との強さのバランスが取りにくい。

よって、
ジン＞＞＞王＝クロロ＞ネテロ＞＞＞ネフェルピトー、シャウアプフ、モントゥトゥユピー＞カイト＞＞＞ゴン、キルアほか討伐メンバー

これくらいが妥当。

231:デフォルトの名無しさん
04/10/23 23:22:16
VB.NETでADO.NETを扱う質問です。
ACCESSデータベースに接続して編集をする場合
OleDbParameterを
CurrentパラメーターとOriginalパラメーターと2つ用意することは
わかったのですが、
パラメータ自動生成を使った場合
OleDbUpdateCommandのパラメーターに
NAMEカラムなら
NAMEというCurrentパラメーターと
Original_NAMEというOriginalパラメーターと
Original_NAME1というOriginalパラメーターができています。
3つ目のOriginal_NAME1は何の目的で生成されているのですか？

232:デフォルトの名無しさん
04/10/23 23:26:07
>>230
すざましい誤爆だな。

233:デフォルトの名無しさん
04/10/24 15:27:55
すいません、初心者の質問をさせてください（初心者質問スレはないようなので）。

３個の数字をタイムラグをつけて次々と表示させたいのですが、
　　　　　　number1.Text = number1
　　　　　　（空ループorTimer プロパティ）
number2.Text = number2
　　　　　　（空ループorTimer プロパティ）
number3.Text = number3
としても、３つの数字・ラグ・数字・ラグ・数字のようにはならず、ラグのあとに
３つの数字がまとめて出てきてしまいます。
当方通常のＢＡＳＩＣは使ったことがあるので同じノリでこのようにやってみた
のですが、なぜそうなってしまうのか全く分かりません。

どうすればいいのか、何故そうなるのかを教えていただければ幸いです。

234:デフォルトの名無しさん
04/10/24 17:47:19
number1.Text = number1
（空ループorTimer プロパティ）
number2.Text = number2
（空ループorTimer プロパティ）
number3.Text = number3
（画面の描画）

となってるから。

235:224
04/10/24 21:19:59
>>224
すみません、レスをいただければうれしいです。

236:デフォルトの名無しさん
04/10/25 19:12:56
Dim ApplicationFolder As String = "\\192.168.100.1\ftp\"
Dim fileName As String = nekomimi
Dim codeNo As String = 67890
Dim WriteFileStream As FileStream = New FileStream(ApplicationFolder & a & ".mit", FileMode.Create, FileAccess.Write)
Dim TextStreamWriter As StreamWriter = New StreamWriter(WriteFileStream, Encoding.GetEncoding("Shift_JIS"))
TextStreamWriter.WriteLine(b)
TextStreamWriter.Close()

237:デフォルトの名無しさん
04/10/25 19:13:21
上記のようなプログラムで、ファイル名”nekomimi.mit”を作成してから、ネットワークで共有されたディスク内に格納
しておき、メールで【\\192.168.100.1\ftp\nekomimi.mitをクリックしてください。】というリンクつきのアナウンスを
流し、アドレスクリック一発で.mitに関連付けておいた.exeを起動、codeNoを読み取ってから変数aに代入したいのですが
初心者用の書籍には、こういう使い方が出ていません。

どなたか、こういう使い方をされた事のある方、ヒントをいただけないでしょうか？

238:233
04/10/25 19:50:03
>>234
それは何故なんでしょう？
何かいい手はありますでしょうか？

239:デフォルトの名無しさん
04/10/25 22:20:18
>>238
明らかに
> （空ループorTimer プロパティ）
のところが悪さしてるのだから、その部分のソースをupするべし。

240:デフォルトの名無しさん
04/10/25 22:22:50
>>238
間に application.doeventsだったかな？
それいれたらいけるんじゃないかな

241:デフォルトの名無しさん
04/10/26 01:08:39
DataGridのHeaderのHeightはどうやったら調整できますか？

242:233
04/10/26 01:33:11
>>240
それを入れたらうまく行きました。ありがとうございます。
ただ、それってラグの間に操作を受け付けるようにする処理ですよね？
全然関係ないように思えるんですが、なぜそれでうまく行くんでしょう…？

243:デフォルトの名無しさん
04/10/26 02:59:53
WebClient.DownloadFileを使用して
1本のファイルをダウンロードするプログラムを作っています。
ダウンロード中にプログレスバーで進捗を表示したいのですが、
ファイルの何％をダウンロードしたかを取得してリアルタイムに表示する方法ってあるのでしょうか？

244:デフォルトの名無しさん
04/10/26 03:28:00
>>243
WebClient.DownloadFileじゃ無理。
WebRequest, WebResponseを使ったストリーム受信を行う必要がある。

245:243
04/10/26 03:43:46
>>244
ありがとうございます。さっそく調べてみます。

246:でき
04/10/26 08:54:03
すいませんが、どなたか、VB.netにてwin2000、winXPの端末がコンピュータロック中か取得する方法をご存知でしょうか？

247:デフォルトの名無しさん
04/10/27 21:24:01
NULL文字で終わるANSI文字列を受け取る関数を、CのDLLで実装しました。

void __stdcall Func(const char *s);

VB.NETから利用するために、以下のように定義したところ、

Declare Sub Func Lib "testdll" (ByVal s As String) ' (1)

文字列変数に"あいうえ"という文字列を格納し、この変数をFunc()に渡すと、
関数呼出し後、文字列変数の中身が"あい"に変わってしまいました。

MSDNを読んだところ、そもそも(1)の宣言だと文字列がBSTRに解釈されてしまうため、

Declare Sub Func Lib "testdll" ( _
　<MarshalAs(UnmanagedType.LPStr)> ByVal s As String) ' (2)

と宣言すべきである、という事がわかり、試しに(2)のとおり宣言してみたところ、
関数呼出し後も文字列変数の中身は変わりませんでした。

ただ、(1)の形式で変数の中身が変わってしまう理由が分かりません。
なぜ(1)の形式だと、このような現象が発生するのでしょうか?

248:デフォルトの名無しさん
04/10/27 22:18:29
>>247
症状は全然ちがうけど、同じように.NET側で確保した領域をポインタ渡しする処理で
原因不明のトラブルで悩んだことがあったけど、(.NET FrameworkはVer1.1)
このあいだでたSP1のFrameworkをインストールしたら解消した。

もしまだSP1にしてなければ試してみては？

249:デフォルトの名無しさん
04/10/27 22:59:05
>>248
ｿﾚﾀﾞｯ！と思い、早速SP1を当ててみました。
しかし、現象変わらずでした。

250:240じゃないけど
04/10/28 01:22:38
>>242
>ただ、それってラグの間に操作を受け付けるようにする処理ですよね？

いやいや、メッセージ・ループからメッセージを取ってくるんでしょ？キューに
たまったメッセージが処理できないで待ってるんだから。

この説明でわかりますか？ Windowを扱うシステムってメッセージ駆動に
なっているのだという基礎が出来てないと理解できないと思うが。

251:デフォルトの名無しさん
04/10/29 01:47:20
VB.netでMIDI音源に、音を出させるにはどうすればいいですか？
MIDIファイルの再生でなく、指定した音、又は音列を再生させたいんですけれど。

252:デフォルトの名無しさん
04/10/30 01:01:45
>>251
URLﾘﾝｸ(wisdom.sakura.ne.jp)
ここ見ればわかるはず。現に俺はここ見ただけでその手のコードが書けた。
見てもわからなかったら諦めるよろし。

ま、普通このぐらいのことGoogleで検索して調べるわけで、
そんな手間すら惜しむお方には無理に５万両。

253:251
04/10/30 01:23:22
すまん。
"VB.net"　MIDI
でしか検索してなかったんで、Cのコードを参考にするって考えが浮かばなかった。
が、今一よくわからん……。

とりあえず、DirectX　SDK落としてきたよ。

254:251
04/10/31 01:25:31
ダメだorz。やっぱりわからん。
環境は
言語：VB.net
IDE：SharpDevelop
SDK：DirectX　9.0　SDK　Update　(October　2004)
で、>>251に書いた様なコトをしたいんですけど……。

255:251
04/10/31 01:51:11
URLﾘﾝｸ(gpwiki.org)
まずは↑ここを参照しつつ、WAVを再生させる事には成功したんで、
なんとか頑張ってみます。

256:デフォルトの名無しさん
04/10/31 01:59:14
Managed DirectXがDirectMusicをサポートしない以上WinAPIの方が手っ取り早そうだけどなぁ……。

257:フナ太郎
04/10/31 03:07:02
マネージド、マネージドうっせーんだよ

258:252
04/10/31 11:26:26
>>251
貶すだけじゃ後味悪いんで一言。

どうしてもDirectX使わなきゃダメなの？
>>256も書いてるけどWinAPI使えばびっくりするぐらい簡単だよ。
いろいろ調べながらでも1,2時間もあればとりあえず音を出すことは出来ると思う。

とりあえず使う関数はmidiOutOpen,midiOutShortMsg,midiOutReset,midiOutClose
これだけだったはず。（実際に音を出したり止めたりするときに使うのはmidiOutShortMsgだけ）

APIの宣言の仕方がわからないなら、APIの関数名にVBってキーワード付けて
検索すればVB6での宣言が出てくるはずだから、それを少し改変するだけでいい。
定数の値も同じ要領で調べられるはず。

気をつける点は、

(1)VB6の LongはVB.NETではIntegerになっている。(2)引数の渡し方のデフォルト、
つまり明示的に書かなかった場合VB6ではByRefなのに対しVB.NETではByVal
(3)引数のうちデバイスハンドルは、VB6ではLongになっているがVB.NETでは
IntegerではなくIntPtrにしたほうがいいかも。

こんなところかな。

259:デフォルトの名無しさん
04/11/01 00:32:06
.NETでWinAPIを使うのは良くない、みたいに聞いていたので、DirectXを使おうとしてたのですが。

で、色々と弄ってみましたが、エラーは起きないものの、
再生されない……。参考にしたVBのサンプル（URLﾘﾝｸ(tokyo.cool.ne.jp)）付属のexeでは出てるのにOrz。

こんな感じなんですが↓

260:デフォルトの名無しさん
04/11/01 00:38:12
Private　hMid　As　IntPtr
Private　Note　As　Integer
～～
Public　Declare　Function　midiOutOpen　Lib　"winmm.dll"　_

　　　　Alias　"midiOutOpen"　_

　　　　(lphMidiOut　As　IntPtr,　_

　　　　ByVal　uDeviceID　As　Int32,　_

　　　　ByVal　dwCallback　As　Int32,　_

　　　　ByVal　dwInstance　As　Int32,　_

　　　　ByVal　dwFlags　As　Int32)　As　Int32

261:デフォルトの名無しさん
04/11/01 00:38:49
Public　Declare　Function　midiOutClose　Lib　"winmm.dll"　_

　　　　Alias　"midiOutClose"　_

　　　　(ByVal　hMidiOut　As　IntPtr)As　Int32

　　　　

Public　Declare　Function　midiOutShortMsg　Lib　"winmm.dll"　_

　　　　Alias　"midiOutShortMsg"　_

　　　　(ByVal　hMidiOut　As　IntPtr,　_

　　　　ByVal　dwMsg　As　Int32)　As　Int32
～～

262:デフォルトの名無しさん
04/11/01 00:39:17
Private　Sub　schmerzFormLoad(sender　As　System.Object,　e　As　System.EventArgs)

　　　　Dim　Ret　As　Int32
　　　　Ret　=　midiOutOpen(hMid,-1,0,0,0)

End　Sub

Private　Sub　schmerzFormClosed(sender　As　System.Object,　e　As　System.EventArgs)

　　　　Dim　Ret　As　Int32

　　　　Ret　=　midiOutClose(hMid)

End　Sub

263:デフォルトの名無しさん
04/11/01 00:39:43
Private　Sub　Button1MouseDown(sender　As　System.Object,　e　As　System.Windows.Forms.MouseEventArgs)

　　　　Dim　Note,　Inst,　Vol　As　Long
　　　　Note　=　70　　　　　　　'音階(&H00から&H7F(127))
　　　　Inst　=　30　　　　　　　'楽器No(ＧＭ音色番号に準拠？）
　　　　Vol　=　&H7F　　　　　　'音量(&H00から&H7F(127))
　　　　
　　　　'楽器の変更（１バイト目：データの種類＆チャンネル番号
　　　　'　　　　　　　　　　　　２バイト目：音色番号）
　　　　midiOutShortMsg(hMid,　&HC0　+　Inst　*　256)
　　　　
　　　　'音を鳴らす（１バイト目：データの種類＆チャンネル番号
　　　　'　　　　　　　　　　　　２バイト目：音階
　　　　'　　　　　　　　　　　　３バイト目：ボリューム）
　　　　midiOutShortMsg(hMid,　&H90　+　Note　*　256　+　Vol　*　256　*　256)

End　Sub

264:デフォルトの名無しさん
04/11/01 00:40:29
Private　Sub　Button1MouseUp(sender　As　System.Object,　e　As　System.Windows.Forms.MouseEventArgs)

　　　　'消音
　　　　midiOutShortMsg(hMid,　&H80　+　Note　*　256)

End　Sub

次ページ