VB.NET質問ｽﾚ(Part30) ..
293:291
09/06/29 12:22:28
------------------------
VB記述 抜粋
------------------------
Public Structure ST_AREA
Dim s1 As Short
Dim s2 As Short
End Structure
Public Structure ST_AREA
Dim stSub1() As ST_SUB
Dim stSub2() As ST_SUB
Dim stSub3() As ST_SUB
End Structure
Public stArea As ST_AREA
Declare Function MemOpen Lib "xx.dll" (<MarshalAs(UnmanagedType.Struct)> ByRef Address As ST_AREA) As Integer
Private Sub BtnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOpen.Click
Dim iRes As Integer
iRes = MemOpen(stArea)
End Sub
294:291
09/06/29 13:05:52
293のPublic Structureは
ST_AREAじゃなくST_SUBだった o..rz
295:デフォルトの名無しさん
09/06/29 13:37:07
MSDNのアンマネージ コードとの相互運用の中にあるサンプルみれ
296:デフォルトの名無しさん
09/06/29 21:11:52
そもそも違うプログラム同士で、変数の値などを共有(メモリの共有)をするにはどうしたらいいんでしょうか？
どこかに解説サイトないでしょうか
297:デフォルトの名無しさん
09/06/29 22:55:08
つーか、宣言が全然おかしいじゃん。
メモリマップドファイルとか、プロセス間通信系かな。＞共有
298:291
09/06/30 09:34:04
>>295
ありがとです。
PVOID*なのでクラスにしてちと試してみます
>>296
C++ならCreateFileMappingとかあるみたいですよ。
ほかの言語はわかりません。
299:291
09/06/30 10:34:29
連続申し訳ないです。。。
C言語なら
ST_AREA *pStArea
MemOpen(&pStArea);
pStArea->stSub1[3].s2 = 10;
とかやれば直接書き込みできるのに
VBってこういうことできないんですか？
IntPtrのようなもので受け取らないとだめですかね？
300:デフォルトの名無しさん
09/06/30 10:52:14
つ「構造体のサンプル」
301:291
09/06/30 13:51:15
>>300
先生ありがと！
サンプルを元にやってみたけど
他アプリから値を変えても値が変わらない。。。
値渡しになってる？
Public Structure ST_SUB
Public s1 As Short
Public s2 As Short
End Structure
<StructLayout(LayoutKind.Sequential)> _
Public Class ST_AREA
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=10)> _
Public stSub1 As ST_SUB()
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=10)> _
Public stSub2 As ST_SUB()
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=10)> _
Public stSub3 As ST_SUB()
End Structure
Public stArea As ST_AREA
Declare Function MemOpen Lib "xx.dll" (<MarshalAs(UnmanagedType.Struct)> ByRef Address As ST_AREA) As Integer
Private Sub BtnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOpen.Click
Dim iRes As Integer
iRes = MemOpen(stArea)
End Sub
302:291
09/06/30 13:54:35
End StructureじゃなくてEnd Classだ o...rz
Openしたときは最後に書き込んだ値が取れます。
VB側から書き込んでも相手の値は変わらず。。。
303:291
09/06/30 16:17:43
お、落ち着くんだ私。
Declare Function MemOpen Lib "xx.dll" (ByRef Address As ST_AREA) As Integer
だな。
Cで書かれてるDLLの引数の型がPVOID*だから構造体でなくクラスで合ってると思うけど
オープンした時のみ値が取得できる状況です。。。
助けてティーチャー orz
304:デフォルトの名無しさん
09/06/30 16:31:44
ByValArrayは構造体専用
構造体にしてByRef IntPtrで受けるか、配列の要素を全部フィールドに展開するか
305:デフォルトの名無しさん
09/07/01 02:11:46
DataSetてどういう場合に使用するものなのでしょうか？
mdbファイルにadoを使いデータを抽出（SQL文を使用）
この抽出結果を一時的に保管しておく器とかに使うものなのでしょうか？
306:デフォルトの名無しさん
09/07/01 07:34:02
>>303
> Cで書かれてるDLLの引数の型がPVOID*だから構造体でなくクラスで合ってると思うけど
意味がわからん。P/Invoke のサンプルからやり直せ
307:デフォルトの名無しさん
09/07/01 07:34:13
>>305
そんな感じ。
308:デフォルトの名無しさん
09/07/01 10:02:21
>>306
ポインタへのポインタが必要だから参照型(構造体ではなくクラス)の参照渡しにすればいいんだよ
理屈は間違ってない
309:デフォルトの名無しさん
09/07/01 10:39:35
>>305
SQLでの問合せの結果(複数行)をとっとくのがDataTable、
DataSet は DataTable のコレクション＋αの機能。
310:デフォルトの名無しさん
09/07/01 10:41:48
>>308
すごく…おかしいです。
311:デフォルトの名無しさん
09/07/01 10:57:19
おかしいも何も、MSDNに書いてある
312:291
09/07/01 11:26:45
>>308さんのおっしゃるとおり
URLﾘﾝｸ(msdn.microsoft.com)(VS.80).aspx
上記サイトの
アンマネージ シグネチャ マネージ宣言 1 レベルの間接参照 class MyStruct(…);
DoWork(MyStruct** x); DoWork(ByRef x As MyStruct)
部分をみて構造体ではなくクラスにしないといけないのかなと判断してます
解釈が間違ってますかね？
>>304さん
>構造体にしてByRef IntPtrで受けるか
この意味が私の考えで合っているのかわかりませんが、
IntPtr型でポインターのアドレスを受け取り
構造体にキャストして割り当てるということなのでしょうか？
それとは別に、クラスにしてByValArray以外の方法(参照渡しができる方法)で
配列を作って引数に渡すことができればなぁと考えています。
考え方がC言語に偏っているので変なことを言ってるかもしれませんが
先生方、どうか温かい目でアドバイスをお願いします m(_ _)m
313:デフォルトの名無しさん
09/07/01 11:40:47
クラスなら配列の要素と同じ数だけフィールド並べるしかないんじゃないの
314:デフォルトの名無しさん
09/07/01 11:56:18
構造体として定義して、その配列を参照渡し(ByRef)してみるのはどうだろう
でも配列渡すならアドレス固定しないといけないから、IntPtrで受けてMarshal.PtrToStructureの方がまだ簡単確実
315:314
09/07/01 12:03:44
アドレス固定したら結局IntPtrで渡すことになるな
一行目撤回
316:デフォルトの名無しさん
09/07/01 13:12:57
>>299
>VBってこういうことできないんですか？
P/Invoke で外部関数呼び出し時には引数の変換がされるが、それ以外のタイミングで
Managed なコードから Unmanaged な領域を弄る簡単な方法はない。
おとなしく Marshal の共有メソッド (Read〜/Write〜等) に IntPtr を渡す方法を試せ。
317:デフォルトの名無しさん
09/07/01 13:14:58
やっと理解できた
VBのメンバを通してC側に直接書き込もうとしてたのか
マーシャリングでは無理だ
VBでは構造体も使えない
IntPtrで受けてMarshal.WriteByteでも使って直接書き込むしかない
318:291
09/07/01 15:41:43
先生方いろいろとありがとうございました。
以下のように落ち着きました(ST_SUBは以前のまま)
Public Structure ST_AREA
Puclic BaseAddr As IntPtr
Default Public Property stSub1(ByVal index As Integer) As ST_SUB
Get
Dim Offset As Integer = index * Marshal.SizeOf(GetType(ST_SUB))
Return CType(Marshal.PtrToStructure(BaseAddr, GetType(ST_SUB)), ST_SUB)
End Get
Set(ByVal value As ST_SUB) ' indexのサイズ超えは省略
Dim Offset As Integer = index * Marshal.SizeOf(GetType(RDS_DATA_AREA))
Marshal.WriteInt16(BaseAddr, Offset, CType(value.s1, Short)) ' ここをまとめたい
Marshal.WriteInt16(BaseAddr, Offset + Marshal.SizeOf(value.s1), CType(value.s2, Short)) ' まとめたいよ
End Set
End Property 'stSub2 と stSub3 も同様 オフセットを間違えないように！！
End Structure
Public stArea As ST_AREA
Declare Function MemOpen Lib "xx.dll" (ByRef Address As IntPtr) As Integer
Private Sub BtnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOpen.Click
Dim iRes As Integer = MemOpen(stArea.BaseAddr)
stArea.s1 = 10 'テストですよ
End Sub
SetのWriteInt16を一行にまとめたいとこですが思いつかなかったのでこんなです。
相手側アプリとの確認も取れました。VBむずかしいです orz
ありがとうございました〜
319:291
09/07/01 16:00:09
XXX = stArea.s1
はできたけど
stArea.s1 = 10
はできてなかったorz
まぁでも何とかなりそうです＾ｏ＾
320:デフォルトの名無しさん
09/07/03 20:13:21
XmlDocumentのSaveメソッドで「'」を「'」として書き出す方法ってないのかな？
321:デフォルトの名無しさん
09/07/03 20:51:09
ウィンドウと内部処理（DLL）を別のプロジェクトで作成しました。
質問は、DLLからFormに張ってあるコントロールのプロパティを変更する方法です。
Labelの文字を変える程度でいいのですが。
よろしくお願いします
322:デフォルトの名無しさん
09/07/03 21:19:41
>>321
フォームから DLL にコントロールの参照を渡してやれば OK
323:デフォルトの名無しさん
09/07/03 22:15:41
VS２００５です
ユーザーコントロールにDataGridViewを貼り付けてColumnを２つ追加しました
これにイベントハンドラを記述するとユーザーコントロールのコンパイルは通りますが
コントロールの読み込み時にエラーが発生します
'RowsAddedイベントハンドラ
Private Sub DataGridView1_RowsAdded(ByVal sender As Object, _
ByVal e As DataGridViewRowsAddedEventArgs) _
Handles DataGridView1.RowsAdded
DataGridView1.Sort(DataGridView1.Columns(1), ListSortDirection.Descending)
End Sub
列のSortModeがNotSortableに設定されているとき
列ヘッダーのSortGlyphDirectionをDesendingに設定することはできません
というエラーが出てるようですが、プロパティではSortModeはAutomaticになってます
ほわい？
324:デフォルトの名無しさん
09/07/03 22:28:19
なってます、ってどうやって確認したの？
325:デフォルトの名無しさん
09/07/03 22:34:02
>>324
ありがとうございます。
DataGridviewの設定はすべてデザイナでやってますので
326:デフォルトの名無しさん
09/07/03 22:37:02
改行したら送信してしまいました
つづきです
デザイナでやってて、Columnもデザイナであらかじめ追加してます
デザイナ上でのプロパティではAutomaticになっております
327:デフォルトの名無しさん
09/07/03 22:47:38
とりあえず、デザイナで設定したプロパティは忘れて、
'RowsAddedイベントハンドラ
Private Sub DataGridView1_RowsAdded(ByVal sender As Object, _
ByVal e As DataGridViewRowsAddedEventArgs) _
Handles DataGridView1.RowsAdded
If ...SortMode <> NotSortable Then
DataGridView1.Sort(DataGridView1.Columns(1), ListSortDirection.Descending)
End If
End Sub
みたいにしてみるとか、エラーが出たときにウォッチしてみるとか、
その辺で確認してみたら？
328:デフォルトの名無しさん
09/07/03 23:07:50
了解っす
329:デフォルトの名無しさん
09/07/04 00:02:23
うまく行きました！
データがない状態の時NotSortableになってんのかな？
ありがとうございました
330:デフォルトの名無しさん
09/07/04 00:19:06
>>320
そんなに大きくないならStringWriterで文字列に書き出して置換すれば
331:デフォルトの名無しさん
09/07/05 14:28:39
DataGridViewにdataset内部でリレーションシップを設定したTableA TableBのフィールドを表示したいんです
TableAとTableBは１対多結合になります
フィールドは同一のDataGridViewで表示したい
TaleBを連結したDataGridViewに非連結列を追加してTableAのフィールドを検索して貼り付けることはできそうですが
なんかデザイングリッド上でぱぱっとやれそうな気がしておたずねしました
何とぞよろしくお願いいたします
332:デフォルトの名無しさん
09/07/05 15:31:23
ググっても見つからないので質問させてください。
Textboxに入力されたデータから特定の行（ex:15行目から20行目）だけを取り出したいのですが、何か方法はないでしょうか？
よろしくお願いします。
333:デフォルトの名無しさん
09/07/05 15:36:17
>>332
どう検索したのか興味がある
Linesから適当に取得すればいいっしょ
334:デフォルトの名無しさん
09/07/05 15:50:04
>>333
初心者故に文字列の取得方法が分かりません。
申し訳ないです。
335:デフォルトの名無しさん
09/07/05 16:16:51
答え出てるじゃんｗ
336:デフォルトの名無しさん
09/07/05 16:18:49
DataGridViewをほぼ同じような表な形で印刷したいのですが、自分でライン書いて表の中のデータを書くというっ事をしなければならないんでしょうか？
DataGridviewをそっくりそのままの形のレイアウトで印刷してくれるようなもっと簡単なのがあってもよさそうなのですが・・・
337:デフォルトの名無しさん
09/07/05 16:22:09
>>335
すいません、Linesはどのように扱えばいいのでしょうか
338:デフォルトの名無しさん
09/07/05 16:24:10
表形式で出力できるレポートツールを使う、ってのが一般的かね。
おれはグリッドそのまま出せてもなんもうれしくないから、必要性を感じないな。
339:デフォルトの名無しさん
09/07/05 16:28:42
>>337
URLﾘﾝｸ(msdn.microsoft.com)
↑を見て、何がわからないのかきちんと説明しろ。
340:デフォルトの名無しさん
09/07/05 16:54:21
>>339
ごめんなさい
これを別のTextboxに出力させる方法が分かりません。
Dim counter as Integer
'Create a string array and store the contents of the Lines property.
Dim tempArray() as String
tempArray = textBox1.Lines
'Loop through the array and send the contents of the array to debug window.
For counter = 0 to tempArray.GetUpperBound(0)
System.Diagnostics.Debug.WriteLine( tempArray(counter) )
Next
341:デフォルトの名無しさん
09/07/05 16:54:58
Form右上の×ボタン押したときに終了するか確認メッセージ出して、
終了の場合は閉じるようにしたいんですが、closingイベント以外で実装
はできませんか？
今やりたい事は、フォームA→フォームBを呼び出してそこから終了
した場合、上記の確認メッセージを表示して両方のフォームが落ちるようにしたいです。
フォームBを×ボタンで閉じる動作を行うとフォームAをcloseという処理を走らせたい
のですが、フォームAにも上記のclosingイベントを実装する為
フォームB終了確認メッセージ後に、フォームAの終了確認メッセージが表示されてしまいます。
closingイベント内でフラグ立てて回避出来るかなと思ったら、無限ループに陥ってしまい無理でした。
どのような解決方法があるか教えていただけると幸いです。
よろしくお願いいたします。
342:デフォルトの名無しさん
09/07/05 17:19:49
FormB : FormClosingでキャンセルかどうか決める
FormA : FormBのFormClosedで自分をCloseする
FormClosingでFormBが閉じられたときに呼び出された場合確認ダイアログを出さない
343:デフォルトの名無しさん
09/07/05 17:20:14
>>341
> Form右上の×ボタン押したときに終了するか確認メッセージ出して、
> 終了の場合は閉じるようにしたいんですが、closingイベント以外で実装
> はできませんか？
できない。
> 今やりたい事は、フォームA→フォームBを呼び出してそこから終了
> した場合、上記の確認メッセージを表示して両方のフォームが落ちるようにしたいです。
> フォームBを×ボタンで閉じる動作を行うとフォームAをcloseという処理を走らせたい
Closing イベントで閉じられる理由を確認すればいいんじゃね？
344:デフォルトの名無しさん
09/07/05 17:21:03
>>340
ってことは、取得する方法はわかったわけだ。
設定したいなら、「別のTextBox.Text = 取得した値」でOK。
345:デフォルトの名無しさん
09/07/05 17:27:40
>>331ですけど
ソースコードでテーブルをもう一つ作ってマージするって方法は見つけました
それが正解でしょうか？
コーディングなしで２つのDataGridViewで親子テーブルを作る例はいっぱいありましたが
それを単一のDataGridViewで表示するのって逆に難しいんですね
346:デフォルトの名無しさん
09/07/05 17:37:31
>>344
Dim counter As Integer
Dim tempArray() As String
tempArray = textBox1.Lines
For counter = 0 To tempArray.GetUpperBound(0)
TextBox2.Text = tempArray(counter)
Next
こういうことでしょうか？
行数はFor counter = 0 To tempArray.GetUpperBound(0)の数値をいじればいいのですよね？
347:341
09/07/05 17:58:28
FormBの処理
FormB Closingイベントで確認ダイアログ表示
NOを返す→e.cancel=true （これでキャンセル）
YESを返す→FlgをtrueにしてFormA.close
FormA
上記のFormA.closeによって、FormAのClosingイベントが呼び出される。
FlgがTrueの場合、Closingイベント内の確認ダイアログはスルー。
私としては、上記の内容でいけると思ってたんですが、
FormA.Closeを実施のところで、何度も確認ダイアログが表示され
無限ループに陥っているようでした。
また、FormBのclosingイベント内に確認ダイアログをもうけないで
FormA.closeのみおいてみると何故か無限ループでエラーが出てしまいます。
その際、FormAにはClosingイベントはおいてません。
どなたか理由がわかる方いませんか？
348:336
09/07/05 18:18:31
>>338
>表形式で出力できるレポートツール
とは、どういうものなのでしょうか？
クリスタルレポートとかそういうものですか？
私は今、Vb2008を使ってるんですが、コントロールの一覧の中にCrystalreportがないのですが、なにか設定がいるんですかね
349:デフォルトの名無しさん
09/07/05 18:44:20
>>346
取得する行が決まってるなら、ループで回す必要はない
>>347
わかりづらいから、きちっとコード出してみ？
>>348
おまえさんの言うとおり、クリスタルレポートとか。
Edition によっては含まれてないんじゃない？
350:デフォルトの名無しさん
09/07/05 19:45:30
>>349
できました
ありがとうございます。
351:デフォルトの名無しさん
09/07/05 20:33:55
初期画面をログイン画面にしたいのですが、ログイン成功時にログイン画面をクローズして別フォームを表示したらフォームが全て落ちます。助けて下さい。
352:デフォルトの名無しさん
09/07/05 20:48:35
別フォームを表示してからログイン画面をクローズする
sub mainからログイン画面を表示する
353:336
09/07/05 23:12:53
>>349
Express Editionなんですが、クリスタルレポートは追加できないんでしょうか？
354:351
09/07/05 23:20:33
>>352
メイン画面をログイン画面に設定したらログイン画面落とした時点で
ほかのフォームも全て落ちちゃうんですよね。
355:デフォルトの名無しさん
09/07/05 23:22:20
>>353
URLﾘﾝｸ(www.microsoft.com)
ダメだね。
356:デフォルトの名無しさん
09/07/05 23:36:56
>>354
ログインをメインにするから不味い、ってことだろ。
357:デフォルトの名無しさん
09/07/06 01:28:08
>>331ですが、データソースを見るとリレーションが効いて
親テーブルの下に子テーブルが見えてるんですが
こいつをDataGridViewの単一テーブル上に展開できません
tableA
fieldID
fieｌdA
tableB
fieldID
fieldB
fieldID fieldA fieldB のような表現をしたいのですが・・・やはり無理でしょうか？
358:デフォルトの名無しさん
09/07/06 02:13:56
表示用に列一つ追加してExpression使うのが一番楽かな
359:デフォルトの名無しさん
09/07/06 02:24:49
あ、DataColumn.Expressionな
360:デフォルトの名無しさん
09/07/06 10:10:53
>>358
やっぱりそうですか
誰かに言って貰わないと楽ちんな方法を知らずに回り道してるんじゃないかと心配で
先に進めないもので・・・
ありがとうございました
361:デフォルトの名無しさん
09/07/06 11:56:20
>>331
たびたびすみません。
datasetのデザイナで子テーブルにフィールドを追加しフィールドプロパティのExpressionに
TableA.FieldAを設定すると
リレーションシップ０が見あたりません
そこで
parent(リレーションシップ名).FiedlAを設定すると
リレーションシップ名が見あたりません
となります。datasetデザイナ上では確かにリレーションシップを設定してその名前をコピペしてるので間違いないと思うのですが
もしかしてコード上で設定しないといけないのでしょうか？
362:デフォルトの名無しさん
09/07/06 12:14:49
Expression設定してるところでブレークポイント設定して確認すれ
363:デフォルトの名無しさん
09/07/06 13:05:59
>>362
datasetデザイナ上でプロパティを設定してるだけなので・・・・
よっぽどまぬけなことをやってるのかググっても該当するものは出てこず・・・
orz
364:デフォルトの名無しさん
09/07/06 13:19:17
現在のプロジェクトをExpressionで検索してみろよ
365:デフォルトの名無しさん
09/07/06 13:25:32
>>364
やっと意味がわかりました。なるほど・・・
で、やっと設定できました
原因は不明ですが、ビルドしたら親テーブルのフィールドを認識するようになりました
お騒がせしました
366:デフォルトの名無しさん
09/07/06 19:24:59
すみません
VBからTwitterに文字列を投稿する方法はAPI以外にないでしょうか？
367:デフォルトの名無しさん
09/07/06 21:54:39
これがWin32APIの事を指していたら、それはそれで面白いかもしれんね。
368:デフォルトの名無しさん
09/07/06 21:55:30
>>367
TwitterAPIの方です
369:デフォルトの名無しさん
09/07/06 22:15:26
SerialPortにて0.1Sec毎に送受の通信を行っているプログラムなんですが
フォームに配置しているボタンを連打したり、データグリッドを更新させたりしてプログラムに一次的に負荷をかけると、その間だけ送受の通信が止まってしまいます。
ためしにForm2を作ってその別のフォームで単独で通信させていてもForm1にあるボタン等を連打して負荷をかけると同じような結果でした。
こういう問題はどういう風に解決したらよろしいのでしょうか？
どうかご助言のほうをよろしくお願いします。
370:デフォルトの名無しさん
09/07/06 22:35:11
負荷とか関係なく、UIスレッドで通信しているのが原因の予感。
スレッドを分ければ一瞬で解決すると見た。
371:デフォルトの名無しさん
09/07/06 22:35:23
別のスレッドで通信を処理すればいいんじゃね？
372:デフォルトの名無しさん
09/07/06 22:42:11
ＵＩスレッド？ですか
VB2008を使っているのですが、スレッドとはどういう事なのでしょうか？
373:デフォルトの名無しさん
09/07/06 22:50:21
マルチスレッドプログラミングってやつ
原則的に時間のかかる処理は別のスレッドを作ってそっちで動かさないとUIが固まります
特別な技術や注意が必要なのでしっかり勉強しましょう
374:デフォルトの名無しさん
09/07/06 22:51:31
「ワーカースレッド」でMSDN を検索してこい。
375:デフォルトの名無しさん
09/07/06 22:58:14
『.NETマルチスレッドプログラミング 1：スレッドの実行と同期』
URLﾘﾝｸ(codezine.jp)
『.NETマルチスレッドプログラミング 2：非同期デリゲートとスレッドプール』
URLﾘﾝｸ(codezine.jp)
376:デフォルトの名無しさん
09/07/07 04:24:03
ありがとうございます
参考にさせていただきます
なんとなくマルチスレッドの動きは分かったんですが
このプログラムは送信はタイマーイベントで行っていて、受信はCOMのDataRecivedイベントで行っているのですが
この場合、>>369のように停止させたくはないので両メソッドともマルチスレッド化したほうがよろしいんでしょうか？
なかなか複雑そうですね・・。
377:デフォルトの名無しさん
09/07/07 07:47:52
どうせDataReceivedはSerialPortが用意したスレッド上になるのだから、
データを格納した上でControl.BeginInvokeしておけば、
UIスレッドが原因で邪魔されることは無いんじゃないかな。
378:376
09/07/07 19:14:09
>>377
>データを格納した上でControl.BeginInvokeしておけば、
>UIスレッドが原因で邪魔されることは無いんじゃないかな。
すみません・・・もう少し詳しく説明していただけませんでしょうか？
それと思ったのですが
現状のプログラムがDaraRecivedイベントが発生してデータを受け取ったら、そのデータのヘッダ等を確認するためにDaraRecivedイベント内で処理関数(*1)を呼び出して、最終的に変数にデータを格納する処理にしています
そしてフォームに配置したタイマーイベントで、その格納した変数にアクセスしデータを読み取るようにしています。
DaraRecivedイベントから呼び出した上記の(*1)の処理関数もDataRecivedイベントと同じスレッド、つまりフォームが実行されているスレッドとは別で実行されているということなんですよね？
ということは、既に受信処理は別のスレッドで処理されていたということなんですよね
この場合、フォームに配置したタイマーイベントで行っている送信処理のみがフォームと同スレッドな為にフォーム操作時に停止していると判断して
結果的には送信処理のみを別スレッドにすれば問題は解決しそうですね
マルチスレッドについては教わった解説サイトを見て調べるとして
・・・タイマーイベント内の、送信処理を別スレッドにするべきなんでしょうか
それともこのタイマーイベント自体を別スレッドにしないといけないんでしょうか？
タイマーイベントはフォームを操作したとして途切れることはないのかな
379:デフォルトの名無しさん
09/07/07 19:34:19
送信処理を別スレッドにしてみて、改善されるか試してみなよ。
今後のことを考えれば、スレッド使えないと自分が大変なんだからさ。
380:デフォルトの名無しさん
09/07/07 19:46:17
System.Timers.Timerの方を使えば、
勝手に手持ちのスレッドプールからイベントを起こしてくれるから、
スレッドを一から作る必要は無いんじゃないかな。
UIスレッドとは無関係にイベントは発生するから、止まる事も無いはず。
381:デフォルトの名無しさん
09/07/07 22:00:04
Oracleと繋ぐときにOracle Clientを使わない方法って無いんですか？
382:デフォルトの名無しさん
09/07/07 22:02:18
ODP.NETでもODBCでも
383:デフォルトの名無しさん
09/07/07 22:19:17
>>382
ODP.NETやODBCだと、exeの配布先のマシンに
オラクルのクライアントがインストールされていなくても
SQLの実行などができますか？
384:デフォルトの名無しさん
09/07/07 22:25:49
まさか
質問はちゃんと要件をまとめてからしてくれよ
385:デフォルトの名無しさん
09/07/07 22:31:15
>>384
じゃ、exeの配布先のマシンには
Oracleのクライアントソフト(.Net)は必須なんですね?
386:デフォルトの名無しさん
09/07/07 22:34:17
そもそも今現在受信処理と送信処理はちゃんと（うまく）同期とって動いてるの？
387:デフォルトの名無しさん
09/07/07 22:36:04
Oracleのインストールは必須
.NETからOracleへのアクセスはSystem.Data.OracleClientやSystem.Data.Odbcなら標準ライブラリに用意されてる
> Oracleのクライアントソフト(.Net)
って何指してるの？
388:デフォルトの名無しさん
09/07/07 22:36:30
Oracleのクライアントソフト(.Net)ってなんだよ。
Oracleのネイティブなクライアント（OCIとか）と
.NETのプロバイダは別物だぞ。
さらにDataDirectなどの、Oracleのネイティブなクライアントが
不要なプロバイダもあることはある。
389:デフォルトの名無しさん
09/07/07 22:39:23
ありがとうございます。
納得しました。
390:デフォルトの名無しさん
09/07/08 16:42:49
VB2005でアプリを開発しています。
あるファイルが他のなんらかのアプリケーションで既に開かれているかどうかを調べるにはどうすれば良いでしょうか？
ファイル名から、そのファイルを開いているアプリケーションが何なのかを知りたいのです。
開発しているアプリからデータを既存のファイルに上書きでエクスポートしようとした時、
他のアプリでそのファイルが開かれていればエラーになってしまうので、どのアプリがその
ファイルを開いているかをユーザに通知したいのです。
どうぞよろしくお願いいたします。
391:デフォルトの名無しさん
09/07/08 16:49:29
無理じゃないかな、ハンドルの継承とかあるし
392:デフォルトの名無しさん
09/07/08 17:01:02
なんかAPIができたときいたことがある
393:390
09/07/08 17:28:25
>>391
>>392
レスありがとうございます。
とりあえず現時点では「ファイルが他のアプリケーションで使用されていないことを確認してください。」と
メッセージボックスを表示しています。
たとえば、開発しているアプリから xls ファイルでエクスポートしてそのファイルが Excel で開かれていれば
ユーザは Excel というアプリを自分で確認してくれるのですが、別のアプリでその xls ファイルを読み込んで
いる場合、ユーザはその xls ファイルが開かれているということに気づきにくいみたいですので、どのアプリが
その xls ファイルを開いているのか通知したいんです...
openfiles というコマンドがあるみたいですが、これは非公開APIを使用しているかも...みたいな記述は
見かけました。
ただこのコマンドを使用するにはシステムのパフォーマンスが低下する可能性があるとの事(openfiles.exe が
ファイルのトレースを行うのでオーバーヘッドが発生)で、このコマンドを使用するには抵抗があります。
URLﾘﾝｸ(www.atmarkit.co.jp)
何か妙案はないかな...
394:デフォルトの名無しさん
09/07/08 19:55:41
使い終わったらOFFにすればいいんだろ
395:デフォルトの名無しさん
09/07/08 20:47:51
>>393
URLﾘﾝｸ(technet.microsoft.com)(en-us).aspx
これはだめ？
396:デフォルトの名無しさん
09/07/08 20:51:10
VB2008を使用しています。
Form1とForm2を作成し、Form1からForm2を以下のようにして表示させました。
[Class Main]
Public Sub Main()
Application.Run(New Form1)
End Sub
[Class Form1]
Private Sub Form1_Load( 略 )
Form2.Show()
End Sub
Public Sub SetTextBox( str )
TextBox1.Text = str
End Sub
[Class Form2]
Private Sub Button1_Click( 略 )
Form1.SetTextBox("test")
End Sub
このとき、Form2のボタンからForm1のTextBoxに文字列をセットできないのは
Application.RunでNewしているForm1にアクセス出来ていないからでしょうか？
397:デフォルトの名無しさん
09/07/08 20:56:46
>>393
自分が開いてるかどうかなら
COM経由で開いてる文書一覧が取得できなかったっけ？
他PCが開いているかどうかなら
開かれていたらどうしたいのかによるんじゃね？
そもそもExcelが排他かけないんだし…
398:デフォルトの名無しさん
09/07/08 22:05:21
>>396
よくわからんけど
Form1.TextBox.Text = "test"
は、ダメなの？
399:デフォルトの名無しさん
09/07/08 22:09:43
>>396
VBは過去のしがらみにより、フォームのインスタンスを生成しなくても
フォームにアクセスできる。
この場合のフォームのインスタンスは、既定のインスタンスとか呼ばれてる
>Application.RunでNewしているForm1にアクセス出来ていないからでしょうか
その通り。Newすると、既定のインスタンスじゃないインスタンスが生成されてる
Form2が呼んでるForm1はインスタンス指定がないから既定のインスタンスのForm1
Application.Run(Form1)で既定のインスタンスのForm1を表示させれば思った通りの動作
400:デフォルトの名無しさん
09/07/08 22:18:24
過去のしがらみというか、オブジェクト指向がわからない人のためにVB2005になってわざわざ導入されたんだよ
VBユーザーは怒るべき
401:デフォルトの名無しさん
09/07/09 00:07:02
>>396
2008は持っていないのですが、VB2005で実験してみたところ、普通に書き込みされました。
Public Class Main
Public Form1 as new Form1
Public Sub Main()
Application.Run(Form1)
End Sub
End Class
ってやってもダメだろうか。
実験その１
Public Class Main
Public MyForm1 as new Form1
Public Sub Main()
Application.Run(MyForm1)
End Sub
End Class
Public Class Form2
Private Sub Button1_Click(略
Form1.SetTextBox("test")
End Sub
End Class
Form1は一緒ね。結果は、正常に？書き込み動作された。
MyForm1っていうForm1のインスタンスが、Form1って名前でアクセスできるみたい。
仕様としては嫌だなぁ。
続きます・・・
402:401
09/07/09 00:15:44
実験その２
Public Class Main
Public MyForm1 as new Form1
Public Sub Main()
Application.Run(MyForm1)
End Sub
End Class
Public Class Form2
Public MyForm1_2 as new Form1
Private Sub Button1_Click(略
MyForm1_2.SetTextBox("test")
End Sub
End Class
Form1は例によって一緒。
結果は、書き込みされず。
見えないMyForm2にアクセスしている模様。
ちなみにこの後
MyForm2.Show
とすると、書き込み済みで表示される。
これはまぁ普通。
もう少し続きます・・・
403:401
09/07/09 00:25:50
実験その２
Public Class Main
Public MyForm1 as new Form1
Public Sub Main()
Application.Run(MyForm1)
End Sub
End Class
Public Class Form2
Public MyForm1_2 as new Form1
Private Sub Button1_Click(略
MyForm1_2.Show
Form1.SetTextBox("test")
End Sub
End Class
Form1は例によって一緒。
結果は、MyForm1のフォームに書き込みされました。
MyForm1とMyForm1_2という二つのForm1がインスタンス化されていて、
Form1という名前ではどちらか判断できないのですが、結果はそういうことで。
最初インスタンス化したClassの別名になっている？
実際の内部挙動はわかりません。
これもイケてないなぁ。
以上、長文ｽﾏｿ
404:デフォルトの名無しさん
09/07/09 01:01:51
↑
横槍を入れることで疑問を解消させてもらう新しい形で
質問させて頂きます。
２つめの実験(>>402)で、
どうして書き込みされたフォームが見えないのかわかりません。
MyForm2 というのは、MyForm1_2 のことですよね？
３つめの実験(>>403)は、
結局、MyForm1にはアクセスしていない、ということではないですか？
Formというクラスは、インスタンスを作らなくてもアクセスできる
Shared（静的）な要素を持っているのでしょうか。
(>>399)さんが言っていることは、
デザイナで作成するForm1には、自分自身のインスタンスをあらわす「Form1」という
要素がSharedか何かで自動的に定義される、ということなのでしょうか。
405:デフォルトの名無しさん
09/07/09 02:52:21
>>400
既定のインスタンスってのは、VB6にはあった
.NETになっていったん廃止されて２００５で復活らしい
>>401
>VB2005で実験してみたところ、普通に書き込みされました
手元に２００５ないんで試せないが、そうだとすると、２００５と２００８で動作が違うといことに
実験の内容から考察するに、２００５でフォームをnewすると、
１個目のインスタンスは既定のインスタンス戻してるっぽいな
２００８なら１回目のnewから既定のインスタンスと別のインスタンス作ってるっぽい
>>404
二つ目の実験でMyForm1_2は、Form2の中でnewされた(Form1の)インスタンス
Application.Runされている（＝表示されている）のはMainでnewされた(Form1の)インスタンス
これは明らかに別物だから>401が言うとおりまあ普通
三つ目の実験だが、
Form1.SetTextBox("test") でForm1って変数はないから、
これは既定のインスタンスに書き込みにいってる
MyForm1が書き込まれたってことは、MyForm1のnewで既定のインスタンス取得してると思われ
２００８で実験その３やると、どっちのフォームにも書きこまれない
これはMyForm1もMyForm1_2も既定のインスタンスとは別のインスタンスだってことだと
406:404
09/07/09 05:13:06
なるほど、既定のインスタンスがどういうものなのか、よくわかった。
で、2005ではMain クラスの Main メソッドで new されて、かつ
Application.Run で使用されたフォームは、
そのフォームクラスの既定のインスタンスになるのか。
つまりこれは既定のインスタンスになるための十分条件なわけだけど、
最低限必要な条件って、上記のうちどれだろ。。。
ま、とりあえず横槍質問はこのくらいにしときます。
407:396
09/07/09 09:23:18
>>398-406
レスありがとうございます。
>>399
詳しい説明をありがとうございます。
Application.Run(Form1) で期待通りの動作が出来ました。
>>401
実験をありがとうございます。
VB2005 と VB2008 で動作が異なっている事が分りました。
408:デフォルトの名無しさん
09/07/09 09:34:02
VB.NETはBasicの後継言語と聞いたので質問なのだが、
N88Basic にあった、Play 文はどこにいったんですか？
昔、Play文で作曲しまくっていたので、
VB.NETでもどうしてもPlay文を使いたいのです。
どうか、お願いします。
409:デフォルトの名無しさん
09/07/09 09:41:35
後継言語ではありません
全くの別物です
だいたい、そういう組み込みの「〜文」などというのはVB.NETにはほとんど存在しません
.NETのライブラリにも無いのでWin32API使いましょう
410:390
09/07/09 09:52:38
>>394
ON/OFFを切り替える度にPCの再起動が必要になります。
これは実運用上、非現実的です。
>>395
プロセスが利用しているDLLを表示するためのコマンドラインツールですよね？
ちょっと目的とは異なるかと思うんです...
>>397
COM経由で開いているファイルの一覧を取得することができるんですか!?
ちょっと調べてみます。
環境的にはスタンドアロンの場合が多いです。
私が開発しているアプリから xls 形式でエクスポート上書き保存できない場合、
スタンドアロン環境でかつ Excel は起動していない時、ユーザは「なんで？」と
なってしまうんです。他アプリが該当の xls ファイルを掴んでいるケースが
あったりするので、ユーザに「xxx.exe でその xls が開かれていますよ。」と
通知したいんです。
411:デフォルトの名無しさん
09/07/09 11:18:53
>>406
なんかちょっと勘違いしてるっぽいが
フォームの「既定のインスタンス」ってのは、そのインスタンスを保持する変数がなくても
明示的に(newで)作成しなくても存在する特殊なインスタンスのこと
普通のオブジェクトだと、保持する変数がないインスタンスはGCで回収される
明示的にnewされた普通のインスタンスが「規定」になるわけではないよ
412:デフォルトの名無しさん
09/07/09 12:02:40
>>397
取得できるのは自プロセスが開いた一覧だね
413:デフォルトの名無しさん
09/07/09 13:31:24
>>410
URLﾘﾝｸ(technet.microsoft.com)
こいつでファイル指定して開いてるプロセス検索できる
こいつがどうやってるかわからんが、同じことやれば可能なはずだ
414:デフォルトの名無しさん
09/07/09 15:47:11
>>413
openfiles.exeと同じことだろ
>>410
URLﾘﾝｸ(oshiete1.goo.ne.jp)
415:デフォルトの名無しさん
09/07/09 16:13:00
>>414
Process Explorerは、openfiles.exeみたいに（設定変えて）再起動しなくても使えるみたいだが？
416:390
09/07/09 17:09:04
>>412-415
レスありがとうございます。
>>413のご指摘のようなことを自前で実装したいのですが仕組みがわからないです。
せめて Process Explorer にファイル名をパラメータで渡して結果を受け取る、みたいな
ことができれば嬉しいんですが。
エンドユーザはコンピュータに不慣れな人が多いので、なるべく必要な機能を自前で
実装してあげたいのです。
というか、このような機能の需要て少ないんでしょうかね。
.NetFramework4.0あたりで機能を実装してくれたら...ないか。
ひとまず>>414氏が提示してくれたリンクを見ながら闘ってみます。
417:デフォルトの名無しさん
09/07/09 19:35:11
Dim StartQuery As New EventQuery( _
"SELECT * FROM" & _
" __InstanceCreationEvent WITHIN 1 " & _
"WHERE TargetInstance isa ""Win32_Process""")
StartWatcher = New ManagementEventWatcher(StartQuery)
AddHandler StartWatcher.EventArrived, AddressOf Me.ProcessArrived
Private Sub ProcessArrived(ByVal sender As Object, ByVal e As EventArrivedEventArgs)
msgbox("Arrived")
Me.RefreshList()
End Sub
プロセスの一覧を表示していて新規で何かが起動したら更新するというようにやってるんだけど
"Arrived"メッセージは出るけどRefreshListが呼ばれない
特にエラーも何も出ない
たぶんMeの参照先が違ってるんだろうけどこれはどうすればいいの？
418:デフォルトの名無しさん
09/07/09 19:44:12
RefreshListが呼ばれないとどうやって判断したのさ
取り敢えずMsgBoxはDebug.Print辺りに置き換えてステップ実行
多分別スレッドでイベントハンドラが呼び出されてるから
419:デフォルトの名無しさん
09/07/09 19:47:28
>>418
RefreshListの中にmsgboxとconsole.write両方を入れてみたけど反応なし
エラーも何も出ない
別スレッドで呼び出されてるのは分かってるｗその回避方法を聞いてるのｗ
420:デフォルトの名無しさん
09/07/09 19:52:29
だからまずステップ実行して確認しろよ
421:デフォルトの名無しさん
09/07/09 19:52:53
そこまでわかってるなら
MeにContol.Invoke使ってUIスレッドでRefreshList()呼べばいいじゃん
422:デフォルトの名無しさん
09/07/09 20:00:51
>>421
そういうものがあるのを今見つけて試してる
423:デフォルトの名無しさん
09/07/09 20:06:48
出来たｗ
424:デフォルトの名無しさん
09/07/09 21:47:25
＞別スレッドで呼び出されてるのは分かってるｗその回避方法を聞いてるのｗ
聞いてないだろどう見ても、あほかよ
425:デフォルトの名無しさん
09/07/09 22:58:43
>>424
Meの参照先が違うって書いてるのにそれが読み取れないってどんだけ素人だよｗ
あーちなみにVB.Netまだ１週間目ｗ
426:デフォルトの名無しさん
09/07/09 23:07:07
別スレッドで参照先が異なるとかどこの世界のスレッドだよ
427:デフォルトの名無しさん
09/07/09 23:37:15
ちょっとVB.Netしろうとの俺に教えてくれ
Meの参照先ってインスタンスだよな
インスタンスとスレッドって同じなのか？
428:デフォルトの名無しさん
09/07/09 23:41:21
何を言っているのか分からないぐらい全然違うもの
429:デフォルトの名無しさん
09/07/09 23:45:15
>>427
>インスタンスとスレッドって同じなのか？
違うよ
430:デフォルトの名無しさん
09/07/10 00:18:44
IEのアドレスバーの左側のｅのｕｒｌのアイコンを
コントロールへD&DしてURLを取得する方法について
>>216で教えて頂いたのですが
このアイコンをアプリケーションのexeファイルのアイコンにドロップして
アプリケーションを起動した場合に、urlを取得する方法を教えて頂きたいです。
ファイルやフォルダのドロップの情報の取得は
cmds = System.Environment.GetCommandLineArgs
で確認できたのですが、ｕｒｌのアイコンの場合は
この中には入らないようです。
431:デフォルトの名無しさん
09/07/10 00:27:48
そもそもドロップでexe実行できたっけ？
432:デフォルトの名無しさん
09/07/10 01:52:37
>>427
・インスタンスとは・・・
例えば、クラスを自分で定義する場合、
public class MyClass
〜
end class
と記述する。で、このクラスを form1 内で使う場合、例えば次のように記述する。
dim mc1 as new MyClass
dim mc2 as MyClass
mc2 = new MyClass
これで、mc1、mc2 というのが、クラス名「MyClass」のインスタンスということになる。
new ＋「クラス名」で、そのクラスのインスタンスを作ることができる、というわけ。
インスタンスというのは、変数やクラスを代入するための入れ物、と思っておけばよいはず。
as の後ろにくる MyClass とか integer とかは、別箇所で定義されているクラス名（型名）でしかない。
実際に値を代入してプログラム内で参照するのは、そのインスタンスである。
だから、一つのクラスにいろいろな値をセットしたものを別々に保持できる。（mc1 と mc2 のように）
・スレッドとは・・・
プログラムの実行単位？とでもいったらいいのかな。
スレッド内のプログラムは、上から下に順番に実行される。
条件分岐やループで実行順が前後することはあっても、
一つの行を実行し終わるまで、次の行は実行されない。
スレッドを意識したプログラミングをしていなければ、通常は
そういた状態になっている。（シングルスレッド）
スレッドを二つ作れば、それぞれのスレッドでプログラムが上から下に順番に実行され、
ユーザーから見ると、同時に二つの行を実行しているように見える。
ファイルを読み込むとか、TCP/IP通信をするなど、時間のかかる処理を実行する場合に、
あらかじめその処理部分だけを別スレッドとして記述し、必要時にそのスレッドをスタートさせることによって、
時間のかかる処理を実行しながら、他の処理も同時に処理できるようになる。（マルチスレッド）
433:427
09/07/10 05:13:03
Meが参照するのはインスタンスでいいんだよな？
>たぶんMeの参照先が違ってるんだろうけど
これはつまり、別インスタンスを参照してるってことだよな
んでこれから
>別スレッドで呼び出されてるのは分かってる
になるのはなんでかわからんのだが
スレッドが違えばインスタンスは別のものなのか？
インスタンスはスレッドごとに生成されるの？
434:デフォルトの名無しさん
09/07/10 06:42:26
インスタンスってのはプロセス固有のWindows管理IDのことだな普通なら
スレッドはプロセスが異なるので別のインスタンスになる
通常のWindows概念でのインスタンスでいいのなら
VBのフォームはすべて同じインスタンス
スレッドは別
DLLも別
インスタンスが違うと何が起こるかというとスタックメモリが別になる
つまりグローバルな変数やクラスへは感嘆には相互にアクセス出来ない
435:デフォルトの名無しさん
09/07/10 08:17:13
その説明は紛らわしすぎる。.NET殆ど関係ないし。
>>433
Meが参照するのはインスタンスでOK。
そして通常、インスタンスはプロセス単位で生成されることになる。
まあ、.NETのアプリケーションドメインを利用すれば、
単一プロセス内に完全に分離した環境を複数作ったりもできるのだけど、
普通は関係ないな。
436:デフォルトの名無しさん
09/07/10 09:30:33
>>434
>インスタンスってのはプロセス固有のWindows管理IDのことだな普通なら
お前の「普通」が判らん。
VBに限らず一般にOOPLで「インスタンス」といえば、プロセス上のメモリに
割り当てられた、オブジェクトの実体。
>スレッドはプロセスが異なるので別のインスタンスになる
もう喋るなｗ
437:デフォルトの名無しさん
09/07/10 10:37:41
VB2005
環境
XPPro、C2D E8400、3GBRAM、HDD80GB
フォーム50個位あるプロジェクトいじってるんだけど
起動とかいろいろ遅い(起動30秒くらい、MSDNも起動20秒くらい、全般的にもっさり)
ストレージがネックだと思うんですが、
大容量のHDDよりかSSDにしたほうがいいですかね？
SSDで開発してる方、体感的に速くなりましたか？
438:デフォルトの名無しさん
09/07/10 11:26:47
>ストレージがネックだと思うんですが、
俺には
>フォーム50個位ある
これを最初に一気に作ってるからだと思えるんだが。
439:438
09/07/10 11:28:14
…いや、勘違い。IDEの起動が遅いっつってんのか。
次ページ最新レス表示スレッドの検索類似スレ一覧話題のニュースおまかせリスト▼オプションを表示暇つぶし2ch
4933日前に更新/199 KB
担当:undef