- 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
- 97 名前:デフォルトの名無しさん [04/10/13 13:19:27]
- フォーム上でmpgファイルはどうやったら再生できますか?
メディア関係には疎いので何もわかりません
- 98 名前:デフォルトの名無しさん mailto:sage [04/10/13 13:24:00]
- VB6.0からVB.NETに移行するのマンドクセー
MSに金払ったらやってくれるのかな?
- 99 名前:デフォルトの名無しさん mailto:sage [04/10/13 13:52:55]
- >>98
MSに金払ったら移行するための勉強をさせてもらう権利が得られますw
- 100 名前:デフォルトの名無しさん mailto:sage [04/10/13 13:55:05]
- >>97
一番手っ取り早いのはメディアプレーヤのコンポーネントを貼り付ける かな?
- 101 名前:デフォルトの名無しさん mailto:sage [04/10/13 14:37:40]
- >>99
5万/Kstep払うから、やらないか?
- 102 名前:デフォルトの名無しさん mailto:sage [04/10/13 20:22:17]
- SelectionMode.MultiSimpleにしたListBoxで、
Itemを複数選択し一度に削除する為以下を実行しましたがエラーになります。 For i = 0 To Me.ListBox.SelectedItems.Count - 1 Me.ListBox.Items.Remove(Me.ListBox.SelectedItems(i)) Next i 上記を Me.ListBox.Items.Remove(Me.ListBox.SelectedItems(i)) だけにすると、1番上のItemは削除されるのですが、 Forで連続して削除することは出来ないのでしょうか。 宜しくお願いします。
- 103 名前:デフォルトの名無しさん [04/10/13 20:39:17]
- >>102
んーなもんiは単なるインデックスであってIDじゃないからでしょ。 例えば10コのアイテムから5コ削除完了してi=5になった時点で Me.ListBox.SelectedItems(i)なんて存在しないじゃん。 解決法としては、例えばFor Eachつかえばいいんじゃないの?
- 104 名前:デフォルトの名無しさん mailto:sage [04/10/13 21:18:41]
- >>103
たしかにSelectedItems(i)では、消したItemによっておかしくなりますね。 だるま落としの容量で、SelectedItems(0)にしたところうまく動きました。 For i = 0 To Me.ListBox.SelectedItems.Count - 1 Me.ListBox.Items.Remove(Me.ListBox.SelectedItems(0)) Next i ありがとうございました。
- 105 名前:デフォルトの名無しさん [04/10/13 22:10:07]
- リッチテキストコントロールの内容をそのまま
printDocument使って印刷する方法を教えてください。 漠然と簡単にできると思ってたら、意外にこの2つを結ぶ線が見つからないんです。
- 106 名前:デフォルトの名無しさん mailto:sage(TAT) [04/10/13 22:57:56]
- 今日VB.NET買ってきました。
FrameWorkって何なんですか? .NETで作ったプログラムが他のPCで動きません。 色々調べた結果FrameWorkに関係あるような気がしました。 どなたかこのプログラミング好きな素人めに救いの手を・・・
- 107 名前:デフォルトの名無しさん [04/10/13 23:20:17]
- >>106
何のつもりか知らんが全然面白くないよ。 ナンセンスギャグ?もう80年代じゃないんだけど。
- 108 名前:デフォルトの名無しさん [04/10/13 23:48:00]
- >>107
よくわかりませんがここは初心者は来てはいけないわけですね。 わかりました。 もっと貴方にとって有意義な質問ができるようになったらまた来ます。 (´・ω・`)でもせめてどうやったら他のPCで動くか教えて欲しかったな・・・
- 109 名前:デフォルトの名無しさん [04/10/13 23:59:23]
- 107はこのスレに粘着しているC++厨だから気にするな
- 110 名前:デフォルトの名無しさん [04/10/14 00:06:27]
- >>108
初心者がいかんのではなくて、「初心者です」を楯に調べられることも 調べない人が嫌われるのです。 そして、その嫌う様をおもしろがって、誰でも知ってるような調べれば すぐわかるようなことを、わざと質問する人がいます。 そういう人だと思われたわけです。
- 111 名前:デフォルトの名無しさん [04/10/14 02:11:13]
- なにを偉そうに
- 112 名前:デフォルトの名無しさん mailto:sage [04/10/14 02:26:40]
- >>106 もう来ないかもしれないが念のため核心だけ
VB 6で作成したプログラムを実行するにはVB 6のランタイムDLLが必要であったが、VB.NETで作成したプログラムを実行するには、.NET Frameworkランタイムが必要である
- 113 名前:デフォルトの名無しさん mailto:sage [04/10/14 02:56:06]
- いろいろ試してみれば、ここで不愉快になることもないよ、2chに来る奴バカしかいない
- 114 名前:デフォルトの名無しさん mailto:sage [04/10/14 03:02:52]
- VB.NETも移植したいな、マークに
- 115 名前:デフォルトの名無しさん mailto:sage [04/10/14 08:17:01]
- 「初心者です」を免罪符のようにして調べずに質問するからな
プログラム初めてなのに本一冊も読まないでどうやってプログラム書いてるのかと
- 116 名前:デフォルトの名無しさん mailto:sage [04/10/14 09:20:49]
- >>106
君の書いたソースを見てみたいYO!
- 117 名前:デフォルトの名無しさん mailto:sage [04/10/14 13:48:35]
- >>113
やーいバカ
- 118 名前:デフォルトの名無しさん [04/10/14 14:36:16]
- VB.NETで表データを表示したいのですが、
FlexGrid か DataGrid のどちらを使用したらいいか 迷っています。 表の仕様は、 行列数は固定、プログラムからの表示のみでキー入力不可、 マウスクリックされた表内の行・列番号をプログラムで取り込む機能が必要、 セルの色はプログラムにより変更可 と言った感じです。 FlexGridでもDataGridでも可能なんでしょうが、 どちらがより適切なんでしょうか? よろしくお願いします
- 119 名前:デフォルトの名無しさん mailto:sage [04/10/14 15:03:23]
- クリックしたところを拾うのはどちらでもほぼ同じ動作で出来ると思う
セルの色を任意に変えたいのだったらFlexGridのほうが楽 DataGridだとオーナードロー使っていちいち変えてやる必要がある
- 120 名前:デフォルトの名無しさん [04/10/14 19:43:52]
- WebBrowserで開いた新しいウィンドウを
タブに追加するにはどうすれば良いのですか? タブブラウザみたいなやつです。
- 121 名前:デフォルトの名無しさん [04/10/14 19:45:06]
- WebBrowserで出てきた新しいウィンドウを
タブに追加するにはどうすれば良いのですか? タブブラウザみたいなのです。
- 122 名前:デフォルトの名無しさん [04/10/14 19:45:56]
- すまない。ミスった。
-100で書き込んでて、書き込まれて無いと思った。m(__)m
- 123 名前:デフォルトの名無しさん [04/10/14 20:19:46]
- だいぶ前に、IEコンポーネントブラウザのスレがあったけど、どこいったの?
- 124 名前:デフォルトの名無しさん mailto:sage [04/10/14 20:41:11]
- 学校の宿題でてんぱってます・・・
誰か助けてください 問題 掛け算の99を表示させなさい どうかお願いします
- 125 名前:デフォルトの名無しさん mailto:sage [04/10/14 20:51:50]
- >>124
C#だけどテキトーに。 for(int count = 1; count <= 99; count++) { for(int count2 = 1; count2 <= 99; count2++) { Console.WriteLine(count.ToString() + " "+"+"+" "+count2.ToString()+" "+"="+ " "+ (count*count2).ToString()); } }
- 126 名前:デフォルトの名無しさん mailto:sage [04/10/14 20:53:06]
- 間違った。99じゃなくて9999になってた。しかも*を+にしてた。
for(int count = 1; count <= 9; count++) { for(int count2 = 1; count2 <= 9; count2++) { Console.WriteLine(count.ToString() + " "+"*"+" "+count2.ToString()+" "+"="+ " "+ (count*count2).ToString()); } }
- 127 名前:デフォルトの名無しさん mailto:sage [04/10/14 21:04:40]
- >>125-126
ありがとうございます 宿題Visual Basicなんです これをVBでやるとどうなるんでしょう たびたびすいません
- 128 名前:デフォルトの名無しさん [04/10/14 21:47:11]
- >>123
どこか、作り方とか説明してるサイトありませんかね?
- 129 名前:最凶VB厨房 mailto:sage [04/10/14 21:52:49]
- www.gotdotnet.com/japan/student/column/firststep/
- 130 名前:デフォルトの名無しさん mailto:sage [04/10/14 22:03:46]
- ここは救いようのない初心者が集まるスレですね
- 131 名前:デフォルトの名無しさん [04/10/14 22:29:16]
- >>129
VBのソースは・・・
- 132 名前:デフォルトの名無しさん [04/10/14 22:29:51]
- 空気読めない独りよがりのネタを指摘された奴が逆ギレしてやってるんだったりして(w
- 133 名前:デフォルトの名無しさん [04/10/14 23:29:31]
- 宿題聞いている輩は本気なのか?
この程度のことが思いつかないようでは、授業を受けている意味がないような・・・
- 134 名前:デフォルトの名無しさん mailto:sage [04/10/14 23:35:56]
- 文系大学で単位とるための選択口座・・・
OTL おながいします
- 135 名前:デフォルトの名無しさん mailto:sage [04/10/14 23:59:52]
- 文法がわからないのかプログラムの流れが思いつかないのか
- 136 名前:デフォルトの名無しさん [04/10/15 00:06:44]
- >>134
来年もガンバレ
- 137 名前:デフォルトの名無しさん [04/10/15 00:10:11]
- 文系にプログラミングの単位なんてあるの?
電算室ある理系の大学でないと無理な気がするんだけど。
- 138 名前:デフォルトの名無しさん mailto:sage [04/10/15 00:12:24]
- 俺の学生の頃は工学部でもUNIXの授業しかなかった・・・
10年くらい前か
- 139 名前:デフォルトの名無しさん mailto:sage [04/10/15 00:14:39]
- >>136
やってみました 添削お願いします Dim i, j As Integer For i = 1 To 9 For j = 1 To 9 Console.Write(i * j) Next Console.WriteLine() Next Console.Read() >>137 あるんです・・・
- 140 名前:デフォルトの名無しさん mailto:sage [04/10/15 00:30:48]
- サーバー監視ソフトを作りたいのですが、
スクリーンショットを保存する方法を教えてください。。
- 141 名前:デフォルトの名無しさん mailto:sage [04/10/15 00:36:27]
- 「Print Screen」キーを押す
「ペイント」を開いて「クリップボードから貼り付け」 「ファイル名を指定して保存」
- 142 名前:デフォルトの名無しさん mailto:sage [04/10/15 00:43:08]
- 言語でって意味だとおもう
- 143 名前:デフォルトの名無しさん mailto:sage [04/10/15 01:23:06]
- わかってやってんだと思う
- 144 名前:デフォルトの名無しさん [04/10/15 02:03:35]
- なんでスクリーンショットがいるのかワカラン。
- 145 名前:デフォルトの名無しさん mailto:sage [04/10/15 06:45:46]
- mshtml.HTMLDocumentをAxWebBrowser使わないで単独で使いたいんだけどできるかな?
- 146 名前:デフォルトの名無しさん [04/10/15 12:43:09]
- >>140
( ・∀)人(∀・ )通報しますた!
- 147 名前:デフォルトの名無しさん mailto:sage [04/10/15 21:50:38]
- >>140
検索しまくればなんとかなるレベルだと思うんだが
- 148 名前:デフォルトの名無しさん [04/10/15 22:31:23]
- 宿題厨まだー?
- 149 名前:139 mailto:sage [04/10/16 19:59:38]
- スルーされた
OTL
- 150 名前:デフォルトの名無しさん mailto:sage [04/10/16 20:12:15]
- >>139
これだと掛け算の結果が羅列されるだけで不十分だと思う
- 151 名前:139 mailto:sage [04/10/16 20:26:35]
- >>150
結果が出ればいいってことだったんで・・・ どの辺り直せばいいでしょうか?
- 152 名前:デフォルトの名無しさん mailto:sage [04/10/16 20:50:42]
- そんな宿題をVBで課す意味がわからん
CでやれCで
- 153 名前:デフォルトの名無しさん mailto:sage [04/10/16 21:16:05]
- 式を表示するだけだが、連結演算子を使って
Console.Write(i & "×" & j & "=" & i * j)
- 154 名前:139 mailto:sage [04/10/16 21:35:16]
- >>152
教授に言ってくれ・・・ >>153 これをformat使って 綺麗にしたいのですがどうすればいいでしょうか?
- 155 名前:デフォルトの名無しさん mailto:sage [04/10/17 00:51:03]
- 宿題を人にやらせるのか
- 156 名前:デフォルトの名無しさん mailto:sage [04/10/17 01:30:57]
- てきとうに見た目がよくなるボタンコントロールって無いかしら.
- 157 名前:デフォルトの名無しさん [04/10/17 06:23:36]
- すいません、ASP.NETって、HTMLのフォームではなくて、.NETのWEBフォームを使用してページ間でデータを共有する方法って、セッションを使うしかないんですね。
もしそうなら、PHPでHTMLのフォームを使っていたのと比べると、隔世の感がありますね。 いかがでしょうか? ご教授願います。
- 158 名前:デフォルトの名無しさん mailto:sage [04/10/17 07:36:53]
- WebClientクラスを使ってHTMLデータをダウンロードしようとしているのですが、
EUCで書かれたページがうまくダウンロードできません。 StreamReaderを作る際に New StreamReader(wc.OpenRead("www.asahi.com"), Encoding.GetEncoding("euc-jp")) こんな感じで書いているのですが、日本語の一部(8割方ちゃんと読める)が 文字化けした状態になってしまいます。 正しく変換するにはどのように書いたらよいのでしょうか。
- 159 名前:デフォルトの名無しさん mailto:sage [04/10/17 10:23:28]
- 群を抜いてレベルの低いスレだな、ここは。
- 160 名前:デフォルトの名無しさん mailto:sage [04/10/17 12:05:04]
- >158
すまん。自己解決。犯人は秀丸だった。
- 161 名前:デフォルトの名無しさん mailto:sage [04/10/17 13:13:59]
- >>159
足を入れたとたんに低レベルですよ
- 162 名前:デフォルトの名無しさん [04/10/18 03:51:53]
- .netで、XML WEB サービスを作っています。
WebMethodで、引数を与えて、引数から計算をして戻り値を返すという関数を作ったのですが、 WebMethod名に引数を与えたURLを入力すると、 「'/WebServiceSoap' アプリケーションでサーバー エラーが発生しました。 要求形式が認識されません。 」 と出てきてしまいます。 WebMethod名だけを指定したURLにすると、テスト画面になってしまいます。 なぜ、直接、レスポンスがないのでしょうか?
- 163 名前:デフォルトの名無しさん mailto:sage [04/10/18 10:23:50]
- >>162
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
- 164 名前:デフォルトの名無しさん mailto:sage [04/10/18 11:33:12]
- 漫才見てるようで面白いスレだ
- 165 名前:デフォルトの名無しさん [04/10/18 12:11:21]
- データーを作った後、帳票印刷にエクセルを使おうとして、下のように組んでみました。
印刷するところまでは上手く言ったのですが、閉じようとするとエクセル側に”変更を 保存してもいい?”って聞かれてしまいます。このメッセージを無視して、エクセルを 閉じてしまうにはどうしたらよいのでしょうか?
- 166 名前:デフォルトの名無しさん [04/10/18 12:12:01]
- Try
Dim 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()
- 167 名前:デフォルトの名無しさん [04/10/18 12:12:22]
- ExcelSheet = Nothing
ExcelBook = Nothing ExcelApp = Nothing Catch ex As Exception MessageBox.Show("印刷処理に失敗しました、暫くしてから再度ボタンを押してください") ExcelApp.Quit() ExcelSheet = Nothing ExcelBook = Nothing ExcelApp = Nothing End Try
- 168 名前:デフォルトの名無しさん mailto:sage [04/10/18 13:37:03]
- Quitの前にDisplayAlertsをFalseにしる
- 169 名前:165 mailto:sage [04/10/18 13:48:03]
- できますた。ありがとうママン。
- 170 名前:デフォルトの名無しさん [04/10/18 14:50:41]
- フォームの表示に関しての質問です。
Sub Form_Load() Handles MyBase.Load '処理A(5分程度時間がかかる) End Sub この時、処理Aが終了するまで、フォームが表示されません。 処理Aの前にMybase.Showを実行すると、 ウィンド枠と、メニューは表示されるのですが、ボタンやテキストボックスが 白く表示されてしまいます。(処理Aが終了したら正しく表示される) 処理Aの間も正常に表示させるにはどうしたらいいのか教えてください。 お願いします。
- 171 名前:デフォルトの名無しさん [04/10/18 14:51:32]
- すみませぬ、スレ違いなんだけど、ココくらいしか聞けそうなところないようなんで。
VB.NET ではなく、C#を利用してasp書いてるんですが、 質問はどこでしたらいいんでしょう?それともそんなスレない?
- 172 名前:デフォルトの名無しさん mailto:sage [04/10/18 17:44:43]
- 処理中にウインドウを操作されても良いならば、
ループの中でApplication.DoEventsを呼べばいいかと。
- 173 名前:デフォルトの名無しさん mailto:sage [04/10/18 18:59:21]
- >>171
WebProg板 pc5.2ch.net/test/read.cgi/php/1040698263/l50
- 174 名前:170 [04/10/18 20:55:52]
- >>172
ありがとうございます。 ただ、処理A(Function のコール)は 外部から提供されている部分で、できれば手を加えたくありません。 他にもなにか方法があればお願いします。
- 175 名前:デフォルトの名無しさん mailto:sage [04/10/18 21:15:52]
- >>170
そもそもLoadイベントでなにか処理をするなんて根本から間違い。 別のタイミング(たとえばActivatedイベントなどで)行うべき。 さらに、そんな重い処理なら別スレッドで実行するようにするべき。 >>172には悪いが、DoEventsなんて下策中の下策。 というか、>>170の問題はDoEventsでは恐らく解決しないだろう。
- 176 名前:デフォルトの名無しさん mailto:sage [04/10/18 21:57:26]
- 質問です。
Dim Class1 As ClassName ... Class1 = New ClassName(0) ...しばらくClass1を使う Class1 = New ClassName(1) こんなことしてもVBさんは勝手にお掃除してくれるのでしょうか?
- 177 名前:デフォルトの名無しさん [04/10/18 22:06:37]
- しばらくしたら掃除してくれる
- 178 名前:176 mailto:sage [04/10/18 23:54:05]
- >>177
ありがとうございました。
- 179 名前:デフォルトの名無しさん mailto:sage [04/10/19 01:46:45]
- その、GCの仕組みってどうなってるのかなぁ
- 180 名前:デフォルトの名無しさん mailto:sage [04/10/19 01:50:42]
- ガベージをコレクトするのだよ。
- 181 名前:デフォルトの名無しさん mailto:sage [04/10/19 01:58:07]
- できる!VisualStudio.NETには
参照が解除された後に適当な時期に破棄される とある
- 182 名前:170 mailto:sage [04/10/19 10:29:39]
- >>175
ありがとうございました。 別スレッドで実行できる事を知りませんでした。 (Activated はFocusが移る度に実行されてしまうので向いていませんでした)
- 183 名前:デフォルトの名無しさん [04/10/19 15:00:46]
- スクロールバー付きのテキストボックスで
キーボードからの入力は不可、表示はプログラムからのみ。 この時、テキストボックスの大きさより表示行が増えた時に、 一番下の行を常に表示したいのですが、 どういう設定をしたらいいのか教えてください。 現状は、行数が増えても同じ場所を表示してしまいます。 お願いします。
- 184 名前:デフォルトの名無しさん mailto:sage [04/10/19 16:01:33]
- >>183
テキストの入力位置をSelectメソッドで一番最後に指定して、 ScrollToCaretメソッドでその位置を表示させる 具体的にソースを書けば、以下のような感じ MyTextBox.Select(MyTextBox.Text.Length, 0) MyTextBox.ScrollToCaret()
- 185 名前:デフォルトの名無しさん mailto:sage [04/10/19 16:54:03]
- 久々に回答らしい回答を見た希ガス
- 186 名前:183 mailto:sage [04/10/19 17:07:42]
- >>184
ありがとうございます。 早速試してみます。
- 187 名前:デフォルトの名無しさん mailto:sage [04/10/19 18:11:22]
- っていうか久しぶりにVB.NETの問題を見たから答えただけだけどね
- 188 名前:デフォルトの名無しさん [04/10/19 20:13:04]
- 引数の数を可変にする方法があったら教えてください。
Function x(a As String,b As String,c As String,d As String) という感じのファンクションを呼び出す時に、 ある部分からは、aのみ設定して ある部分からは、a,b,c,を設定する という様な処理をしたいのですが。 よろしくお願いします。
- 189 名前:デフォルトの名無しさん mailto:sage [04/10/19 20:17:31]
- >>188
Overloads Optionalってキーワードもあるが、これは旧VBの負の遺産だから 使わないほうがいいと思う。
- 190 名前:デフォルトの名無しさん [04/10/19 23:56:34]
- すいません、ASP.NETを使えるレンタルサーバーを借りたのですが、使用時の心得に、
「共有サーバーとしてのデバッグ知識のない方はASPは絶対に利用しないでください! ローカルテストと共有サーバーは環境が全く違います」 という内容がありました。 これは、VisualSTudio.netのデバッガと、@pageやTrace.write()の相違のことを言っているのでしょうか?
- 191 名前:デフォルトの名無しさん [04/10/20 00:24:13]
- せめてそのレンタルサーバのアドレスぐらい書いてくれれば・・・
- 192 名前:デフォルトの名無しさん mailto:sage [04/10/20 00:31:05]
- >191
190の2行目そのまま、ぐぐるとヒットするようね。
- 193 名前:デフォルトの名無しさん [04/10/20 00:42:48]
- 190です。
すいません,上記内容はメールで送られてきたものです。 ASPの使用心得は、以上のみでした。 常識的には、VisualSTudio.netのデバッガと、@pageやTrace.write()の相違ということでいいのでしょうか?
- 194 名前:デフォルトの名無しさん mailto:sage [04/10/20 07:09:10]
- 要するに>190はASP使うなってことでしょ。
わかってないんだから。
- 195 名前:188 mailto:sage [04/10/20 08:32:22]
- >>189
ありがとうございます
- 196 名前:デフォルトの名無しさん [04/10/21 00:27:49]
- VB.netって、コントロール配列のやり方が、VB6.0と違いますよね。
VB6.0では、コピーアンドペーストでできたけど・・・ みなさんは、どうやってコントロール配列を作っていますか? 俺が見つけた方法は、どれもコードが汚くなる。 コードがきれいになる方法をご存知ないでしょうか
- 197 名前:デフォルトの名無しさん mailto:sage [04/10/21 00:55:08]
- >>196
質問は明確に。 どうやってもこうやっても、ないものは作りようがない。 つまりまったく同じ機能を享受したい、というわけにはいかない。 それはわかってるんでしょ? だったらなぜ、コントロール配列のこの機能と同じことができないか? という風に質問しないの?
|

|