VB.NET質問ｽﾚ (Part7)

1 名前：デフォルトの名無しさん [04/10/02 11:10:17] VB.NETの質問全般です 過去スレ VB.NET質問ｽﾚ (Part6) pc5.2ch.net/test/read.cgi/tech/1088812165/ VB.NET質問ｽﾚ (Part5) pc5.2ch.net/test/read.cgi/tech/1078134703/ VB.NET質問ｽﾚ (Part4) pc2.2ch.net/test/read.cgi/tech/1065269043/ 【老若】VB.net質問ｽﾚ【男女】 (Part3) pc2.2ch.net/test/read.cgi/tech/1056281084/ 【老若】VB.net質問ｽﾚ【男女】 (Part2) pc2.2ch.net/tech/kako/1043/10436/1043629429.html 【老若】VB.net質問ｽﾚ【男女】 pc2.2ch.net/tech/kako/1025/10258/1025848458.html 202 名前：ぬるぽ大明神 mailto:sage [04/10/21 16:52:37] ここは初心者にやたらと優しいスレですね。 203 名前：K mailto:age [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 mailto:age [04/10/21 17:18:18] >>204 >なんの意味があるかわからんが(POP before SMTPのためか?)。 その通りです。 ソース作ってもらえませんか？ 206 名前：デフォルトの名無しさん mailto:sage [04/10/21 17:21:26] dobon.net/cgi-bin/vbbbs/cbbs.cgi?mode=al2&namber=6878&rev=&no=0 ( ﾟДﾟ)ｳﾎﾞｫｱｰ 207 名前：K mailto:age [04/10/21 17:27:09] >>206 ソースがほしかったんですけど、なかなか聞き出せなくて… ごめんなさい。 208 名前：デフォルトの名無しさん mailto:sage [04/10/21 17:34:02] 死刑確定ですか？ 209 名前：K mailto:age [04/10/21 17:46:47] で、POPサーバーにログインするにはどうしたらいいのですか？ 210 名前：デフォルトの名無しさん [04/10/21 18:09:17] ｸﾞｸﾞりゃ出てくるがな 211 名前：デフォルトの名無しさん mailto:sage [04/10/21 18:28:49] VB.NETで縁取りした文字列の形にコントロールを切り抜きたいと思ってます。 GraphicPathに文字列を追加して、DrawPathで太めの縁を描画すると、 元のパスから外側に少しはみ出しますよね？ このはみ出た分も収まるようにコントロールのRegionを設定したいのですが、 何か方法ありますでしょうか？ 212 名前：デフォルトの名無しさん mailto:sage [04/10/21 23:47:49] >>211 やったことないんで間違ってたらゴメン。 これ使ってパスを「膨張」させといて、そのパスからリージョンを 作ればいいんじゃないかな。 www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfSystemDrawingDrawing2DGraphicsPathClassWidenTopic.asp 213 名前：Ｋ（偽者） mailto:sage [04/10/22 05:17:14] で、ログインのソースはまだですか？ 214 名前：デフォルトの名無しさん mailto:sage [04/10/22 10:05:14] >>213 今作っています。２年程待って下さい。 215 名前：デフォルトの名無しさん mailto:sage [04/10/22 10:26:29] >213 2年もまてませんよね？ ソースあります。１行１００円でどうですか？ 全体で３０万行ほどあります。 216 名前：211 mailto:sage [04/10/22 10:37:29] >>212 ほぼ思った通りのことができました。 ありがとうでした。 217 名前：デフォルトの名無しさん mailto:sage [04/10/22 10:52:44] チェックボックス状態の配列参照の仕方について教えてください。 チェックボックスが複数あり、そのcheckd状態を check(1),check(2)・・・といった感じの配列として参照したいのですが、 方法が分かりません。 お金は払えませんが、よろしくお願いします。 218 名前：デフォルトの名無しさん mailto:sage [04/10/22 12:29:28] >217 ちょっとは過去ログ嫁 219 名前：デフォルトの名無しさん mailto:sage [04/10/22 12:42:48] >>196=217? 220 名前：Ｋ(偽者2) mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [04/10/22 18:30:07] デジャヴを感じる・・・ 224 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 ここにその方法がある forums.belution.com/ja/vc/000/165/29.shtml でも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 名前：デフォルトの名無しさん mailto:sage [04/10/23 23:26:07] >>230 すざましい誤爆だな。 233 名前：デフォルトの名無しさん mailto:sage [04/10/24 15:27:55] すいません、初心者の質問をさせてください（初心者質問スレはないようなので）。 ３個の数字をタイムラグをつけて次々と表示させたいのですが、 　　　　　　number1.Text = number1 　　　　　　（空ループorTimer プロパティ） number2.Text = number2 　　　　　　（空ループorTimer プロパティ） number3.Text = number3 としても、３つの数字・ラグ・数字・ラグ・数字のようにはならず、ラグのあとに ３つの数字がまとめて出てきてしまいます。 当方通常のＢＡＳＩＣは使ったことがあるので同じノリでこのようにやってみた のですが、なぜそうなってしまうのか全く分かりません。 どうすればいいのか、何故そうなるのかを教えていただければ幸いです。 234 名前：デフォルトの名無しさん mailto:sage [04/10/24 17:47:19] number1.Text = number1 （空ループorTimer プロパティ） number2.Text = number2 （空ループorTimer プロパティ） number3.Text = number3 （画面の描画） となってるから。 235 名前：224 mailto:sage [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 mailto:sage [04/10/25 19:50:03] >>234 それは何故なんでしょう？ 何かいい手はありますでしょうか？ 239 名前：デフォルトの名無しさん mailto:sage [04/10/25 22:20:18] >>238 明らかに > （空ループorTimer プロパティ） のところが悪さしてるのだから、その部分のソースをupするべし。 240 名前：デフォルトの名無しさん mailto:sage [04/10/25 22:22:50] >>238 間に application.doeventsだったかな？ それいれたらいけるんじゃないかな 241 名前：デフォルトの名無しさん mailto:sage [04/10/26 01:08:39] DataGridのHeaderのHeightはどうやったら調整できますか？ 242 名前：233 mailto:sage [04/10/26 01:33:11] >>240 それを入れたらうまく行きました。ありがとうございます。 ただ、それってラグの間に操作を受け付けるようにする処理ですよね？ 全然関係ないように思えるんですが、なぜそれでうまく行くんでしょう…？ 243 名前：デフォルトの名無しさん [04/10/26 02:59:53] WebClient.DownloadFileを使用して 1本のファイルをダウンロードするプログラムを作っています。 ダウンロード中にプログレスバーで進捗を表示したいのですが、 ファイルの何％をダウンロードしたかを取得してリアルタイムに表示する方法ってあるのでしょうか？ 244 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:age [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 名前：デフォルトの名無しさん mailto:sage [04/10/27 22:18:29] >>247 症状は全然ちがうけど、同じように.NET側で確保した領域をポインタ渡しする処理で 原因不明のトラブルで悩んだことがあったけど、(.NET FrameworkはVer1.1) このあいだでたSP1のFrameworkをインストールしたら解消した。 もしまだSP1にしてなければ試してみては？ 249 名前：デフォルトの名無しさん mailto:247 [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 名前：デフォルトの名無しさん mailto:sage [04/10/30 01:01:45] >>251 wisdom.sakura.ne.jp/system/winapi/media/mm11.html ここ見ればわかるはず。現に俺はここ見ただけでその手のコードが書けた。 見てもわからなかったら諦めるよろし。 ま、普通このぐらいのことGoogleで検索して調べるわけで、 そんな手間すら惜しむお方には無理に５万両。 253 名前：251 mailto:sage [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 mailto:sage [04/10/31 01:51:11] gpwiki.org/index.php/VBNET:DirectSound まずは↑ここを参照しつつ、WAVを再生させる事には成功したんで、 なんとか頑張ってみます。 256 名前：デフォルトの名無しさん mailto:sage [04/10/31 01:59:14] Managed DirectXがDirectMusicをサポートしない以上WinAPIの方が手っ取り早そうだけどなぁ……。 257 名前：フナ太郎 mailto:sage [04/10/31 03:07:02] マネージド、マネージド うっせーんだよ 258 名前：252 mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [04/11/01 00:32:06] .NETでWinAPIを使うのは良くない、みたいに聞いていたので、DirectXを使おうとしてたのですが。 で、色々と弄ってみましたが、エラーは起きないものの、 再生されない……。参考にしたVBのサンプル（tokyo.cool.ne.jp/kanain/APIHTM/midiOut.html）付属の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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 名前：デフォルトの名無しさん mailto:sage [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 265 名前：デフォルトの名無しさん mailto:sage [04/11/01 00:43:04] ぐわ、改行が倍増してるOrz。なんだこれ……。 荒らしみたいになってまってすまない。 266 名前：252 mailto:sage [04/11/01 08:28:03] 動かない理由はまず第一にmidiOutOpen で取得したデバイスハンドルを 捨ててしまっているから。 デバイスハンドルで、メッセージを送信するデバイスをＯＳに指示するんでしょ。 267 名前：デフォルトの名無しさん mailto:sage [04/11/01 11:43:59] すいません、少しお聞きしたいのですが ファイル(画像データ、テキストファイル)を16進数に変換したいのですが なんか、いい方法はありませんでしょうか？ 目的は友人と暗号化の勉強をしようと思いまして ファイル→16進数化→暗号化→復号化→16進数化→ファイル という流れなのですが･･･ 自分が使用できる言語はC,Java,VB.netです 268 名前：デフォルトの名無しさん mailto:sage [04/11/01 11:48:04] >>267 釣りはよせ 269 名前：デフォルトの名無しさん mailto:sage [04/11/01 11:50:23] >>268 たぶんマジなんじゃない？ 270 名前：デフォルトの名無しさん [04/11/01 12:06:27] stringSize = e.Graphics.MeasureString("”　　名医　　”", f) MeasureString でお尻にスペースがあると正常にサイズを返さない。 なんとかする方法はないんでしょうか？ 271 名前：デフォルトの名無しさん mailto:sage [04/11/01 12:23:09] お尻に.を付けて求めたサイズから少し減らす 272 名前：252 mailto:sage [04/11/01 12:40:51] >>259 >>258に書いたとおり、VB.NETではデフォが値渡しに変更されているから midiOutOpen の >lphMidiOut As IntPtr ここはByRefを指定してやる必要がある。 それでも音がでなければ、メッセージのフォーマットが間違ってるか OSの規定のMIDI音源が設定されてないんじゃないかな。 273 名前：デフォルトの名無しさん mailto:sage [04/11/01 13:00:47] >>270 StringFormatオブジェクトのFormatFlagsにStringFormatFlags.MeasureTrailingSpacesを設定し、 MeasureStringのStringFormatをパラメータに使うオーバーロードを使って測定する。 274 名前：270 [04/11/01 17:06:04] >273 ありがとう。やってみますしかしなんか難しそうですね。 275 名前：270 [04/11/01 17:08:15] ＞お尻に.を付けて求めたサイズから少し減らす 　点をつけて求めて、１文字分は引くわけですね。なるほど。 276 名前：デフォルトの名無しさん [04/11/01 17:09:13] PrintPreViewDialogとPrintDocumentコントラールを使ってプリントをおこないます。 この場合 PrintDocument1_PrintPage でプリント処理をおこないますが、１ページ以上の データがある場合は、１ページ出力完了で再度このプログラムに飛んでくる ようにする必要がありますが、どうやって実現するのでしょうか 277 名前：デフォルトの名無しさん mailto:sage [04/11/01 17:15:27] 引数PrintPageEventArgsのHasMorePageをtrueにしてやれば自動的にもう一度PrintPageイベントが発生する。 278 名前：デフォルトの名無しさん mailto:sage [04/11/01 17:17:10] HasMorePagesだった。 最後のページになったら一応明示的にHasMorePagesをfalseにしておく。 279 名前：デフォルトの名無しさん [04/11/01 17:31:04] >278 ありがとう。やってみます。 280 名前：デフォルトの名無しさん [04/11/01 17:45:52] 　VB.netではFilestreamというのが新しく出てきましたが、 　Fileアクセスでランダムアクセスはどのようにやるのでしょう。 ２０Kの固定長レコードが１００００件ありますが、適当なIOコントロール 関数といえば、どれになるのでしょうか？ 281 名前：デフォルトの名無しさん mailto:sage [04/11/01 17:48:49] FileStream.Position 282 名前：259 mailto:sage [04/11/01 22:31:17] >>252 つきあっていただいてありがとうございました！ >動かない理由はまず第一にmidiOutOpen で取得したデバイスハンドルを  >捨ててしまっているから。  というのが、今一よくわからないのですが。 Ret = midiOutOpen(hMid,-1,0,0,0) で Private hMid As IntPtr  に入ったんじゃないんですか？ ……ってか、それは関係なかったみたいで、 >midiOutOpen の  >>lphMidiOut As IntPtr  >ここはByRefを指定してやる必要がある。  を勘違いして、3つの宣言全部By Ref lphMidiOut As IntPtrにしてまったが、 直したら音出ました！ 停止がされなかったが、Noteが中と外で重複してたのが原因でした。 283 名前：デフォルトの名無しさん [04/11/02 21:52:05] >281 ありがとう。　 　ストリングをFilestreamで保存して、指定のPositionに seekしたいのですが、このようとではバイト配列に変換する必要が あるようです。 　Stringをバイト配列に変換する方法はどうやるのでしょう？ 284 名前：デフォルトの名無しさん mailto:sage [04/11/02 22:14:48] StreamWriter で FileStream をラップしてやるか、System.Text.Encoding クラスを使う。 前者の方が簡単。 285 名前：デフォルトの名無しさん [04/11/03 03:49:22] >284 ありがとう。　なんとかできそうです。 286 名前：デフォルトの名無しさん mailto:sage [04/11/03 10:54:06] 見つけられなかったので、教えて下さい。 VB.NETに正規表現を判定する関数ってないでしょうか？ 英大3文字なら[A-Z]{3}ってヤツです。 287 名前：デフォルトの名無しさん mailto:sage [04/11/03 11:06:17] Regexp() 288 名前：286 mailto:sage [04/11/03 13:37:28] >>287 即レスどもです。 これってVBScriptのObjectだけど、 VBから使えるのですか？ 289 名前：デフォルトの名無しさん mailto:sage [04/11/03 13:51:33] >>288 君頭おかしいの？ MSDNすら検索しない奴に今日を生きる資格なし。 290 名前：デフォルトの名無しさん mailto:sage [04/11/03 14:00:57] ああうん、正しくはRegexクラスだな。 291 名前：286 mailto:sage [04/11/03 15:45:42] >>289-290 ありがと。 MSDNにそのまんま有りますね。 検索済みと勘違いしてた、スマン。 292 名前：デフォルトの名無しさん [04/11/04 20:50:24] ストアドの戻り値を数値で受け取る方法をご存知の方いらっしゃったら教えて下さい。 Count(*)を打ってその結果件数を受け取りたいのですが(´・ω・`) SQLServer2000でやっております。 パラメータを渡した後にExecuteReaderを実行してストアドを呼び出し Console.ReadLineで結果を読み取ろうと思ってたのですが、 根本的に間違えてたらすいません。 宜しくお願いします。 293 名前：デフォルトの名無しさん mailto:sage [04/11/04 20:57:15] ええと何でConsoleが出てくるのかな……？ 294 名前：デフォルトの名無しさん mailto:sage [04/11/04 21:08:54] >>293 いきなり違うんですか　Σ(´Д｀：) 初めてなんで色々ネットで調べてみたんですが　orz MSサイトで While AAA.Read() Console.ReadLine(以下略 という記述を見つけたのでこれを使おうと思ってた次第です。 295 名前：デフォルトの名無しさん mailto:sage [04/11/04 21:15:10] そこと思われる部分のMSDNの記述 > Console.WriteLine((myReader.GetInt32(0) & ", " & myReader.GetString(1))) ……なぜConsole.ReadLine? SQL文によってmyReader.Get...を適当に書き換えれば良いわけだが。 296 名前：デフォルトの名無しさん mailto:sage [04/11/05 01:31:32] >>295 その記述は初めて見ました　orz 調べ方がマズかったのかSQLCommandってのを調べて掘ってたら Console.ReadLineの記述があったので、ストアドの実行結果を読み取るのかと思い Console.ReadLineが使えるのかなと思った次第です。 人手不足で開発に回されたばかりなんですが無知で申し訳ないです(；´д⊂） もっと勉強してから出直します。すいませんでした。 297 名前：デフォルトの名無しさん mailto:sage [04/11/05 02:09:09] >>296 イ�`。焦るとどんどん正解から遠ざかるものだ。そういうときは一服しる。 298 名前：デフォルトの名無しさん mailto:sage [04/11/05 11:27:47] 取りあえずアレだ。 ・該当部分のコードを書く ・どこかのページを参考にしたなら参照したページのアドレスを書く ・例外が投げられているなら例外メッセージを書く をしてくれないとアドバイスもしようがないぞ。 299 名前：デフォルトの名無しさん mailto:sage [04/11/05 11:35:51] >>297 タバコの数だけ増えていきます　orz >>295 ExcuteReaderメソッドの説明を読んだのですが 実行結果をConsoleに｢書き込む｣という意味合いでしょうか？（つД⊂） やりたいのはそのConsoleに書き込んだ値を見て処理を分岐させたいのです。 count(*)してその件数で処理変更という具合なのですが。 無知なのは重々承知しておりますが、よろしければ教えて頂けないでしょうか？ 300 名前：デフォルトの名無しさん mailto:sage [04/11/05 11:55:30] >>298 確かにそうですね(´・ω・`) 申し訳ないのが作業をするPCが手元に届いておらず、全て机上でのコードなのです。 来週ぐらいにPCが来るそうなのですが、VB.NETもSQLServerも動かしたことないんです。 ワードとエクセルしかやったことがなくて（；´Д⊂） いきなり開発に回されてメモ書きで作る処理を指示されて色々調べたのですが…。 通るかどうかもわからないのですが、以下にコードを。 Dim mySQLcon As New SqlClient.SqlConnection Dim myProc As String = "ストアド名称" Dim myCommand As New SqlCommand(myProc, mySQLcon) Dim myReader As SqlDataReader mySQLcon.ConnectString = "接続情報" mySQLcon.Open myCommand.CommandType = CommandType.StoredProcedure myCommand.Parameters.Add("@ユーザＩＤ", SqlDbType.VarChar).Value = "ユーザＩＤ文字列" myCommand.Parameters.Add("@パスワード", SqlDbType.VarChar).Value = "パスワード文字列" myReader = myCommand.ExecuteReader(CommandBehavior, SchemaOnly) ↑ 当初はここにストアドの実行結果(count(*)の結果件数)が入ると思っていたので If myReader = 0 Then 処理1 Else 処理2 End If というコードを脳内で展開してたのですが、Consoleの記述を見つけ>>292に繋がるのです(´・ω・`) 301 名前：デフォルトの名無しさん [04/11/05 12:05:30] どこに質問を書くべきかわからなかったのですが、一応vb.netのことなのでここに書かせてもらいます。 Microsoft access2000とvb.net2002を使っています。 データベースのアクセス履歴をとってそのアクセスした時間をデータベースに記録する というプログラムを書いているのですが、日付/時刻型のデータにvb.net側で現在時刻を取ったときは [年/月/日 時:分:秒]というデータが格納されているのですが、それをaccessに送ると[年/月/日]の部分しか受け取ってくれません。 [時:分:秒]の部分は[00:00:00]となっています。 Dim r As DataRow r = DsAccess1.T_アクセス履歴マスター.NewRow() r("アクセス日時") = Date.Now　　　　←この時点で[年/月/日 時:分:秒] r("アクセス元") = "制作部" r("T_商品仮変更マスター") = "開始" r("T_商品変更履歴") = "開始" r("T_仕事一覧") = "開始" DsAccess1.T_アクセス履歴マスター.Rows.Add(r) odaAccess.Update(DsAccess1, "T_アクセス履歴マスター")　←ここでaccessに渡すと[年/月/日] こんな感じのプログラムです。 ちなみにaccessの方で「アクセス日時」の設定は、 データ型：日付/日時型 書式：日付（標準） 1994/06/19 17:34:23 値要求：はい です。 一度、これを解決するために、テキスト型で値を保存するという方法をとったのですが、 これだと並べ替えをしたときに9:55:55の方が10:00:00より未来だと取られてしまってだめでした。 どうすればちゃんと時刻まで渡すことができるかご教授ください。 302 名前：デフォルトの名無しさん mailto:sage [04/11/05 12:57:33] >>300 まず、SqlCommand.ExecuteReaderメソッドは、 CommandTextプロパティに設定されたSQL文/ストアドプロシージャをデータベースに投げて、 その結果のストリームを読み取る為のSqlDataReaderクラス(のインスタンス)を返すわけだ。 SqlDataReaderクラスは、あくまでストリーム(まあ流れのあるデータって事)を読み取るためのクラス。 実際のデータを読み取るのはこのクラスの各種メソッドを使う。 例えばファイル(ファイルもストリームの一種)を読み取るクラスを考えてみて、 ファイルを開けただけでいきなり全部のテキストが返ってきても困るのは分かるよな？ それは実はバイナリファイルだったのかも知れないし、欲しかったのは1行目だけだったかも知れないのに。 そういうわけで、ストリームから読み取るクラスにはどう読み取るかを指定して実行するメソッド群が用意されている。 SqlDataReaderクラスでは、Readメソッド、GetBytesメソッド他の類が用意されている。 Readメソッドは、「今見てるところを次のレコードに進める」メソッドだ。 クエリの結果はレコード一つとは限らないと言うかそっちの方が多いだろう。 多くのサンプルで While (sqlDataReader.Read) となってるのは全てのレコードを読み取る為のコードだ。 ちなみに一番初めにSqlDataReaderが作られた時の「今見てるところ」はクエリ結果の最初のレコードの前。なのでデータを読み取るにはまずReadメソッドを使う必要がある。 さて、一つのレコードには普通複数の行があるわけで、それを取得するのがGet...メソッドだ。 「今見てるところの特定の列の値」をある型として読み取るメソッド群だな。 mySqlDataReader.GetInt32(0) なら今見てるレコードの0列目(最初の列)をInt32(VB.NETではInteger)として取り出すわけだ。 要約すれば、ExecuteReaderから返ってきたSqlDataReaderをReadしてGetInt32(実際はCount(*)が返してくる型に一致するGetなんとか)しろということ。 さて、これで別にConsoleクラスを使う必要が無い事が分かってもらえたかな。 >>301 こいつかね。 ttp://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=10611&forum=7 @ ttp://www.google.com/search?num=100&hl=ja&lr=lang_ja&oe=utf8&q=DATETIME+ACCESS+VB%2ENET

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef