[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 2chのread.cgiへ]
Update time : 03/12 18:38 / Filesize : 296 KB / Number-of Response : 987
[このスレッドの書き込みを削除する]
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

VB.NET質問スレ (Part6)



1 名前:デフォルトの名無しさん [04/07/03 08:49]
VB.NETの質問全般です

過去スレ
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


620 名前:591 mailto:sage [04/08/26 00:26]
どうも、>>591です。
今日は同僚の目を盗んでVSのヘルプやらWeb上の文書をあさってみましたが、結局DoEvents()関連についてはうやむやのまま
せっかく.NETに移行したことだし(2ヶ月前までExcelのVBAマクロしか書いたことなかった)
スレッドとやらを使ってみようかとトライしてみました。

で、試行錯誤した末、以下のような感じのコードになりました。

Imports System
Imports System.Threading

Public Class Form1
      
      ・・・

Private Sub DoLoopThread()
'元Button1のクリックイベントにあった処理から、Application.DoEvents()を取っ払ったもの
End Sub

Private MyThread As New Thread(AddressOf DoLoopThread)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MyThread.start()
End Sub

Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
MyThread.Abort()
End Sub

End Class

これで何とか”ループ処理中に「X」をクリックするとエラーが出る”問題は回避できるようになりました。

621 名前:591 mailto:sage [04/08/26 00:38]
しかし、>>620のコードでもまた新たな問題が発生してしまいました。
一度ループの処理が終わった後、再度Button1をクリックすると

"スレッドが実行中か、または終了しています。再起動できません。"

とエラーが出てしまいます。
このツールでは、Button1で始まる処理を、何回でも呼べるようにしたかったのでいろいろいじくって
結局、Button1のクリックイベントの中身を以下のように書き換えて、何とか目論見どおりの
動作をさせることができるようになりました。

Select Case MyThread.ThreadState
Case ThreadState.Unstarted
MyThread.Start()
Case ThreadState.Running
MsgBox("処理実行中です。やり直す時は一度終了してください")
Case ThreadState.Stopped
MyThread.Abort()
Dim t As New Thread(AddressOf DoLoopThread)
MyThread = t
MyThread.Start()
End Select

これにて一件落着!と行きたい所ですが、どうもこのコードは直感的に美しくないような気がします。
一般的にスレッドの再利用(に近い機能)を実現するときのリーズナブルな方法とはどんなものなんでしょうか?

622 名前:デフォルトの名無しさん mailto:sage [04/08/26 00:55]
ボクにはネタにしかみえません。


623 名前:デフォルトの名無しさん mailto:sage [04/08/26 00:58]
タイマーで10ms

624 名前:デフォルトの名無しさん [04/08/26 01:52]
厨な質問で申し訳ないが、VB6のProjectをVB.netで読み込んで、
加筆修正してVB6のデータとして保存できるんでしょうか?

要はVB.netでVB6形式の保存ができるのかどうなのかを知りたいのです。

625 名前:デフォルトの名無しさん mailto:sage [04/08/26 01:55]
どうあがいてもむり。

626 名前:デフォルトの名無しさん mailto:sage [04/08/26 09:55]
>>624
ばっっっかじゃねーの

627 名前:デフォルトの名無しさん [04/08/26 10:08]
申しわけありませんが、質問させてください。

VB.NETで、配列を使わずに最終レコードから逆読みしていくにはどのようにすればいいのでしょうか。

1〜100までのデータがあり、100、99、98…とグリッドに表示したいのです。



628 名前:デフォルトの名無しさん [04/08/26 10:40]
うるせーバカ



629 名前:デフォルトの名無しさん mailto:age [04/08/26 11:28]
>>628
クズハ、ハヤクシネヨ
ソノホウガヨノタメ

630 名前:デフォルトの名無しさん mailto:sage [04/08/26 11:39]
フォームのデザイン時にロジックからコントロールを生成するようなことは可能でしょうか?
実効時、動的コントロール生成のやりかたはわかるのですが

AccessフォームのTextBoxのようにフォームデザイナにTextBoxを配置した時点で連動するCaption(Label)コントロールも同時に生成し
以降、デザイナ上でレイアウト操作を連動させる・・・
といったようなことをやりたいのですが
デザイン時にParentのInitializeComponent()へコントロール追記できるようなクラスやメソッドがあるのでしょうか?
ざっとググってみても関連する情報が見当たらないもので・・・

