【老若】VB.net質問ｽﾚ【男女】 (Part3)
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNGまで自由に書き込んでﾁｮ。
過去スレ
【老若】VB.net質問ｽﾚ【男女】 (Part2)
http://pc2.2ch.net/test/read.cgi/tech/1043629429/
【老若】VB.net質問ｽﾚ【男女】
http://pc2.2ch.net/tech/kako/1025/10258/1025848458.html
テンプレ >>2-10 あたり
0002デフォルトの名無しさん
NGNGhttp://dobon.net/vb/
http://dobon.net/vb/dotnet/index.html
Microsoftクイック スタート チュートリアル
http://ja.gotdotnet.com/quickstart/default.aspx
リソースセンター> .NET関連リンク
http://www.atmarkit.co.jp/fwin2k/rescenter/indexpage/net.html
Insider.NET
http://www.atmarkit.co.jp/fdotnet/index.html
＠IT： 連載 VB.NETプログラミング
http://www.atmarkit.co.jp/fdotnet/vb6tonet/index/index.html
＠IT：連載 改訂版 C#入門
http://www.atmarkit.co.jp/fdotnet/csharp_abc2/index/index.html
C#プログラミングTips
http://www.atmarkit.co.jp/fdotnet/csharptips/index/csharptips_index.html
0003デフォルトの名無しさん
NGNG遅いんだよｳﾞｫｹ
0004デフォルトの名無しさん
NGNGhttp://ukamen.hp.infoseek.co.jp/
VB.NETとC#でデザインパターン
http://hccweb1.bai.ne.jp/tsune-1/
ConvertCSharp2VB
http://www.kamalpatel.net/ConvertCSharp2VB.aspx
WisdomSoft ～Developers Network～
http://black.sakura.ne.jp/~third/
CodeProject
http://www.codeproject.com/vb/net/
the GotDotNet Home Page
http://www.gotdotnet.com/
KEN's .NET
http://www5b.biglobe.ne.jp/~yone-ken/VBNET/index.html
ソース置き場.NET
http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/readres.cgi?bo=lounge&vi=1003826049
Cetus Links: 19,498 Links on Objects and Components / .NET
http://www.cetus-links.org/oo_dotnet.html
0005デフォルトの名無しさん
NGNGVisualStudio.NET(MSDN Deluxe) Part10
http://pc2.2ch.net/test/read.cgi/tech/1053500463/
くだすれＣ＃(Part3)
http://pc2.2ch.net/test/read.cgi/tech/1047210828/
C♯相談室 Part10
http://pc2.2ch.net/test/read.cgi/tech/1051842450/
managed C++ やろうぜ！！
http://pc2.2ch.net/test/read.cgi/tech/1014486422/
フリーの.NET統合開発環境「SharpDevelop」
http://pc2.2ch.net/test/read.cgi/tech/1023727377/
消しゴムじゃない方のMONOを使ってみるスレ
http://pc2.2ch.net/test/read.cgi/tech/1020215602/
♯♯♯Shared Source CLI ♯♯♯
http://pc2.2ch.net/test/read.cgi/tech/1024222901/
v（･∀-）b VBプログラマ質問スレ(6.0以前) Part26
http://pc2.2ch.net/test/read.cgi/tech/1055145106/
0006デフォルトの名無しさん
NGNG氏ね
0007デフォルトの名無しさん
NGNG結局C#神が残ってるんだ・・・。
0008デフォルトの名無しさん
NGNGctrl = Form1.Controls("hogeButton")
でコントロールが取得できたんだが
.NETではインデックスを使えと書いてある
どうしても明示的に名前を指定したい場合ってどうすればいいんでしょうか･･･？
0009デフォルトの名無しさん
NGNG都の性欲 flash 爆笑！！！！
http://waseda_goookan.tripod.com/
今回の早稲田大学集団レイプ事件のまとめ
み～や～こ～のせ～い～っよっ～く～
わ～れ～ら～の～暴～行～～♪
http://news2.2ch.net/test/read.cgi/newsplus/1056426061/l50
数え切れないほど被害者がいるらしいが泣き寝入りしてしまったらしい
詳しくは本日発売の「ＦＬＡＳＨ」を参照。
http://www.kobunsha.com/CGI/magazine/hyoji.cgi?sw=index&id=007&date=20030624
0010デフォルトの名無しさん
NGNGhttp://msdn.microsoft.com/library/default.asp?url=/library/en-us/odc_vsto2003_ta/html/VBAConvert.asp
0011デフォルトの名無しさん
NGNG0012デフォルトの名無しさん
NGNGShift-JISで書かれたファイルを変数に読み込んで一連の処理を
済ませたあとで、コードをUTF-8に変換したいのですが、方法が
わからずに苦慮しています。
VB6ではStrConv関数から処理することが出来たと聞きますが、
VB.net環境ではサポートしていないようです。
このような場合、どのように処理したら良いのでしょうか。
ぜひともご教授のほどお願いします。
001312
NGNGどうもお騒がせいたしました。
0014デフォルトの名無しさん
NGNGvb2002では駄目？
001516930
NGNG18禁ふりま http://www.freepe.com/ii.cgi?furima0323
0016デフォルトの名無しさん
NGNG業務系システムでＵＩの見栄えを整えるために自動的にテキストＢＯＸ
やＬａｂｅｌなどのコントロールをＷｉｎｄｏｗの中央に揃えるようにしたいの
ですが、無理やりＣｅｎｔｅｒタグを使うとバグったりします。Windowの横幅
を表すプロパティがどこにあるのかも良くわかりません。（－＿－）
どうしたら一番良いでしょうか？
0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNG普通に使えるとおもふ。
0019デフォルトの名無しさん
NGNGまじで？SDKのことだけど使えますか？
0020デフォルトの名無しさん
NGNGなんか、connectionオブジェクトがtransactionを返してくれません。
っていうか、インテリセンスでcn.ってやってもGetTypeしか出てきません。
なぜでしょう？
0021デフォルトの名無しさん
NGNGプロジェクトを１つで組んでいるシステムなのですが
複数人数で開発を行う場合は、１人が触っていた場合
他の人は、他の部分を触る為だけに待ち状態になるのでしょうか？
大もととなるプロジェクトが存在するＰＣとは別に、個々のＰＣにも
ＶＢ．ＮＥＴを入れて、大もとからプロジェクトをコピーして
自らが触る担当分のみを更新し、自らのプロジェクトのフォルダに有る
「～.vb」等のファイルをファイルコピーで大もとへコピーする方法等で
可能になりますでしょうか？
他に何か良い開発方法が有りましたらお教え頂ければ幸いです。
0022デフォルトの名無しさん
NGNG0023デフォルトの名無しさん
NGNGVB.NETに同封されてくるのだろうか。
それとも、
.NET Frameworkに入っているのだろうか？
0024デフォルトの名無しさん
NGNGソース分割したら？
0025デフォルトの名無しさん
NGNGていうかマルチかよ。恥を知れ。マルチの先のスレも基地外スレだし。
0026デフォルトの名無しさん
NGNGForm1.Text = "アプリ名"
End Sub
どこがまちがってるのだろうか。
0027デフォルトの名無しさん
NGNGMe.Text = "(ﾟДﾟ)ﾊｧ?"
002826
NGNGおかげさまでできました。
Form1.Text
がエラーなんてびっくり。
ありゃ？
ところでForm1からForm2のキャプションを変えたいときは困っちゃうよねん？
Form2.Textという書き方ができないとなると？
0029デフォルトの名無しさん
NGNGこのForm1やForm2はクラスの名前で実体化されていない。
Dim frm as New Form2
とすることで、Form2が実体化され、
後は、frm に対して操作をすればよい。
0031デフォルトの名無しさん
NGNG旧VBの暗黙オブジェクトは百害あって一利なし。
オブジェクトのカプセル化についても勉強しとけ。
0033デフォルトの名無しさん
NGNGSourceSafe使え
003421
NGNG先行開発をした他会社が、仕様に反してプロジェクトを１つで作成したのが
昨日発覚し、焦ってマルチポスト状態になりました。申し訳有りません。
ＶＳＳを導入する方向で進み始めました。
ライセンスを追加購入する前に使い物になるか試そうと思います。
0035初老53
NGNGAccessのグラフの多いレポートを表示したいのですが。
http://weg.infoseek.livedoor.com/03takara.pdf
よろしくお願いします。
0036初老53
NGNG東大の図書館は一般人貸し出し可？
0037初老53
NGNG閲覧のみ可（往復はがきで申し込むんだそうな）
１０分ほど見学して、本郷の本屋のぞいたが、
ＶＢ.ＮＥＴでデータベース実践 くらいで
ＬＡＯＸまでいったがなにもなし。
ＶＢ.ＮＥＴにレポート機能があるみたいなのでやってみよう。
0038デフォルトの名無しさん
NGNGVB.netは、従来通りのWindowsアプリとして使っている漏れは正解ですか？
0039デフォルトの名無しさん
NGNGDTE.ActiveDocument.Selection.Cut()
DTE.ActiveDocument.Selection.Text = "' Change "
DTE.ActiveDocument.Selection.Paste()
これで実行すると、
a = b
という行を
' Change a = b
のようにできると思いますが、複数の行には対応できません。
何か良い方法、代替方法等はないでしょうか？
004039
NGNG3行のコメントアウトを100箇所にするとなると面倒です。
これを何とかしたいのです。よろしくお願い致します。
0041デフォルトの名無しさん
NGNG0042デフォルトの名無しさん
NGNGバックグラウンドのアプリとして、定周期で処理を行うのもを作りたいのです。
そのためフォームにタイマーを貼り、タイマーの中で処理を書いていますが、そのフォームを表示したくないのです。
Sub Mainで各種初期化処理をしてから、フォームをロード(ShowDialog)しています。
なのでどうやってもフォームが表示されてしまいます。
VB5のころは、フォームをロードするだけでタイマーが有効になっていましたので
こういった作りをしてしまいました。
なにか良いお知恵をお貸しください。
0043デフォルトの名無しさん
NGNG0044デフォルトの名無しさん
NGNGVB6.0を使っているのですが、データからエクセルと連動させ、
DBコンボボックスを使ってプルダウン選択で
情報を読み込みたいのですが、そういった場合の
コマンドボタンのコードは何を使えばよいのでしょうか？
教えて下さい。
0045デフォルトの名無しさん
NGNGスクロールバーを表示させた場合なんですが、
LargeChange・SmallChangeに相当する値を
変更したいのですが、どうしたらできますか？
0046デフォルトの名無しさん
NGNG出るのですが、これはどこが間違っているのでしょうか？
0047デフォルトの名無しさん
NGNG0048デフォルトの名無しさん
NGNG0049デフォルトの名無しさん
NGNGprinterオブジェクトで背景色を設定するのはどうするんでしょう。
0050デフォルトの名無しさん
NGNG絵の具買って来い！
0051デフォルトの名無しさん
NGNGお願いします。
教えて下さい。
0052デフォルトの名無しさん
NGNG何を聞きたいのか教えてください。お願いします。
0053デフォルトの名無しさん
NGNGレコードを呼び出すコードと
レコードを削除するコード、
情報をレコードに保存するコードが
判りません。
すいませんが教えて下さい。
0054デフォルトの名無しさん
NGNGVB6.0なのかVB.netなのか。
コンボボックスに表示するのは、XLSの内容なのか固定なのか。
なぜリストボックスでなく、コンボボックスなのか。
コンボボックスを選択し、ボタンを押すと、どこにXLSの内容が表示されるのか。
0055デフォルトの名無しさん
NGNGﾜﾛﾀ
0056デフォルトの名無しさん
NGNGVB6.0です。
住所録をビジュアルベーシックで
作ってます。
住所や電話番号等がそれぞれの
テキストに反映されるものを作りたいのです。
DBコンボボックスを使っています。
課題なのでフォームはある程度酷似しているもので
なければならないので、コンボボックスを使いました。
よろしくお願いします。
0057デフォルトの名無しさん
NGNGVB6.0なら、こっちへ移動して。
http://pc2.2ch.net/test/read.cgi/tech/1055145106/l50
まだ画面イメージが分からん、コンボボックスには何を入れるの?
県名とか男女とかか?
0058デフォルトの名無しさん
NGNGコンボボックスには人の名前を
反映させて、名前から住所や
電話番号等の個人情報を開くという
プログラムを作りたいのですが。
0059デフォルトの名無しさん
NGNG付け加えます。
実は、MSDNが入ってないのです。
ですから、初歩的な質問だと思われるかも
しれませんが、よろしくお願いします。
0060デフォルトの名無しさん
NGNGきたのですがそのへんはどうですか？
「項目の追加」に「Windowsサービス」ってのがある
0062デフォルトの名無しさん
NGNGそのプロジェクトを展開しようとするとエラーが出て開きません。
何か注意する点がありましたらよろしくお願いします。
0063デフォルトの名無しさん
NGNG・ご質問、という言い方に注意しましょう。
・エラーが出る、ではなく、エラーの内容まで書きましょう。
0064デフォルトの名無しさん
NGNG・・・
・・
'長いselect処理
Select case A
case 1
e.Graphics.DrawLine(DrowLinePen, x1, y1, x2, y2)
・・・
・・
end select
end sub
処理が長くてソース見難いので、サブルーチン使って分けたいんですが
普通にサブルーチン使うと、各宣言は継承されずエラーになる。
宣言を継承してサブルーチンように別の場所にソースを記述する
って方法何かありませんかね？
0065デフォルトの名無しさん
NGNGsub a (ByVal e As System.Drawing.Printing.PrintPageEventArgs)
・・・
・・
・
end sub
0066デフォルトの名無しさん
NGNG大変失礼しました。
エラー内容は
「開こうとしているプログラムはWebプロジェクトです。
URLパスを指定してプロジェクトを開いてください。」
になります。
0067デフォルトの名無しさん
NGNG探しても探しても6.0のソースだけ、
ベクター行ったらシェアウェアかよ！！
0068デフォルトの名無しさん
NGNGhttp://support.microsoft.com/default.aspx?scid=kb;EN-US;811004
SHBrowseForFolderをInteropしたパーツが欲しいなら本家にあるよ。
0069デフォルトの名無しさん
NGNGのですが、
textbox1.text = ""
textbox2.text = ""
：
：
textbox10.text = ""
これをfor～next(もしかしたらfor each ～ inなのかな）で処理するには
どう書いたらよいのでしょうか。ご教授お願いします。
0070デフォルトの名無しさん
NGNGFor Each myText In Formなんたら
myText .text = ""
Next
すべてクリアするのがいやなら、ArrayListなりHashtableなり
ラップしたクラス作れ。
0071デフォルトの名無しさん
NGNG質問１
Private WithEvents childForm = Form2
Me.childForm = new Form2()
と打つと、Form2の後ろの括弧「( )」が消えてしまいます。
消えても特に問題ないようなのですが、なるべく参考書のとおりにコーディングしたいのです。
どうすればよいでしょうか？
質問２
Me.childForm.mdiParent = Me
Me.show()
で、子フォームが表示されますが、
子フォームをドラッグして動かすと再描画がされません。
親フォームのエッジに子フォームが被ると子フォームが表示されます。
これを通常のMDIアプリのようにするにはどうすれば良いでしょうか？
よろしくお願いいたします。
0072デフォルトの名無しさん
NGNGありがとうございます。
早速やってみたいと思います。ペコリ
0073山崎 渉
NGNG__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
0074デフォルトの名無しさん
NGNGVB6の
PopupMenu FileMenu 'ファイル(&F)メニューを表示
は、.NETではどのようにすればできますかね？
0075デフォルトの名無しさん
NGNGWindowsコントロールライブラリということですが、.NETで
作成したWindowsコントロールライブラリを、VB6で使用する方法は
あるのでしょうか？
こういうことがやりたい場合は、VC++.NETでActiveXコントロールの
プロジェクトで作成しないと無理なんでしょうか・・・
ご存知のかた、よろしくお願いします。
0076山崎 渉
NGNG__∧＿∧_
|（ ＾＾ ）| ＜寝るぽ（＾＾）
|＼⌒⌒⌒＼
＼ |⌒⌒⌒~| 山崎渉
~￣￣￣￣
0077デフォルトの名無しさん
NGNGメニューコントロールとポップアップメニューコントロール使え
>>75
http://mobiquitous.com/~tsuka/programming/ietoolbar.htmlのRegAsm.exe
のところ見れ
もっと詳しく知りたいなら、Professonal VB.NETかProfessional C# 読め
0078デフォルトの名無しさん
NGNG内容をメッセージボックスで表示したいのですけど、「StartIndex の値を 0 より小さくすることは
できません。」というエラーが表示されてうまくいきません。
どうすればいいでしょうか？
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim F As Form2 = New Form2()
F.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
Dim MainForm As Form1 = New Form1()
MessageBox.Show(MainForm.TextBox1.SelectedText)
End Sub
007975
NGNGありがとうございます。
RegAsm.exe を使ってレジストリへの登録、タイプライブラリの出力をして、
VB6から参照設定を行い、COMオブジェクトとして呼び出すことはできるようになりました。
しかし、.NETで作ったユーザーコントロールを、VB6のツールバーの中に
VB6、VC6で作成したOCXコントロールのように普通に貼り付けて使えるように
登録する方法は依然分かりません・・・ (´･ω･`)
わたしの理解が足りないのだと思いますが、よろしければもう少しヒントをお願いします。
0080
NGNGネットワーク上にあるサーバの共有フォルダへのアクセスでは、ログイン
できずにアクセスできません。どうすれば宜しいのでしょうか？
0081デフォルトの名無しさん
NGNGImports System.Text
Namespace Convert_Example
Class MyConvertExampleClass
Shared Sub Main()
Dim unicodeString As String = "This string contains the unicode character Pi(ﾐ)"
' Create two different encodings.
Dim ascii As Encoding = Encoding.ASCII
Dim [unicode] As Encoding = Encoding.Unicode
' Convert the string into a byte[].
Dim unicodeBytes As Byte() = [unicode].GetBytes(unicodeString)
' Perform the conversion from one encoding to the other.
Dim asciiBytes As Byte() = Encoding.Convert([unicode], ascii, unicodeBytes)
' Convert the new byte[] into a char[] and then into a string.
' This is a slightly different approach to converting to illustrate
' the use of GetCharCount/GetChars.
Dim asciiChars(ascii.GetCharCount(asciiBytes, 0, asciiBytes.Length)) As Char
ascii.GetChars(asciiBytes, 0, asciiBytes.Length, asciiChars, 0)
Dim asciiString As New String(asciiChars)
' Display the strings created before and after the conversion.
Console.WriteLine("Original string: {0}", unicodeString)
Console.WriteLine("Ascii converted string: {0}", asciiString)
End Sub
End Class
End Namespace
008281
NGNG上のサンプルコードをMSDN内で見つけたが、
このサンプルをどうやってコピペすれば動かせるのだろうか？
コマンドボタンをフォームに貼り付けて、そのコマンドボタンのクリックイベントに
上記プログラムを貼り付けたところ動かなかった。
貼り付ける場所が悪いのかなぁ？
0083デフォルトの名無しさん
NGNGおいおい・・・
クラスモジュールをいっこ追加して、内容を全部削除、上記の内容をペースト。
でいいでしょ。
008482
NGNGクラスにコードを貼り付けてからF5キーで実行してみたがなにもおこらんぞ？
Console.WriteLineというプログラムも書いてあるから
きっとDOSプロンプトの画面が起動して、
そこに実行結果が表示されると予想していたのだが。
008582
NGNG実験に成功した。
Original string: This string contains the unicode character Pi(ﾐ)
Ascii converted string: This string contains the unicode character Pi(?)
というのがユニコードとシフトジスの変換結果だ。
これでインターネット上にたくさんあるEUCコードのドキュメントもあつかえるようになったぞっと。
008678
NGNG0087デフォルトの名無しさん
NGNGとりあえず、あのコードじゃ新しく Form1 を作っちゃうってことに気づけよ。
StartIndex うんぬんは、文字列がないときに出るエラーだと思われ。
008878（・?・）わかんねぇ～～
NGNGTextBoxのTextプロパティにアクセスしてテキストを取り出すには？
要するに、メインフォームから作成して表示したフォームで、メインフォーム
のコントロールにアクセスするには？
0089質問です
NGNGDeclare Function FindWindow Lib "user32.dll" _
Alias "FindWindowA" ( ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
[Form]
Dim hWnd As Long
hWnd = classA.FindWindow( "Notepad", vbNullString )
IF hWnd = 0 Then
' 起動していない
ELSE
' 起動中
ENDIF
こういうPGになっているのですが、ハンドルがうまく動作せず、
Notepadを起動してようがしてまいが全部「起動中」にいってしまいます。
なにが悪いのでしょう・・。
0090デフォルトの名無しさん
NGNGForm2 に、メインフォームの情報を渡してあげればいいんだって。
ちょうど、Owner ってプロパティがあるから、そこに入れておけ。
>>89
試してないけど、おそらく宣言が間違ってるから。
VB6のLong → VB.NET の Integer
0091デフォルトの名無しさん
NGNG0092デフォルトの名無しさん
NGNGVB.NET なら、vbNewLine。汎用的に使うなら、ControlChars.NewLine かな。
0093デフォルトの名無しさん
NGNG昔使っていたVB4.0しか持っていません。
そこで新しく購入しようと思ったのですが、
VB.NET か VB6.0
のどっちを買うか迷っています。
VB4.0は一通り覚えたのですが、
.NETではかなり変更があったらしいということをきいているし、
バージョン的にはかなりとんでいるので
VB4.0の知識がそのまま使えるか心配です。
どなたかどっちを買えばいいかアドバイスして
いただけませんか？よろしくお願いします。
009482
NGNG将来は一般ユーザ向けWindowsにも.NET Frameworkが最初から組み込まれているらしいから、
そうなるとVB.NETで作ったアプリは実行ファイルなどの最小限のファイルを配布するだけで済む。
VB4の知識はVBAやVBスクリプトを書くときに活かせるぐらいだが。
0095デフォルトの名無しさん
NGNG0096デフォルトの名無しさん
NGNGこのスレで聞かれたら、頑張って.NETに移行しろと答えるしか。
009789です
NGNGありがとうございました。LONG=>Integerで動きました。
たびたびすみません、質問があります。
VarPtr() はVB.NETではどう表現するのでしょうか。
0098デフォルトの名無しさん
NGNGVarPtrを何に使っているかによる。
009989です
NGNGReadProcessMemory() の第二引数にVarPtr(LONG)で渡しているものをどうしてよいのやら・・。
0100デフォルトの名無しさん
NGNGSystem.Reflection.Assembly.GetExecutingAssembly.Location
を、つまり、
VB6で言うApp.Pathをつかっってファイルを読み込めないってことか？
0101デフォルトの名無しさん
NGNG判別する方法を教えてください。
0102デフォルトの名無しさん
NGNGIf(strName Is Nothing)Then~End If
等号だと空文字列もNothingとみなされるらしい
0103KKK
NGNG0104デフォルトの名無しさん
NGNG考えているのですがASP.NETも出来るのですか
0105デフォルトの名無しさん
NGNGＶＢ６で他のフォームを操作する時
Private Sub Command1_Click()
MsgBox Form1.Label1.Caption
End Sub
でForm1にあるLabel1のキャプションを表示できますけど、
.NETではどうすればForm2などからForm1のコントロールにアクセス可能ですか？
.NETでForm2のコードで、
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
MsgBox(Form1.Label1.text)
End Sub
やっても構文エラーになります。
できる様に誰かこれを正してください。おねげぇ～
0106デフォルトの名無しさん
NGNGForm1 から Form2 を呼び出しているなら Owner を設定するのが
簡単。以下のカキコを参照のこと。
http://www7.big.or.jp/~pinball/discus/vb/47581.html
0107デフォルトの名無しさん
NGNGVB.NETのパンフレットにはASP.NETもできると書いていないから悩んでいるのだろう。
じつは、VB.NETの売り文句である「Webアプリケーションも作れます。」というのがASP.NETのことなのだ。
つまり、VB.NETのなかのWebアプリケーションというのがASP.NETだからだいじょうぶ。
0108デフォルトの名無しさん
NGNGなるほど、これでIISがあれば出来るということですね
ご返答ありがとうございました。
0109デフォルトの名無しさん
NGNG> これでIISがあれば出来る
XP Homeでは駄目なので要注意。
0110105
NGNGできました、ありがとうございました。
ところで、このやり方だと他のフォームを一つしか参照できないですけど
、例えばForm2からForm1とForm3など複数参照するにはどうすればいいですかね？
0111デフォルトの名無しさん
NGNGWeb Matrix で Go
>>110
同じように Form3 を渡せるようにするか、別に持てばいいべ？ 少しは考えようよ。
0112デフォルトの名無しさん
NGNGそれのPictureBox1に表示されている画像を保存したいのですが、どうすればいいのでしょうか？
PictureBox1.Image のSaveを使うのかと思ったのだが、
PictureBox1.Image はNothingになっているし、ちょっと困っています。
Public gBmap1 As Bitmap
Public gBmap2 As Bitmap
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
gBmap1 = New Bitmap("C:\1.bmp")
gBmap2 = New Bitmap("C:\2.bmp")
gBmap2.MakeTransparent(Color.White)
End Sub
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
e.Graphics.DrawImage(gBmap1, 0, 0)
e.Graphics.DrawImage(gBmap2, 0, 0)
End Sub
0113デフォルトの名無しさん
NGNG0114質問です
NGNGに、ＭＤＩ親フォームのメニューと、ＭＤＩ子フォームのメニューが同時に
表示されてしまいますけど、この切り替えってコードでやらないといけない
のですか？
ＶＢ６．０みたいに自動的には切り替わらないのですかね？
0115デフォルトの名無しさん
NGNGVB.net（もしくは、.netフレームワーク）ってItanium2に最適化されてるんでしょうか？
64ビット動作するのでしょうか？
32ビット動作であれば激しく意味のない開発っぽいんですが・・どうなんでしょう？
宣言部で引数の部分にByValとかあると思うけど
第二引数のところのByValをByRefに変更すればいいと思う
0117デフォルトの名無しさん
NGNGいったん別のBitmap上に描画するしかないんじゃ。
Private Sub PictureBox1_Paint(ByVal sender As Object, …
Dim bmp As New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim g As Graphics = Graphics.FromImage(bmp)
g.DrawImage(gBmap1, 0, 0)
g.DrawImage(gBmap2, 0, 0)
e.Graphics.DrawImage(bmp, 0, 0)
bmp.Save("c:\3.bmp")
End Sub
0118デフォルトの名無しさん
NGNGできればボタンコントロールをつけたいのですが。
0119114
NGNG誰か教えてください。
0120デフォルトの名無しさん
NGNG今時MDIなんかあまり使わないからなあ。
0121114
NGNG>今時MDIなんかあまり使わないからなあ。
それよりもオシエテよ。
0122デフォルトの名無しさん
NGNGよく意味がわかんない。
0123デフォルトの名無しさん
NGNG★白ロム専門店 ［Dream Store］★
５０５シリーズが続々登場です！F505iも発売開始！！
Dream Storeでは白ロムの買取も始めました！
要らなくなった白ロムをDream Storeに売って下さい！
新機種も続々登場しております。SH505i/J-SH53/F505i/N505iなど…
在庫処分品もSO505i・D505i・SH251i・SO211iなどが追加されました。
その他の機種も全品値下げ致しましたので一度ご来店下さい！！
Dream Storeでは白ロム（携帯電話）を取扱っております。
白ロムは簡単に言うと機種変更用携帯です。
１年未満,水没した,盗難されたなどの方はｓｈｏｐで機種変更するより安く出来ます。
まずは価格を見に来てくださいね。皆様からのご注文を心よりお待ちしております。
http://dream-store.net
****************************************************************
0124デフォルトの名無しさん
NGNGオーナードローでボタンを描画し。ControlPaintクラスでボタン風描画も簡単。
0125デフォルトの名無しさん
NGNGDim st, ed As System.DateTime
Dim sp As System.TimeSpan
st = System.DateTime.Now
' なにか処理
ed = System.DateTime.Now
sp = ed - st
MessageBox(sp.ToString())
上記のようなコードなのですが、ビルドすると sp=ed-st の部分で
「演算子 '-' は、型 'Date' および 'Date' に対して定義されていません。」と
エラーが出てしまいます。
ヘルプの「DateTime メンバ」の項を見ると、減算演算子はサポートされている
ようなのですが、なぜこのようなエラーが出るのでしょう？
0126デフォルトの名無しさん
NGNG－演算子が使えるのはC#とかMC++だけ。
0127デフォルトの名無しさん
NGNGVB.NETでは sp = ed.Subtract(op) で
0128デフォルトの名無しさん
NGNG0130デフォルトの名無しさん
NGNG|'System.IO.IOException' のハンドルされていない例外が microsoft.visualbasic.dll
|で発生しました。
|
|追加情報 : プロセスはファイル "C:\WINDOWS\SchedLgU.Txt" にアクセスできません。
|このファイルは別のプロセスが使用中です。
が表示され処理を中断されてしまい、ファイル処理ができません。
どうすれば問題なく処理できるようになるでしょうか？
また、なぜこのエラーが発生してしまうのでしょうか？
0131デフォルトの名無しさん
NGNG0132デフォルトの名無しさん
NGNG使用中だからでしょ？ 例外トラップして、処理をしなければよいかと。
0133デフォルトの名無しさん
NGNGListBox1.Visible = False
Button2.Visible = False
End Sub
これを実行してもButton2が画面から消えないのはなぜでしょう？
0134133
NGNG0135Timer初心者
NGNG親フォームのTimer.Tick、Timer.Elaspedを子フォームでも使う方法あるのでしょうか。
時計を共通に使いたいのです。
0137デフォルトの名無しさん
NGNGイベントを共有したいってことね。WithEvents と Handles の追加でいいんじゃないかな。
0138_
NGNG0139デフォルトの名無しさん
NGNGPictureBox0.Image = ImageList1.Images(0)
PictureBox1.Image = ImageList1.Images(1)
PictureBox2.Image = ImageList1.Images(2)
PictureBox3.Image = ImageList1.Images(3)
PictureBox4.Image = ImageList1.Images(4)
教えて下さい。
0140デフォルトの名無しさん
NGNG>>139の二行目から六行目
0141デフォルトの名無しさん
NGNG0142139
NGNGありがとうございます。
0143デフォルトの名無しさん
NGNG無茶するな。
PictureBox を配列に入れておいて、ImageList のアイテムをループで代入、かな。
0144デフォルトの名無しさん
NGNGttp://nyannyan.minidns.net/upload3/upfile/20030723232633_up024.png
0145デフォルトの名無しさん
NGNG0146139
NGNG詳しく教えて下さい。
お願いします。
0148_
NGNG0149デフォルトの名無しさん
NGNG毎回描画する以外の方法はありますか？
現在はピクチャーボックスをフォームと同じサイズにして貼り付け、
それに対して描画を行っていますが、もっと効率的な方法がないか
考慮中です。よろしくおねがいします。
0150デフォルトの名無しさん
NGNG一秒あける
B="bb"
------------------------
プログラムが動いている途中で処理を一時中断して、一秒たったら再開するにはどうするのだろう？？？
0151デフォルトの名無しさん
NGNGThread.Sleep かな？
0152デフォルトの名無しさん
NGNG0154139
NGNGを参考にして書いたのですが
行き詰まりました。
Dim i As Integer
i = ImageList1.Images.Count
Dim aa() As String = {"PictureBox0", _
"PictureBox1", _
"PictureBox2", _
"PictureBox3", _
"PictureBox4"}
Dim bb As PictureBox
bb.Name = aa(i)
For i = 0 To 17
aa(i).Image = ImageList1.Images(i)
Next
これじゃダメみたいです。
どなたか訂正お願いします。
0155デフォルトの名無しさん
NGNGコンパイラの仕組から勉強したほうが。
0156デフォルトの名無しさん
NGNG143じゃないけど、
Dim PBox(4) As System.Windows.Forms.PictureBox
PBox(0) = PictureBox0
PBox(1) = PictureBox1
PBox(2) = PictureBox2
PBox(3) = PictureBox3
PBox(4) = PictureBox4
For i As Integer = 0 to 4
PBox(i) = ImageList1.Images(i)
Next
0157155
NGNGFor i As Integer = 0 to 4
PBox(i).Image = ImageList1.Images(i)
Next
0158139
NGNGありがとうございました。
うれしいです。
0160デフォルトの（・∀・）さん
NGNGhttp://dobon.net/vb/dotnet/form/folderdialog.htmlのサイトにある↓が実行
できません。
「型 FolderBrowserDialog が定義されていません」となります。
どうすればいいでしょうか？
'FolderBrowserDialogクラスのインスタンスを作成
Dim fbd As New FolderBrowserDialog
'上部に表示する説明テキストを指定する
fbd.Description = "フォルダを指定してください。"
'ルートフォルダを指定する
'デフォルトでDesktop
fbd.RootFolder = Environment.SpecialFolder.Desktop
'最初に選択するフォルダを指定する
'RootFolder以下にあるフォルダである必要がある
fbd.SelectedPath = "C:\Windows"
'ユーザーが新しいフォルダを作成できるようにする
'デフォルトでTrue
fbd.ShowNewFolderButton = True
'ダイアログを表示する
If fbd.ShowDialog(Me) = DialogResult.OK Then
'選択されたフォルダを表示する
Console.WriteLine(fbd.SelectedPath)
End If
0161デフォルトの名無しさん
NGNGなぜかはわからんが、オレは↑をコピペしただけでちゃんと動作したことは報告しておこう。
0162デフォルトの名無しさん
NGNG俺もコピペだけじゃ動かなかったよーん。
プロジェクトの参照先が
..\v1.0.3705\System.Windows.Forms.dllになってたのを
..\v1.1.4322\System.Windows.Forms.dllに入れ替えたら動いた。
0164162
NGNGこんな感じですた。
1. ソリューションエクスプローラの「参照設定」でWindows.Forms.Formを削除しておく
2. プロジェクト→参照の追加メニューで「参照...」ボタン押す
3. C:\WINNT\Microsoft.NET\FrameWork\V1.1.4322の下にブツがある
4. 「System.dllなどのバージョンも変更するよ？」とか聞かれるのでOK
0166デフォルトの（・∀・）さん
NGNGそもそもバージョン１．１ってどこでわかるのですかね？
プログラムの追加と削除の画面で表示される一覧からですかね？
0167デフォルトの名無しさん
NGNGWindowsフォルダを見てみれ
0168デフォルトの（・∀・）さん
NGNGありますが、これでＯＫですか？
0169デフォルトの名無しさん
NGNG自分で考えろ馬鹿
0170デフォルトの名無しさん
NGNGおめでとん
0171デフォルトの（・∀・）さん
NGNGそれで、FolderBrowserDialog は認識してくれて使えたのですけど、
Environment.SpecialFolder.Desktop はまだ認識してくれないし、
フォームデザイナは表示できなくなりました。
どうすればいいでしょうか。
0172デフォルトの名無しさん
NGNG0173デフォルトの名無しさん
NGNGVS.NET2002/VB.NET2002は.NET Framework1.1は使えない。(ことになっている)
2003を使うよろし。
0174173
NGNG漏れは元よりSDKだけでやってるので、手動コンパイルだ。
0175デフォルトの名無しさん
NGNG0176デフォルトの名無しさん
NGNGていうか１年で新パッケージって ﾉД`)･ﾟ･
0177Timer初心者
NGNGMDIで親フォームにTimer1を定義し、子フォームでも使用する場合です。
どうしても動かせません。
親フォームのタイマー定義：
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Private Sub InitializeComponent()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
End Sub
子フォーム？？？：
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Private Sub InitializeComponent()
Me.Timer1 = ??????????
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ?????Timer1.Tick
End Sub
0178デフォルトの名無しさん
NGNGまず、親フォームにタイマーを追加する
親フォームのタイマーの参照を、子フォームの WithEvents に代入する
親側
Private child As Form2
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
child = New Form2
child.Timer1 = Me.Timer1
Me.Timer1.Interval = 2000
Me.Timer1.Enabled = True
child.MdiParent = Me
child.Show()
End Sub
子側
Friend WithEvents Timer1 As System.Windows.Forms.Timer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MsgBox("child timer events")
End Sub
0179デフォルトの名無しさん
NGNG自分もプログラマだからソフトが過去との互換を実現していないバージョンアップはありうるとわかっているじゃぁないか。
もっともフリーウェアと違ってお金を取っている製品にあってはマズイことだけど。
0180デフォルトの名無しさん
NGNG2002ユーザーには、2003への無償アップグレードがあるはず。Standard 版を除き、
だけどね。
いつ買ったのか知らないけど、2003 が出ることはもうだいぶ前からわかってたでしょ。
その辺の情報収集を怠ったつけ、だね。
0181デフォルトの（・∀・）さん
NGNGそしてこのスレを読むと、
>>173に
＞VS.NET2002/VB.NET2002は.NET Framework1.1は使えない。(ことになっている)
＞2003を使うよろし。
んなことが書かれている。
つまり古いバージョンでは使えないという事ですね。
という事は、また新しいバージョンを買わなければいけないのか・・
去年の１２月に２万円だしてVS.NETを買ったのに、新しいのを買って
半年ちょっとでもういらなくなるとは悲しいです。
0182176
NGNG時既に遅しﾉД`)･ﾟ･ ていうかそれ以前にAcademic
学生に二万はきついってばよ（´・ω・`）っ
C++もBasicもあといっこもくっついて２万円とか言ってたんで
衝動買いしちゃいますた、これからは気をつけまつ（´・ω・`）
0183デフォルトの（・∀・）さん
NGNGまあ、遊ぶ回数と、携帯の利用量を減らせばすぐに買えるけど、
２００３買ったとしても、２００２全然使ってないんだよね。
そういえば、付属の学生用ツールなんて一回も使った事ないや。
Office 2000 も購入して全然使っていないのに、Office XP が出て
すぐにバージョンアップしたんだよね。
結局 Office 2000 は全然使わずに押入れに封印されている。
VS.NET2002 もこの運命を辿る事になりそうだ。
0184デフォルトの名無しさん
NGNGみんなVC++やC++を買ったけどほとんどつかわないうちにVBに移行するはめになったんだよね。
0185デフォルトの名無しさん
NGNG0186デフォルトの名無しさん
NGNG意味無いです。
0187デフォルトの名無しさん
NGNG意味なくはないけど、覚えた頃にはVB6が死滅してる可能性が高い。
もっとも、VB.NETがどれだけ流行るかどうかも同程度に怪しいもんだけどね ヽ(´ー｀)ﾉ
0188デフォルトの名無しさん
NGNG0189デフォルトの名無しさん
NGNGオブジェクト指向ができる言語をひとつしっかりやっとけば
応用きくんでない？
C++、C#、Java、VB.NETあたりか。
VB6だと楽な方向に流れることもできちゃうから、学習用としては
おすすめできない。
0190176
NGNGVB.Netでの画像の保存の仕方教えてくだせい
http://dobon.net/vb/dotnet/graphics/drawimage.htmlこのページの
[VB.NET]
'Bitmapオブジェクトの作成（画像ファイルを読み込む）
Dim bmap As Bitmap = New Bitmap("C:\Blue hills.jpg")
'PictureBox1のGraphicsオブジェクトの作成
Dim g As Graphics = PictureBox1.CreateGraphics()
'画像の描画
g.DrawImage(bmap, 60, 10)
'Graphicsオブジェクトを破棄
g.Dispose()
の方法で作った画像を
下の
[VB.NET]
'PNG形式で保存する
PictureBox1.Image.Save("C:\test.png", System.Drawing.Imaging.ImageFormat.Png)
で保存しようとしたのですがエラーが出てしまいまつﾉД`)･ﾟ･
どなたか解決策を教えて下さいまし（´・ω・`）
0191デフォルトの名無しさん
NGNGFolderBrowseDialog は、低機能なんだわ。いろいろ探せば、きちんとした
機能を持つ同等のコンポーネント(ソース)が見つかるよ。もちろん、1.0 でも
使える。
>>190
質問するときは、どんなエラーが出たのか書こうね。
おそらく、開いているファイルに書き込めないってエラーだろうけど。
回避策はいくつかあるけど、メモリストリームから読み込むようにする、
ってのが一般的かな。
くだすれC# にサンプルがあったと思うよ。
0192デフォルトの名無しさん
NGNGそれ基本がわかってないよ。
PictureBox1.CreateGraphis()で作成したGraphicsオブジェクトは
「PictureBox1のウィンドウのGraphis」だ。
PictureBox1.Imageを保存するなら
「PicureBox1.Imageという画像データのGraphics」に描画しなくちゃ。
Win32APIやMFCを知ってる人なら、前者はウィンドウのDCで、
後者はメモリDCに相当するといえばわかるはず。
VB.NETのコードで書くなら
PictureBox1.Image = new Bitmap(50, 50) '適当なサイズのImageを割り当てとく
Dim g As Graphics = Graphics.FromImage(PictureBox1.Image)
g.DrawImage(....)
PictureBox1.Image.Save(....)
0193デフォルトの名無しさん
NGNGPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm2 As New Form2
frm2.Show()
End Sub
-----------------------
'●Form2にはボタン1個
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm1 As New Form1
frm1.TextBox1.Text = "aaaaaaa"
End Sub
--------------------------------------
Form2でボタンのクリックイベントを起こしてもFomr1のテキストボックスに変化がないのはなぜでしょう？
0194176
NGNGうまくいきますた！（･∀･）ありがトン
0195デフォルトの名無しさん
NGNG新しくForm1を作っているからじゃねーの？
0197193
NGNGFormクラスをあつかうときは自動的に参照渡しで扱われるからNEWでべつのインスタンスを作成してもForm1をどのインスタンスからも制御できる気もするんですけど、
ではいったどうしたらForm1のテキストボックスの値をForm2からかえられるソフトをつくれるんでしょうねぇ。
0199197
NGNG参考にしながら改造したところあるフォームから別のフォームのコントロールを制御することに成功しました。ありがとうございました。
--------------------------
'●Form1にはボタン1個とテキストボックス1個（↓クリックイベント）
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm2 As New Form2
Me.AddOwnedForm(frm2)
frm2.Show()
End Sub
--------------------------
'●Form2にはボタン1個（↓クリックイベント）
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frm1 As New Form1
frm1 = Me.Owner
frm1.TextBox1.Text = "aaaa"
End Sub
0200デフォルトの名無しさん
NGNGDim frm1 As New Form1
この New は不要。あと、明示的にキャストするようにしたほうがいいかも。
Option Strict してると、エラーになるよ。
0201199
NGNGわかりました。
0202Timer初心者
NGNG感謝感激！！！！！
脱帽！！！！！！
MDIは使える！！！！ことが分かってうれしい。本当にありがとうございます。
0203デフォルトの名無しさん
NGNG☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★☆
☆★ 送料激安！！ 送料激安！！ 送料激安！！
★☆ http://www.get-dvd.com
☆★ 激安アダルトＤＶＤショップ
★☆ お買い得セール1枚500円～980円！急げ！
☆★ インターネット初！「きたぐに割引」
★☆ 北海道・東北の皆様は送料も激安！
☆★ http://www.get-dvd.com
★☆ スピード発送！
☆★ http://www.get-dvd.com
★☆ 商品が豊富！
☆★ http://www.get-dvd.com
★☆
☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
0204デフォルトの名無しさん
NGNG0206デフォルトの名無しさん
NGNGの読み方わからん
0207デフォルトの名無しさん
NGNG0208206
NGNGへぇー
0209PrintScreen？
NGNGサンプルに無いし、、
誰か教えて。
0210デフォルトの名無しさん
NGNG無理。API を使う必要あり。Web にサンプルが転がってるから、検索してみれ。
0211_
NGNG0212SEX
NGNG/^８ / ヽ
. / ﾉ.//ノﾉ ))））〉 |￣￣￣￣￣
'ﾉノ! ! |. ( | | || ／同人をやっています！
`l |ゝ" lﾌ／ﾘ ＜ エロ過ぎるけど、見に来て下さいね！
iｱ-､ /＾l水ﾄ､ ＼ http://pink.sakura.ne.jp/~erotan/
￣く ｀ヽ |l：|l、ヽ‐v'し'i |＿＿＿＿＿
｀ -ﾉﾆﾆﾄ､ー┘ ´
／/ ! ＼
／ ヽ
. 〈 / ヽ i
ヽ/ i,ノ
｀ ｧ‐ｧr‐r ´
/､./ l .!
. l! l\ ll\!!
ヽ＿)l__ﾉ
0213デフォルトの名無しさん
NGNGString配列に保存して、表示するときはラベルコントロールに表示した
場合に単純に代入すると改行もスペースも無視されるので
lbl.Text = str.Replace(vbCrLf, "<br>")
として改行は表現できたのですが、str文字列内のスペースはどうすれば
よいのでしょうか？
0214デフォルトの名無しさん
NGNGに変換、かな。
0215デフォルトの名無しさん
NGNGごめん。消えた。 ＆nbsp; （＆ は半角）ね。
0216デフォルトの名無しさん
NGNG0217デフォルトの名無しさん
NGNGありがとう。
できました。
0218デフォルトの名無しさん
NGNG需要はどれ位あるでしょうか
0219PrintScreen？
NGNGWeb にサンプルありました。
0220デフォルトの名無しさん
NGNGない。全くない
0221>>218
NGNG0222PrintScreen？
NGNG下記のコードで何処がまずいのでしょうか？教えてください。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
keybd_event(44, TheForm, 0&, 0&)
Application.DoEvents()
'ここまでは成功！
'印刷
Try
AddHandler PrintDocument1.PrintPage, AddressOf Me.printGraphics
PrintDocument1.Print()
Catch ex As Exception
MessageBox.Show("印刷時に問題が発生しました。", vbCrLf & ex.ToString(), MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub printGraphics(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
Dim dataBitmap As Bitmap
' Create a new instance of the DataObject interface.
Dim iData As IDataObject = Clipboard.GetDataObject()
dataBitmap= iData.GetData(DataFormats.Bitmap)
'DrawImageメソッドで画像を作成する。
ev.Graphics.DrawImage(dataBitmap, ev.Graphics.VisibleClipBounds)
'このページを印刷する最終ページとして指定する。
ev.HasMorePages = False
End Sub
Module ModuleCommon
'For PrintScreen
Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const TheScreen = 0
Public Const TheForm = 1
'--end block--'
End Module
0223デフォルトの名無しさん
NGNGWebProgの「ASP.NETスレ」。閑古鳥鳴いてます。
http://pc2.2ch.net/test/read.cgi/php/1040698263/l50
ADO.NETのスレは無いねえ。
DataSetやDataGrid周りは質問が多いかもしれんけど、
既存のC#やVB.Netスレもそれほど活発じゃないから、立てるほどでも無い?
0224デフォルトの名無しさん
NGNG0225223
NGNGいや、ADO.NETは俺も勉強中なのでとても教えられん。
しかし、こんなに複雑になっちゃ、周りのVBOnlyプログラマーにはとても教えられないよ。
DataSetに何でもぶち込むってのはちょっと違うような気がする。
俺はOrdersとかCustomersとかのクラスを作って、SaveメソッドやReadメソッドや
業務ロジックのカスタムメソッドを作った方が分かりやすいと思うのだが。
0226デフォルトの名無しさん
NGNGObjectSpaces正式版が出るまで待つべし。
0228デフォルトの名無しさん
NGNGStrong Typed DataSet はどうだい？
0229223
NGNGそう、DataSetに何でもぶち込むって言うのは、その型指定されたDataSetの話ね。
俺はビジネスロジックとデータをひとまとまりのクラスとして扱いたいので、
勝手に内部クラスを生成されちゃっても困ってしまうし、
プロジェクト間で、コードの共有もしづらいと思う。
>226
ObjectSpaces? これかな?
http://my.execpc.com/~gopalan/dotnet/object_spaces/object_spaces.html
> The ObjectSpaces architecture lets you expose data as objects and
> lists of objects rather than as tables, columns, rows, or XML elements.
なかなか面白そう。PersisterとDataObjectが分かれてるわけね。
Betaをダウンロードしてみるよ。
0230デフォルトの名無しさん
NGNGAs System.EventArgs) Handles Button1.Click
SqlDataAdapter1.Fill(DataSet11)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles Button2.Click
SqlDataAdapter2.Fill(DataSet11)
End Sub
上のようなコードで、ボタン１で通常の表示、ボタン２で（主キー以外で）ソートした
表示を出せるようにと考えたんだけど、初めに押したボタンに対応する方の表示
しか出ません。（初回の処理しか働かない）
なにかの処理が抜けているのでしょうか。
0231デフォルトの名無しさん
NGNGプログラマ引退をおすすめします
0232デフォルトの名無しさん
NGNGListBox1.Clear
というメソッドは
VB.NETではどう書くの？
0233PrintScreen？
NGNGDim dataBitmap As Bitmap
' Create a new instance of the DataObject interface.
Dim iData As IDataObject = Clipboard.GetDataObject()
'
dataBitmap = Clipboard.GetDataObject.GetData(System.Windows.Forms.DataFormats.Bitmap)
'DrawImageメソッドで画像を作成する。
ev.Graphics.DrawImage(dataBitmap, ev.Graphics.VisibleClipBounds)
0234デフォルトの名無しさん
NGNG感じです。で次に勉強するのにこれはいいよって本あったら教えてください。
よろしくお願いします。
0235名無し＠沢村
NGNGhttp://pc2.2ch.net/test/read.cgi/tech/1059262203/l50
02361 ◆ExGQrDul2E
NGNG0237デフォルトの名無しさん
NGNG夢・独り言
http://life.2ch.net/yume/
0239デフォルトの名無しさん
NGNGVB6.0には、確か
Set objFolder = CreateObject("Shell.Application").BrowseForFolder(0, "フォルダ選択をしてください。", 0, strwk)
strBuff = objFolder.Items.Item.Path
んなものがあったはずなのだが、これはうまい事動かないですぞ。
0240デフォルトの名無しさん
NGNGJava言語で学ぶデザインパターン入門
http://www.hyuki.com/dp/index.html
Javaだけど、VB.NETに非常に応用が利く上に、OOPにも強くなる。
0241デフォルトの名無しさん
NGNG.NET 2003にはフォルダ選択ダイアログが追加されてるらしい。
>>160 のリンク先参照
あとC#スレの過去ログを読んでたら、.NET 2002でも出す方法があると
書いてあった。VBに書き換えた実験用のコード貼っときます。
Class FolderBrowser
Inherits System.Windows.Forms.Design.FolderNameEditor
Public Description As String
Public DirectoryPath As String
Public Function ShowDialog(ByVal parent As Form) As DialogResult
Dim dlg As New FolderBrowser()
dlg.Description = Me.Description
Dim result As DialogResult = dlg.ShowDialog(parent)
Me.DirectoryPath = dlg.DirectoryPath
dlg.Dispose()
Return result
End Function
End Class
Public Class Form1
Inherits System.Windows.Forms.Form
(略)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim dlg As New FolderBrowser()
dlg.Description = "フォルダを選択してください"
If dlg.ShowDialog(Me) = DialogResult.OK Then
TextBox1.Text = dlg.DirectoryPath
End If
End Sub
End Class
0242デフォルトの名無しさん
NGNG使うな、ってヘルプに書いてあるだろ？
Webを探せば、API で実装した完全版(2003のより高機能)があるから、それを
使うといいよ。
0243デフォルトの名無しさん
NGNG最初からつくりなおすしかなさそうでウツ・・・・
0244デフォルトの名無しさん
NGNGどんなバグ？
0245デフォルトの名無しさん
NGNGVB.netのバグなら知りたいが、
自分のコードがバグってるだけなら氏ね！
0246デフォルトの名無しさん
NGNGすごい脆弱そうで(((((；ﾟДﾟ))))ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ
VC1の頃の悪夢ふたたびか・・・・・・・？
0247さとこ
NGNGWindowsAPIのShellExecuteを使いますよね？
VB6だと
Call ShellExecute(0, "Open", ファイル名, "", "", 1)
こんな感じでも動くのですが、
VB.netだと動かないのですよ！
昨日からものすごく困ってます。
どうしたらよいですか？
是非、教えてください！
0248デフォルトの名無しさん
NGNGVB.netの限界が垣間見えますね。
0250デフォルトの名無しさん
NGNG1980円の本にやり方がのっている。
0251デフォルトの名無しさん
NGNG開発環境そのものに由来するバグじゃないならどうでもいいんだけどね・・
0252デフォルトの名無しさん
NGNGやっぱりフルカラーアイコンは設定できないの？
0253デフォルトの名無しさん
NGNGDeclare Function ShellExecuteの宣言で
引数の型を(hwnd As Long, …)にしてると動かないすね。
これを(hwnd As IntPtr, …)に直して、
ShellExecute(IntPtr.Zero, "open", ファイル名, …)または
ShellExecute(Me.Handle, "open", ファイル名, …)でいけそう。
0254さとこ
NGNG早速のご回答どうもありがとうございます！！
ご指摘のとおりでいけました！
感謝します！
宣言が間違っていたんですね。
ところで.NetにもAPIビューアみたいのはありますか？
そういった違いはどこを見れば分かりますか？
0255デフォルトの名無しさん
NGNGけっこうつめたいな
0256デフォルトの名無しさん
NGNG0257デフォルトの名無しさん
NGNG本当にレスが必要なものにしか返信しないところにつめたさがうかがえる。
0258デフォルトの名無しさん
NGNGオマエモナー
ｷﾞｺﾊﾊﾊ
0259デフォルトの名無しさん
NGNGそんなやつに教えてやらなくてもよいよ みんな。
0260デフォルトの名無しさん
NGNG0262デフォルトの名無しさん
NGNGどういうわけかその後マジレスしてもらえることが多い。
0264デフォルトの名無しさん
NGNG上も下もあるか。あほか？
無視されるのがいやならレスするな。
0266デフォルトの名無しさん
NGNGProcess.Start メソッド
0267デフォルトの名無しさん
NGNGのように、同じ名前をつかっちゃってもエラーが出ないのはなぜなんだろう。
Dim FRM As New Form1
のように違うなまえにしなくてもちゃんと動くんだけど。
0268デフォルトの名無しさん
NGNGShadow の仕組みについて学ぶと吉。
0271GetNodeAt
NGNGGetNodeAtが、Y座標だけを見てNodeの有無を判断しているように見えます。
X座標がNode上になくても(Nodeのアイコン、テキスト上になくても)、Nodeが返ってきてしまうのです。
何が問題なのか教えてください。
Private Sub TreeView1_MouseMove(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseMove
Dim FocusNode As TreeNode
FocusNode = TreeView1.GetNodeAt(e.X, e.Y)
If Not FocusNode Is Nothing Then
TreeView1.Cursor.Current = System.Windows.Forms.Cursors.Hand
Else
TreeView1.Cursor.Current = System.Windows.Forms.Cursors.Default
End If
End Sub
[OSのVER]:WINDOWS XP Professional
0272デフォルトの名無しさん
NGNGhttp://
などのリンク文字列があると勝手に青くなっちゃうんですけど黒くできませんか？
0273デフォルトの名無しさん
NGNG試してないけど、EM_AUTOURLDETECT でオフにできるんじゃないかな。
0275デフォルトの名無しさん
NGNG0276デフォルトの名無しさん
NGNG0277デフォルトの名無しさん
NGNGいくらなんでもんなことはないだろーｗ
最小限でその現象が起きるサンプルを示してちょんまげ
0278276
NGNGModule1にこう書いて、
Public Frm1 As New Form1
Form2にこう書くとFrm1がNothingに勝手になった。
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim i as integer
i = ListBox1.SelectedIndex
Frm1.TextBox1.Text = ListBox1.SelectedItem
End Sub
0279デフォルトの名無しさん
NGNGその通りのコード書いてみたけど、別にならないようだが。
0281デフォルトの名無しさん
NGNG0282デフォルトの名無しさん
NGNGツリービュー単位でしか変えられないだろ。
ノード単位で変えたいならオーナードローすれ。
0283281
NGNGもっと簡単にできるのかと思ってた
ともあれヒントをどうもありがとう！
0284273
NGNGどうしたらよいのでしょうか？
今までVB6で作成していたのですが、それをアップグレードして、VB.NETで
開発するようにしたのです。しかし、プロジェクトをビルドして、新しいdllを
こしらえても、レジストリに登録されないようです。
手動でregsvr32で登録しようとしましたが、エラーになってしまいます。
どうしたらこのCOMコンポーネントを外部から使えるようになるでしょうか？
0285273
NGNG0286281
NGNGてか、ツリービューはオーナードローできそうにないけど？
0287デフォルトの名無しさん
NGNGInherits System.Windows.Forms.Form
Public Frm1 As New Form1
---------------
Form1の一番上の行の宣言部分に、
Public Frm1 As New Form1
とかくとエラーがでるのはなぜ？
0289284
NGNG．ＮＥＴコンポーネントの作成をＶＢ．ＮＥＴで作成しました。
（クラスライブラリの作成を選んだ）
ClassLibrary2というプロジェクトにClass1というクラスを作り、
以下を参考に
http://216.239.57.104/search?q=cache:WaWm3u0ACWAJ:www.users.gr.jp/ml/archive/dotNET/61.asp
メソッドを実装し、
以下を参考に、
http://www.sev.or.jp/ijupiter/world/dc_interrop/dotnet_com_interrop.html
tblexpコマンド、regasmコマンドを実行し、
「型は正常に登録されました。…タイプライブラリは正常に登録されました」
という表示を得ました。
しかし、動きません。VBScriptから呼び出しても、
「指定されたファイルが見つかりません」というエラーが出ます。
なにが悪いのか、教えて頂けないでしょうか？
0290デフォルトの名無しさん
NGNGVB.NETも出たばかりで熟練者が少ないし。
0291デフォルトの名無しさん
NGNG試してないけど、DetectUrlsプロパティで出来ると思う。
0293デフォルトの名無しさん
NGNGあいているポート番号はどうやって取得しますか？
0294デフォルトの名無しさん
NGNG0295284
NGNG作る方法が載っていました。
プロジェクトの中に、COMクラスを継承したクラスをひとつ用意すれば
良かったのです。ビルドのたびにレジストリへの再登録も行われて
便利でした。
ただし、.NETで作れるCOMは、あくまで擬似的なもので、.NETアプリケーションからは
使えないそうです。
まだ他のマシンにインストールしていませんが、たぶんregasmコマンドで登録
できるだろうと思います。
0296デフォルトの名無しさん
NGNGインスタンスの無限生成かよ！！
> Public Class Form1
> Inherits System.Windows.Forms.Form
> Public Frm1 As New Form1
Form1をNewすると「Public Frm1 As New Form1」の処理が走り、
Form1がさらにNewされ、「Public Frm1 As New Form1」の処理が走り、
:以下略
0297_
NGNG0300デフォルトの名無しさん
NGNG最近プログラミングしてねー
0301_
NGNG0302おしらせ
NGNGロールプレイングツクール
という言語に移行しました。
0304デフォルトの名無しさん
NGNGVB.netの限界から逃れることが出来て良かったですね。
0305デフォルトの名無しさん
NGNG0306デフォルトの名無しさん
NGNGまた、VB.NET=VB7.0でて.NET Framework使わなければ普通のVBと一緒ですよね？
0307デフォルトの名無しさん
NGNG別物です。
0308デフォルトの名無しさん
NGNG0309デフォルトの名無しさん
NGNG著作権がどういう物か知っていますか
0310てふてふも遊びまつにゃあ！○三(゜Д゜) ◆1xsES22i66
NGNGどらえもんをパクってドライモンと言う生物を考えて印刷してばらまきました。
合法？
0311デフォルトの名無しさん
NGNG>>309
0313デフォルトの名無しさん
NGNGPublic Sub Main()
Application.Run(New Form1)
End Sub
がんばれよ。
0314デフォルトの名無しさん
NGNG「そっくり」につくったら著作権にふれる部分も出てくると思うが。
0315313
NGNGヘルプにはLoadイベントは
「フォームが初めて表示される直前に発生します。」
ってあるから、Loadイベントが発生するにはVisible=Trueが必須なんじゃないか？
って言うかコンストラクタじゃだめなのか？
0318313
NGNGやってみたけど、Application.Run()はフォームをShow()するみたい。
ちなみに、このフォームが表示されるのはいつなんだ？
0319317
NGNGまずSub Main で
パブリック変数にP=317とか代入したりして、
つぎにフォームを表示しない状態でフォームのLeftやTopなどのフォームの位置をLeft=0みたいに設定して、
それからフォームをShowしたいです。
0320デフォルトの名無しさん
NGNG0321デフォルトの名無しさん
NGNG馬鹿ですね。
0322デフォルトの名無しさん
NGNGアイコンを勝手に使っても触れないのか？
0323デフォルトの名無しさん
NGNGﾊｧ?
何を言ってるのかわかってるの？
0324デフォルトの名無しさん
NGNG0325デフォルトの名無しさん
NGNGちなみにVisual Basic.net Version 2002で作っています。
よろしくお願いします。
0326デフォルトの名無しさん
NGNG0328_
NGNG0329デフォルトの名無しさん
NGNGこーいうことか？
FormBorderStyle = FormBorderStyle.None
WindowState = FormWindowState.Maximized
0330デフォルトの名無しさん
NGNG利用できません。
どうすれば使えるでしょうか？
因みに、ヘルプではヒットしません。
利用バージョンは VS.NET2002 です
0331デフォルトの名無しさん
NGNGよく見るとユーザー定義メソッドでした。
お騒がせしました。
0332てふてふも遊びまつにゃあ！○三(゜Д゜) ◆1xsES22i66
NGNG使う必要がない。
0333デフォルトの名無しさん
NGNG使おうと思えば使えるよ。
0334デフォルトの名無しさん
NGNG.netのメリットをすべて捨ててかい？
まぁ、ロングホーンに対応しないクソアプリとして一世を風靡して下さいねと。
0335デフォルトの名無しさん
NGNGという行ラベルを書いてから、
GoTo a
と書いても自動的にGoTo Aという大文字に変わらんのだが
0336デフォルトの名無しさん
NGNG完全なマネージコードなんてものは
PureJavaと同じで開発者の妄想に過ぎないんじゃね？
そんなものは実用にならんと思うよ
0337デフォルトの名無しさん
NGNGというか、理想よりも現実を選ぶ、ってのが今までの MS のやり方。
それが嫌なら、使わなければいいだけ。
0339デフォルトの名無しさん
NGNG> というか、理想よりも現実を選ぶ、ってのが今までの MS のやり方。
.NETが無かったことにされる日も近いって事か。
0340デフォルトの名無しさん
NGNGWhidbey買ってその次もパスでその次のと1つ飛ばしで買えばそのころは落ち着いているだろうし(1年に一回ずつのバージョンアップはないだろうし)
0341デフォルトの名無しさん
NGNG0342318
NGNGそういう場合はForm1_Loadに書かず、コンストラクタに書くんだ。
Form1の「Windows フォーム デザイナで生成されたコード」ってとこ展開して、
Newメソッドの中の「InitializeComponent() 呼び出しの後に初期化を追加します。」ってとこ。
それから、
Public Sub Main()
Dim objForm1 As New Form1
objForm1.P = 317
Application.Run(objForm1)
End Sub
でＯＫ
0343デフォルトの名無しさん
NGNG0344319
NGNGコンストラクタのことや
objForm1.Pのように、オブジェクト.変数、という形の書き方ができることや、
Application.Run(objForm1)というランメソッドがあるということもわかり、
とてもためになりました。ありがとうございました。
0345デフォルトの名無しさん
NGNG0346デフォルトの名無しさん
NGNGADO.NET、System.IO、.NET Framework、
は勉強する時間がとれず、
ADO、FileSystemObject、VB6.0のActibeXコントロール
を使って、VB.NETで開発をせざるを得ない。フッ
0347デフォルトの名無しさん
NGNGArr(0, 0) = "abc"
Erase Arr
Arr(0, 0) = "xyz"
おいおいこの場合のEraseメソッドはただ単に配列のすべての要素にNothingを代入してくれるんじゃなくて、
Arr自体をNothingにしちゃってる？このプログラムはエラーがでる。
0348デフォルトの名無しさん
NGNGそれだったら配列自体にメソッド持たせるだろう・・・。
以前にバリアントなんぞ使ってんじゃねぇよ禿げ
0349デフォルトの名無しさん
NGNGObject型ですぜ、だんな。
0350デフォルトの名無しさん
NGNG333は出来ないこともないって言ってるだけで、使えとは言ってないぞ。
むしろ320に言うべきセリフだと思った夏の夜。
変数の配列は意識して使わないようにしてるな。
多少面倒でもArrayListかDataSet使ってる。
何かの記事でこっちのほうが効率がいいって見たからなんだけど、実際どうなんだろ？
0352山崎 渉
NGNG0353デフォルトの名無しさん
NGNGと、言うことはわざわざ,NET使う意味もないと言うことだな。
0354デフォルトの名無しさん
NGNG320 名前：デフォルトの名無しさん 投稿日：03/07/31 23:56
VB.NETはファイルシステムオブジェクトが使えない
346 名前：デフォルトの名無しさん 投稿日：03/08/01 20:39
すぐにつくらなければならないソフトがある。
ADO.NET、System.IO、.NET Framework、
は勉強する時間がとれず、
ADO、FileSystemObject、VB6.0のActibeXコントロール
を使って、VB.NETで開発をせざるを得ない。フッ
351 名前：320 投稿日：03/08/02 01:28
オレがVB.NETでもファイルシステムオブジェクトをつかうことは
>>346に書いたとおり。
0356351
NGNGDim FS
FS=CreateObject("Scripting.FileSystemObject")
と、Setを使わないでオブジェクトを作成できることがわかって、
VB.NETでもファイルシステムオブジェクトをつかうことにした。
Set Fs=～ ×
0357デフォルトの名無しさん
NGNGお客様に納品するソフトを作るんなら、
もうちょっと勉強してからのほうが良いんじゃない?
下手するとデスマーチに陥るよ。
俺もADO.NETはあとまわし気味だから人のこと言えないけど。
0359デフォルトの名無しさん
NGNG>ADO.NET、System.IO、.NET Framework、
>は勉強する時間がとれず、
>ADO、FileSystemObject、VB6.0のActibeXコントロール
>を使って、VB.NETで開発をせざるを得ない。フッ
前者を勉強する期間がないなら、
後者を使っても351の目の前にはデスマーチが手招きしてるよ。
後者の周りにはたくさんの落とし穴がある。
地雷原に素足で突っ込むようなもんだ。
0360357
NGNG配布パッケージ作ったのに、ADOが動かないとかでつか?
0362351
NGNG0363デフォルトの名無しさん
NGNGDim a,b,c As Stringはa,bがバリアントで、cがストリングになるそうだけど、
VB.NETではどうなの？
0364デフォルトの名無しさん
NGNG全部String
0366デフォルトの名無しさん
NGNG0367デフォルトの名無しさん
NGNGそうだよ。
0369デフォルトの名無しさん
NGNG> あるdllをコードから参照設定するにはどう書くの？
参照設定っちゅうのは事前に行う設定のことだけど・・・
動的にライブラリを使うのは、リフレクションで。
System.Refrection名前空間を調べるよろし。
0370369
NGNGＸ System.Refrection名前空間
○ System.Reflection名前空間
0371デフォルトの名無しさん
NGNGprocessコンポーネントで起動とハンドルの取得はできるんだけど
そこからどうやってメモリを読み込んだらいいのかわからなくて…
0372371
NGNGprivate void button1_Click(object sender, System.EventArgs e)
{
string pt = "c:\myApp";
process1.StartInfo.FileName = pt + "\myApp.exe";
process1.StartInfo.WorkingDirectory = pt;
process1.Start();
IntPtr han = process1.Handle;
int mem = process1.PagedMemorySize;
}
0373371
NGNGわたしは おろかにも わたしの のるこ のふねへの こうげきを めいじて しまった。
ぜんぐんの いっせいそうしゃが もにたーを しろく そめる……
ざんねん！ わたしの はおうでんは おわって しまった。
0374デフォルトの名無しさん
NGNGここはVB.netのスレだぞ。。。
ちなみにそんなアンマネージドなことは.NETではできん。
APIをinteropだ。ReadProcessMemoryとか。
0377デフォルトの名無しさん
NGNG0378284
NGNG擬似COMコンポーネントができたのですが、それをPCに登録するには
どうしたらよいのでしょうか？
自分のPCでは、プロジェクトをビルドすると自動的に登録されるのですが、
ほかのPCに登録することができないのです。
regasm.exe ***.dll /tlb:***.tlb
だと、一見登録されるのですが、実際にはVBScriptからCreateObjectすることが
できません…。
擬似COMコンポーネントは、以下のページの前半を参考に作りました。
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vbcn7/html/vawlkwalkthroughcreatingcomobjectswithvisualbasicnet.asp
どなたか、どうしたらよいのか教えてくださらないでしょうか？どうかよろしくお願い
いたします。
0379284
NGNG・テストスクリプトは、できたdllと同じフォルダにあります。
・regsvr32.exeではダメでした。
・対象機には.NETフレームワークはインストールしてあります。
VisualStudio.NETはインストールしてありません。
・他の開発機で、プロジェクトをリビルドしたら、そのマシンでも動きました。
・テストスクリプトは、とりあえずCreateObjectしているだけです。
0380デフォルトの名無しさん
NGNG表示を強制的に最前面にする方法を教えてください。
0381デフォルトの名無しさん
NGNGへ？動くでしょ。
0382377
NGNGそれじゃあうごかない原因は、
WindowsXPでプログラミング中にwindows\system32\*.dllを参照設定したが、
Win98にはsystem32フォルダがないからWin98ではWinXPでつくったVB.NETアプリが動かなかったというのかい？
0383デフォルトの名無しさん
NGNGthis.TopMost = true;
http://www.microsoft.com/japan/msdn/library/ja/cpref/html/frlrfSystemWindowsFormsFormMembersTopic.asp
0384デフォルトの名無しさん
NGNGありがとうございました。
0385デフォルトの名無しさん
NGNGWSHスクリプトなら出来たDLLをWScript.exeがあるフォルダに置いてregasm
0386デフォルトの名無しさん
NGNG0387デフォルトの名無しさん
NGNGMDI子フォームにActivatedイベントを設定しているのですけど、子フォームを切り替えても
イベントがなぜか発生しません。
どうすればいいでしょうか？
0388_
NGNG0390デフォルトの名無しさん
NGNGヘルプでFormのイベント一覧を良く見てみろ。
0391_
NGNG0392デフォルトの名無しさん
NGNGどうしてもActivatedに目が行きがちになっていたかな。
0393デフォルトの名無しさん
NGNG0394デフォルトの名無しさん
NGNG0395デフォルトの名無しさん
NGNGどうしてもActivatdに目が行きがちになっていたかな。
0396デフォルトの名無しさん
NGNGついてこない。VB6のもんだよ。
つうかそんなもん不要。System.Net名前空間とかあるしのう。
0397デフォルトの名無しさん
NGNG>windows\system32\*.dllを参照設定したが
何を参照設定したんだか、さっぱりだっつうの。
0398デフォルトの名無しさん
NGNG0399デフォルトの名無しさん
NGNG他のスレで質問したのですけど、Delphiを使えだの、余りにもつめた過ぎる
回答が返ってきてショックだった。
0400デフォルトの名無しさん
NGNGDelphiを使え
0401デフォルトの名無しさん
NGNGhttp://endou.kir.jp/yuminet/link.html
http://endou.kir.jp/marimo/link.html
0402デフォルトの名無しさん
NGNGXMLを使え
0403デフォルトの名無しさん
NGNG0404デフォルトの名無しさん
NGNGPrivateProfile系のAPIを呼び出せば？
もしかするとVB6.Compatible系のクラスの中にもINI関係のメソッドあるかもね
0405デフォルトの名無しさん
NGNG0406デフォルトの名無しさん
NGNGお前の目が腐っていて脳もニワトリ並しかないからじゃないか？
0407デフォルトの名無しさん
NGNGわざわざ質問スレにまでｷﾓｲ
0408デフォルトの名無しさん
NGNG見ることってできますか？
初心者ですみません。
0409デフォルトの名無しさん
NGNG0410デフォルトの名無しさん
NGNGで、その教則本のファイルの読み書きの所の
テキストファイルのみを表示させるプログラムの作成で
ちょっとはしょってありますが、
Dim filename As String
filename = "C:\My Documents\Sample.txt"
If filename.PadRight(3) <> "txt" then
・・・（ファイルがテキストではないと表示させる）
else
・・・（ファイルをオープンして読み込んで表示させる）
のようにPadRightを使って右から三文字を取得して拡張子を判別する
ところがあるのですが、elseに落ちてくれません。filename.PadRight(3)を
表示させてみると「C:\My Documents\Sample.txt」がそのまま来ているみたいです。
結局個人サイトまわってSystem.Io.Path.GetExtensionを使うことで解決しました。
ひょっとして.NET以前のVBとPadRightの役割が変わってる？
そこで質問なのですが、ステートメントが同じだけど.NET以前と違う働きをする
構文などがわかりやすく掲載されているサイトや参考書があったら教えてください。
ああと、文字列の右から三文字目までを取得する方法も教えてください。
0411どーでもいいけど
NGNG.拡張子が３文字超えるものがあるので注意しる。
PadRightの挙動、文字列の右から三文字目までを取得する方法については
http://www.microsoft.com/japan/msdn/library/ja/cpref/html/frlrfSystemStringClassTopic.asp
を見れ。
0413デフォルトの名無しさん
NGNG同じ比率でフォームが拡大、縮小する設定方法ってどうやるんですか?
0414デフォルトの名無しさん
NGNG0415_
NGNG0416デフォルトの名無しさん
NGNGサイトとか、書籍とか、よろしければ教えてください。
0417デフォルトの名無しさん
NGNG0418.NETレス
NGNGINIファイルを扱うクラスはない。402が言うようにXMLを使うように方針変更するか、
404も言ってるようにGetPrivateProfileString関数とかをP/Invokeで使う。
>>405
言語の限界だ！と思った場合、ほとんどは言語の限界じゃなくて、その人の限界だよ。
>>408
プログラムを見るとは？VB6のソースコードをVB.NETをそのまま流用できるか？という意味なら、
アップグレードウィザードで.NET用にアップグレードするのが順当かな。
>>410
PadRightメソッドはそういう用途のメソッドじゃないぞ。後、ファイル名とかは大文字小文字の区別がないので、
全部大文字(もしくは小文字)にそろえてから比較する必要がある。
> If filename.PadRight(3) <> "txt" then
If Not filename.ToLower().EndsWith(".txt") then
みたいに書けると思う。詳細は >>411 が示してくれてるドキュメントで確認しましょ。
>>413
DockプロパティとAnchorプロパティを駆使してみるとか。
>>414
ファイルのバージョン？それともアセンブリのバージョン？ファイルのバージョンなら、
FileVersionInfo クラスを使うか、リフレクションでAssemblyFileVersionAttribute属性を拾う。
アセンブリのバージョンなら、リフレクションでAssemblyVersionAttribute属性を拾って、
そのVersionプロパティを見るとか。
>>416
「ステップバイステップで学ぶ オブジェクト指向プログラミング実践講座 マイクロソフト公式解説書」
ISBN : 4-89100-302-2 C3055 をお勧めしておこう。ちと高いが。
0419デフォルトの名無しさん
NGNG限界を云々している人は C#スレ等でも度々目撃されている模様です。
0420デフォルトの名無しさん
NGNGPublic Structure strA
Public B(5) As StrB 'ここ
End Structure
Public Structure StrB
Public C As Integer
End Structure
配列数がなければエラーにならないんですけど
どうやって数を指定すればいいんでしょうか。
0421デフォルトの名無しさん
NGNG0422デフォルトの名無しさん
NGNGVBFixedArray アトリビュートを使う
>>421
http://www.microsoft.com/japan/msdn/library/ja/vbcn7/html/valrfwhatsnewinvisualbasiclanguage.asp?frame=true
見れ。
0423410
NGNGうんぐぐ、んぐんぐ・・・・
例文どうもです。
調べた結果、PadRightはあれれ？な感じでした。しっかり教則本に書き込んでおきました。
あのドキュメント群は見ていると為になります。でも彷徨っていると遭難しそうになります（笑）
んではまた潜ってきます。
うんぐぐ、んぐんぐ・・・・
0424デフォルトの名無しさん
NGNG一応もっている本を調べてもXML保存には触れている本は無かったですし、ネットの検索をかけて調べ
たのですけど、欲しい情報に辿り着けないです。
そこで、具体的な例がありますので、これを実現するにはどういうコードの記述が必要かを教えてく
ださい。
具体的に保存したい設定値は、Form1のLeft、Top、Width、Heightと、Form1上に存在するTextBox1の
Font情報（サイズ、色、フォント名など）と、Form1のメンバ変数m_Num(Integer型)の値です。
これをXMLとして保存する処理と、保存した内容をそれぞれForm1、TextBox1、Form1のメンバm_Numに
読み込む処理の記述をお願いします。
0425デフォルトの名無しさん
NGNG0426.NETレス
NGNGStructureじゃなくClassにするか、Structureのままでやるなら
Public Structure strA
Public B() As StrB 'ここ
Public Sub Initialize()
B = New StrB(5){}
End Sub
End Structure
として置いて、strA型を使うときは最初にInitializeメソッドを呼ぶ。
>>423
久々にVBの海に潜る表現を見たよ。なつかすぃ～。
>>424
まず仕様を決めましょ。仕様としてXMLのDTDを定義する必要があるから、
そのためにはXMLって何？というところから勉強しましょ。
そんなあなたに下記のURLをお勧めしておくよ。
「@IT:連載 .NETで簡単XML」
http://www.atmarkit.co.jp/fdotnet/easyxml/index/index.html
0427デフォルトの名無しさん
NGNG>アセンブリのバージョンなら、リフレクションでAssemblyVersionAttribute属性を拾って、
>そのVersionプロパティを見るとか。
どうやってAssemblyVersionAttribute属性を拾うんですか？
0428オムニくん
NGNGキューは DS で登録されていません。
とエラーが出てきて落ちてしまいます。
誰か解決法を知っていたら教えてください。
よろしくお願いいたします。
0429デフォルトの名無しさん
NGNG住所・電話番号などは一切必要無し！
①ＩＤを取得する。(無料)
②宣伝用のＵＲＬを掲示板に貼る！！
③そのまんま待つ！
④一ヶ月で～１０万ぐらいは稼げる！貼りまくれば２０万ぐらいもいけるよ！
ちなみに私は先月で約１１万稼ぎました(´∀｀)
http://www.adultshoping.com/index.cgi?id=1060433342
http://www.adultshoping.com/addclickport.cgi?pid=1060433342
0430オムニくん
NGNG0432デフォルトの名無しさん
NGNG0433424
NGNGありがとうございました。色々調べて見ます。
>>431
それも調べてみます。
正直言うと、どうすれば値を保存できるのか、それとまだ何がなんだか
わからないので、どうしようもなくなった時は、最後は助けてほしいです。
0434デフォルトの名無しさん
NGNGActiveXコントロールとかはヘルプに説明が一切無くて使い方がいまいち
わからないのですけど、どうやって機能やメソッドの使い方などを調べればいいのでしょうか？
たとえば、Web文書をひょうじするWebBrowserコントロールの使い方を調べるには？
NavigateとNavigate2の違いとか。
0435デフォルトの名無しさん
NGNGMSDN ライブラリに載ってる。
0436デフォルトの名無しさん
NGNG0437デフォルトの名無しさん
NGNG質問する暇があったら買え
0438デフォルトの名無しさん
NGNG確かビューアは付いていたと思います。
0439デフォルトの名無しさん
NGNGえ？ついてないよ。。。
0440デフォルトの名無しさん
NGNGAssembly.GetCustomAttributes メソッド
0443デフォルトの名無しさん
NGNGＶＢ６とＶＢ．ＮＥＴでは、同じプログラムを同じスペックのＰＣの上で
実行した時にはどちらが高速でしょうか？
0444デフォルトの名無しさん
NGNG0445デフォルトの名無しさん
NGNG0446デフォルトの名無しさん
NGNGそう思っていいよ。
そのかわり開発効率が C#>VB.NET>VB6 だとおもう。
0447デフォルトの名無しさん
NGNG最初、ほんのちょっぴり戸惑うけど。
0448デフォルトの名無しさん
NGNG0449デフォルトの名無しさん
NGNGVB.NETだと.NET FrameWork以外にVB専用の関数も使えるので便利だし、
開発効率ならVB.NETの方が良いのでは？
0450デフォルトの名無しさん
NGNG0451446
NGNGVB専用の関数ってあったっけ？（クラスライブラリじゃないの？）
VB.NETはVB6を引きずっている（というか引き継いでいる）分、どうしても不細工なコードになってしまう。
関数の数で開発効率は決まらないでしょ？
>>448
釣りはやめろ
0452デフォルトの名無しさん
NGNG0453デフォルトの名無しさん
NGNGＶＢはコードエディタが自動変換してくれるので、開発効率はＣ＃より良いと感じがする。
0454デフォルトの名無しさん
NGNGこういうのあったのですね。
ありがとうござます。
0455デフォルトの名無しさん
NGNGXML ドキュメント、プロパティウィンドウからのイベントプロシージャ作成、
クラスブラウザの充実、リファクタリングツールの存在、あたりかな。
言語仕様では、using が使えるのが大きいと思う。unsafe やら、オペレータの
オーバーロードなんて、あんまり使わないだろうし。
>>450
MC++ でも使えない？（笑
>>451
そうかな？ Module とか使わなければいいだけだし。書こうと思えば、C# 並みの
ぎちぎちコードもかけるし、VB6並みの手抜きコードもかける。VB.NET のいいところ
は、その辺じゃないかな。
>>453
エディタの使い心地は、VB>>C# だね。
0456デフォルトの名無しさん
NGNG0457デフォルトの名無しさん
NGNG>>455にほぼ禿同
VB.NETに
XMLドキュメントと
continueが追加されれば
VB.NETに戻りますが
現状ではC#の方がいいような感じがします
0458デフォルトの名無しさん
NGNGVB.NETとどうちがうんだ？
0459デフォルトの名無しさん
NGNGsizeではポイントがわかるだけで全体の幅はわからないようなのですが。
0460デフォルトの名無しさん
NGNGそだね。なので、フォントを指定してから、Form や PictureBox の TextWidｔｈ（）
メソッドで計算、かな。
0461デフォルトの名無しさん
NGNGAssembly.GetCustomAttributes メソッドってどうやって使うんですか？
ヘルプ読んでもわかんない・・・。
0462デフォルトの名無しさん
NGNGVB.NETにTextWidthってあったっけ？
なくなったような気がするんだけど、2003でﾌｶｰﾂしたん？
仕方ないからSystem.Drawing.MeasureString使ったんだけど。
0463デフォルトの名無しさん
NGNG聞きましたが、その場合はどうしてますか？
パネルだと各ページに必要になるからみんなどうしてますか？
0464デフォルトの名無しさん
NGNGｽﾏｿ、VB6 と勘違いしてた。
>>463
Webコントロールにして、各ページに配置。
0465デフォルトの名無しさん
NGNGコントロールはpanelにするのでしょうか？
でもページのロード時に更新されてしまうと思いますが、
それが一般的なのでしょうか？
0466あいうえおー
NGNG知るためにはどうしたらよろしいのでしょう？
ご教授ください。
よろしくお願いします。
0467山崎 渉
NGNG│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
⊂| |つ
（＿）（＿） 山崎パン
0468デフォルトの名無しさん
NGNG0469デフォルトの名無しさん
NGNG基本的にはないので、それ以外で閉じるときに状態をチェックすればどうでしょうか。
Me.DialogResultとか
0470デフォルトの名無しさん
NGNGMe.ControlBoxを使って×ボタンを消しちゃえ。最大化・最小化ボタンも消えるけど（笑
0471デフォルトの名無しさん
NGNGどうなんだろうね。
俺はパネル派とかフレーム派とかあるかもしれないな。
0472デフォルトの名無しさん
NGNGそれとも、何らかの方法で利用できるようになれるとかはあるでしょうか？
0473デフォルトの名無しさん
NGNGできます。参照設定してください。
0474デフォルトの名無しさん
NGNGMessageBox.Show(Microsoft.VisualBasic.Left("ABC", 1));
と書いてもLeftが使えないのですけど、どうすればいいですかね？
0475デフォルトの名無しさん
NGNGもう一度参照設定を確認しましょう。ディレクトリは参照設定できません。
0476デフォルトの名無しさん
NGNGそれから、Microsoft.VisualBasic.Strings.Left() です。
0477デフォルトの名無しさん
NGNGMicrosoft Visual Basic .NET Runtimeの参照を追加して、
Microsoft.VisualBasic.Strings.Left() でできました。
ありがとうございました。感謝します。
0478デフォルトの名無しさん
NGNG普通にstringのSubstring使ったらダメなのか？
0479デフォルトの名無しさん
NGNG実際にしたかったのは、VC#からVBの関数を利用したかった事で、その為にたまたまLeft関数を例にしたって事です。
ほとんどVB.NETを利用しているけど、たまに気分転換にC#を使った時に便利なのでVBの関数を使いたいと・・
0480デフォルトの名無しさん
NGNGリストボックスで選択した値をテキストボックスに表示させたいので
すが、まずはクライアントスクリプトが動作するかテストとして
Page_loadで
listA.Attributes.Add("onClick", "aaa()")
としてHTMLエディタで
<script language="javascript">
<!--
function aaa() {
opener.document.forms[0].txtListA.value='AAA';
};
//-->
<asp:listbox id="listA" runat="server" Height="100px" Width="100px"></asp:listbox>
<asp:textbox id="txtListA" runat="server" Width="150px"></asp:textbox>
としてあるのですが、テキストボックスにAAAが表示されないのは何ででしょう？
難しい。。。
0481デフォルトの名無しさん
NGNGopener要らないんじゃ？
0482デフォルトの名無しさん
NGNGあるコマンドをShell関数にて実行し、そのコマンドの出力したメッセージを
リダイレクトでファイルに落としたいのですが全然できません。
実行コマンドを ＡＡＡＡ．ＥＸＥ とします。
ＡＡＡＡ．ＥＸＥ をＤＯＳプロンプトにて実行すると 「こんにちは」 と言うメ
ッセージをＤＯＳプロンプト上に出力します。
これを手動でＤＯＳプロンプトで下記のように
ＡＡＡＡ．ＥＸＥ ＞ ＭＥＳ．ＴＸＴ
実行すると、きちんとファイルに出力されます。
これをShell関数にて下記のように
Shell( "AAAA.EXE > MES.TXT", AppWinStyle.MinimizedNoFocus, True, -1 )
と実行するとファイルが出力されません。
Shell関数の使用方法が間違っているのでしょうか？
0483デフォルトの名無しさん
NGNGリダイレクトは、コマンドプロンプトの機能です。というわけで、%COMSPEC% を
使って、コマンドプロンプトを起動する必要があります。
0484デフォルトの名無しさん
NGNGありがとうございます。自己解決しました。
おっしゃる通り
CMD.EXE /C
を追加してコマンドプロンプト上で起動するようしたらいけました。
0485デフォルトの名無しさん
NGNGあまり Windows 98系で動かすことは無いだろうけど、なぜにわざわざ CMD.EXE
と決めうちをする？
> ありがとうございます。自己解決しました。
答えを教えてもらってるんだから、自己解決とは言わないと思うが。
0486482=484
NGNG>答えを教えてもらってるんだから、自己解決とは言わないと思うが。
ここに書き込んで答えを待ってる間にも必死こいて検索してました。
で、そこで答えを見つけたって訳です、はい。
>あまり Windows 98系で動かすことは無いだろうけど、なぜにわざわざ CMD.EXE
>と決めうちをする？
え～っと、別に決めうちしてる訳では無く上記で書いている検索した時に、こう記述
されていたので、そのまま引用しました。
ちなみに２０００サーバ上でしか動作しないアプリなので一応問題は無いです。
が将来的な事も考えて、アドバイスの通りに変更しようと思います。
当方ＵＮＩＸ一筋で、ＷＩＮＤＯＷＳ系の環境変数には疎いもので・・・。
0487デフォルトの名無しさん
NGNG0488デフォルトの名無しさん
NGNGhttp://www.kanazawa-net.ne.jp/~pmansato/VisualBasic.htm
0489デフォルトの名無しさん
NGNGガキのページなんか参考にするなよ。
> しかし、BASIC をベースにしていることによる限界を超えることは構造的にできっこないのです。つまり、ポインタを直接、扱えないことは致命的です。
VaPtr ObjPtr StrPtrでポインタは使用できるし、
ポインタを使用できないのはJavaも同じで利点でもある。
0490デフォルトの名無しさん
NGNG0491デフォルトの名無しさん
NGNGなんだこれ。どこの誰かもわからんやつのページを引用するなよ。
あ、本人の宣伝か？ｗ
0492デフォルトの名無しさん
NGNG＞VB.NET を勉強しようと考えている人は思いとどまりなさい。.NET にかかわらざるを得ないのであれば、
＞C# のほうを選択すべきです。C# の開発者は Delphi を開発した人です。Microsoft のアホとは違います。
だとよ。
ここの人えらくＶＢが嫌いみたいだね。何か怨みまくっているというか。
0493デフォルトの名無しさん
NGNG一応見たが・・・なんとも厨房くさいサイトだな。
最強だの野望だの限界だの、いかにもドラゴンボール見て
育ちましたって感じの単語がテンコモリでﾜﾛﾀよｗ
0494デフォルトの名無しさん
NGNG＞このサイトを「お気に入り」に登録しておいて、ときどき、巡回してください。
＞おもわぬ、拾い物があるかもしれません。
句読点の、使い方を、勉強しなおしてください。
しかし自分のホームページで「巡回してください」だの「拾い物があるかも」だの。。
厚顔無恥というかずうずうしいというか。
0495デフォルトの名無しさん
NGNG0496デフォルトの名無しさん
NGNG> 私自身は、Mac のユーザーではありませんので、何ともいえないのですが、使えるアプリケーションの数などを除けば、いまだに、追いついていないように感じています。
何とも言えない？思いっきり追いついていないって言ってるじゃないか。
0497デフォルトの名無しさん
NGNGjpgで画像を保存する時に
自動でファイル名をつけるには
どうしたらいいですか？
あと、プロジェクトのパスは
どうやって取得するのですか？
現在
PictureBox.Image.Save("C:\a.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
お願いします。
0498デフォルトの名無しさん
NGNGプロジェクトはしらんがEXEのパスなら
Application.StartupPath だ。
0499497
NGNGありがとうございます～～～。
EXEのパスのことでした。
0500デフォルトの名無しさん
NGNG自動ってなんでもいいのか？
0501デフォルトの名無しさん
NGNG辞書ファイルを同梱して、そこから勝手に選んで名前をつけるってどうだ？
「おまえの名前は今日からbanana.jpgだ。ありがたく思え。」って
0503497
NGNG何でもいいです。
連番でも、文字でも。
保存時のファイル名記入を省きたいので。
>>501
面白い～～～～。
後でフォルダ開いたら、
バナナ.jpg・痒い.jpg・1さん.jpg・松葉杖.jpg
いいかも！！
0504デフォルトの名無しさん
NGNGなんでもいいんならSystem.Randomで乱数とって使えばいいんじゃないの？
0505デフォルトの名無しさん
NGNG0506デフォルトの名無しさん
NGNG0507497
NGNGレスありがとうございます。
色々試したところ、重複がなさそうなので
GUIDにしました。
ありがとうございました。
個人的にファイル名が長くて
好きです。
0510デフォルトの名無しさん
NGNG>個人的にファイル名が長くて
>好きです。
ﾜﾗﾀ
0511デフォルトの名無しさん
NGNG表示されていたらＭＤＩ子フォームのメニューだけが表示され、ＭＤＩ子フォームが表示されてい
なければメインフォームのメニューだけが表示されますが、ＶＢ．ＮＥＴだと、ＭＤＩ子フォームを
表示している時にでもＭＤＩ子フォームのメニューとメインフォーム側のメニューが両方とも表示
されてしまいますが、これはコード側で制御するしかないのでしょうか？
0512デフォルトの名無しさん
NGNGFormクラスのMenuプロパティのヘルプ見れ
0513デフォルトの名無しさん
NGNG0515デフォルトの名無しさん
NGNGその中途半端さが最大の魅力でもあったんだがな
■ このスレッドは過去ログ倉庫に格納されています