VB.NET質問スレ (Part7)
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNG過去スレ
VB.NET質問スレ (Part6)
http://pc5.2ch.net/test/read.cgi/tech/1088812165/
VB.NET質問スレ (Part5)
http://pc5.2ch.net/test/read.cgi/tech/1078134703/
VB.NET質問スレ (Part4)
http://pc2.2ch.net/test/read.cgi/tech/1065269043/
【老若】VB.net質問スレ【男女】 (Part3)
http://pc2.2ch.net/test/read.cgi/tech/1056281084/
【老若】VB.net質問スレ【男女】 (Part2)
http://pc2.2ch.net/tech/kako/1043/10436/1043629429.html
【老若】VB.net質問スレ【男女】
http://pc2.2ch.net/tech/kako/1025/10258/1025848458.html
0153デフォルトの名無しさん
NGNGConsole.Write(i & "×" & j & "=" & i * j)
0155デフォルトの名無しさん
NGNG0156デフォルトの名無しさん
NGNG0157デフォルトの名無しさん
NGNGもしそうなら、PHPでHTMLのフォームを使っていたのと比べると、隔世の感がありますね。
いかがでしょうか?
ご教授願います。
0158デフォルトの名無しさん
NGNGEUCで書かれたページがうまくダウンロードできません。
StreamReaderを作る際に
New StreamReader(wc.OpenRead("http://www.asahi.com"), Encoding.GetEncoding("euc-jp"))
こんな感じで書いているのですが、日本語の一部(8割方ちゃんと読める)が
文字化けした状態になってしまいます。
正しく変換するにはどのように書いたらよいのでしょうか。
0159デフォルトの名無しさん
NGNG0160デフォルトの名無しさん
NGNGすまん。自己解決。犯人は秀丸だった。
0161デフォルトの名無しさん
NGNG足を入れたとたんに低レベルですよ
0162デフォルトの名無しさん
NGNGWebMethodで、引数を与えて、引数から計算をして戻り値を返すという関数を作ったのですが、
WebMethod名に引数を与えたURLを入力すると、
「'/WebServiceSoap' アプリケーションでサーバー エラーが発生しました。
要求形式が認識されません。 」
と出てきてしまいます。
WebMethod名だけを指定したURLにすると、テスト画面になってしまいます。
なぜ、直接、レスポンスがないのでしょうか?
0163デフォルトの名無しさん
NGNGhttp://www.google.co.jp/search?q=cache:vv8aw_RQsE8J:www.atmarkit.co.jp/bbs/phpBB/viewtopic.php%3Ftopic%3D2278%26forum%3D7%262+%E8%A6%81%E6%B1%82%E5%BD%A2%E5%BC%8F%E3%81%8C%E8%AA%8D%E8%AD%98%E3%81%95%E3%82%8C%E3%81%BE%E3%81%9B%E3%82%93&hl=ja
0164デフォルトの名無しさん
NGNG0165デフォルトの名無しさん
NGNG印刷するところまでは上手く言ったのですが、閉じようとするとエクセル側に”変更を
保存してもいい?”って聞かれてしまいます。このメッセージを無視して、エクセルを
閉じてしまうにはどうしたらよいのでしょうか?
0166デフォルトの名無しさん
NGNGDim 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()
0167デフォルトの名無しさん
NGNGExcelBook = Nothing
ExcelApp = Nothing
Catch ex As Exception
MessageBox.Show("印刷処理に失敗しました、暫くしてから再度ボタンを押してください")
ExcelApp.Quit()
ExcelSheet = Nothing
ExcelBook = Nothing
ExcelApp = Nothing
End Try
0168デフォルトの名無しさん
NGNG0169165
NGNG0170デフォルトの名無しさん
NGNGSub Form_Load() Handles MyBase.Load
'処理A(5分程度時間がかかる)
End Sub
この時、処理Aが終了するまで、フォームが表示されません。
処理Aの前にMybase.Showを実行すると、
ウィンド枠と、メニューは表示されるのですが、ボタンやテキストボックスが
白く表示されてしまいます。(処理Aが終了したら正しく表示される)
処理Aの間も正常に表示させるにはどうしたらいいのか教えてください。
お願いします。
0171デフォルトの名無しさん
NGNGVB.NET ではなく、C#を利用してasp書いてるんですが、
質問はどこでしたらいいんでしょう?それともそんなスレない?
0172デフォルトの名無しさん
NGNGループの中でApplication.DoEventsを呼べばいいかと。
0173デフォルトの名無しさん
NGNGWebProg板
http://pc5.2ch.net/test/read.cgi/php/1040698263/l50
0174170
NGNGありがとうございます。
ただ、処理A(Function のコール)は
外部から提供されている部分で、できれば手を加えたくありません。
他にもなにか方法があればお願いします。
0175デフォルトの名無しさん
NGNGそもそもLoadイベントでなにか処理をするなんて根本から間違い。
別のタイミング(たとえばActivatedイベントなどで)行うべき。
さらに、そんな重い処理なら別スレッドで実行するようにするべき。
>>172には悪いが、DoEventsなんて下策中の下策。
というか、>>170の問題はDoEventsでは恐らく解決しないだろう。
0176デフォルトの名無しさん
NGNGDim Class1 As ClassName
...
Class1 = New ClassName(0)
...しばらくClass1を使う
Class1 = New ClassName(1)
こんなことしてもVBさんは勝手にお掃除してくれるのでしょうか?
0177デフォルトの名無しさん
NGNG0179デフォルトの名無しさん
NGNG0180デフォルトの名無しさん
NGNG0181デフォルトの名無しさん
NGNG参照が解除された後に適当な時期に破棄される
とある
0183デフォルトの名無しさん
NGNGキーボードからの入力は不可、表示はプログラムからのみ。
この時、テキストボックスの大きさより表示行が増えた時に、
一番下の行を常に表示したいのですが、
どういう設定をしたらいいのか教えてください。
現状は、行数が増えても同じ場所を表示してしまいます。
お願いします。
0184デフォルトの名無しさん
NGNGテキストの入力位置をSelectメソッドで一番最後に指定して、
ScrollToCaretメソッドでその位置を表示させる
具体的にソースを書けば、以下のような感じ
MyTextBox.Select(MyTextBox.Text.Length, 0)
MyTextBox.ScrollToCaret()
0185デフォルトの名無しさん
NGNG0187デフォルトの名無しさん
NGNG0188デフォルトの名無しさん
NGNGFunction x(a As String,b As String,c As String,d As String)
という感じのファンクションを呼び出す時に、
ある部分からは、aのみ設定して
ある部分からは、a,b,c,を設定する
という様な処理をしたいのですが。
よろしくお願いします。
0189デフォルトの名無しさん
NGNGOverloads
Optionalってキーワードもあるが、これは旧VBの負の遺産だから
使わないほうがいいと思う。
0190デフォルトの名無しさん
NGNG「共有サーバーとしてのデバッグ知識のない方はASPは絶対に利用しないでください!
ローカルテストと共有サーバーは環境が全く違います」
という内容がありました。
これは、VisualSTudio.netのデバッガと、@pageやTrace.write()の相違のことを言っているのでしょうか?
0191デフォルトの名無しさん
NGNG0192デフォルトの名無しさん
NGNG190の2行目そのまま、ぐぐるとヒットするようね。
0193デフォルトの名無しさん
NGNGすいません,上記内容はメールで送られてきたものです。
ASPの使用心得は、以上のみでした。
常識的には、VisualSTudio.netのデバッガと、@pageやTrace.write()の相違ということでいいのでしょうか?
0194デフォルトの名無しさん
NGNGわかってないんだから。
0196デフォルトの名無しさん
NGNGVB6.0では、コピーアンドペーストでできたけど・・・
みなさんは、どうやってコントロール配列を作っていますか?
俺が見つけた方法は、どれもコードが汚くなる。
コードがきれいになる方法をご存知ないでしょうか
0197デフォルトの名無しさん
NGNG質問は明確に。
どうやってもこうやっても、ないものは作りようがない。
つまりまったく同じ機能を享受したい、というわけにはいかない。
それはわかってるんでしょ?
だったらなぜ、コントロール配列のこの機能と同じことができないか?
という風に質問しないの?
0198デフォルトの名無しさん
NGNGコントロール配列を使うことがあまり無いかな
たまに使うときはコンストラクタで
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
0199K
NGNGPOPサーバーにログインするにはどうしたらいいかわかりません。
どなたか、教えてくれませんか〜?
0200デフォルトの名無しさん
NGNGC#でちょこっと作ってみた。
http://www.asahi-net.or.jp/~ec6k-mtmr/SharpMail.zip
もし読んでなければ、RFCを読むのがおすすめ。
http://www.goto.info.kanagawa-u.ac.jp/~horiyuki/rfc/rfc1939j.txt
0201デフォルトの名無しさん
NGNG単純なプロトコルだけあって短いな
0202ぬるぽ大明神
NGNG0204デフォルトの名無しさん
NGNGUSERとPASSを送って待機(かQUITで終了)。
なんの意味があるかわからんが(POP before SMTPのためか?)。
0206デフォルトの名無しさん
NGNG( ゚Д゚)ウボォアー
0208デフォルトの名無しさん
NGNG0209K
NGNG0210デフォルトの名無しさん
NGNG0211デフォルトの名無しさん
NGNGGraphicPathに文字列を追加して、DrawPathで太めの縁を描画すると、
元のパスから外側に少しはみ出しますよね?
このはみ出た分も収まるようにコントロールのRegionを設定したいのですが、
何か方法ありますでしょうか?
0212デフォルトの名無しさん
NGNGやったことないんで間違ってたらゴメン。
これ使ってパスを「膨張」させといて、そのパスからリージョンを
作ればいいんじゃないかな。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfSystemDrawingDrawing2DGraphicsPathClassWidenTopic.asp
0213K(偽者)
NGNG0214デフォルトの名無しさん
NGNG今作っています。2年程待って下さい。
0215デフォルトの名無しさん
NGNG2年もまてませんよね?
ソースあります。1行100円でどうですか?
全体で30万行ほどあります。
0217デフォルトの名無しさん
NGNGチェックボックスが複数あり、そのcheckd状態を
check(1),check(2)・・・といった感じの配列として参照したいのですが、
方法が分かりません。
お金は払えませんが、よろしくお願いします。
0218デフォルトの名無しさん
NGNGちょっとは過去ログ嫁
0219デフォルトの名無しさん
NGNG0221217
NGNG検索のヒントとなるキーワードだけでもお願いします。
ちなみに、フォームのデザイン上CheckListBoxでは無く、
CheckBoxでの配列参照を考えています。
お願いします。
0222デフォルトの名無しさん
NGNGGetUserNameだとユーザー切り替えに対応してないから無理なんだけど....
教えてエロイ人
0223デフォルトの名無しさん
NGNG0224デフォルトの名無しさん
NGNGいきなりつっこまれました(いままで Unix で C か Java)
VB.net で業務画面アプリを作っていて、サーバにXMLで電文を
送っているんだけど、xsd というファイルは XML スキーマですよね。
xsx と resx っていうのがセットであるんだけど、この二つはなに?
たとえばソースコードを VSS なり CVS で管理するとき、
xsd は必要だけど、xsx や resx もあった方がいいの?
0225デフォルトの名無しさん
NGNGフォームでそのイベントを受け取ろうとしています。
で、フォームでイベントを受けた時に、TextBoxのプロパティをウォッチウィンドウで参照しようと
するとプロパティの欄が全て"Error:Cannot obtain value"となります。
いろいろ試したのですが、なぜこのようなエラーが発生するか見当もつきません。
どんな些細なことでもかまいませんので、皆様の意見をお聞かせください。
簡単なソースを付けておきます。(フォーム上にテキストボックスとボタンを貼り付けてください。)
0226225
NGNGInherits 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
0227デフォルトの名無しさん
NGNGたぶんDOBON.NETさんのメルマガの25号に書いてあるようにすればいいんじゃないかな。
0228225
NGNGありがとうございます。まさに、行いたい事がそのまま書いてありました。
以前BeginInvokeも試したのですが、
その時は、サンプルもほとんどなかったのでどうやら使い方が間違っていたみたいです。
サンプルも豊富に載っているみたいなので、ちょっと勉強してきます。
0229デフォルトの名無しさん
NGNGここにその方法がある
http://forums.belution.com/ja/vc/000/165/29.shtml
でもVC用なので俺はわからん
誰かVB用に書き直してくれ
0230デフォルトの名無しさん
NGNGでも、ネテロや他のハンターが王を倒したら、ジンの強さって何?ってことになる。
しかも、その後の展開で、旅団との強さのバランスが取りにくい。
よって、
ジン>>>王=クロロ>ネテロ>>>ネフェルピトー、シャウアプフ、モントゥトゥユピー>カイト>>>ゴン、キルアほか討伐メンバー
これくらいが妥当。
0231デフォルトの名無しさん
NGNGACCESSデータベースに接続して編集をする場合
OleDbParameterを
CurrentパラメーターとOriginalパラメーターと2つ用意することは
わかったのですが、
パラメータ自動生成を使った場合
OleDbUpdateCommandのパラメーターに
NAMEカラムなら
NAMEというCurrentパラメーターと
Original_NAMEというOriginalパラメーターと
Original_NAME1というOriginalパラメーターができています。
3つ目のOriginal_NAME1は何の目的で生成されているのですか?
0232デフォルトの名無しさん
NGNGすざましい誤爆だな。
0233デフォルトの名無しさん
NGNG3個の数字をタイムラグをつけて次々と表示させたいのですが、
number1.Text = number1
(空ループorTimer プロパティ)
number2.Text = number2
(空ループorTimer プロパティ)
number3.Text = number3
としても、3つの数字・ラグ・数字・ラグ・数字のようにはならず、ラグのあとに
3つの数字がまとめて出てきてしまいます。
当方通常のBASICは使ったことがあるので同じノリでこのようにやってみた
のですが、なぜそうなってしまうのか全く分かりません。
どうすればいいのか、何故そうなるのかを教えていただければ幸いです。
0234デフォルトの名無しさん
NGNG(空ループorTimer プロパティ)
number2.Text = number2
(空ループorTimer プロパティ)
number3.Text = number3
(画面の描画)
となってるから。
0236デフォルトの名無しさん
NGNGDim 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()
0237デフォルトの名無しさん
NGNGしておき、メールで【\\192.168.100.1\ftp\nekomimi.mitをクリックしてください。】というリンクつきのアナウンスを
流し、アドレスクリック一発で.mitに関連付けておいた.exeを起動、codeNoを読み取ってから変数aに代入したいのですが
初心者用の書籍には、こういう使い方が出ていません。
どなたか、こういう使い方をされた事のある方、ヒントをいただけないでしょうか?
0239デフォルトの名無しさん
NGNG明らかに
> (空ループorTimer プロパティ)
のところが悪さしてるのだから、その部分のソースをupするべし。
0240デフォルトの名無しさん
NGNG間に application.doeventsだったかな?
それいれたらいけるんじゃないかな
0241デフォルトの名無しさん
NGNG0242233
NGNGそれを入れたらうまく行きました。ありがとうございます。
ただ、それってラグの間に操作を受け付けるようにする処理ですよね?
全然関係ないように思えるんですが、なぜそれでうまく行くんでしょう…?
0243デフォルトの名無しさん
NGNG1本のファイルをダウンロードするプログラムを作っています。
ダウンロード中にプログレスバーで進捗を表示したいのですが、
ファイルの何%をダウンロードしたかを取得してリアルタイムに表示する方法ってあるのでしょうか?
0244デフォルトの名無しさん
NGNGWebClient.DownloadFileじゃ無理。
WebRequest, WebResponseを使ったストリーム受信を行う必要がある。
0245243
NGNGありがとうございます。さっそく調べてみます。
0246でき
NGNG0247デフォルトの名無しさん
NGNGvoid __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)の形式だと、このような現象が発生するのでしょうか?
0248デフォルトの名無しさん
NGNG症状は全然ちがうけど、同じように.NET側で確保した領域をポインタ渡しする処理で
原因不明のトラブルで悩んだことがあったけど、(.NET FrameworkはVer1.1)
このあいだでたSP1のFrameworkをインストールしたら解消した。
もしまだSP1にしてなければ試してみては?
0249デフォルトの名無しさん
NGNGソレダッ!と思い、早速SP1を当ててみました。
しかし、現象変わらずでした。
0250240じゃないけど
NGNG>ただ、それってラグの間に操作を受け付けるようにする処理ですよね?
いやいや、メッセージ・ループからメッセージを取ってくるんでしょ?キューに
たまったメッセージが処理できないで待ってるんだから。
この説明でわかりますか? Windowを扱うシステムってメッセージ駆動に
なっているのだという基礎が出来てないと理解できないと思うが。
0251デフォルトの名無しさん
NGNGMIDIファイルの再生でなく、指定した音、又は音列を再生させたいんですけれど。
0252デフォルトの名無しさん
NGNGhttp://wisdom.sakura.ne.jp/system/winapi/media/mm11.html
ここ見ればわかるはず。現に俺はここ見ただけでその手のコードが書けた。
見てもわからなかったら諦めるよろし。
ま、普通このぐらいのことGoogleで検索して調べるわけで、
そんな手間すら惜しむお方には無理に5万両。
■ このスレッドは過去ログ倉庫に格納されています