631 名前:デフォルトの名無しさん [04/08/26 12:02]
うるせーバカ

632 名前:デフォルトの名無しさん mailto:sage [04/08/26 13:24]
.NETになってからは変数名にいちいち
i.NETとかmyString.NETとか書かなければならなくなってめんどうになったから
VB6.0に戻ろうかな

633 名前:デフォルトの名無しさん mailto:age [04/08/26 13:29]
>>628>>631
クズハ、ハヤクシネヨ
ソノホウガヨノタメ
ダイタイ、オマエガイテモダレモカンシャシナイ



634 名前:デフォルトの名無しさん [04/08/26 13:53]
>>632
うちの.netは付けなくても動くよ

635 名前:デフォルトの名無しさん mailto:sage [04/08/26 14:04]
>>634
社内(or参加プロジェクト内)での命名規約の話だろ。

>>632
VB6もリリースが終わったから、否応無しにVB.netを使わなきゃならん。。

636 名前:デフォルトの名無しさん mailto:sage [04/08/26 14:09]
>>635
難儀な会社だな・・・
うちじゃコンパイラがエラー出す

637 名前:デフォルトの名無しさん [04/08/26 14:17]
>>629>>633
テメーコソヤクタタズダローガ
クズハ、ハヤクシネヨ
ソノホウガヨッポドヨノタメw

638 名前:デフォルトの名無しさん [04/08/26 14:40]
>>637
ノロイヲカケタヨ
エキノホームカラテンラクシシナイヨウニナ
ケケケケ...



639 名前:デフォルトの名無しさん [04/08/26 14:52]
>>638
アイニクデンシャニハノラネエンダワ
ゴクロウサマ
プププ...

640 名前:デフォルトの名無しさん mailto:sage [04/08/26 15:25]
>>611
安いやつ買ったね? ウィザードを使わずコードで書けばOKだよ

>>627
そのデータはどこに格納してあるの?

>>630
DTE からオブジェクトをとって、ごにょごにょやるしかないんじゃないかな。
つまり、コントロールの機能としては無理かと。


641 名前:627 [04/08/26 16:12]
640様

返答いただきありがとうございます。

SQLサーバ7.0内のRDBとなります。接続はODBC接続しています。



642 名前:デフォルトの名無しさん mailto:sage [04/08/26 16:50]
>>641
データセットに入れてあるのなら、ループで逆に読めば OK。

レコードセットに入れてあるのなら、MoveLast して、MovePrevious しながら
とっていけば OK。

643 名前:627 [04/08/26 17:38]
642様

ありがとうございます。

早速、試してみたいと思います。

本当に感謝致します。

644 名前:デフォルトの名無しさん mailto:sage [04/08/26 19:01]
掲示板を自動巡回するソフトを作りたいのですが、
どういった知識が必要なのでしょうか。
いくつかの掲示板を自動巡回できるようにし、
また各掲示板用の書き込みを巡回前に用意しておけば
巡回中に、自動で投稿されるようにしたいです。

掲示板によっては投稿に必要な手順が異なったりするのも
ソフトの方で登録できるようにしたいです。

どなたか、よきアドバイス・実現方法等ご教授下さらないでしょうか。


645 名前:デフォルトの名無しさん [04/08/26 19:08]
>>644
まずは、IEコンポーネントとかを使わずにブラウザを作るところからスタートだな。
TCP/IPとHTTPとHTMLぐらい。

646 名前:デフォルトの名無しさん mailto:sage [04/08/26 21:00]
コントロールA(アンカー左)とコントロールB(アンカー右)を配置した後、
フォームをリサイズしたら、BがAの下に潜り込んでしまいました。逆に
AがBの下に潜り込むようにしたいんですが、どうすればいいんでしょうか。
各コントロールの重なり方を指定するやり方を教えてください!m(_ _)m


647 名前:デフォルトの名無しさん mailto:sage [04/08/26 21:14]
>>646
まずはデザインモードでコントロールを右クリック。
話はそれから。
というか、普通それで解決法がわかると思う。

