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

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

263:デフォルトの名無しさん
09/06/28 16:21:00
んで、開発環境と実行環境は別 PC なのね？
どちらも 32ビット？

Oracle DB が入ってても、クライアントがインストールされてなきゃダメ。
まずはそこを確認してみて。

264:258
09/06/28 16:27:54
>>263
ありがとうございます。
開発環境と実行環境は別ＰＣです。
どちらも３２ビットです。

今からOracleクラインアントを
OracleＤＢサーバーにしているＰＣにインストールしてみまつ。

265:258
09/06/28 16:49:52
>>263
確認したのですが、OracleＤＢサーバーにしているＰＣに
クライアント10gがすでにインストールされていました。

266:デフォルトの名無しさん
09/06/28 17:52:33
皆さんは帳票の出力はCrystalReportを使用してますか？
現在帳票はACCESSで使用しています。
今回、フォームをVB.NETで作成しなおし、DBはACCESSを使用することにしました。
帳票がかなり複雑でビジュアル的にも良くできているのですが、それを
VB.NETで作り直すのがかなり困難だということをひしひしと感じております。
皆さんだったらどうしますか？

267:デフォルトの名無しさん
09/06/28 18:00:13
クリリポ、Active Reports、iText あたり。

268:258
09/06/28 18:09:14
Oracleクライアントはインストールされているのですが、
未だに上手くいきません。

269:266
09/06/28 18:10:13
ActiveReoprts良さそうなんですが会社で買うことが出来ないので
無料ツールはありませんか？

270:デフォルトの名無しさん
09/06/28 18:14:35
どうもこうもPrintDocumentでガシガシ書くだけだわな

271:デフォルトの名無しさん
09/06/28 18:15:41
つーかこのage厨は…

272:デフォルトの名無しさん
09/06/28 18:21:47
>>268
アプリの web.config はどうなってんの？

273:258
09/06/28 18:28:44
>>268
すみません。
「どうなってんの？」というのは具体的にどの部分のことを指しているのでしょうか？

274:デフォルトの名無しさん
09/06/28 18:32:13
つーか、参照設定がおかしいんじゃね？って言われてるんだから、
そこを調べろよ。

275:デフォルトの名無しさん
09/06/28 18:38:01
まぁ、どうやって調べたらいいんですか？とかだろうなｗ

276:258
09/06/28 18:44:03
>>274
参照設定は既に設定済みです。
「.NET」タブから一覧を表示させ、
「Oracle.DataAccess」が追加されています。

277:デフォルトの名無しさん
09/06/28 18:46:11
それは開発環境の話だろ・・・

278:258
09/06/28 18:56:37
>>277
すみません。
勘違いしておりました。
どの箇所の参照設定なのか教えて頂けますでしょうか？

279:デフォルトの名無しさん
09/06/28 19:14:42
ここで質問したからには、
他コミュで質問できないからな？
某掲示板や某フォーラムなどですると
「マルチ禁止！」のレスがつくからな
気をつけろよ・・・

280:266
09/06/28 19:59:32
PrintDocumentとCrystalReportはどちらの方がおすすめですか？
今回私の作りたいのは、1週間のスケジュール表になります。
日ごとに四角の枠を配置し、その中にその日の予定をテーブルから
書き出すことになります。
CrystalReportでとりあえず作ってみたものの、印刷プレビューで表示
すると実際の配置とかなりずれて表示されるので、本当に実現できるのか
不安になってきました。
予定表のテーブルから日をキーにしてレコードを取得後、日（曜日）ごとにDataSetを
作成してデータを突っ込んでます。
1週間分なので曜日のDatasetが７個できる形になります。
それをCrystalReportに渡して、曜日ごとの枠に収まるようにレコードを入れていきたい
のですが、全然綺麗に配置出来ないし、途方も無い作業でへこんでます。
だからといって皆さんに愚痴ってもしょうがないんですが、あまりにもレポート機能が
しょぼすぎて、ACCESSよりも劣ってるなんて残念でしょうがないです。
基本的にやり方としては間違ってないですか？

281:デフォルトの名無しさん
09/06/28 20:11:56
ある程度フォーマットが決まってるならクリリポ。
変なフォーマットなら、自由度の高い PrintDocument だな。

282:266
09/06/28 20:14:30
>>281
PrintDocument使うって事は、コードのみで書いていくんですよね・・・
例えば、エクセルで作るような表（網掛けなど）も可能ですか？

283:デフォルトの名無しさん
09/06/28 20:17:10
Box の塗りつぶしでできるレベルだな。

つーか、Access がいい、っていうなら、Access でやれよ。

284:デフォルトの名無しさん
09/06/28 20:29:01
>>278
Web.configにいろんなDLLの参照設定が書かれてないか？
それとサーバにODP.NETはインストールしてるのか？

285:266
09/06/28 20:36:31
>>283
会社でVB.NETで作るっていることに決まったんで、
ACCESSで作る事ができません・・・

286:デフォルトの名無しさん
09/06/28 20:43:33
だったら文句言わずにやれよ。
文句言うくらいなら、会社のやつらを説得すればいい。

287:266
09/06/28 21:01:55
>>286
はぁ？CrystalReportで作ってるってさっきから言ってるだろう。

288:デフォルトの名無しさん
09/06/28 21:08:20
じゃ、Crystal Reports スレでも行けよ。スレ違いだから。

289:266
09/06/28 23:04:43
こりゃしっけいいたしました

290:266
09/06/28 23:13:36
ってCrystalReportすれないじゃないか。騙された。

291:デフォルトの名無しさん
09/06/29 12:18:06
先生方～馬鹿な私にアドバイスをください orz

VC++2008のWin32プロジェクトで開発した共有メモリのDLLを
VB.net2008から呼び出すプログラムを製作しています。

DLL内部で保持している構造体を参照渡しして共有する仕組みです。
ですが、下記記述だと構造体内部の配列(stSub1～3)が
Nothingの状態になったままです。VB初心者の私にアドバイスをお願いします
ちなみにOSはWinXPです。よろしくお願いします。

※記述は改行数の関係上、次の書き込みに書きます

292:291
09/06/29 12:19:57
続き(2/3)
見づらいと思いますがご了承ください orz　
------------------------
VC++記述
------------------------
typedef struct
{
short s1;
short s2;
}ST_SUB;
typedef struct
{
ST_SUB stSub1[10];
ST_SUB stSub2[10];
ST_SUB stSub3[10];
}ST_AREA;
DLL関数：HANDLE MemOpen(PVOID* Address)

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両方を入れてみたけど反応なし
エラーも何も出ない
別スレッドで呼び出されてるのは分かってるｗその回避方法を聞いてるのｗ

次ページ