648 名前:デフォルトの名無しさん mailto:sage [04/08/26 22:32]
>>644
ついこないだそんなもん作ったなぁ・・・お前は俺か?(ぉ
www.gotdotnet.com/japan/student/column/firststep/
ここのダウンローダーあたりを見ればwebから取得する方法は分かるだろ。
これで巡回はいいとして・・・

あとはその掲示板への投稿方法を見なければならないからなぁ
HTMLフォームの知識も必要になるだろう。
(簡単なHTTPの知識もあったほうがいいと思われ。RFCでも見るんだ)

巡回先が2chじゃないだろうな?一応
www.monazilla.org/document/index.html

自動投稿スクリプトでAA連投プログラムとか作っちゃダメだぞ



649 名前:デフォルトの名無しさん mailto:sage [04/08/27 09:43]
Windows Script HostのMapNetworkDrive メソッド、RemoveNetworkDrive メソッド
と同じような事をwsh使用せずにVB.NETだけでしたいのですが
System.IO,System.netクラスにはなさそうだったのですができないのかな?
ネットワークドライブの割り当てせずにUNC形式でパスかかってるファイル、フォルダに
アクセスできればいいのですがどなたかご存知ないでしょうか?


650 名前:デフォルトの名無しさん mailto:sage [04/08/27 10:40]
プログラムを常駐させといて、ユーザーのクリックに反応してある関数を動かす
そんなプログラムを作りたいのですが、.NET Frameworkで実現できますか?

651 名前:646 mailto:sage [04/08/27 19:09]
>>647
レス遅れてしまってすいません! ありがとうございました!
とても簡単に解決できたんですね・・・申し訳ないです。助かりました。
多謝です m(_ _)m

652 名前:デフォルトの名無しさん [04/08/27 22:25]
SQLからNullを含んだ列をDataSetに読み込んできたんですが、その列が
Nullであるかどうかを判別するのってどのようにすればいいんでしょうか?
SqlDataAdapter1.Fill(DataSet11.TestTable)
For Each dr As DataSet1.TestTableRow In DataSet11.TestTable
If Not dr.X Is Nothing Then
....
Else If
Next

という感じで書いてみたんですがだめでした
XMLスキーマエディタでNullValueを設定しようとしたら
このコンテキストでは無効です
というエラーが出てしまい、保存できません
どなたがご教授お願いします


653 名前:デフォルトの名無しさん mailto:sage [04/08/27 23:43]
>>652
IsDBNull関数でできると思うけど?


654 名前:デフォルトの名無しさん mailto:sage [04/08/28 09:52]
>>653
出来ません。

655 名前:デフォルトの名無しさん mailto:sage [04/08/28 10:09]
自作プロパティ、メソッドに説明文をつけたいのですが方法がわかりません。
プロパティウインドウの下の部分や、入力候補に表示させるにはどうしたらいいのでしょうか?

656 名前:652 mailto:sage [04/08/28 12:28]
>>653 >654の言うとおりで出来ませんでした。
datasetの項目はpropertyみたいなのでgetメソッドの中で
例外が発生しているみたいです。


657 名前:デフォルトの名無しさん [04/08/28 12:40]
ちょっと質問です。

VB6.0では、スクリプトコントロール
(www.microsoft.com/japan/msdn/scripting/default.asp)
があって、VBアプリからVBスクリプトを簡単に利用できましたが
VB.NETで同じようなことはできるでしょうか?



658 名前:デフォルトの名無しさん [04/08/28 13:22]
DataSet11ってオリジナルのクラス?



659 名前:652 mailto:sage [04/08/28 13:36]
>>658
そうです。データアダプタでデータセットの生成をやったときに
新しいデータセットを作るときのデフォルトの名前がDataSet1
で、それをフォームに追加したときに出来るのがDataSet11です。


660 名前:デフォルトの名無しさん mailto:sage [04/08/28 14:10]
その方法でDataSetを使ったことがないんだけど

XMLスキーマ経由で返されるNULLってゼロストリング""じゃなかったっけ?
CrystalReportsのXMLデータセットで使ったときはNULL=""で対処してた



661 名前:652 mailto:sage [04/08/28 15:16]
>>660
XMLスキーマエディタでNullValueをemptyに設定するとゼロストリング""
になるらしいんですけど、その設定が出来ませんでした。(保存するとき
にエラー「このコンテキストでは無効です」が出る)
>NULL=""で対処してた
それで対処できるのはわかるんですけど、たとえばSQLdatareaderとかを
使う場合とかならISDBNUllとかで対処できるからdatasetでもできるんじゃ
ないかと思ったんです

662 名前:デフォルトの名無しさん mailto:sage [04/08/28 15:54]
試しに
ID Int
STR CHAR
DT DATETIME
っていうSQL結果(テーブル)からDataSet1.xsd
作ってみたんだけど

STRのNullValueプロパティを(Empty)にしたら問題なくコンパイルが通った

DT(DateTime)のNullValueプロパティを(Empty)にしたら
「カスタム ツール エラー : コードを生成できませんでした。システム エラーです。」
と言うのが発生したけど、これはまた別物かな

一度XMLスキーマに通してるみたいだけど
直接Data.DataSetにFillすることは出来ないのかね?
Data.DataTable内のDataColumnならNull値(Nothing)が取れるんだけど

何かあんまり力になれそうにないです
スマソ


663 名前:デフォルトの名無しさん mailto:sage [04/08/28 16:09]
datasetじゃなくてdatatableじゃダメなん?


664 名前:652 mailto:sage [04/08/28 16:19]

>STRのNullValueプロパティを(Empty)にしたら問題なくコンパイルが通った
>DT(DateTime)のNullValueプロパティを(Empty)にしたら
>「カスタム ツール エラー : コードを生成できませんでした。システム エラーです。」
>と言うのが発生したけど、これはまた別物かな
同じエラーです。こっちではそれでコンパイルが通らなくなっちゃうんですよね。
何がちがうんですかね?

>一度XMLスキーマに通してるみたいだけど
>直接Data.DataSetにFillすることは出来ないのかね?
えーっと私の理解ではdatasetを生成すると自動でXMLスキーマが生成されて
さらに編集したい場合にはエディタを使うってことだと思ってたんですが
違いますか?

>Data.DataTable内のDataColumnならNull値(Nothing)が取れるんだけど
DataTableは使ったことがないんで試してみます。

>何かあんまり力になれそうにないです
>スマソ
いえいえありがとうございました。参考になりました。

>>663
とりあえずやってみます


665 名前:デフォルトの名無しさん mailto:sage [04/08/28 16:35]
>>664
XMLのDataSetとSystem.Data.DataSetは名前は同じなんですけど中身が別物です

Dim dt As New Data.DataTable '新しいDataTable作成
SqlDataAdapter1.Fill(dt)      'でDataTable内にデータを取得できるので

For Each dr As Data.DataRow In dt.Rows

dr.Item(カラム名か番号) '<-これでレコードごとのカラムにアクセスできます

Next

な感じでデータを取得できます

666 名前:652 mailto:sage [04/08/28 18:08]
>>665
>dr.Item(カラム名か番号) '<-これでレコードごとのカラムにアクセスできます
ここでItem(カラム名か番号)がNULLだと例外が出てしまうんです。
If dr.Item(カラム名か番号) Is Nothing then ...
If ISDBNull(dr.Item(カラム名か番号)) then ...
などとやってもうまくいかないんですよ(TT)



667 名前:デフォルトの名無しさん mailto:sage [04/08/28 20:26]
If IsDBNull(dr.Item(カラム名か番号)) then てやらんと。
DataRowに入ってるSystem.DBNull.Value とNothingは別物だぞ

668 名前:667 mailto:sage [04/08/28 20:32]
If dr.Item(カラム名か番号) Is DBNull.Value then ... でもok




669 名前:665 mailto:sage [04/08/28 20:57]
失礼
NothingじゃなくてDBNullでした

670 名前:デフォルトの名無しさん mailto:sage [04/08/28 21:58]
dr.Item(カラム名か番号) で例外が出るんだったらそれでは無理と思うが…


671 名前:デフォルトの名無しさん mailto:sage [04/08/28 22:00]
って勘違いしてたかな?スマン

672 名前:デフォルトの名無しさん mailto:sage [04/08/28 23:26]
ON_WM_KEYUP( )メッセージハンドラで他のアプリのキーUPメッセージって拾えますか?


673 名前:デフォルトの名無しさん [04/08/29 05:29]
SqlDataAdapter1.Fill(DataSet1,"DataTable")で作成したDataTableの中身を
Excelファイル(.xls)に吐き出して、Excel起動→WorkSheet表示→印刷
→Excel終了をVBのプログラムから実行したいのですが方法が分かりません。
どなたかご教示頂きたく宜しくお願いいたします。
ちなみに、VBは2003、Excelは2002、DBはMSDE-RelAです。

674 名前:デフォルトの名無しさん mailto:sage [04/08/29 08:17]
>>673
www.atmarkit.co.jp/fdotnet/index/bbs/dir91.html
ヒントが見つかるんでないかな

675 名前:523 [04/08/29 12:35]
>>655
入力候補ってのはどんな奴を指してるかイマイチ解りませんが、
Modifiersプロパティみたいな奴だったら
Public Enum testEnum
t0 = 0
t1
End Enum
<System.ComponentModel.Description("説明です")> _
Public Property test() As testEnum
で、OKと思われる

追伸
誰か、523の回答もお願いします

676 名前:デフォルトの名無しさん mailto:sage [04/08/29 20:09]
>>675
>>523のやつまだやってたのかよ。

ってか>>518で書いてるようにプロパティをReadOnlyにしたらいけたぞ?
ReadOnlyじゃないと、DesignerSerializationVisibility.Contentの指定が生きてない感じ。
というより、コントロールのオブジェクト自体入れ替えられるんだから指定が意味なしってことかな・


677 名前:523 [04/08/29 21:20]
>>676
すみません。完全に見落としてました・・・_| ̄|○
ReadOnlyにしたら出来ました。

678 名前:デフォルトの名無しさん mailto:sage [04/08/30 09:15]
VisualStudio.NET2003と.NET Framework1.1の組み合わせで
使用しています。

TreeviewやListviewを使った標準的な3ペインのアプリケーションを
作っているんですが、起動時に、Treeviewに水平スクロールバーが
表示されます。必要もないのに、です(つまりノードはすべて表示し
切れています)。Treeviewの大きさを変えたりすると、消えてしまいます。
これはバグでしょうか? scrollableプロパティをfalseにすれば表示され
ないんですが、これだと、ノードが表示しきれなくなったときにバーが
出なくなってしまいます。この水平スクロールバーの表示をなくすには
どうしたらよいでしょうか。よろしくお願いします。



679 名前:655 mailto:sage [04/08/30 09:36]
>>675
レス感謝です。
プロパティは確かに実現できました。

>入力候補ってのはどんな奴を指してるかイマイチ解りませんが、
ソースを入力している時にピリオドを打つと出てくる奴のことです。
たとえばShowメソッドだと、
Me.
と打った時に入力候補が出て、Showの説明には、
コントロールをユーザーに対して表示します。
と表示されます。この説明を設定したんです。

680 名前:デフォルトの名無しさん mailto:sage [04/08/30 10:10]
>>679
XML ドキュメント

681 名前:デフォルトの名無しさん mailto:sage [04/08/31 02:28]
>>680
もっとわかりやすく伝わるように努力してくれませんか?

682 名前:デフォルトの名無しさん mailto:sage [04/08/31 02:46]
681 名前: デフォルトの名無しさん [sage] 投稿日: 04/08/31 02:28
>>680
もっとわかりやすく伝わるように努力してくれませんか?


他人に努力を求めるってのもすごいな

683 名前:デフォルトの名無しさん mailto:sage [04/08/31 03:47]
>>681
ぎゃはははは、じゃとっととあきらめろ。
やならドキュメントコメントについて調べろ。

684 名前:デフォルトの名無しさん [04/08/31 09:56]
ここは中途半端な知識の香具師が、エラを張るイソターネッツでつね。

685 名前:デフォルトの名無しさん mailto:sage [04/08/31 12:41]
インターネッツ?
2ちゃんねるだよ ボケ!

686 名前:デフォルトの名無しさん mailto:sage [04/08/31 18:08]
>>683
そんな一言じゃアドバイスになりません。
煽るつもりならレスしないでください。

687 名前:デフォルトの名無しさん [04/08/31 18:54]
夏の終わりに変なのが出てきたな・・・
課題が終わらない大学生か?




688 名前:デフォルトの名無しさん [04/08/31 19:15]
idCode1で絞込みをして、外装コンボボックスに値を出力、次にidCode1とidCode2で
絞込みをして内装コンボボックスに値を出力しようと思っています。

下のように書いて、外装コンボボックスに"excol_name"値は出力できました。次に
この"excol_data"テーブルに存在している"excol_id"の値を"idCode2"に代入したい
のですが、コンボボックスの"excol_name"をフォームから選んだ時に、その行にある
"excol_id"を"idCode2"として得る方法を教えてください。

Private Sub frmMakedata_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim cmd As SqlClient.SqlCommand = SqlConnection1.CreateCommand()
Dim dr As SqlClient.SqlDataReader
Dim idExcol1 As Integer
cmd.Connection = SqlConnection1
SqlConnection1.Open()

'外装コンボボックスの設定

cmd.CommandText = "SELECT * FROM excol_data WHERE car_id =" & idCode1 & ""
dr = cmd.ExecuteReader()
Do While dr.Read = True
cmbExcol.Items.Add(dr("excol_name"))
Loop
dr.Close()

End Sub



689 名前:デフォルトの名無しさん mailto:sage [04/08/31 23:24]
外装とか内装って何よ

好意的に解釈すると
ComboBoxが2個ある
一方に値を設定すると、他方にそれに該当する候補値を入れたいって事か

だったらSelectedIndexChangedかSelectedValueChangedでその変化をひらって
みるとか

できたらもう少し状況がわかるように書いてくれよ
つうか人間にうまく伝えられなかったら、コンピュータにもうまく伝えられないんじゃねぇ

690 名前:688 [04/09/01 00:56]
えーとですね、車の見積を作ってるんです。

んで、外装の色のコンボボックスは、車種でもって、ふるいに掛けられて
内装の色のコンボボックスは、車種と外装の色でもって、ふるいに掛けた
いんです。

で、外装の色コンボボックスは、excol_dataのテーブルに含まれてる車種
のidであるcar_idでふるいに掛けることに成功したんですが、内装の色の
コンボボックスの値を決めようとすると、車種をあらわすidCode1=car_idと、
外装の色を表す、idCode2=excol_idが必要になるんです。

で、外装の色のコンボボックスで、色を選択したときに、このテーブルに含
まれているexcol_idを取得したい・・・というわけなんです。

判りにくくてすいません。

691 名前:デフォルトの名無しさん mailto:sage [04/09/01 01:46]
車のデータベースか・・・
以前どこかで見かけたような・・・
いや、デジャヴだろうな・・・

692 名前:デフォルトの名無しさん mailto:sage [04/09/01 05:32]
>>691
意味ないレスしてんじゃねーよ
おまえはチラシの裏にでもレスしてろ

693 名前:デフォルトの名無しさん [04/09/01 07:53]
オマエモナー

694 名前:デフォルトの名無しさん [04/09/01 07:54]
ここは、役に立たないイソターネッツですね。

695 名前:689 mailto:sage [04/09/01 11:02]
>>688 >>690
Accessとかでやった方がすこぶる簡単だと思われ


696 名前:デフォルトの名無しさん [04/09/01 20:53]
ACCESS以下だと言う事が露呈しました。

697 名前:デフォルトの名無しさん mailto:sage [04/09/02 01:32]
Accessって何?

698 名前:デフォルトの名無しさん mailto:sage [04/09/02 02:40]
TreeViewコントロールのツリー構造をどこかに保存しておき、
アプリケーションを起動したときに、そのツリー構造を正確に
再現するようにしたいんですが、どうしたらいいのか見当つかず
困っています・・・。このツリー構造は、ユーザーがノードを
追加・削除できるもので、プログラマ側が、具体的にどのような
ツリー構造となるかは予想できません。TreeViewコントロールは
いろんなアプリに利用されていて、保存・再現はほとんど必須の
テクニックだと思うのですが・・・。どのように処理するとよいんで
しょうか。



699 名前:デフォルトの名無しさん mailto:sage [04/09/02 10:34]
>>698
検索しろ。過去ログ嫁。

700 名前:デフォルトの名無しさん mailto:sage [04/09/02 17:40]
Webサービスで
<WebMethod()> _
Public Function FX(ByVal X As Integer, ByVal Y As Integer, ByVal Z As Integer) As Integer
Z = X + Y
End Function
というサービスを起動し

クライアントアプリケーション(VB.NET)でZの値を取得しようとしたのですが
値が返ってきません

Webサービスでは引数に戻り地を渡すことは出来ないのでしょうか?

701 名前:デフォルトの名無しさん mailto:sage [04/09/02 19:46]
ByVal Z As Integer じゃなくて
ByRef Z As Integer じゃないのかな

702 名前:デフォルトの名無しさん mailto:sage [04/09/02 21:46]
>>697
Office製品の一部?

703 名前:デフォルトの名無しさん mailto:sage [04/09/02 22:13]
>>700
何がしたい

704 名前:デフォルトの名無しさん mailto:sage [04/09/02 22:23]
>>698
キーワード: シリアライズ

705 名前:デフォルトの名無しさん mailto:sage [04/09/02 22:39]
シリアライズする元ですら作れないと思われ。
っていうか、TreeViewの情報って何を保存しときたいの?
ツリーの構造と状態?名前?その他のデータ?
その情報は誰が(何が)操作、作成するわけ?

706 名前:デフォルトの名無しさん [04/09/02 22:46]
役に立たないから落とせよ、このスレ。
プ

707 名前:デフォルトの名無しさん mailto:sage [04/09/02 22:48]
(σ´∀`)σ)・ω・) >>706

708 名前:デフォルトの名無しさん mailto:sage [04/09/02 23:38]
みんな基本コントロールを継承して軽くカスタマイズして使ってるだろけど、
ネットで公開してるのは少ないな。
TreeViewの構造を読み書きできる継承クラスぐらい落ちてそうなもんなのに。



709 名前:700 mailto:sage [04/09/03 00:25]
おそくなりました

>>701
ByRefにしてみてもダメでした

>>703
サーバ上のとあるユーティリティ(COMコンポーネントで実装)を実行して
検索結果を返すというサービスです
複数の結果を同時に返す必要があるので
引数で返す方法をとりたかったのですが

710 名前:デフォルトの名無しさん mailto:sage [04/09/03 08:54]
>700
Returnしなくていいのか?

711 名前:デフォルトの名無しさん mailto:sage [04/09/03 08:56]
>700
709読んでなかった、710は見逃してくれ。

構造体で返したらだめ?

712 名前:デフォルトの名無しさん [04/09/03 11:18]
めちゃめちゃ基本的な質問ですが。
ポップアップして処理状況を表示したりするときって、どういう処理してます?
MessageBoxと違って、自動で閉じたりしたい場合。

CreateObject("WScript.Shell").Popupだと秒数指定で閉じられるけど、
これだと外部からクローズできるのかな?
でもこんなので遅延バインディングするのもなんか嫌なかんじ。

わざわざ個別にフォーム作るのもめんどくさいんで、
Timeoutプロパティとか表示メッセージのプロパティとかを
くっつけたクラスをさくっと作ろうかと思ったけど、
普通みんなどうしてるんでしょう。


713 名前:デフォルトの名無しさん mailto:sage [04/09/03 12:36]
時間が来たら自律的に死ぬクラスがそんなに悩むようなこととも思えないが。。

714 名前:デフォルトの名無しさん mailto:sage [04/09/03 14:05]
作るのに悩んでるんじゃなくて、
定石を知りたいんじゃないのかな?
自律死はともかく、ポップアップ窓はなんか標準であってもよさそうだし。

715 名前:デフォルトの名無しさん mailto:sage [04/09/03 14:34]
(´-`).。oO( 自演Z

716 名前:700 mailto:sage [04/09/03 15:26]
>>711
本来はクライアントアプリケーションで使うOCXを
Webサービスで使おうとしているので

    r = FX.HOGE(X,Y,Z) <= Zに計算結果、rは成功か失敗か

このようなOCXの場合

    r = FXweb.HOGE(X,Y,Z) <=Web経由で同じ作業をさせたい

のように FXオブジェクト をWeb参照にするだけで、現状のソースを書き換えたかったのです
もともと「IIS(ASP)でも使えます」というOCXだったので
上記のような使い方が出来るものかと思いまして・・・

ただWebサービスの内部はXMLのPOSTのようなので、引数はInputのみなのかもしれません
別の方法が無いか試して見ます



717 名前:デフォルトの名無しさん [04/09/03 17:04]
vb.netで「ペイント」のようなソフトを作りたいんですけど、
良いサンプルありませんか?

718 名前:デフォルトの名無しさん mailto:sage [04/09/03 18:46]
無い



719 名前:デフォルトの名無しさん [04/09/03 19:08]
Dim X As string = (SqlDataAdapter1.SelectCommand.CommandText
= "SELECT name FROM member WHERE member_id = 25")

ってやったら、Xにid25番の人のnameじゃなくて、TrueかFalseが帰ってきちゃうんで
すが、nameを返すにはどうしたらよいでしょうか?

720 名前:デフォルトの名無しさん mailto:sage [04/09/03 19:49]
>>719
Dataset の使い方を一から勉強しなおす。






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

前100 次100 最新50 [ このスレをブックマーク! 携帯に送る ] 2chのread.cgiへ
[+板 最近立ったスレ&熱いスレ一覧 : +板 最近立ったスレ/記者別一覧]( ´∀`)<296KB

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