【老若】VB.net質問ｽﾚ【男女】
レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん
NGNGと憤慨しているｱﾅﾀ!
の為に立ててみました。
VB.net初心者～VB.net神
まで自由に書き込んでﾁｮ。
00021
NGNGスレッドのレベルが下がります。
0004デフォルトの名無しさん
NGNGVB.NETを使って子供を作りたいんですが、なにから手をつけていいか見当もつきません。
検索のヒントや足がかりでいいんで、ご教授下さい。
0005デフォルトの名無しさん
NGNG0006デフォルトの名無しさん
NGNGなにVB厨のせいにしてんだよ。
0007デフォルトの名無しさん
NGNG表示されてしまうのは仕様ですか？
半角、全角、半角と入力してから記号(<とか)を入れると出ます。
0008デフォルトの名無しさん
NGNGクライアント側で、ボタンを押すことによりページを更新することは出来ますが、
タイマー等で定期的にページを更新して、クライアントの画面を書き換えるには
何か他の技術がいるのでしょうか？
誰か教えてくれませんか？
0009デフォルトの名無しさん
NGNG正直、VBからやり直し。
0010デフォルトの名無しさん
NGNGJavaScript もしくは HTTPのRefresh
00118
NGNG回答ありがとうございます
HTTPのRefreshを使っての画面更新は成功してるんですが、
それだと画面全ての更新になっちゃって（あたりまえですが）、
画面がちらついたり、大きな画面だと途中までスクロールしてたのが
画面更新時にページトップに戻されたり、と...
例えば画面に表示されているテキストボックスだけ、とか
ラベルの表示だけ等を行いたいのですが
尚JavaアプレットやJavaScriptは使わない方向で、Webフォームアプリケーションで
出来る方法があると良いんですけど...
00121
NGNGは1:ではありません
0013デフォルトの名無しさん
NGNG00158
NGNGWinアプリ（Winフォーム？）で作ると、クライアントに.netフレームワークが
必要になるので、なるべくWebフォームを使いたいんですけど...
0016デフォルトの名無しさん
NGNGFLASHのXMLソケット使え
0017デフォルトの名無しさん
NGNG0018デフォルトの名無しさん
NGNGC#Aになってくれることを熱望。
このままVB厨を隔離してしまおう。
001917
NGNGマクロの言語が単純にVB.netA(?)とかC#Aとかになるとは思えない。
1PCに1Officeの関係が続くのかどうか。。。
開発環境革命だっけ？そういうぐらいだから、ｶﾅｰﾘ変わってしまいそう・・・。
今、VC#でも使って書き直してるのかな？（ｗ
0020デフォルトの名無しさん
NGNG0021デフォルトの名無しさん
NGNG無駄にフレームワークだけ入れてうきうきするのが吉。
0022デフォルトの名無しさん
NGNG0023デフォルトの名無しさん
NGNGProcess.Start
0024デフォルトの名無しさん
NGNG静止画ならpictureboxですが、
動画の場合はどのコントロールになるでしょうか？
できれば、.netコンポーネント(?)がいいです。
0025デフォルトの名無しさん
NGNG0026デフォルトの名無しさん
NGNGMediaPlayer
0027デフォルトの名無しさん
NGNGリファレンスがないときつぃ
0028デフォルトの名無しさん
NGNG取りあえずこのバカの用語誰か矯正しろ。
0029デフォルトの名無しさん
NGNG0030デフォルトの名無しさん
NGNG0031デフォルトの名無しさん
NGNG0032デフォルトの名無しさん
NGNG0033デフォルトの名無しさん
NGNG0034デフォルトの名無しさん
NGNG0035デフォルトの名無しさん
NGNGおまえが矯正しろ。いや、してみろ。
0036デフォルトの名無しさん
NGNG0037.NETレス
NGNGSystem.Drawing.ImageAnimatorクラスを利用して、
PictureBoxでもFormでも好きなところに描画すれ。
>>27
リファレンスは.NET Framework SDKドキュメントがあるだろ。
0038デフォルトの名無しさん
NGNG試してみます。
0039デフォルトの名無しさん
NGNG0040デフォルトの名無しさん
NGNG0041nonodyさん
NGNGやっぱ、ＩＩＳサーバーが付いた２０００ｐｒｏとか
ＸＰｐｒｏじゃなきゃダメなのですか？
私、ＸＰｈｏｍｅなんですけど。
0042デフォルトの名無しさん
NGNG動的なWebプログラム？
ジェネレータみたいなもんか？
0043デフォルトの名無しさん
NGNGWebアプリケーションはHomeEditionでは作れないのでは？？
0044デフォルトの名無しさん
NGNG004543
NGNGIISがインストール出来ないんでしたっけ？HomeEditionって？
WebアプリてIISが無いと動かんらしいし、ﾑｿっぽい
0046デフォルトの名無しさん
NGNGIISなくてもASP.NETはできるよ。
WebMatrixのWebサーバーでも使ってみたら？
http://www.asp.net/webmatrix/default.aspx?tabindex=4&tabid=46
0047デフォルトの名無しさん
NGNG内容は、ボタンを押すとリストボックスの内容をクリアし、更新する、と言ったものです
エラーコードは
System.IndexOutOfRangeException: インデックスが配列の境界外です。（以下略
と出ます．．．
Public Class Form1
Inherits System.Windows.Forms.Form
Public Sub List_Update()
Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To 5
ListBox1.Items.Add(CStr(i))
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
List_Update()
End Sub
Private Sub ListBox1_SelectedItem(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles ListBox1.MouseDown
Dim s As String
s = ListBox1.SelectedItem
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
List_Update()
End Sub
End Class
004847
NGNGフォームにListBox1とButton1があるものとします。
フォームロード後、そのままListBox1をクリックすると、エラーも出ずに
ListBox1_SelectedItemイベントが発生するのですが、
Button1クリック後、ListBox1をクリックすると上記エラーが出ます。
ListBox1.Clearイベントの他に何か必要でしょうか？？
0049nonodyさん
NGNG日本語バージョンを探してみたけど、
http://www.microsoft.com/japan/msdn/netframework/technical/aspnet.asp
から
ジャンプして
http://www.microsoft.com/japan/msdn/netframework/prodinfo/getdotnet.asp#download
には、
>Microsoft Windows XP (ASP.NET を実行するには Windows XP Professional が必要です。)
となってるよ・・・？？？
0050デフォルトの名無しさん
NGNG試せば分かるっつーの
0051デフォルトの名無しさん
NGNGあれって開発用じゃなかた？
アプリを実行するのはProffesionalが必要では？
0052nonodyさん
NGNGhttp://www.wintellect.com/resources/faqs/default.asp?faq_id=1
What platforms does ASP.NET run on?
Currently, it's supported on Windows 2000 and Windows XP.
ASP.NET integrates with Internet Information Server (IIS) and thus requires that IIS be installed.
It runs on server and non-server editions of Windows 2000 and XP as long as IIS is installed.
Microsoft originally planned to support ASP.NET on Windows NT 4.0, but had to reconsider due to time and technical constraints.
読めるか。おまえ。
0054nonodyさん
NGNG0055デフォルトの名無しさん
NGNG氏ね。低脳が。
http://www.asp.net/webmatrix/default.aspx?tabindex=4&tabid=46
>Develop and test your ASP.NET applications, without requiring IIS.
>Web Matrix includes a lightweight personal web server that serves
>most web content, including ASP.NET pages and XML Web Services, for
>local requests.
0056nonodyさん
NGNGできないじゃん！
0057デフォルトの名無しさん
NGNG005951
NGNGMSの罠...
以前、.netのサポートにASP.NETが他のApache等のWEBサーバで動作できるか
問い合わせた所、一度は出来ますと回答してくれたのにその後すぐTELがきて、
動作はできる..かもしれませんがサポートしません、と言われました...
OSの他、Webサーバ、OS、その他もろもろ全てMS製品で統一させようと、
そういうことなのかも...？
0060デフォルトの名無しさん
NGNG006147
NGNGの、イベントをMouseDownからMouseUpに変更したら逝けました！
VB6でもこういう現象がよくあったんですが、
なぜなんでしょうね...
イベント関係はﾋﾞﾐｮｰな模様です
板汚してすんまへんでした
0062nonody
NGNG２バイトコードはご遠慮くださいとか制約があって、修正中なのかな?
0064デフォルトの名無しさん
NGNG0066デフォルトの名無しさん
NGNG0067デフォルトの名無しさん
NGNG>>できないじゃん！
そんな事言わないで一緒に頑張りましょう！
0070名無しさん＠お腹いっぱい
NGNGこれって基本的な問題の様な気がしますが・・・
やっぱ、VB.net買ってwebアプリ作ろうと思えば、大きな壁になるのでは？
なんで今まで明確になっていなかったのでしょうか？
0071.NETレス
NGNG基本的そのコードで問題ないみたいだけど。
以下、実際の実験コード。SDKでやってるので、いろいろ補足しますた。
環境：Win2000(SP2+SRP1)、IE6.0、.NET Framework SDK(SP1)(1.00.3705.209)
' コンパイルオプション
'vbc /t:winexe /r:System.dll /r:System.Drawing.dll
' /r:System.Windows.Forms.dll ListTest.vb /optionstrict+ /optimize+
Imports System
Imports System.Drawing
Imports System.Windows.Forms
Public Class ListTest
Inherits Form
Friend WithEvents ListBox1 As ListBox = New ListBox()
Friend WithEvents Button1 As Button = New Button()
Public Sub New()
Button1.Location = New Point(0,200)
Me.Controls.AddRange(New Control(){ListBox1,Button1})
End Sub
Public Shared Sub Main()
Application.Run(New ListTest())
End Sub
Public Sub List_Update()
Dim i As Integer
ListBox1.Items.Clear()
For i = 1 To 5
ListBox1.Items.Add(CStr(i))
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
List_Update()
End Sub
Private Sub ListBox1_SelectedItem(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles ListBox1.MouseDown
Dim s As String
s = CStr(ListBox1.SelectedItem)
MessageBox.Show(s)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
List_Update()
End Sub
End Class
007247
NGNGサンプルコードまでありがとうございます！
早速試してみましたが、Exeで実行してみると全く問題はありません
（私が書いたサンプルもそうだと思います）
ただ、デバッガを使用してList_updateとSelectedItemの所にブレークを張ると、
前述したエラーがでてしまいます
実は他のプログラムを上記のようなプログラムでテストしていたのですが、
そっちの方ではExeでもデバッガ使用時でも同様のエラーが発生してしまい、悩んでました
そこで、イベントの発生順序の遅いMouseUpにしたら、その症状は治ってしまいました
VB6でもGotFocus、LostFocus、TextChageプロパティ等を駆使してプログラムを
作っているとExeではエラーで落ちる！ということがよくあり、イベントの発生順序を
変えてみると直ったということがよくありまして、今回も多分同じような現象だと
思いました
ちなみに私の環境環境：
Win2000(SP2+SRP1)、IE6.0
Microsoft Development Environment 2002 Version 7.0.9486
Microsoft .NET Framework1.0 Version 1.0.3705
0073デフォルトの名無しさん
NGNG0074デフォルトの名無しさん
NGNG0075デフォルトの名無しさん
NGNGVB.NETの圧勝。
0076デフォルトの名無しさん
NGNG会社に聞け。大抵Delは使ったらダメといわれると思うが。
0077デフォルトの名無しさん
NGNG「ダメ」というより「何それ？」
0078デフォルトの名無しさん
NGNG0079デフォルトの名無しさん
NGNG0080デフォルトの名無しさん
NGNGおいて、コンストラクタでメンバの長さを決定するしかないのでしょうか。
ファイルにレコードを書き出したり読み込んだりする、ごく普通の処理を
やろうとしていますが．．．．
0081デフォルトの名無しさん
NGNGコンストラクタ作ってnewすれば？
0082デフォルトの名無しさん
NGNG0083デフォルトの名無しさん
NGNGだって同じ労力でC#覚えられるし。
そもそもVBユーザにVB.Netは使えない。
0084デフォルトの名無しさん
NGNG0085デフォルトの名無しさん
NGNGそやね。でも構造体の中には引数無しのコンストラクタはつくれんけどな。
0086デフォルトの名無しさん
NGNG激しく同意
VB6からVB.NETに移行中ですが
ｵﾌﾞｼﾞｪｸﾄ指向というだけでVBﾕｰｻﾞにはｷﾂｲ、と思われ
Form自体ｸﾗｽになってるし．．．
VB感覚ではちょっとﾑｿかも
0087デフォルトの名無しさん
NGNGWinFormアプリケーションで、
ホームページのようにフレーム表示、切り替えっていうのは出来るのでしょうか？
（例えば ttp://www.2ch.net/2ch.html のように左側にメニュー、右側に
切り替える画面、みたいな）
MDIﾌｫｰﾑを使ったりするのが良いですか？
0088デフォルトの名無しさん
NGNGVB6もFormはクラス
0089デフォルトの名無しさん
NGNG良ければどなたか教えてください。
Winフォームアプリケーションで、MDIフォームのアプリを作成しようとしています。
ここで、フォームのプロパティ－DockPadding－Left を１００に設定し、
さらにフォームの背景色を変えようとしています。
MDI子フォームが表示される所の色設定は表示－BackgroundImageで、イメージを指定することにより
行えたんですが、フォームの左端から、MDI子フォームが表示される部分の左端までの領域の色を
指定することが出来ません．．．
色々ヘルプ、プロパティを見てみたのですが、その部分の色指定の方法が見つからず困っています。
どなたかお力を貸して頂けませんでしょうか？
0090デフォルトの名無しさん
NGNG正確には、クラスでありインスタンスであるという
ややこしいもの。
0091デフォルトの名無しさん
NGNGグローバル変数が宣言されているということだね。たしかにややこしい。
BCBやDelphiもなぜVBと同じややこしい方法をとったのかも疑問。
0092デフォルトの名無しさん
NGNGTForm1 :クラス
Form1 :インスタンス（グローバル）
その表現は正確ではない。
0093デフォルトの名無しさん
NGNGVB6で全くできなかったのは継承ぐらいだろ？
簡単なクラスでも作ってた奴なら
VB.NET意味不明なんてことにはならない。
0094デフォルトの名無しさん
NGNGクラス <> オブジェクト指向
多様やらなんやらあって初めてOO
0095デフォルトの名無しさん
NGNGImplementsでインタフェースを実装して、
多々異性とやってましたが何か？
0096デフォルトの名無しさん
NGNGしゃべらない方が良い・・・。
0097デフォルトの名無しさん
NGNGそういう反応をすると、非OOという理由だけでVBを叩いていた人達を喜ばせるだけです。
0098デフォルトの名無しさん
NGNG0099デフォルトの名無しさん
NGNGじゃあVB6はOOってわけだ。
0100デフォルトの名無しさん
NGNGそうだよ
0101デフォルトの名無しさん
NGNGInetコントロールを使って、HTTPプロトコルでファイルをアップロードする方法を
ご存知の方がいらしたら、方法を教えてもらえませんでしょうか。
POSTメソッドで送るのかな、と思っていますが、
じゃあフォームデータにファイルの中身を全部入れるのか、とか
ヘッダはどう書けばいいのか、とかで困っています。
ファイルはテキスト、バイナリ両方です。容量は10MB近く行く可能性もあります。
HTTPとInetコントロールで、というのは基本要件なので、変更できません。
よろしくお願いします。
0102デフォルトの名無しさん
NGNGVB.NETならWebClientクラス使おうよ。
0103デフォルトの名無しさん
NGNG0104デフォルトの名無しさん
NGNGできます。つか、やればすぐわかるっしょ。
クラスもネストできます。
0105デフォルトの名無しさん
NGNGメンバを入れてなかったためにエラーしてたみたいです。
書く場所を間違えたのかと思ってしまったのです。
0106デフォルトの名無しさん
NGNGこれはメモリ上にアップデート用のスクリーンバッファを
持っとけつーことか？ いちいち書き直すの面倒だしなあ．．．
0107デフォルトの名無しさん
NGNG0108デフォルトの名無しさん
NGNGOnPaint、OnPaintBackgroundをオーバーライドするよろし。
BitmapクラスとGraphicsクラスを調べれ。
旧VBのPictureBox関連のアップグレードはだめぽ。
0109sage
NGNGVBスレと間違えました。
VB6での質問でした。
いろんなサイトを回ったのですが、同様の質問はあるものの、良い回答はありませんでした。
ということでInetコントロールではファイルのPOST(multi-partフォームの送信）
は面倒そうなのですが、やるだけやってみます。
0110デフォルトの名無しさん
NGNGいや，結構複雑な内容なのでイベントの度ごとに再描画するように
すんのがめんどいと（ｗ
最初から書き直すくらいだったら，イメージをオフスクリーンに
バックアップしておいて転送するかなあとか思ったり。
書きっぱなでほっとければいいのになあ。
0111デフォルトの名無しさん
NGNG>最初から書き直すくらいだったら，イメージをオフスクリーンに
>バックアップしておいて転送するかなあとか思ったり。
そう組めばいいじゃん。
AutoRedrawは裏でやってただけだし。
0112デフォルトの名無しさん
NGNG71のコードで、47が言ってる
>System.IndexOutOfRangeException: インデックスが配列の境界外です。
が出たよ。
うーん、でも何でだろう。
ドキュメントにはこの例外が発生するとは書いてないし・・・。
0113デフォルトの名無しさん
NGNG・・・
・・・
Exit Sub
errorhandler:
if err.numbe=○○ then
・・・
end if
●●
End Sub
と
Try
catch○○
finaly●●
と、異なる部分を教えてください。
0114デフォルトの名無しさん
NGNG0115名無しさん＠カラアゲうまうま
NGNG例外を階層化できる。
…のかな、VB.netでも。
0116デフォルトの名無しさん
NGNGレスありがとうございます。
例外を階層化できるのが違う。。。
φ(..)ﾒﾓﾒﾓ
0117デフォルトの名無しさん
NGNGFinallyは例外が起きても起きなくても必ず実行される。
0118デフォルトの名無しさん
NGNGコンポーネントの作成・勉強をしています。
ttp://home.impress.co.jp/books/wrox/download/index.htm
で、下のサンプルコード（source_pro_vbnet2\ch04\TransAppあたり）
ttp://home.impress.co.jp/books/wrox/download/source_pro_vbnet2.lzh
を使ってCOM+コンポーネントの作成等をしています。
（サンプルＰＧではコンポーネント内でSQL-Severを使ってDB更新をしていますが、
インストールしていなかったので、その部分をイベントログでテストしました。）
ローカルにCOM+コンポーネントを登録して、VB.NETから呼び出すことは、
出来たのですが、ネットワーク上のコンピュータで動いている、
COM+コンポーネントを呼び出すことができません。
ってか、サンプルコードがありませんでした･･･
正直、コンポーネントのことがよくわかっていません･･･
まずは、COM+等について勉強するべきだとは思うのですが、
時間がないため、後回しになっています。
どなたか、vb.netから、ネットワーク上のコンピュータにある、
COM+コンポーネントを呼び出す方法を教えてください。
0119デフォルトの名無しさん
NGNGありがとうございます。φ(..)ﾒﾓﾒﾓ
0120名無しさん
NGNG0121デフォルトの名無しさん
NGNG何もかもです。
0122デフォルトの名無しさん
NGNGWeb セットアップ プロジェクト
がないのはどうして？
セットアップ プロジェクトだけなんだけど。。。
ＷＥＢアプリをどうやってサーバーに配置したらいいの？？
知ってる人いたら教えてください！
0123デフォルトの名無しさん
NGNGInetコントロールを貼り付けようとすると
「このActiveXコントロールを使用するライセンスがありません」
と出てしまいます。どうしたら使えるようになりますか？
Visual Studio.net Professional MSDN Deluxe Editionです。
0124デフォルトの名無しさん
NGNG.Net使ってるのにInetコントロールなんか使うんすか？
なんで？
0125123
NGNGVB6.0の参考書見て、やろうとしたんだけど。
.netだったら何使えばいいの？
つーか他の方法があるなら勉強しなおします。
0126しぃ
NGNG／(*ﾟーﾟ) ／＼ 月額200円コバルト激安レンタルサーバーホスティング
／|￣∪∪￣|＼／ 50MB大容量。電子メール最大20個作成可能
サブドメイン、独自ドメインOK CGI/SSI/PHP/ASP/JSP利用可能
0127デフォルトの名無しさん
NGNGクラスライブラリに何があるかをヘルプでもなんでもつかって探して
みろよ、というとこなんだが。ていうかヘルプで完全にわかるぞ。
System.Netから目的にあったクラスを探してみ。
それがわからないのならまずコードをいじるより．NET関連本を嫁。
0128123
NGNGOK、わかった。本買ってきたっす。ｻﾝｸｽ。
0129デフォルトの名無しさん
NGNGHTTPが見つからなければSocketから作る。
それがクリエイター。
0130デフォルトの名無しさん
NGNGもしそうだとしたら作ったソフトを使う人はみんなDLしてｲﾝｽｺする必要があるんですよね？
0131デフォルトの名無しさん
NGNGクソで名高い旧VBと現時点では一緒。
しかし、Windows.NET Serverのように標準添付になるのも時間の問題。
0132デフォルトの名無しさん
NGNGC厨の3倍くらい生産性高そう。
0133デフォルトの名無しさん
NGNGなにを釣ろうとしてるんだい？
0134デフォルトの名無しさん
NGNGたぶん、胸のおっきい女の子
0135132
NGNG事実を言ったまでさ。
0136デフォルトの名無しさん
NGNG胸はおっきくなくてもいいけど、眼鏡は必須。
0137デフォルトの名無しさん
NGNG生産性は高いな。ほいほいできる。
保守性はクソだな。
まぁ、あのソフトでスクリプト書いてる奴がクソなんだが。
0138デフォルトの名無しさん
NGNGいや，胸が大きくて眼鏡をかけてないと絶対だめ。
0139デフォルトの名無しさん
NGNG後お下げだ。それで限界を超えられる。
0140デフォルトの名無しさん
NGNGお下げの本数がカギだな。
0142デフォルトの名無しさん
NGNGJava。
0143デフォルトの名無しさん
NGNGVB.Net
0144デフォルトの名無しさん
NGNG0145デフォルトの名無しさん
NGNGVB6ではコントロールの追加でwinsockを入れることが
できたと思うんですけど、VB.netだとツールボックスの
カスタマイズからうまくできません。どうすればいいですか。
玄人のお前ら教えてください。
0146デフォルトの名無しさん
NGNG|-`).。oO(大差ないな･･･)
0147デフォルトの名無しさん
NGNG0148デフォルトの名無しさん
NGNGつぅかせっかくScoketクラスがあるのになぜわざわざOS依存の・・・・
0149デフォルトの名無しさん
NGNG0150デフォルトの名無しさん
NGNGまぁ、VB厨のやりそうなこったな。
0151デフォルトの名無しさん
NGNGで？
0152yoko
NGNG以下の質問をVB初心者スレで聞いていたのですが
こちらのほうがいいというアドバイスをうけたので
転載させていただきます。マルチポストみたいですみません。。。
VB.NETでコード書いてるんですが…
イベントハンドラAで指定したフォルダ内のファイルの有無を
監視して、その他もろもろの処理をしているんですが
このイベントAが10分間発生しなかった場合に別の
プロシージャを呼び出したいんですが、どうするのが
ベストでしょうか？TimerとTimerDelegateのサンプルを
使おうとしたのですが、イベントAが発生しない状態を
どうやってモニターしていいのかわかりません。。。
0153デフォルトの名無しさん
NGNGアドバイスとヒント向こうで出したんだが。
見込みある奴だと思ってたらやっぱりVB厨か。
0154デフォルトの名無しさん
NGNGで？
0155デフォルトの名無しさん
NGNG0156yoko
NGNGフラグのたてかた、もう少しヒントいただけないでしょうか？
0157スネヲ
NGNG0158デフォルトの名無しさん
NGNGこのマルチポストふぁっかーyyk。
質問時は環境ぐらい書け。ｺﾞﾗｧ。
0159デフォルトの名無しさん
NGNGVB.NETって書いてるけど、なにが不足？
0160コギャルとHな出会い
NGNG朝までから騒ぎ！！
小中高生
コギャル～熟女まで
メル友
i/j/PC/対応
女性の子もたくさん来てね
小中高生大歓迎です
全国デ－トスポット情報も有ります。
全国エステ＆ネイル情報あります。
激安携帯情報あります。
0161デフォルトの名無しさん
NGNG家庭環境とか？
兄弟
両親
貯金
0162デフォルトの名無しさん
NGNG>>158
あちこちのVBの掲示板を見てれば答えは自ずと出る。
0164デフォルトの名無しさん
NGNG0165デフォルトの名無しさん
NGNG0166デフォルトの名無しさん
NGNG0167デフォルトの名無しさん
NGNG考えてみましたが、僕も初心者なため全然自信がありません…。
'イベントＡ
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call MsgBox("イベントＡ")
'イベントが発生した場合タイマーを戻す
Timer1.Stop()
Timer1.Start()
End Sub
'タイマー
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Call MsgBox("別のプロシージャ")
End Sub
'Timer1のInterval=600000
かなり厨房なコードだと思いますが、
上級者の方、ご指摘があればご教授願います。
0168＿
NGNG0169デフォルトの名無しさん
NGNGAPIのEnableMenuItem。
0170168
NGNG試して見ますありがとうございます。
0171デフォルトの名無しさん
NGNG0172デフォルトの名無しさん
NGNGしてる
0173デフォルトの名無しさん
NGNGどうやったら反映されますか？
0174デフォルトの名無しさん
NGNGあるがとうございますた
0175ＶＢ歴６時間のＣゲンダ-
NGNGｉｎｔ i = 9;
i /= 6;
と同じ結果得たいんですがどうすりゃいいんですか？
A = 9
A = A / 6
だと1.5になっちまう
( A - A Mod 6 ) / 6
だとスマートじゃない
おしえてくさい
0176デフォルトの名無しさん
NGNGInteger型の変数にほりこめばどうですか？
0177ＶＢ歴九時間
NGNGDim a0 As Integer
こんな感じで宣言すればいいのん？
でもだめぽ・・・
素直に参考書買ってきます
0178デフォルトの名無しさん
NGNG0179デフォルトの名無しさん
NGNG旧VBならここでもなー
0180age
NGNG0181デフォルトの名無しさん
NGNGhttp://msdn.microsoft.com/vbtv/
0182デフォルトの名無しさん
NGNGﾌﾟ
0183デフォルトの名無しさん
NGNGVC++.NETでPublicなメソッドを作って、
VB.NETでそれを使うとか。
ところで、
ｉｎｔ i = 9;
i /= 6;
このときの丸めって切捨てだったっけ？
だったら、Int関数かFix関数を使えばOK。
後さ本題と関係ないけど、VB.NETではA = A / 6はA /= 6と書けるよ。
0184ＶＢ歴二十七時間
NGNGありが㌧
0185デフォルトの名無しさん
NGNGhttp://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnvssamp/html/vb_VBSamplesTop.asp
0186デフォルトの名無しさん
NGNGを
#Region " Windows フォーム デザイナで生成されたコード "
#End Region
の下につけて実行すると、
'System.NullReferenceException' のハンドルされていない例外が system.windows.forms.dll で発生しました。
追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。
というエラーメッセージが表示されるのですがなぜなのでしょうか。
0187デフォルトの名無しさん
NGNGなぜ？と思ってましたが、
他の部分に原因がありました。
エラーメッセージの通りだった・・・。
0188デフォルトの名無しさん
NGNGi \ 6じゃなかったか?
0190デフォルトの名無しさん
NGNG他のWindowとかが上に来ると、消えるので、
Paintイベントに描くのはわかったのですが、
いーっぱいいーっぱいPictureboxに描画する場合は（時間がかかる場合）
どういう具合にすればよいか教えてください。
0191デフォルトの名無しさん
NGNG必要なもの描画したら、PictureBoxに描く。
0192デフォルトの名無しさん
NGNGどうもレスありがとうございます。
0193デフォルトの名無しさん
NGNG教えていただけませんでしょうか？？
よろしくお願いいたします。
0194デフォルトの名無しさん
NGNGhttp://pc3.2ch.net/test/read.cgi/tech/1029241786/656
のらしいぞ。
0195デフォルトの名無しさん
NGNGMSCommコンポーネントは使えないのでしょうか。
ＶＢ６用のRS-232Cを使用するサンプルコードを動かしたいのですが、
ＡctiveXコントロールを使用するためのライセンスが無いゴラァと
怒られてしまいます。
0196デフォルトの名無しさん
NGNGVB6は入ってる？で、VBでMSCOMMちゃんと使えてる？
0197デフォルトの名無しさん
NGNGVB6は入ってません。
VB.NETを初めて買いました。
簡単なI/O制御がしたいのです。
参考にしてるのは「Windows2000デバイスドライバ入門」ＣＱ出版
という本です。
0198デフォルトの名無しさん
NGNG>ＡＰＩを使ってるのですが、ＶＢと．ＮＥＴでは
>用意されている型が違うくてＶＢ６．０で使ってたような
>コーディングはできないのです＜私の力不足なのでしょうが
GetPrivateProfileString/WritePrivateProfileStringで
変更しないといけないのはLongがIntegerになったぐらい。
基本的にVB6と同じ手順だ。
0199デフォルトの名無しさん
NGNGそりゃライセンスが*本当に*ないので使えない。
0200デフォルトの名無しさん
NGNGVB6ランタイム入れれば、VB6製の実行ファイルは動くだろうけど。
VB.NET standardにはアップグレードウィザードもないから、
そのソースもあんまり活用できないだろう。
0202デフォルトの名無しさん
NGNG>>200
そういうものなんですか。すっきりしました。
ありがとうございます。
もしVB.NETでI/O制御に関するキーワード、MSCOMMみたいなのが
ありましたら教えてください。
できればソースを書き換えてみたいので。
0203デフォルトの名無しさん
NGNG|∧∧ ∧ ∧ ∧ ∧ | ﾊｱﾊｱ オタ歓迎の会社はここか？
| ﾟДﾟ）（；ﾟДﾟ）（；ﾟДﾟ）. | ﾊｱﾊｱ オタでもいいのか？
| ∧ ∧ /⌒ ヽ∧ ∧ ﾊｱﾊｱ
|（；ﾟДﾟ） /| | ∧ ∧ （；ﾟДﾟ） ﾊｱﾊｱ 俺は日立ソフトに
|⌒ ∧ ∧| （；ﾟДﾟ） ∧ ∧ ﾊｱﾊｱ 入るぞ！
|） （；ﾟДﾟ） ⌒ ∧ ∧ （；ﾟДﾟ） ﾊｱﾊｱ
| /⌒ ヽ （；ﾟДﾟ）⌒ ヽ ﾊｱﾊｱ 俺も！
| /| | | |/⌒ ヽ | | 俺もだ！！ ﾊｱﾊｱ
|ﾉ ＼＼ ／|/| | | |＼.／| |
| ＼＼ ﾉ ＼＼.／| |＼＼ | |
|/⌒＼し'/ .＼＼ | |ヽ し'(ノ
| >/ /⌒＼し'(ノ > )
| ／ ／ > ) / ／
| / / つ / ／ （＿つ
| し' （＿つ |
|￣￣￣￣￣￣￣￣￣￣ ＼
| ｿﾞﾛｿﾞﾛ… ＼
| ＼
0204アニメ初心者
NGNGアニメのサンプルで、Form_paintではなく、Form_resizeをオーバライドしているけど、
この方が普通のやり方なの？？ 両方の違いを説明したものあれば紹介して欲しい。
0205アニメ初心者
NGNG何でだろう！
簡単な下のコードで、楕円の横幅がどんどん広がってくる。
'円の中心位置
Dim m_posX As Long
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
m_posX = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
m_posX = m_posX + 1
'図形描画のために変数GraphicsFunを定義する
Dim GraphicsFun As System.Drawing.Graphics
GraphicsFun = Me.CreateGraphics
GraphicsFun.Clear(BackColor)
'ブラシの色(赤)を指定して図形(円)を描く
Dim BrushColor As New SolidBrush(Color.Red)
GraphicsFun.FillEllipse(BrushColor, (m_posX - 100), 50, (m_posX + 100), 250)
GraphicsFun.Dispose()
End Sub
0206デフォルトの名無しさん
NGNG全然不思議でもなんでもないが．
0207アニメ初心者
NGNGシミマセン。分かりません。
RECTのX軸が200で一定なのに、何で伸びるの？
0208デフォルトの名無しさん
NGNG>RECTのX軸が200で一定なのに
どこがやねん！ m_posX = m_posX + 1で増えてんで。
0209185
NGNGどうやってコンパイルしたらいいのかわかりません。
コンパイル用バッチファイルも付けて欲しかった・・・。
コンパイルは一応通るんですが、例外で落ちてしまいます。
リソースまわりの扱いの問題だと思うんだが・・・。
今は、以下のようにやってます。
> ResGen /compile frmMain.resx frmAbout.resx
でfrmMain.resources,frmAbout.resourcesを作って、
それから以下のオプションでコンパイル。
> vbc @build.txt
-----------------------------
build.txt(オプション指定)の中身
-----------------------------
/t:winexe /out:ani.exe /r:System.dll,System.Drawing.dll,System.Windows.Forms.dll
/optimize+ /optionstrict+ frmMain.vb frmAbout.vb AssemblyInfo.vb
/main:frmMain
/imports:System,System.Drawing,System.Windows.Forms,Microsoft.VisualBasic
/res:frmMain.resources,frmAbout.resources,public
/debug+
SDKでコンパイルして動いた人いたら教えてください！
0210アニメ
NGNG勘違いに気がつきました。
ありがとう（＝蟻X１０）
0211アニメ初心者
NGNGバックバッファに一旦描画して、一括表示するしかないの？？
Timer1_Tick内で描画させようとするものを
Windowsがまるごとメモリを保存し、メモリから自動的に読み出して再描画するしくみあったら教えて欲しい。
0212デフォルトの名無しさん
NGNGダブルバッファ実装しろや。
0213デフォルトの名無しさん
NGNGGraphicsオブジェクトを生成。そいつにいろいろ描画しておいてから、
最後にPaintEventArgsのe.Graphics.DrawImageでBitmapを表示。
0214デフォルトの名無しさん
NGNG0215アニメ初心者
NGNGダブルバッファは、
VB6の時のように、PictureBoxをバックバッファとして、図形を書き込み、
それを同じ大きさのPictureBoxに一括表示させる方法のこと？
VB.NETでも同じことをすれば良い？？
0216アニメ初心者
NGNG以下で試してみたけど、数秒おきにチカチカと白っぽい線が流れてしまう。
どうしたら良かね。
やり方が根本的に間違っている？？
'円のビットマップ
Private bitmapBall As Bitmap
'移動用
Private m_posX As Long
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'図形描画のために変数GraphicsFunを定義する
Dim GraphicsFun As System.Drawing.Graphics
GraphicsFun = Me.CreateGraphics
'図形（円）bitmapをつくる
bitmapBall = New Bitmap(100, 100)
GraphicsFun = Graphics.FromImage(bitmapBall)
'GraphicsFun.Clear(BackColor)
'ブラシの色(赤)を指定して図形(円)を描く
Dim BrushColor As New SolidBrush(Color.Red)
GraphicsFun.FillEllipse(BrushColor, 0, 0, 100, 100)
GraphicsFun.Dispose()
Timer1.Enabled = True
Timer1.Interval = 50
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
m_posX = m_posX + 1
Me.Refresh()
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
e.Graphics.DrawImage(bitmapBall, m_posX, 0)
End Sub
0217213
NGNGBitmapオブジェクトを裏画面として使うのは常道。
>>216
それじゃ裏画面の意味がまったくないぞ(^^;;;;;
Me.CreatGraphicsはわないし、Loadイベントで描画の処理もしない。
＃GraphicsFun = Me.CreateGraphicsの行で作成したGraphicsオブジェクトが
＃Disposeメソッドが発行されていないので、GCが働くまでメモリ無駄に食いっぱなし。
＃Bitmapオブジェクトも同様。
FormのOnPaintBackgroundメソッドをオーバーライドして、
描画処理はすべてそこに書く。
このメソッドの引数はPaintEventArgsなので、
e.Graphicsに最終的に描画します。
Bitmapオブジェクトには、最終的な描画までの途中経過を書く。
Timer1_Tickの中はMe.RefreshよりMe.Invalidateの方がいいかも。
0218213
NGNGMe.CreatGraphicsは使わないし
0219仕様書無しさん
NGNGVBで、set obj = GetObject("なんたら.mdb") で *.mdb ファイルを開いてから
obj.VBE.ActiveVBProject.VBComponents を弄って、
obj.Quit するとトマソン博士が出てくる ヽ(;´д｀)ノ
obj.VBE に触らなければ問題ないようです。
どうすれば Quit できるでしょう？
0221アニメ初心者
NGNGありがとうございます。
初心者につき、完全に理解できません。
簡単な、サンプルコード頂けないでしょうか。
0222デフォルトの名無しさん
NGNG普通Redrawは、他のウィンドウなんかに隠されたウィンドウが再度
フォーカスを得たときに再描画すればいいのだから、Paintイベントが
発生すればいいので、書いた直後に反映させるためにはRefreshでも
いいのでは。
その後は勝手にイベント発生するし。
タイマーで再描画し続けるのはむしろ邪道なのでは。
タイマーでやりたいときは、オフスクリーンに一旦描画して、描画後に
Paintイベント発行そのその後はイベント発生するごとに、マターリと
オンスクリーンに転送するのが本道では。
0223213
NGNG>Refreshでもいいのでは。
駄目じゃないが、Refreshは子コントロールの再描画も呼ぶから無駄ではないかという気がする。
RefreshとInvalidateの機能の違いがヘルプにはそれ以上かかれていないので予想入ってるけど。
System.Windows.Forms.dllを逆アセしてもRefeshはRefresh、InvalidateはInvalidateまでしかわからんかった。
>その後は勝手にイベント発生するし。
この勝手にというのは、他のウィンドウなんかに隠れたときのことを言っているんでしょ？
Tickイベントが発生してもPaintイベントは起きないよ。
> タイマーで再描画し続けるのはむしろ邪道なのでは。
そこでは再描画はしない。
Tickイベントでは描画のための情報の更新(m_posX)とPaintイベントの発行(Me.Invalidate)しかやらないよ。
>タイマーでやりたいときは、オフスクリーンに一旦描画して、描画後に
>Paintイベント発行そのその後はイベント発生するごとに、マターリと
>オンスクリーンに転送するのが本道では。
タイマーで描画するものの位置情報の更新とか行って、
オフスクリーンの描画もその後のオンスクリーンへの転送もPaintイベントでやるよ。
と思ったけど、そっちのがいいね。
つうことで、>>221に答えてあげてくらはい。
0224VBB
NGNGちなみにVisual Basic .NET standard版です。
0225デフォルトの名無しさん
NGNG0226PowerBuilder
NGNG元の Formにボタンとかを載せた場合、
継承先の Formデザイン時には、やっぱり動かせないものになるのが当たり前なんでしょうかね？
0227デフォルトの名無しさん
NGNGImageプロパティに自分で作った Bitmapオブジェクトを入れとけば勝手にやってくれるらしい。
って、NetNewsに流れてた。
Dim loGraphics As Graphics
Dim loBitmap As Bitmap
loBitmap = New Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height, PixelFormat.Format32bppArgb)
loGraphics = Graphics.FromImage(loBitmap)
loGraphics.DrawLine(New Pen(Color.Red), 0, 0, CType(Me.PictureBox1.Width / 2, Integer), CType(Me.PictureBox1.Height / 2, Integer))
Me.PictureBox1.Image = loBitmap
別の内容に変えたい場合は、また Imageから Bitmapを取り出して書き直せば良い、のか？
0228デフォルトの名無しさん
NGNGForm上のオブジェクト自身または、そのオブジェクトのLocationプロパティを
外部に公開しておけばいいのでは？
ただ、それだけではソースコード上からは変更できるけど、
デザイナからやプロパティウィンドウからは設定できないとかになると思うので、
デザイナ上での扱いも規定する場合、おそらく、属性指定を使うと思うよ。
「属性とデザイン時サポート」あたりに載ってる。
0229デフォルトの名無しさん
NGNGプロパティ、メソッドなどを付加していくわけですが、
Property ～～
0230デフォルトの名無しさん
NGNGクラスを作るときに、
プロパティ、メソッドなどを付加していくわけですが、
Public Property ～～
～～
～～
End Property
Public Sub ～～
End Sub
などと数が多くなるとどんなメンバがあるのかとかが
わかりにくくなると思うのですが、
プロトタイプ(?)みたいに、こんなメンバがありますよぉって
わかるようにするにはどうすればよいですか？
0231デフォルトの名無しさん
NGNG多くなりすぎないように努力するくらいかな。
後、IDE使ってるなら、#Regionを活用することか。
そういえば、+/-も切り替えれたと思うけど。
0232デフォルトの名無しさん
NGNGなるほど。ありがとうございました。
0233デフォルトの名無しさん
NGNG0234デフォルトの名無しさん
NGNG２つのフォーム「Form1」「Form2」があります。
Form1のプロシージャでForm2を閉じる方法を教えて下さい。
「Form2.Close」という記述だとエラーにはならないのですが、
フォームが表示されたままで困っています・・・。
0235デフォルトの名無しさん
NGNGForm2.Hide;
Form2.Close;
0236デフォルトの名無しさん
NGNGAddTabPageで追加したページにDataGridを貼り付けたいのですが、うまくいきません。
どなたか、知ってる方いましたらおしえてください。
0237デフォルトの名無しさん
NGNGparentちゃんと設定してる？
0239デフォルトの名無しさん
NGNGいろいろ見てみたんですけど、どうしてもわからない。
「できない」っていう情報でもかまいません。
よろしくお願いします。
0240デフォルトの名無しさん
NGNGそれが無くなったらVBがVBでいられなくなります。
0241デフォルトの名無しさん
NGNG自動構文チェックのチェックをはずす。
0242239
NGNGえ、あるんですか？
探したんですけど見つからなかったんですよ。
できれば教えていただけますでしょうか。
0243236
NGNG設定しておりませんでした。
設定したら、無事解決できました。
0244デフォルトの名無しさん
NGNGツールのオプションからテキストエディタでVB固有
あとは自分でチェックの組み合わせを探してみろ
探せよ
0245239
NGNGそこでしょ、真っ先に探しましたよ
いろいろやってみましたけど、できなかったんですよ
VB6ではそのものずばりの設定があったんですけどねぇ
0246デフォルトの名無しさん
NGNG0247デフォルトの名無しさん
NGNG0248デフォルトの名無しさん
NGNGまだそのチェックをはずす資格を得てないとか。
0249デフォルトの名無しさん
NGNG'選択されているタブページにボタン１を追加する。
TabControl1.SelectedTab.Controls.Add(AddButton)
AddButton.Text = "ボタン１"
上で追加した「ボタン１」をクリックした場合の処理をコード
に書きたい場合はどのように書けばよろしいのでしょうか。
0250デフォルトの名無しさん
NGNGあれおもしろいじゃん。
0251デフォルトの名無しさん
NGNGPrivate Sub AddButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddButton.Click
End Sub
0252デフォルトの名無しさん
NGNGあれ？この変数名って何だったっけ？ちょっと上の方に戻って・・・
ぼん！
「不正な構文です」
俺がVBを使うのをやめたエピソードです。
0253249
NGNGの「AddButton」のところに波線が出てコンパイルエラーになってしまいます。
0254デフォルトの名無しさん
NGNGﾜﾛﾀ。確かにうざい。
0255デフォルトの名無しさん
NGNGまず関係ないけど、AddButtonという、予約語やメソッドにありそうな
まぎらわしい名前を使うのをやめれ。使うならAddedButton。
あと、AddButton.Clickじゃない。これだとAddButtonのメソッドになるので、
そんなもん無いのでエラーになる。
AddButton_Clickが正解。（というかハンドラに結び付けられてたらいいので、
このプロシジャ名はどうでもええ）
もう一回>>251を1キャラクタの見落としもないくらい良く見てみれ。
0256デフォルトの名無しさん
NGNGあ、ハンドラの部分か。そりゃあってますね。
それじゃ255はあぼーんしといてちょ。
0257デフォルトの名無しさん
NGNG>>253よ、ボタンのインスタンスを生成する前に宣言としてこの一文を入れてるかい？
Friend WithEvents AddButton As System.Windows.Forms.Button
0258デフォルトの名無しさん
NGNG257の言うとおり。WithEventsが抜けてるびょん。
ついでに、DimじゃなくFriendにしておくのが吉。
ま、Privateでもいいけどね。
0259デフォルトの名無しさん
NGNG>>253、テメーはもう二度とこのスレに来んなヴォケ。
0260デフォルトの名無しさん
NGNG0261デフォルトの名無しさん
NGNGVB6.0からVB.NETに移行する時のことについて質問させてください。
VB6.0ではTextWidthというFormのメソッドを用いて任意の文字列の幅を
取得したりすることができたと思うのですが
VB.NETにおいてはこのメソッドが無く、アップグレードウイザードを用いても
VB.NET用のコードの修正ができないためコンパイルが失敗してしまいます。
VB.NETでこのTextWidthに当たる物がGraphic.DrawStringの中に
あるらしいということまではわかったのですが、
VB.NETで任意の文字列の幅を取得する場合
これを呼び出して関数を作ったりしないといけないのでしょうか？
もっと簡単に任意の文字列の幅を取得する方法はないのですか？
どなたかわかる方よろしくお願いいたします。
0262253
NGNGすいません。常時接続環境にいないもので
0263デフォルトの名無しさん
NGNG素人の言う簡単にってどういう意味なんだろう。
演算子が出た時点でアウトなのかはたまた２階層以内のクラスで出来ないとダメなのか。
0264261
NGNGつまりTextWidthの変わりをしてくれるような関数やメソッドは
自分で定義して作らなくてはいけないということでしょうか？
今回の目的としては
lvwCH1.Width = Me.TextWidth(lvwLI.Text) * 1.2
と同様の処理をVB.NET用に修正したいというのが意図なんですが・・・
もう一つ質問です。分かる方回答お願いいたします。
Public WithEvents dtpScheduledStartTime1 As AxMSComCtl2.AxDTPicker
Me.dtpScheduledStartTime1 = New AxMSComCtl2.AxDTPicker()
dtpScheduledStartTime1.Value = Now
とあるときコンパイル後に実行しようとすると
'InvalidActiveXStateException' のハンドルされていない例外が axinterop.mscomctl2.dll で発生しました。
とでて強制終了してしまいます。
dtpScheduledStartTime1.Value に値を代入する処理が間違いなんでしょうか？
0265デフォルトの名無しさん
NGNGどこでエラーになる？
それとも統合環境でなくて、コマンドラインでやってるのかい？
0266デフォルトの名無しさん
NGNGこれじゃだめ？
Dim stringSize As SizeF = Me.CreateGraphics.MeasureString(lvwLI.Text, lvwLI.Font)
lvwCH1.Width = stringSize.Width * 1.2
0267デフォルトの名無しさん
NGNG止まってしまうのは
dtpScheduledStartTime1.Value = Now
の部分の処理です。
TabIndex等のメソッドは正常に設定できるので
.Valueメソッドの使い方が悪いのかと想定しているのですが・・・
>>266
環境が会社なので月曜日に試してみます。
ソースの情報が少ない中のアドバイスありがとうございます。
・・・他にも問題多くて困ってます・・・
いっそこのスレの方々に変わりにやって貰いたいです（苦笑）
0268デフォルトの名無しさん
NGNGよく状況がわからんのだけれど、Exceptionが発生するということは、
dtpScheduledStartTime1のインスタンスかNowが自プロセス（がアクセスできる
権限のある）のアドレスとしては未定なのだな。
dtpScheduledStartTime1にMeを付けるか、Nowが定数だったらNowを
フル指定で（System．なんとか．Nowとか）でやってみたらええやろ。多分。
0269デフォルトの名無しさん
NGNGあ、忘れてたけど、ちゃんとNowが属するメンバ調べてやってね。
0270デフォルトの名無しさん
NGNGNowはMicrosoft.VisualBasic.DateAndTimeのNowプロパティだろう。
0271デフォルトの名無しさん
NGNGでも、Alt+TABででてくるやつにきちんとアプリのアイコンを表示するには
どうする？（デフォルトのアイコンになちゃうよ）教えてくれよ。
0272デフォルトの名無しさん
NGNG0273261=267
NGNGlvwLIというのはMSComctlLIB.ListItem型として定義してるようなのですが
その中にFONTというメンバが無いため上記の方法では駄目でした
ちなみにCreateDragImageとか別のメンバでやってみたらコンパイルはとおりました。
とりあえずここの処理の解決は後回しにして確認作業中に問題があったら
また修正に取り組んでみたいと思います。
アドバイスどうもありがとうございました。
>>268
NOWというのは現在時刻を取得するための関数として使われていると思います。
（270のいってることはこのことですかね？）
ちなみに.Valueに適当な定数を入れてみようとしても同じエラーになってしまいます。
同様の処理を発見したのですが、そこは引っかからないのに・・・
根本な原因は別のところなのかなぁ？
ここもコメントアウトすればコンパイルはとおるので解決は後回しにして
先に確認作業はいっていこうと思います。
どうもありがとうございました。
0274デフォルトの名無しさん
NGNG第二引数に指定するのは、Fontオブジェクトだったら何でもいい。
ListViewで使用してるFontオブジェクトを渡せばいいと思うぞ。
ところで、一概にどちらがいいとは言えないが、
COMの方じゃなく.NETのListViewやDateTimePickerに置き換えてはどうかな。
0275デフォルトの名無しさん
NGNG0276デフォルトの名無しさん
NGNG0277デフォルトの名無しさん
NGNG俺的には三週間で飽きた。
0278デフォルトの名無しさん
NGNG国内でＡＳＰの使える無料レンタルサーバー知りませんか？
0279デフォルトの名無しさん
NGNGローカルでも動くよ。WSHで検索。
0280デフォルトの名無しさん
NGNGすんまそん 学校の授業で作った カウンターとか 掲示板を 自分のサイトで
動かしたいのです。
0281デフォルトの名無しさん
NGNG0282デフォルトの名無しさん
NGNG0283デフォルトの名無しさん
NGNGGraphics.FromImage
0284デフォルトの名無しさん
NGNGPublic Structure TEST
<VBFixedArray(10)> Dim ulReserved() As Integer ' 予約
'UPGRADE_TODO: この構造体のインスタンスを初期化するには、"Initialize" を呼び出さなければなりません。 詳細については、'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1026"' をクリックしてください。
Public Sub Initialize()
ReDim ulReserved(10)
End Sub
End Structure
と構造体を定義した上でこの構造体を操作するCのAPIを呼んだ時、
追加情報 : 型 TEST のフィールド ulReserved をマーシャリングできません
この型は構造体フィールドとして、マーシャリングできません。
というエラーが出てしまいます。
関数を呼ぶ前にInitializeを呼んだり、ulReservedの値も設定したりしているのですが
うまくいきません。
いまいち原因が分からないのですが、これは構造体の初期化に問題があるのでしょうか？
それともAPIに問題があるのでしょうか？
また解決法もあれば教えていただけると助かります。
よろしくお願いします。
0285デフォルトの名無しさん
NGNGありがとーーーーーーーーーーーーーーございました。
できますた！！
なるほど。pictureboxはcreategraphicsするけど、
bitmapはgraphicsのメソッドを使うのかー！
φ(..)ﾒﾓﾒﾓ
0286デフォルトの名無しさん
NGNGPaintイベントのe.Graphics使う以外の場合は、ちゃんとDisposeしてね。
0287デフォルトの名無しさん
NGNG早速追加！
ありがとうございまする！
0288デフォルトの名無しさん
NGNG関数を作るときって外部ファイルに書いてますよね?
（VB6の頃はBASファイルに...）
今、それで問題があるんです...
Form1のリストボックスにDBから読み込んだレコードを
Addしようとしているのですが、
Formファイルの中に
frmMaster_Form.lstProgress_Palette.Items.Add(リードした行)
と書くと、うまくいくのですが、
BASファイルの中に書くと、うまくいきません。
VB6の頃は楽勝だったのに...
一応、
Dim frmMaster_Form As frmMaster_Form = New frmMaster_Form()
みたいに参照はしているのですが...
VB.net、変わりすぎてよく解らん!
0289デフォルトの名無しさん
NGNGこのコードはどこに書いているんだ？
このコードを書いているクラス、モジュールでしか、
このfrmMaster_Formを利用できないぞ。
(プロシージャの中に書いてるじゃないよな？プロシージャの中ならこれは単なる
ローカル変数だ)
クラスorモジュールレベルの変数として宣言するなら、
Dimは使うな。Public、Friend、Private、Protected、Protected Friendを区別して使え。
作成したフォームのインスタンスをモジュールに渡していないから、
うまくいっていないと思われ。
0290デフォルトの名無しさん
NGNGfrmMaster_Formをモジュールの変数に渡してやれ。
0291デフォルトの名無しさん
NGNG>Dim frmMaster_Form As frmMaster_Form = New frmMaster_Form()
は、
Module modulesrcUser_Functions
public Function fncInput_File_Read(ByVal strSearch_String as String)
Dim frmMaster_Form As frmMaster_Form = New frmMaster_Form()
に入っていますです。
0292291
NGNG>>289 様
>Dim frmMaster_Form As frmMaster_Form = New frmMaster_Form()
は、
Module modulesrcUser_Functions
public Function fncInput_File_Read(ByVal strSearch_String as String)
Dim frmMaster_Form As frmMaster_Form = New frmMaster_Form()
コレ
に入っていますです。
> 作成したフォームのインスタンスをモジュールに渡していないから
???です...もう、ﾀﾞﾒぽﾟ....
>>290
> frmMaster_Formをモジュールの変数に渡してやれ
意味不明...すいませんです。
一応、下にコード書いておきました....
0293291
NGNGStructure udtCordial_Tags
Dim udtCordial_Tags_strClean_String As String
Dim udtCordial_Tags_strDic_String As String
Dim udtCordial_Tags_strDiscrimer As String
End Structure
Module srcUser_Functions
Public Function fncFile_Read_Using_Dot_NET_Class_Lib(ByVal strSearch_String As String)
Dim frmMaster_Form As frmMaster_Form = New frmMaster_Form()
Dim strReader As StreamReader
strReader = New StreamReader("D:\TEST2.TXT")
Do
Dim strLine_Buffer As String '宣言と同時に初期化
strLine_Buffer = strReader.ReadLine()
If strLine_Buffer <> Nothing Then
Dim strSearch_String_Buffer As String
Dim intRecord_Count As Integer
strSearch_String_Buffer = InStr(strLine_Buffer, strSearch_String)
'frmMaster_Form.lstProgress_Palette.BeginUpdate()
frmMaster_Form.lstProgress_Palette.Items.Add(strLine_Buffer)
'frmMaster_Form.lstProgress_Palette.EndUpdate()
intRecord_Count = strLine_Buffer.Length
Debug.WriteLine(intRecord_Count)
Else
Exit Do
End If
Loop
strReader.Close()
End Function
End Module
0294デフォルトの名無しさん
NGNGひどい命名だな。
293への突っ込みの前に、>>288へ 突っ込み。
>関数を作るときって外部ファイルに書いてますよね?
基本はクラスだ。オブジェクトに付随する振る舞いはそのクラスに記述する。
で>>293のコードだが、
fncFile_Read_Using_Dot_NET_Class_Libの中で利用している
frmMaster_Formのインスタンスはその中独自のものだ。
他で表示しているフォームとは何ら関係ない。
>>289や>>290と同じ意見だよ。
ところで、うまくいかないというのはエラーでもでるのか？
0295294
NGNGこれは無視してくれ。たぶん、エラーはでてないだろうからな。
VB6までにクラスを使ったことないんだろうね。
VB6のForm1の意味を理解した方がいいと思われ。
Cavalier Labの以下のコーナーをざーっと読んでみ。
http://homepage1.nifty.com/CavalierLab/lab/vb/clsmdl/index.html
0296デフォルトの名無しさん
NGNGVB.NETはVB界のバルサンだ（藁
0297デフォルトの名無しさん
NGNG0298デフォルトの名無しさん
NGNG0299デフォルトの名無しさん
NGNG初めてリアルタイムで見た（ｗ
0300デフォルトの名無しさん
NGNG流儀というか作法の闘いがあちらこちらで始まるんだろうな。
0301デフォルトの名無しさん
NGNG如実にこういう質問が増えてるよ。
クラスとインスタンスを区別できてない人は多いんだね。
0302デフォルトの名無しさん
NGNG0303デフォルトの名無しさん
NGNG0304291
NGNG>>295 のサイトを見たら、理解できた （ﾟ∀ﾟ）!!
アリガト...
マジ、恥晒しましたです。ｶﾞｯｸｼ
0305デフォルトの名無しさん
NGNG気にすんな！
ｶﾞﾝｶﾞﾚよ！
0306291
NGNGｱﾘｶﾞﾄﾖ!
VB、難しい...
あきらめモードかも。
OS/400でRPG やってた日々が懐かしい...
0307284
NGNGマーシャリングに関することで質問なのですが
実行時に使われる変数でマーシャリングが不可能な型などは
ある物なのでしょうか？
そもそもマーシャリングがいまいち分かっていないのですが・・・
対象となる変数が数値型配列があるときのみ>>284のメッセージで強制終了されてしまうのですが・・・
0308デフォルトの名無しさん
NGNG＞対象となる変数が数値型配列があるときのみ
ｙうな？
0309デフォルトの名無しさん
NGNG0310デフォルトの名無しさん
NGNGSMTPは System.Web.Mail.MailMessageと System.Web.Mail.SmtpMailで
簡単に送れるようになったけど・・・・
ここにあるでよ！って知ってるﾔｼいない？？
0311デフォルトの名無しさん
NGNG|-`).。oO(.NET Frameworkは提供しないから、誰かが作ったやつを探すしかないね
|-`).。oO(gotodotnetにあったと思うよ・・・
0313310
NGNGここで見つけたけど、なんか微妙にクラス名が違う（ｗ
これってベータ版かなんかで作られたやつなんかな？
いま、いそいそと修正中っす
0314310
NGNG仕方ねぇ～
似せて両方書くか・・・・・
一体なにやってんだろうね、漏れ（ｗ
0315デフォルトの名無しさん
NGNG|-`).。oO(あれって、CDOのラッパじゃないの？なら、Exchangeは不要・・・)
0316デフォルトの名無しさん
NGNG自分用の奴を作っとけば？
0318デフォルトの名無しさん
NGNGスレッドの優先度をリアルタイムにすることは不可能ですか？
0319デフォルトの名無しさん
NGNGそもそもFrameWorkの優先度がそうできない？
0320デフォルトの名無しさん
NGNGぬぬ。無理ですかね？
0321デフォルトの名無しさん
NGNGそんなに時間にシビアな仕事させるのなら別の言語使った方が・・・。
0322デフォルトの名無しさん
NGNG作ってみようかなと思ったのです。
HDBENCHではリアルタイムしてるようなので、
できるかなと思ったのですが、ヘルプになぃぃ。(T_T)
0323デフォルトの名無しさん
NGNGちなみに、CLRなソフトとネイティブなソフトの差はご存じですか？
0324デフォルトの名無しさん
NGNGほとんどわかってません。
.NET Frameworkがいるかいらんかぐらいのもんです。（知識
0325デフォルトの名無しさん
NGNGそんな程度の知識の人がベンチマーク．．．
0326デフォルトの名無しさん
NGNGマシンでは無くって、自分のソフトのベンチを取るから問題ないんだろ。きっと（ｗ
0327デフォルトの名無しさん
NGNG0328デフォルトの名無しさん
NGNG他のアプリを排除したかった・・・。
0329デフォルトの名無しさん
NGNGマシンの電源ぶちっとやるはめになるかもよ。
＃.NETでやったわけでなく、タスクマネージャでいじって遊んでたらやっちまった。
0330デフォルトの名無しさん
NGNG小さな出版社がある。そして文学ファンはこういった出版社を
潰さないため、今後も翻訳を続けてもらうために
１人で同じ本を２・３冊買うことが良くある｡
我々もこういう時だからこそDelphi7を買って
ボーランドを支えるべきなんじゃないだろうか。
Delphi7の売り上げはDelphi8以降の開発資金となるし、
ボーランドジャパンの今後に大きな影響をもたらすだろう。
Delphi7の出来のみを云々するのは
あまりにも近視眼的ではないだろうか？
0331デフォルトの名無しさん
NGNGスレ違いです
0332デフォルトの名無しさん
NGNGその謎は以下のスレに...
http://pc3.2ch.net/test/read.cgi/tech/1031668744/536-538
ここにかかれている内容を信じるかどうかはあなた次第。
Delphi7 を注文してしまった人は、すぐに答えが出るでしょう。
0333デフォルトの名無しさん
NGNGその謎を読むつもりで開いたスレッド・・・・
トップでくつろいでたフサギコ見て和むだけ和んで閉じた漏れは逝ってよしでつか？
0334デフォルトの名無しさん
NGNG使用するコントロールは「Explorer」でいいのでしょうか。検索をかけてみ
てもわかりませんでした・・・・・。このコントロールを貼り付けると、Name
に「AxWebBrowser」と出るんですが、Axの意味が分からず迷ってしまっ
ているのです。御指南よろしくお願いします。
0335デフォルトの名無しさん
NGNG0336デフォルトの名無しさん
NGNGMSに聞けば分るんじゃないの？「おたくのIEはどの言語を使って
作っておられるのですか？あ、後ついでにAxの意味も教えて戴け
ないでしょうか？」
0337デフォルトの名無しさん
NGNG330の発言によりDelphiの人気はさらに下がりました。
>>335
ActionXって・・・ActiveXでしょうが。ネタかもしれんが。
0338デフォルトの名無しさん
NGNGエッチな写真集
0339デフォルトの名無しさん
NGNGhttp://www.google.co.jp/search?hl=ja&ie=Shift_JIS&q=ActionX&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
0342デフォルトの名無しさん
NGNG0343.NET格闘中
NGNGボタンや、ラジオボタンをXP風に表示させたい（OSがXPの場合）のですが、
どうすればよろしいのでしょうか？お教えください。
（XP風の表示とは、ボタンの場合、丸みをおびいて周りが青くなっている状態です）
0344デフォルトの名無しさん
NGNGうちではLinux+JAVAサーブレットっつー案件の方が圧倒的に多いけど。
0345.NET格闘中
NGNG開発は、標準EXEです。
フォームは自動でXP風になるのに・・・
0346d
NGNGマニフェストって知ってる？
MSのサイトに、やり方あります。
0347デフォルトの名無しさん
NGNGコード見たい。説明されてもたぶんわからん。
0348デフォルトの名無しさん
NGNGマルチ先にレスついてるぞ。
'VB.NET'でGoogle検索すれば結構早い段階で見つかるのにな。
.NET Framework1.1ではまた違うってのもおつ。マルチ先にあった情報だが。
0349.NET格闘中
NGNGマニフェストを使用するとこまでは行き着いていたのですが、
ややこしいことがいっぱい書いてあって混乱していました
よねＫＥＮさんから簡単にセッティングできるHPを教えていただけたので
カキコしておきます。
ttp://dobon2.tripod.co.jp/dotnet/form.html#xpsytle
0350デフォルトの名無しさん
NGNGVB6では下記でいけたと思うのですが、
.netではこれではだめだのでしょうか？
例
Call Button1.Click()
0351デフォルトの名無しさん
NGNGButton1.Clickの中を関数化
したらあかんのけ？
0352デフォルトの名無しさん
NGNGイベントは呼ぶものじゃないから呼べない。
イベントプロシージャなら呼べるが。
(でも、イベントプロシージャを呼ぶのでなく、その中でやってる処理を関数化してそれを呼ぶべき)
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
のような感じでイベント処理をさせてるプロシージャがあるでしょ。
0353.NET格闘中
NGNGマルチ先のHPアドレス(スレッド名)お教えください
■XPビジュアルスタイルの実装方法(続き)■
マニフェストファイルを入れてXPビジュアルスタイルになると喜んでいたら、
次なる指令が。。(T_T)。。マニフェストファイルを一々つけるなんてダサい！！
EXEの中に入れろ！！--->あぅあぅ(T_T)
いつでも教えてクレクレ君では悪いので、がんばってHP探し回りました。
でも以下の方法しかわかりませんでした。
何とかVB.NET上だけでコンパイル時にマニフェストファイルをリソースとして取り込むことを実現できないでしょうか？
しっておられる方お教えください。
結局、教えてクレクレ君でゴメン。。
前提条件(デザイン時、FlatStyle=Systemとしておくこと)
方法１
窓の社等から、XPビジュアルスタイルの実装プログラムで、実行ファイルに組み込んでもらう。
方法２
１．あらかじめマニフェストファイルを作成しておく
２．通常にVBプログラムをコンパイルする
３．コンパイルして生成されたEXEを .NETの[ファイル(F)]-[開く(O)]で開く
４．出てきた画面上で右クリックして[リソースの追加(A)]を選択する
５．(リソースの種類は選ばず、右にあるボタン)[カスタム(C)]ボタンをクリック
６．リソースの種類の入力には、[24]を入力。そうすると、バイナリー画面が表示される
７．（１．）のマニフェストファイルをバイナリーエディッタで開き、バイナリー部分をALLコピーする
８．（６．）のバイナリー画面にペーストして閉じる
９．[RT_MANIFEST]と言うリソースができているので、そのID[101]を、[1]に書き換える
10．開いたEXEを保存すれば、そのEXEだけでXPの場合はXPビジュアルスタイルになる。
0355デフォルトの名無しさん
NGNG0356.NET格闘中
NGNGすいません。
同じような質問と回答が、以前に別スレッドにあったのたと勘違いしてました
0357347
NGNGdirect3d8.1とvb.netについて、まとめてある(日記から)
0358デフォルトの名無しさん
NGNGできたらURLはっつけて下さい
0359デフォルトの名無しさん
NGNG本屋
0360デフォルトの名無しさん
NGNGまじですか？
まだそれほどVB.NETの本は出てないはずですが、
お勧めの本あります？
0361.NETレス
NGNG>>358
Googleで'VB.NET'、日本語で4800件ほど。
Googleで'VisualBasic.NET'だと日本語で400件ほど。
全チェック。
海外なら、CodeProjectとかCodeGuruとか。
C#情報にも目を光らせろ。
MSサイトも当然チェック。
MLもUSER GROUPやvbvbvb.netがある。
NEWSグループもチェックだ。
>>360
雑誌なら、VBマガジン(今はdotNetマガジン)、日経ソフトウェア、Cマガとか。
>まだそれほどVB.NETの本は出てないはずですが、
日本の書籍でも、10冊以上はあるぞ。C#も入れればその倍はある。
大きめの本屋にいけ。
0362やはりVC++.netに
NGNGどなたか詳しい方に教えて欲しいのですが。
347のサイトで問題になっていたDirect3Dのヘルパ関数群が
使えない問題をだれか解決した方はいないでしょうか？
IO別冊の雑誌のサンプルがVB6なのでD3DVertexBuffer8SetData
が呼べないところで暗礁にのりあげております。
多分DLLInport関係で処理できるとは思うのですが・・
347のサイトのようにメッシュで済ますほうが賢明かな？
0363デフォルトの名無しさん
NGNGなる本がおまけで付いてきた。定価2,800円なので随分得した気分。
0364デフォルトの名無しさん
NGNG0365デフォルトの名無しさん
NGNGaspxファイルがそのまま.NETで表示されてしまった。
何が問題なんでしょうか。
0366デフォルトの名無しさん
NGNG即オークション逝きという罠
0367デフォルトの名無しさん
NGNG内容をクリアしたいのですが form1.textbox1.clear ではエラーになります。
どうれすればいいのでしょうか？
0368デフォルトの名無しさん
NGNG0369デフォルトの名無しさん
NGNGそれは名前空間が違うから無理だ
0370デフォルトの名無しさん
NGNG[HOWTO] IIS を削除して再インストールした後、IIS マッピングを修復する方法
http://support.microsoft.com/default.aspx?scid=kb;ja;JP306005
を試してみれ。
0371デフォルトの名無しさん
NGNGちゃんとform2のインスタンスにクリアさせてるのか？
0372デフォルトの名無しさん
NGNG0373デフォルトの名無しさん
NGNG>>288 から >>295 あたり読んでみ。
0374デフォルトの名無しさん
NGNGthx
ずーっとC使ってたからオブジェクト指向は初めてなんだ
指定されたあたりを読んでもイマイチわからないから勉強してみる
0375デフォルトの名無しさん
NGNG0376デフォルトの名無しさん
NGNG0377デフォルトの名無しさん
NGNG質問の意味がわかりません。わかるように・・・以下略。
0378デフォルトの名無しさん
NGNG意味が分からないのはおまえのスキルが低いから
0380379
NGNG0381デフォルトの名無しさん
NGNG0382デフォルトの名無しさん
NGNGdBASEやParadoxなど他社のフォーマットを扱う資料が見つからなくて困ってます
誰か同じような物探したことある人いませんか？
0383デフォルトの名無しさん
NGNGメーカーに電話すれば、アマチュアの相談であっても結構いろいろ
教えてくれますけど．．．
最初からあきらめてる？
0384デフォルトの名無しさん
NGNG電話で話せるほどの英語力ないし、、、
BorlandはBorlandでInterBase +Delphi or 自社言語製品を公式でも勧めてますしね
最初からあきらめてるといわれれば図星です、、、
dBASEなどの古いユーザーはテーブルごと他の形式に変換してdBASE形式を丸ごと捨てたりしてるんですかね
0385デフォルトの名無しさん
NGNG電話はさすがに厳しいだろうが、翻訳ソフトを使ってメールならできるんじゃねーか？
漏れは全然英語分からないけど、それで仕事になっているよ(w
0386デフォルトの名無しさん
NGNGどうしたらよいのでしょうか？」
というこの手の質問が多いのですが、
こういう質問を減らすにはどうしたらよいでしょうか？
とでもage。寂しいから。
0387デフォルトの名無しさん
NGNGそういう設計は変だからとかなんとか言えばどう？
なんでもかんでもフォームモジュールにくくりつけないで，
標準モジュールをうまく使う事を考えたほうがいいと思う．
0388デフォルトの名無しさん
NGNGどんなものをイメージして書いているのか
わからんが、386の文へそのレスは意味わからん。
VB.netの話題だっているのは理解してるよね？VB6の話じゃないぞ。
> Form1からForm2のTextBoxを操作
というやり方自体は情報の隠蔽には反するが、
そんなに悪いことではないと思う。
同プロジェクト内でのアクセスはFriendで自由にさせた方が、
手っ取り早いし。
386の言ってる問題は、クラスとインスタンスを理解していない
旧VBユーザが多すぎることへの嘆きと思われ。
0389デフォルトの名無しさん
NGNGその情報を更新する際に、過去に書き込まれた情報はすべて消してから
新しい情報を書き込むようにしたいと考えています。情報を書き込むまでは
問題なく出来るんですが、過去の情報を消す、という動作ができません。
Dim filewrite As System.IO.StreamWriter
filewrite = New System.IO.StreamWriter(setpath, System.IO.FileMode.Truncate)
ヘルプによると、System.IO.FileMode.Truncateは「オペレーティング システム
が既存のファイルを開くことを指定します。ファイルは、開いた後にサイズが
0 バイトになるように切り捨てられます。」とあります。しかし、実行すると、過去
のデータは消されずに、その後に新しいデータが付け加えられてしまいます。
どのようにしたら、過去のデータを消してから新しいデータを書き込めるんで
しょうか。よろしくお願いします。
0390389
NGNGおさわがせしました。
0391デフォルトの名無しさん
NGNG土日だしレス少ないんだからもうちょっと待てばいいものを。
ファイルをイレースしてからククリエイトするのでは駄目なのか。
0392○
NGNGクリックするとそのTextが変わる様にしたいのです。
Private Sub Button_Fontsize_Click(ByVal (略)) Handles Button_Fontsize.Click
'現在のフォントサイズを調べて18かどうかで動作を決める
If Button_Fontsize.Font.Size = 18 Then
Button_Fontsize.Font.Size = 9
Else
Button_Fontsize.Font.Size = 18
End If
End Sub
これだとFont.SizeというPropertyの属性がReadOnlyになっている為ビルド中に怒られます。
このFont.Sizeを変更できるようにするにはどうすればいいのでしょうか？
0393デフォルトの名無しさん
NGNG0394デフォルトの名無しさん
NGNGコンストラクタ使って新規作成すればいいのではないでしょうかぁ。
0395最凶VB厨房
NGNGButton_Fontsize.Font = New Font(Button_Fontsize.Font.ToString, saikyouvbchubo)
>>393
わからんかったの？
帰っていいよ。（ﾜﾗ
0396デフォルトの名無しさん
NGNG0397デフォルトの名無しさん
NGNG２つのフォームを使って１つ目をメニューにして、２つ目で作業するとして、
フォーム１の「開始」みたいな感じのボタン
Dim frm2 As New Form2()
frm2.ShowDialog()
Me.Hide()
フォーム１の「終了」ボタン
Me.Close()
フォーム２の「メニューに戻る」みたいな感じのボタン
Dim frm1 As New Form1()
frm1.Show()
Me.Close()
とするとプログラムが終了してくれません。
どうもDim frm1 As New Form1()とするとさらに新しいForm1ができて
「終了」でそれが閉じられているだけになっているようです。
新しく作らないように宣言するにはどうやってfrm1を宣言すればいいのでしょうか。
As NewのNewを何かに変えればいいのですか？
0398デフォルトの名無しさん
NGNGfrm2.Owner = Me でインスタンス渡せるんじゃネーノ？
つーか、ShowDialog() で呼出してんならfrm2が終了するまでとまってんだから、
そのあとでMe.Showでもイケそーなもんだがな。
0399967
NGNGありがとうございます。やりたかったことはその後にMe.Showでできました。
ShowDialogは終了するまで待つというのではなく、単に他のフォームを
（タスクバーとかで）選べなくなるだけだと思っていました。
さっき夕食食べるついでに本屋でVB.NETの本を見てきまして、
ShowDialogを使わない場合(ただのShowで呼出)は
>>386
>>373
に近い話のように感じたのですがそういう理解（ていうほど理解してませんが）
でいいのでしょうか。
0400398
NGNG近いというかまんまだな。
しまった、過去ログ嫁でよかったのか…
0401967
NGNGそうなんですか。
一応過去ログは読んだのですが、さっき本を見るまで似たような問題だと
わからなかったので･･･
どのみち、ShowDialogの意味がわかってなかったので助かりました。
0402967→397
NGNG397です。
0403デフォルトの名無しさん
NGNG0404デフォルトの名無しさん
NGNG.netに変換したいのですが、方法がわかりません。どなたか教えてください。
元のコードは、
LenB(StrConv(cmb1, vbFromUnicode)) - cmb1.SelLength
という感じです。
よろしくお願いします。
0405デフォルトの名無しさん
NGNGバイト数が取りたいの？なら、
System.Text.Encoding でなんとかならんかね。
0406デフォルトの名無しさん
NGNGSystem.Text.Encoding.GetEncoding("Shift-JIS").GetByteCount(cmb1.Text) - cmb1.SelectionLength > MaxLen
これでだめ？
0407デフォルトの名無しさん
NGNGコンボボックスのKeyPressイベントでキー入力制限をしたいんだけど、KeyPressEventArgs
に e.Handled =True にして返しても入力されちゃうんですが、なにか方法はあるんでしょうか？
TextBoxだとこれでうまくいくんですが・・・
0408デフォルトの名無しさん
NGNGそれ、Shift-JIS でエンコードしてるよ。
Unicode なら System.Text.Encoding.Unicode.GetByteCount だね。
>407
コンボボックスって何か不可思議な動きするよなあ。
個人的には使いたくないコントロールNo.1だ。
まあ、しょーがないから使うんだけど。
状況がわからんからなんともいえんが、
DropDowStyleをDropDownListで使うのは駄目なのか？
0409407
NGNG>コンボボックスって何か不可思議な動きするよなあ。
>個人的には使いたくないコントロールNo.1だ。
同意
>DropDowStyleをDropDownListで使うのは駄目なのか？
現状はDropDownになっており、直接入力することでDBにレコード追加しようと
しています。その際に、英数字以外の文字コードであれば、Handled =Trueを
設定して復帰させる事で入力をキャンセルしようとしてます。6.0からのコンバート
なのですが既存はこれで動いてます。
DropDownListを使うと直接入力はできなくなりますよね。（使用した事は無いんですが・・・）
できればインターフェースは変えたくないのですが・・・
0410デフォルトの名無しさん
NGNG本題とずれるが、
TextBoxのKeyPressでe.Handled =Trueにしてるの？
e.Handled =Trueでも全角文字は通るので注意が必要。
0411407
NGNGそこは考慮しております。
0412408
NGNGこんなふうにやったら一応できたけど。
Dim intPos As Integer
intPos = Me.ComboBox1.SelectionStart
If 条件式 Then
Me.ComboBox1.ResetText()
Me.ComboBox1.Text = Restr ’KeyDownで取得しておいた値
Me.ComboBox1.SelectionStart = intPos - 1
End If
自分で書いといてなんだが、欝なコードだ…(´Д`;)
仕様変更が一番楽だと思う。つーかお勧め。
0413404
NGNG>>406さん>>408さんどうもありがとうございました。
その方法で上手くいきそうです。
でも結局>>407さんと同じ問題で行き詰まってしまいました・・・
0414デフォルトの名無しさん
NGNG0415デフォルトの名無しさん
NGNGんぱんぱ、じゅぷっっ、すっぽ～～んて感じ。
すっげーいいよ。
0416デフォルトの名無しさん
NGNGマジレスするとだ、素人にはオススメ。
まあ、VB歴が長い人はVB6のほうがいいってこった。
他の言語ができるなら問題ないけどな。
0417ＶＢはじめてです。
NGNGＭＤＩを使用してシステムを作成しているのですが
親となる、プログラムより子供のプログラムを表示してるのですが
子供のプログラムを１つのプロジェクトとして単体で動かせるように
プログラムして、いざ親より表示しようと思うと
ソリューションエクスプローラで
子供のリンクしているすべてのクラスを親にリンクしないと
エラーで実行できなくなります
これは、そういうものなのでしょうか？
子供には画面３－４枚とかあると
全部の画面を親のプロジェクトに項目参照ーリンクファイルでいれているのですが
すごい数になってきて、なんかどこかが間違ってるようなきがしています
ヒントや事例のＨＰ紹介でもおねがいできませんでしょうか？
0418デフォルトの名無しさん
NGNG0419デフォルトの名無しさん
NGNGンなわけあるか。自分で使うクラスのみでOK。
子供でリンクしているクラスを親でも使ってるんじゃねーの？
0420デフォ
NGNGDBから条件にマッチするデータを移すにはどうすればいいのでしょう?
とりあえず、oledbdataadapter.fill(dataset)で、
全データを持ってこれるのですが、
あるデータに合致するものだけをもってこようとする場合が
わかりません。
1行のみ追加、とかできないのでしょうか?
色々検索したのですが、よくわかりません。
お願いできませんでしょうか？
0421デフォルトの名無しさん
NGNGVB6.0の知識はあるので簡単な説明でもわかると思うので、よろしくお願いします。
0422デフォルトの名無しさん
NGNG何のための．NETなんだか。
0423デフォルトの名無しさん
NGNGそれってDataGridにやらせることなのか？
引っ張ってくる時のSQLで制限かけりゃいいじゃん。
>421
まず、.NETってどんな技術なのかを概要だけでも把握しれ。
MSDNの最初のほうに多分載ってるし。書籍も解説サイトも結構ある。
0424ＶＢはじめてです。
NGNGどうも理解してないことが多く完全にはまっています
親のＭＤＩプログラムで子供のフォームをshowしているのがまずいのですかね
ふう参った。。。
もうちょっと頑張ってみますありがとうございました。
0425407
NGNGすっかり遅くなってしまいましたが、どうもありがとうございました。
実機でやってみましたがうまくいきました。
0426デフォルトの名無しさん
NGNGFor i = To 0
0427426
NGNGFor i = 0 To 4
激しく解決済みかもしんないけど、今後訪れる方々のために、念のため・・・
0428デフォルトの名無しさん
NGNG？？？
それが何の解決になるだ？
それってリストの中身に数字をセットするロジックのやつだよね？
エラーの内容からしてListBoxのIndexが取れてないことが原因みたいだけど。
つーか、漏れの環境(XPsp1、FreamWorksp2)だと現象でないし。
MouseDownじゃなくてSelectedIndexChangedでやりゃいいじゃんとか思ったけど、まあどーでもいいか。
0429デフォルトの名無しさん
NGNGどうすればよいでしょう。
0430デフォルトの名無しさん
NGNG.NET Frameworkにそのような機能はありません。(音系全般)
外部DLLを呼び出して実現しなはれ。
0431デフォルトの名無しさん
NGNGたまに以下の例外が発生するし、マウスイベントはとれるけど、WM_KEYDOWNがとれません。
'System.NullReferenceException' のハンドルされていない例外が system.windows.
forms.dll で発生しました。
追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。
0432デフォルトの名無しさん
NGNG何をしてるんだか、さっぱりだが、とりあえずサブクラス化したいなら、
サブクラス化したいコントロールのWndProcメソッドをオーバーライドしなさい。
APIも不要、Moduleも不要
0433デフォルトの名無しさん
NGNG再配布可能、商用利用可能のMP3用のDLLなど、どなたか
ご存知ですか？
できたら、WindowsMediaPlayerかなにかでできればと思っていたのですが
できないのでしょうか？
0434デフォルトの名無しさん
NGNG0435デフォルトの名無しさん
NGNG0436デフォルトの名無しさん
NGNGVB５or６で作成したユーザコントロールを
.NETでEXEを作成した場合
そのEXEを動作させるには、レジストリ登録は必要ですか？
もし、必要ないようであればその方法を教えてください。
0437デフォルトの名無しさん
NGNG>.NETでEXEを作成した場合
日本語が変。
>そのEXEを動作させるには、レジストリ登録は必要ですか？
そりゃ必要でしょう。でないとActiveXの存在を認識できないんですから。
0438デフォルトの名無しさん
NGNGフォルダを指定して、その内容をツリービューに表示したいと思っています。
＋フォルダ１（親ノード）
｜－ファイル１（子ノード）
｜－ファイル２（子ノード）
｜＋フォルダ２（子ノード）
｜－ファイル３（孫ノード）
このよう構造のツリービューを作りたいのですが、
TreeView.Nodes.Add(New TreeNode("フォルダ１"))
として、親ノードを作った後に、その下に子ノードを作成し、
さらに孫ノードを・・・と、いう方法がわかりません。
再帰関数を作って、
function MakeTreeView(Byval DirName as String,Byval TreeView as TreeView){
フォルダ内のファイル一覧を取得する処理
ツリービューに追加（ファイルの数だけ繰り返し）
フォルダ内のフォルダを取得する処理
MakeTreeView関数の呼び出し（フォルダの数だけ繰り返し）
}
というふうにやりたいとおもっているのですが・・・。
ヘルプを見ると
TreeView.Nodes(？？？).Nodes.Add(New TreeNode("子ノード")
というような書式で追加しているようなのですが、？？？の部分を
どうすればいいのかわからず悩んでいます。
TreeViewで子ノードを作成する方法をよろしくおねがいします。
0439デフォルトの名無しさん
NGNGよろしくお願いします。
0440デフォルトの名無しさん
NGNGよーわからんが、作成したノード名（この例なら”親ノード”）入れりゃいいんじゃねーの？
まあこの手の奴は大抵オーバーロードできると思うから、色々やってみ。
しかし、なんでNodesが2個続くかね？最初のはコレクションかなんかだろーから、
そこにAddすれば良さそうなもんだけどな。
>439
すれ違い。氏ね。
0441デフォルトの名無しさん
NGNGMakeTreeViewでさ、TreeView渡しても仕方ねーべ。
TreeNode渡しなよ。親ノードに子ノード追加しなきゃなんねーんだから。
>>439
シャットダウンとログオフだけなら、SystemEventsクラスのイベント使えば拾える。
あるいは、
http://www.fawcette.com/Archives/premier/mgznarch/vbpj/2001/11nov01/qa0111/qa0111.asp
のようにWndProcメソッドをオーバーライドしてサブクラス化。
0442441
NGNG>しかし、なんでNodesが2個続くかね？
TreeView1.Nodes(???)の部分であるTreeNodeを指定していて、
そのTreeNodeのNodesプロパティ(TreeNodeCollection)にAddしてるだけ。
> >439
> すれ違い。氏ね。
すれ違いじゃなく、君の読み違い。ちゃんと嫁。
「VB6.0 での UnloadMode」 に替わるWindows終了時の判定方法・・・だっつうの。
0443デフォルトの名無しさん
NGNGなに間違ったのかと思いました…（汗
>>441
ありがとうございます。
Windows 終了時は WM_QUERYENDSESSION が送られるんですよね？
>>442
フォローサンクス
0444438
NGNGPublic Sub GetDir(ByVal DirName As String, ByVal Node As TreeNode)
TmpNode = Node.Nodes.Add(FoldCol.Name)
Call GetDir(DirName & "\" & FoldCol.Name, TmpNode)
こんなかんじで再帰でよんで成功しました。
みなさんありがとうございました！
0445デフォルトの名無しさん
NGNG.NET Framework SDKドキュメント関西弁版が出たで。
http://www.yorosiku.net:8080/-_-http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/netstart/html/sdkstart.asp
0446433
NGNG困っています。
>>434さんに紹介していただいたVBMP3ですが、VB.NET対応ではないので
いろいろ試行錯誤しましたがうまくならせないです。
EXEが作成されるフォルダにDLLをおいて、付属の呼び出しようのBASファイルを
書き換えて・・・。
（typeをStructureに変えました。あと、Attribute VB_Name = "VBMP3"の部分は
よくわからなかったので、コメントにしました。）
しかし、OPEN関数のところでエラーになってしまいます。
(初期化はうまく言っている・・・ようです。）
「'System.NullReferenceException' のハンドルされていない例外が MPT.exe で発生しました。」
「追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。」
と、なってしまいます。
と、いうわけで、VB.netでMP3を鳴らす方法を引き続き教えていただきたいです。
よろしくおねがいします。
0447デフォルトの名無しさん
NGNGmciSendString() じゃだめですか？
0448433
NGNG0449デフォルトの名無しさん
NGNGいや、.net で使えるんですけどね。VBMP3 をどうしても使いますか？ってことです。
0450449
NGNGVBMP3 を使うのであれば…
Dim ii As InputInfo
' ここの２行を追加
ii.szTrackName = New String(Chr(0), 128)
ii.szArtistName = New String(Chr(0), 128)
で、音は鳴りましたよ。
その他、Structure (旧Type) の中の、固定長文字列宣言のところを、このようにして領域を確保してください。
Exception が発生したのは、この文字列領域不足のせいです。
眠いんで寝ます。
0451430
NGNG<StructLayout(LayoutKind.Sequential)> _
Public Structure InputInfo
<MarshalAs(UnmanagedType.ByValTStr, SizeConst := 128)> _
Public szTrackName As String '曲名
<MarshalAs(UnmanagedType.ByValTStr, SizeConst := 128)> _
Public szArtistName As String 'ｱｰﾃｨｽﾄ名
Public channels As Integer 'ﾁｬﾝﾈﾙ数
Public bitrate As Integer 'ﾋﾞｯﾄﾚｰﾄ(kbit/s)
Public samplingRate As Integer 'ｻﾝﾌﾟﾙﾚｰﾄ(Hz)
Public totalSec As Integer '演奏時間
End Structure
0452430
NGNGVB.NETの引数は既定値でByValだから、第二引数は明示的にByRefを付けること。
Declare Function vbmp3_open Lib "VBMP3.dll" (ByVal pszName As String, ByRef pInfo As InputInfo) As Boolean
その他に注意すべきことはAs LongはAs Integerにすることくらいだろう。
漏れも寝る。
0453449
NGNGByRef にしたら Exception スローされましたよ？・・・やり方が悪いだけだろうか・・・。
0454446
NGNGとりあえず、
Public Structure InputInfo
Public szTrackName = New String(Chr(0) * 128) '曲名
：
Public TotalSec As Integer '演奏時間(s)
End Structure
というようにやってみましたが
「構造体メンバの初期化子は、定数に対してのみ有効です。」
というような感じでエラーとなってしまいます。
どのように定義すればいいのでしょうか？
とりあえず、
１：関数の引数にはByrefをつける
２：Public Structure のStringの宣言に大きさ（*128とか）をつける
３：プログラム内で使用する変数にも大きさをつける
ということを実行すればできるのかな・・・と、おもいがんばっています。
0456デフォルトの名無しさん
NGNGStructure を定義するときに文字列長を指定する場合は、>>451 の通り。
そうでない場合は、
Public Function MediaOpen(ByVal FileName As String) As Integer
Dim ii As InputInfo
ii.szTrackName = New String(Chr(0), 128)
ii.szArtistName = New String(Chr(0), 128)
If (vbmp3_open(FileName, ii)) Then
Return 0
Else
Return 1
End If
End Function
のように、InputInfo などを使うときに初期化する。
0457430
NGNG何のExceptionが出たの？
うちでは、451,452の定義で動いてるけど。
他の関数の宣言はLongをIntegerに変えただけ。
コンパイルオプションはなし。(vbc MP3.vb)
属性を使ってるので、ファイルの先頭には以下の行をつけてね。
Imports System.Runtime.Interopservices
'実際のmp3演奏の処理
Public Shared Sub Main()
Dim ii As InputInfo
vbmp3_init()
vbmp3_open("mp3のパス", ii)
vbmp3_play()
Console.ReadLine() ' 入力待ちにしてフローと止めて、演奏を鑑賞
vbmp3_stop()
vbmp3_close()
vbmp3_free()
End Sub
0458デフォルトの名無しさん
NGNGあらら、>>451 の定義でいけたわ。
ただ Type -> Structure にして >>456 のように使う前に初期化しただけだったら NullReferenceException が出たよ・・・。
0459デフォルトの名無しさん
NGNG>>451の方法でも試したのですが、
「型MarshalAsが定義されていません」となります・・・。
で、
Imports System.Runtime.Interopservices
というのをファイルの先頭に書いたら・・・・
！！！
うまくいきそうな予感です。また書き込みます。
ありがとうございました！
0460446
NGNG無事なりました。
Imports System.Runtime.Interopservices
が必要だったのですね。
ありがとうございました！
まとめ：VB.netでVBMP3を使用する方法
１：VBmp3.basをVBmp3.VBとしてプロジェクトに追加
２：type を Structure に置換
３：As LongはAs Integer
４：Byvalと書いてない関数の引数にByrefと書く
５：下記のようにStringのサイズを宣言
<StructLayout(LayoutKind.Sequential)> _
Public Structure InputInfo
<MarshalAs(UnmanagedType.ByValTStr, SizeConst := 128)> _
Public szTrackName As String '曲名
0461デフォルトの名無しさん
NGNGVB.NETだったらどうするのが一番簡単でつか？
0462デフォルトの名無しさん
NGNG0463デフォルトの名無しさん
NGNGクラス System.Net.Sockets.Socket
0464デフォルトの名無しさん
NGNGインストールする順番は、どっちが先のほうがいいんでしょうか。
0465デフォルトの名無しさん
NGNG0466デフォルトの名無しさん
NGNGツールボックス＞コンポーネントタブ＞右クリックで「ツールボックスのカスタマイズ」
を選び「ＣＯＭコンポーネント」タグの「Microsoft Winsock Control,version 6.0」を追加
しろとあるのですが、見当たりません。
これはどうやったら追加できるのでしょうか？
0467デフォルトの名無しさん
NGNG何という本ですか？VB.NETの本ですか？
>を選び「ＣＯＭコンポーネント」タグの「Microsoft Winsock Control,version 6.0」を追加
VB6Pro/VB6Entのどちらかはインストールされていますか？
VB6付属のコントロールなのでVB6がなければ、
あなたのPCに開発に利用できるWinsockコントロールはありません。
System.Net.Socketクラスを使いましょう。
0468466
NGNGttp://ssl.ohmsha.co.jp/cgi-bin/menu.cgi?ISBN=4-274-06482-4
.NETしか持っていませんのでVB6はインストールされていません。
もしかすると私が見落としているのかもしれませんが、この本には
VB6については説明が無く、当然にこのコントロールが追加できるような
書き方でした。
もう一度読み直してみて説明が本当に無いようだったら、この本の作者の
環境にVB6が入っていたせいで>>467のことを失念していた（最悪、知らなかった？）
ということでしょうか・・
だとしたらひどい本ですね。
0469デフォルトの名無しさん
NGNG本の最初の方にVB6がないと後半は動かない部分がありますよと
書かれているに100カノッサ。
URLのサイトでその本のサンプルプログラムを見たけど、
CreateObjectでExcelを起動しているのとか、
C\:Windows(.NET開発環境であるNT系にそんなフォルダはない)フォルダ直指定してるのとかあるし、
なんらかの前提か注意書きがあると思う。
表紙はドキュンくさいが、例題のソースコードを見る限り、
VB6からの移行を前提にしてる感じがする。
0470466
NGNGそう書いてあれば納得もいくのですがそのような記述は見当たりませんでした。
そもそも書籍の紹介文に「はじめてプログラミングに取り組まれる方も無理のないものになっている。」
などと書いてあって移行が前提というのもおかしいでしょう。
ほかにもいくつかVB6からの移行でないとできないと思われる内容（MicrosoftMultimediaControl等）
があるようなので、出版社に問い合わせてみます。
いろいろ教えていただいてありがとうございました。
0471デフォルトの名無しさん
NGNGVB.NETで日付のテキストボックスに数字を入れるだけで
YYYY/MM/DD書式で挿入できるようにするには
どうすればよろしいでしょうか。
0472デフォルトの名無しさん
NGNG自分で何か考えたか？
Text1.Text = Format(CInt(Text1.Text), "0000/00/00")
0473デフォルトの名無しさん
NGNG普通のＶＢ.Net（12800円くらいのやつ）でＩＤＥからデータベースに接続しようとすると
AccessとSQLServerは問題ないようですがOracleに接続できません。
「このバージョンのVisualStudioを使った場合に限り,SQLServerDesktopEngineデータベースおよびMicrosoftAccessデータベースに接続することができます。」
ってエラーになります。データリンクの「接続テスト」では「正常に接続できました。」って表示されます。
プログラムからOracleに接続してSelectしたりUpdateするのも問題ありません。
（ここは参考になる http://www.oracle-master.org/study/techforum/vbnet.html）
なんでＩＤＥからは接続できないんですか？
ビジュアル環境でデータセットの構築やデータバインドができないよ～（って別に要らないけど）
「Professional」や「Enterprise Developer」ではOracleに接続できるんですか？
高価なソフトを買うことのできるリッチなひと教えてください。
0474デフォルトの名無しさん
NGNGVisual Basic .NET Standard で作ったコードは商用とか公開しても可ですか？
0475デフォルトの名無しさん
NGNG「ユーザー１名につき有効なライセンスを１つずつ取れば何でもＯＫ」みたいに
使用許諾契約書の「一般的なライセンスの許諾」に書いてあるので多分大丈夫。
0476デフォルトの名無しさん
NGNGおぉ、さんきゅ。Learningは安いけど公開不可っていうケチ根性が気に食わなかったので。
0477デフォルトの名無しさん
NGNGあ、ついでにすいません。
ユーザーが１名ならば、何台にインストールしても可 になってますでしょうか？
VisuaｌStudio6.0あたりは、そういう条件になっていた筈。
0478デフォルトの名無しさん
NGNGライセンスの許諾
「記憶装置・ネットワークの使用」
お客様はネットワークサーバーのような記憶装置に、本製品のコピー一部を蓄積またはインストールすることもできます。
～省略～
許諾済みのユーザーが使用するコンピュータに本製品をインストールして使用するためだけに、かかる記憶装置上のコピーを使用しなければなりません。
～省略～
と書いてあるのでライセンスを持っているユーザーなら複数のコンピュータにインストールしても問題ないんじゃない？
0479デフォルトの名無しさん
NGNG便乗質問ですいません、例の「アクティベート作業」ってやつはVB.NETには無いんですか？
0480デフォルトの名無しさん
NGNG（なんか出来ないっぽいんだけど）
0481デフォルトの名無しさん
NGNGスタンドアローンなEXEを作ることは可能であると家用。
MFCで作ったもののようにレジストリを全然いじくらなくて
バイナリだけでよそに持ってけるという事であれば、可能ではないと家用。
0482デフォルトの名無しさん
NGNGVB6で開発、先々VB.NETに移行を考えるとき、どんな注意点があるでしょう。
というか、そもそも完全に移行できるんでしょうか？
また、VB.NETに移行することを前提とした、VB6での開発について、参考に
なるサイトとかありましたら教えて欲しいのですが。
移行ツールが付いてることは分かりますが、トラブルなく移行出来るとも思え
ませんので．．．
0483デフォルトの名無しさん
NGNG>VB6で開発、先々VB.NETに移行を考えるとき、どんな注意点があるでしょう。
>というか、そもそも完全に移行できるんでしょうか？
無理。VB6からVB.NETに移行する場合、ほぼ書き直し。
それが一番早くて確実。
>移行ツールが付いてることは分かりますが、トラブルなく移行出来るとも思え
>ませんので．．．
移行ツールはただの飾り物です。
偉い人にはそれがわからんのです...（T_T）
0484デフォルトの名無しさん
NGNG文法とか表面的なことが同じなだけで、VB6とは全く別物だから
移行はほぼ無理と考えた方が良いよ。先々VB.NETにしたいなら、
がんばって今からVB.NETでやるべき。VBしか知らない人には
敷居が高いだろうけど。
0485デフォルトの名無しさん
NGNGまっとうなコーディングをしていること。
トリッキーなコーディングをしていないこと。
標準コントロールのみで実装していること。
を守っていれば、それなりに移行できるでしょう。
アップグレードウィザードはまぁ参考になるソースを多少は提供してくれる
ツールと考えるのが吉。
後、VB.NET Standardを業務で使おうなどとは思わないことも注意点だろう。
Standardだと
・(IDE上からは)クラスライブラリが作れない
・アップグレードウィザードは付属しない
・CrystalReportも付属しない
・その他Enterprise的な機能は・・・以下略。
ま、128000円だからね。
ちなみに、漏れはSDK派です。仕事では使ってないし。
0486デフォルトの名無しさん
NGNGランタイムなしという意味なら、VB.NETに限らず、
そもそも.NETでそういう機能はない。
C++でもmanagedである限り無理ね。
ちなみに、君は20MBほどあるランタイムをスタティックリンクするんかい？
0487デフォルトの名無しさん
NGNG勉強はじめるとしたら、どっちがお薦めですか
どっちのほうが仕事にあぶれませんか
自分学生です。よろしくまんもす
0488デフォルトの名無しさん
NGNGVB.NETが本当にできるようになれば、自然にC#.NETも分かるようになってるはず。
0489デフォルトの名無しさん
NGNGそう急がずに、とにかく何でもいいからひとつプログラミング言語をモノにしんさい。
話はそれからだ。
そういう道に進んで活躍しようと思ったら、今の時点で、どんなくだらないことでも
いいから、何かひとつでも自力でモノにしてみる事をやったほうがいいよ。
それがどうしてもできない人は、就職してもだめだと思うYO。
性格的に向いてない。
0490デフォルトの名無しさん
NGNG無茶言わないでください｡･ﾟ･（ﾉД`）･ﾟ･｡
0491デフォルトの名無しさん
NGNG0492デフォルトの名無しさん
NGNGプロパティのCaptionが全部Textに統一だ。
これだけでも、いいかげんにしろ、と言いたい（ｗ
0493デフォルトの名無しさん
NGNGじゃ、ランタイム切り離して配布したとして、
.NETもっていない人は、20MBのランタイムを別途ダウンロードしてください ってなるの？
0494デフォルトの名無しさん
NGNG今現在はそういうことなんじゃないの？
これからのWindowsでは標準搭載になるんだろ。ほげほげ。
0495デフォルトの名無しさん
NGNGhttp://www.atmarkit.co.jp/fwin2k/win2ktips/246checkvdnfw/checkvdnfw.html
VS.NETで開発したプログラムを実行するには、Windowsシステムに.NET Frameworkが
組み込まれている必要があるのだが、.NET Frameworkは現在販売されている
Windows製品よりも後から登場したため、標準の状態ではインストールされていない
すでに.NET FrameworkはWindows Update（追加モジュールやhotfixなどを
インターネットで提供するマイクロソフトのサービス）の
「Windows Updateカタログ」→「推奨する更新」に登録されており、
ここからインストールすることが可能である（「Windows Updateカタログ」は、
デフォルトでは表示されない。
これを表示する方法については別稿「Windows TIPS：Windows Updateの
ファイルを個別にダウンロードする」を参照）。
ただしファイル・サイズは20Mbytes以上もある。
0496デフォルトの名無しさん
NGNG俺はそっちの方が美しいと思うが．
0497デフォルトの名無しさん
NGNGそうなんだけど、
「だったら初めからそうしろ」ってコトっす。
ってことは、C++Builderも Text になるのかなぁ。
0498デフォルトの名無しさん
NGNGVB.NETを極めるため、ADODBを使って自己満足ツールを作ろうと思います。
ADODBのメソッド・プロパティ一覧とカンタンな説明ってどこかにないでしょうか？
例えば、"Connection String"とか"MoveNext"とか・・。
どうか、よろしくおねがいします。
0499デフォルトの名無しさん
NGNGこいつ、VB初心者スレとのマルチです。
0500デフォルトの名無しさん
NGNGADODBを使って自己満足ツールを作ろうと思います。
ADODBのメソッド・プロパティ一覧とカンタンな説明ってどこかにないでしょうか？
例えば、"Connection String"とか"MoveNext"とか・・。
なければ、誰か作ってください。どうか、よろしくおながいします。
0501デフォルトの名無しさん
NGNGまあまあ・・・
初心者のようだから勘弁してあげたら？
それより検索という言葉を知っているか、498よ
http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&oe=UTF-8&q=%E3%83%9E%E3%83%AB%E3%83%81%E9%87%8E%E9%83%8E%E3%81%AF%E3%81%A8%E3%81%A3%E3%81%A8%E3%81%A8%E6%B0%8F%E3%81%AD%EF%BC%81
0502デフォルトの名無しさん
NGNGほれ。
ttp://www.maid3.ne.jp/~namiii/cgi-bin/image/iiup1150.htm
0503デフォルトの名無しさん
NGNG両方とも初めて使うのでいまいちよくわからない・・・
何か参考になるページなどはないでしょうか？
0504デフォルトの名無しさん
NGNG─■─■─■────■■■■■─────■■■■───────────
■■■■─■■■■───■──■■─────■─■■■■──■■─■■
──■─■───■───■─■──■───■──────■─■■─■■
■■■■────■───■■───■───■─────■───■■■─
──■──■──■──■■────■──■───■──────■■■─
■─■■──■─■─■─■────■──■──■────────■──
─■■─────■───■────■─────■────────■──
■■────■■────■─────■─────■■■■■──────
0505デフォルトの名無しさん
NGNGVB.NETでEXCELを操作しようとしています。
処理を終わらせ、EXCELを閉じるところで、
quitして、Nothingを代入すれば、EXCELが終了するはずですが
タスクマネージャで確認してもプロセスが残ってしまっています。
完全にEXCELを終了するにはどうすればよろしいのでしょうか？
ご教授お願いします。
0506デフォルトの名無しさん
NGNG0507デフォルトの名無しさん
NGNGFor i = 1 to 9999999
intFileNo = FreeFile
bytHtml() = Inet.OpenURL("http://www.geocities.co.jp/*****/****/" & i & ".html", icByteArray)
Open i & ".html" For Binary Access Write As #intFileNo
Put #intFileNo, , bytHtml()
Close #intFileNo
Next i
0508デフォルトの名無しさん
NGNG──■──■──────■─────────■────────────
─■─■─■────■■■■■─────■■■■───────────
■■■■─■■■■───■──■■─────■─■■■■──■■─■■
──■─■───■───■─■──■───■──────■─■■─■■
■■■■────■───■■───■───■─────■───■■■─
──■──■──■──■■────■──■───■──────■■■─
■─■■──■─■─■─■────■──■──■────────■──
─■■─────■───■────■─────■────────■──
■■────■■────■─────■─────■■■■■──────
0509デフォルトの名無しさん
NGNG0510デフォルトの名無しさん
NGNGDirectXのCOMをInteropすればね。
As Anyがらみで、構造体からポインタに変換して・・・
とかそういうCっぽいことしないといけない部分がでてくるけど。
0511デフォルトの名無しさん
NGNG英語版は、MSDNダウンロドにもうでてるよ。エベレットファイナルベータとしてね。
次からは、VS .NETの一部なんで無料ではないし、Compact Framework SDKも
でないのがいや～んな気分にせてるけど。
0512デフォルトの名無しさん
NGNGGC.Collect
0513デフォルトの名無しさん
NGNGＶＢ．ＮＥＴで、Ｄｉｒ関数を使いたいのですが
関数自体が認めてもらえないというか、Ｄｉｒという
記述が関数として認識してもらえません。
コードを書いている時から既にエラー扱いです。
解決策をご存知の方いらっしゃると思うのですが
どうぞ、教えてやってください。お願いします。
ちなみに、やりたい事はいたって簡単で、指定された
ファイルの存在チェックをしたいだけです。
if Dir(file_path) <> "" then
（ここに、「ファイルがあるぞ」という処理を書く）
end if
※file_pathnには、調べたいファイルのフルパスを与える
0514デフォルトの名無しさん
NGNGちょっとヘルプ引けばわかるだろうがっ！！
横着するな！！
0515513
NGNGヘルプの通りにやっても動作しないので聞いております。
試しにやってみて下さいよ。
本当に認識してくれないんですよ（泣）
0516000
NGNGに変更したいのですがどなたかわかる方いませんか？
0517513
NGNGおら！はやくやれや！
0518デフォルトの名無しさん
NGNGどうやってやるんですか？ある処理でインターバルを
とりたんですが・・
0519デフォルトの名無しさん
NGNGDoEvent ってないすか？
0520デフォルトの名無しさん
NGNG0521デフォルトの名無しさん
NGNGDelのSleepがどういう仕様か分からないんだけど、
System.Thread.Sleep()は？
0522デフォルトの名無しさん
NGNG旧VBのDir関数の仕様も分からないんだけど（ｗ
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemiodirectoryclassexiststopic.asp
のサンプルコードあたり役に立つかも。
0523デフォルトの名無しさん
NGNGDir関数はVB.NETでも使えるはずだぞ。
環境が逝かれてんじゃねーの？
まあ、漏れもSystem.IOを使うのが正解だと思うが。
>520
System.Windows.Forms.Application.DoEvents がある。
…あったと思う。間違えてたらｽﾏｿ。
0524513
NGNGありがとうございます。参考にさせて頂きます。
>523
やっぱ環境っすかね・・・
でも、なんとかなりそうです。ありがとうございました。
ちなみに、515は私の偽者です。
0525594 Indy
NGNGでもどうやら私が使っているDELPHI6 personalには
同梱されていないようです。
やっぱりPRO版を買わないと話になりませんね..
0526525 Indy
NGNG上のカキコ間違いです、すみませんっっ（汗
0527デフォルトの名無しさん
NGNG具体的な内容ですが、
OPENFILENAME 構造体の flags に
定数 OFN_ALLOWMULTISELECT (= &H200 複数選択可能)を指定したとき、
先頭のファイル名しか取得できません。
戻り値を調べてみると、最初のヌル文字の直前までしか取得出来ていないよう
です。(Len関数、Lengthプロパティの両方で確認)
(lpstrFileには65535文字のバッファーを初期値として割り当てています)
VB6.0では問題なく動作していたコードなのですが、何が原因でしょうか？
(1) CLRのバグ
(2) .Netフレームワークのバグ
(3) 漏れが何かカン違いしている。
ご存知の方、ご教示ください。
(すでに、SPで修正済み？？)
0528デフォルトの名無しさん
NGNG書き忘れましたが、OSはWindows2000 SP3 です。
0529デフォルトの名無しさん
NGNGC#使え
0530509
NGNGC＃でもDirectX使えるんですか？
0531デフォルトの名無しさん
NGNGああ。でも、C#にできるってことはVB.NETでもできるってこった。
0532デフォルトの名無しさん
NGNGVB用のCOMをInteropして使えばね。
0533デフォルトの名無しさん
NGNG(4)君のコードのバグ。
構造体定義、APIの宣言部分、APIの使用部分を載せればわかるよ。
ま、その前にOpenFileDialogクラス使えば、そんなAPIは不要。
0534509
NGNGインストールのときに悩んだのですが、Debug版とRetail版のどちらのほうがいいのでしょうか？
一応Debug版をインストールしましたが、私は趣味でプログラミングをしています。
0535デフォルトの名無しさん
NGNGアンインストールした後も使った人がインストールしたり
不正使用した情報を消さないようにしたいのですが。
この方法を回避される場合はありえるのでしょうか？
0536デフォルトの名無しさん
NGNGVBスレに答えかいてあるじゃん
0537デフォルトの名無しさん
NGNGバグなら、おなじコードがVB6で正しく動いたのはナゼ？
0538533
NGNGVB6と同じコードをコピペで貼っているなら、
やっぱり、
>(4)君のコードのバグ。
で正解だな。君のコードが間違っているのだよ。
VB.NETを勉強しなさい。
>バグなら、おなじコードがVB6で正しく動いたのはナゼ？
それはVB6だから。
VB6のコードがVB.NETでそのまま動くわけないだろうが。
0539533
NGNGVB6までのLong型はVB.NETではInteger型とか。
構造体の定義は属性も使うし。
<StructLayout(LayoutKind.Sequential)>
なんかと付加するのは常套手段だ。
ＡＰＩから文字列を受け取るような場合はStringじゃなくStringBuilderを使うとか、
ま、他にもいろいろやらんといかんのさ。
0540デフォルトの名無しさん
NGNGアップグレードのウィザードを使ってますが？
> VB6のコードがVB.NETでそのまま動くわけないだろうが。
そのぐらいは俺も知っている。
「しなさい」の命令口調や、君呼ばわりは失礼ではありませんか？
貴殿は、職場でもそのような言葉遣いなのですか？
0541527
NGNG単独のファイル選択は問題なく動作するのは確認済みです。
イミディエイトウィンドウ、MessageBox等で長さ(Len関数、またはLengthプロパティ)
を確認してみると、初期値時点では65,536あるのが、複数ファイル選択後は、最初の
Null文字の手前までの文字列長になっています。
>>539
> ＡＰＩから文字列を受け取るような場合はStringじゃなくStringBuilderを使うとか、
> ま、他にもいろいろやらんといかんのさ。
なるほど・・・。これが怪しいかな？(String型のまま使ってますので)
環境がないので、すぐに確認できないのが残念ですが。
0542デフォルトの名無しさん
NGNG下手な煽りだな、つまんない。
0543デフォルトの名無しさん
NGNG煽りとしか読み取れないのか？無神経なヤローだ。
0544デフォルトの名無しさん
NGNGマジで書いてるなら相当なあほだと思うが・・・。
ひいき目に見て煽りってことかと。
0545デフォルトの名無しさん
NGNG>>528
>>540
>>541
恥をかきたくないなら、2ちゃんねるに書き込まない方がいい。
みっともないよ。
0546デフォルトの名無しさん
NGNGつーか、厨房は氏ね。
0547デフォルトの名無しさん
NGNGハァ？
こいつヴァカか？
0548最凶VB厨房
NGNG(3)
http://www.microsoft.com/japan/msdn/net/vbtransitionguide/
ここでも見とくか？
0549デフォルトの名無しさん
NGNG任意の関数を呼ぶということをしたいのですが、これはVB.NETの標準機能で
できますか？
それとも、やっぱりAPIを直接Declareする必要がありますでしょうか。
もしそうならVB.NETでそれを実現するためのサンプルなどがどこかにあれば
うれしいのですが…
0550デフォルトの名無しさん
NGNGできるよ。
メニューの各項目はMenuItemクラスで表される。
さらにそいつがMenuItemsコレクションを持ってるから、
MenuItemクラスのインスタンスを追加するだけ。
MenuItemのコンストラクタでClickイベントを処理する
メソッドを設定できるよ。
AddHandler/RemoveHandlerで後からイベントを追加/削除もできるし。
0551549
NGNGSystem.Windows.Forms.MainMenuや.ContextMenuに追加してやればよさそうですが、
SystemMenuの場合、どこにインスタンスを追加してやればいいでしょうか？
0552デフォルトの名無しさん
NGNGたぶんAPI使わないと無理だと思う。
ところで、そこじゃなきゃだめですか？
0553549
NGNGそれを移植しようとしたがエラー出まくりで俺のスキルじゃ無理だった。
ただ単にAboutダイアログを表示させたいだけだから
別にシステムメニューである必要はないんですが
他に適当な場所がなかったので。あえてそのためだけに
フォームにボタンやメニューを配置するのがいやなだけ
だったんですよ。
0554デフォルトの名無しさん
NGNG>>544
>>545
>>546
>>547
>>548
──■──■──────■─────────■────────────
─■─■─■────■■■■■─────■■■■───────────
■■■■─■■■■───■──■■─────■─■■■■──■■─■■
──■─■───■───■─■──■───■──────■─■■─■■
■■■■────■───■■───■───■─────■───■■■─
──■──■──■──■■────■──■───■──────■■■─
■─■■──■─■─■─■────■──■──■────────■──
─■■─────■───■────■─────■────────■──
■■────■■────■─────■─────■■■■■──────
0555デフォルトの名無しさん
NGNGそんなところにAboutダイアログを呼び出すメニューをつけないでください。
0556デフォルトの名無しさん
NGNG氏ねよ。
0557デフォルトの名無しさん
NGNG0558デフォルトの名無しさん
NGNG>それを移植しようとしたがエラー出まくりで俺のスキルじゃ無理だった。
そのVB6ソースの該当部分(API宣言、構造体があるならその定義、API使用部分)
あぷ希望。移植してみたいじゃん。
そんなところに変なメニュー追加する趣味はないけど。
0559549
NGNG移植に挑戦したいという方、どうぞお願いします m(_ _)m
ttp://www.developerfusion.com/show/103/
でもシステムメニューにアバウト呼び出しメニューがあるソフトって
たまに見かけるけどなあ。もともとなくてもいい機能だけに、できるだけ
存在を主張しないところに配置したかったんですが…。
0560558
NGNGPublic Declare Function GetSystemMenu Lib "user32" Alias "GetSystemMenu" _
(ByVal hwnd As IntPtr, ByVal bRevert As Integer) As IntPtr
Public Declare Function AppendMenu Lib "user32" Alias "AppendMenuA" _
(ByVal hMenu As IntPtr, ByVal wFlags As Integer, ByVal wIDNewItem As Integer, ByVal lpNewItem As String) As Integer
Public Const WM_SYSCOMMAND As Integer = &H112
Public Const MF_SEPARATOR As Integer = &H800
Public Const MF_STRING As Integer = &H0
Public Const IDM_ABOUT As Integer = 1010
Private Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Dim hSysMenu As IntPtr = GetSystemMenu(Me.Handle, 0%)
Dim iRet As Integer
AppendMenu(hSysMenu, MF_SEPARATOR, 0%, "")
AppendMenu(hSysMenu, MF_STRING, IDM_ABOUT, "About...")
End Sub
'WndProcをオーバーライド
Protected Overrides Sub WndProc(ByRef m As Message)
Select Case m.Msg
Case WM_SYSCOMMAND
If m.WParam.ToInt32 = IDM_ABOUT Then
MessageBox.Show("これはAboutのテスト")
m.Result = IntPtr.ZERO
Exit Sub
End If
End Select
MyBase.WndProc(m)'デフォルトのWndProc処理に制御を渡す
End Sub
0561549
NGNGありがとう、あんたマジで神様や。
後からここに来る人たちにもぜひ救いの手を差し伸べてやってくださいね。
0562デフォルトの名無しさん
NGNG0563デフォルトの名無しさん
NGNGVCのそれと同じ。
0564デフォルトの名無しさん
NGNG鬱です。
0565デフォルトの名無しさん
NGNG楽しそうだな。
抽象クラス、オーバーライド、オーバーロード、属性、P/Invoke、
Mashalクラス、マルチスレッド・・・いろいろを楽しんでくれ。
0566デフォルトの名無しさん
NGNG出退勤記録・日報の単純なWebアプリでも最初は辛い。
勘所がつかめるようになればコーディングは楽になりそう
なのは感じてきたけど、テストはやっぱ手入力で一つ一つ
確認するしかないのかなぁ？
0567デフォルトの名無しさん
NGNGNUnitとか。単体テストだけどさ。
0568厨房ですよ！
NGNG>>557
またまた
──■──■──────■─────────■────────────
─■─■─■────■■■■■─────■■■■───────────
■■■■─■■■■───■──■■─────■─■■■■──■■─■■
──■─■───■───■─■──■───■──────■─■■─■■
■■■■────■───■■───■───■─────■───■■■─
──■──■──■──■■────■──■───■──────■■■─
■─■■──■─■─■─■────■──■──■────────■──
─■■─────■───■────■─────■────────■──
■■────■■────■─────■─────■■■■■──────
0569デフォルトの名無しさん
NGNGCD５枚ですとぉ？
（まぁVisuaｌStudioだって、VBだけ入れるのならCD2枚だったぞ。MSDN入れて。あ、3枚だっけ？）
これ、CDをDVD－Rにコピーして一気にインストールっていう手段は使えないですか？
むかぁし、まだ媒体がFDDだったときは、１０～２０枚のFDDをHDDのあるディレクトリに
\disk1 , \disk2 なんていうディレクトリ作って、そこにFDDの内容をコピーしてゆけば
一発インストールできたもんだが。
0571VB6->NET
NGNGIf SaveFileDialog1.ShowDialog() = DialogResult.OK Then
Dim s As String
s = SaveFileDialog1.FileName
FileOpen(1, s, OpenMode.Output)
PrintLine(1, "test", "txt")
PrintLine(1, "tested", "txt0")
FileClose(1)
End If
でいいんですかね？
StreamWriteっていうのがよくわからんのですが
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
Dim s As String
Dim sw As System.IO.Stream
sw = SaveFileDialog1.OpenFile
s = "12345"
sw.Write(s,len(s))
ではsw.Writeの所でダメって言われてました。だめぽ？
0572厨房ですよ！
NGNGまたまた またまた
──■──■──────■─────────■────────────
─■─■─■────■■■■■─────■■■■───────────
■■■■─■■■■───■──■■─────■─■■■■──■■─■■
──■─■───■───■─■──■───■──────■─■■─■■
■■■■────■───■■───■───■─────■───■■■─
──■──■──■──■■────■──■───■──────■■■─
■─■■──■─■─■─■────■──■──■────────■──
─■■─────■───■────■─────■────────■──
■■────■■────■─────■─────■■■■■──────
0573デフォルトの名無しさん
NGNG0574VB6->NET
NGNG多分、複数のコントロールに対して１つのイベントを結び付けられる様になったらしいんですが、
１）Button1を作って、ダブルクリックして Private Sub Button1_Click を作る
２）Button2を作る
このBUtton2のイベントを Button1_Clickにどうやって結びつけりゃいいのかわからんのですよ
C++Builderあたりだと、プロパティのタブにあったんだけどなぁ。
0575厨房ですよ！
NGNGここです
0576厨房ですよ！
NGNGさびしいのぉ。
0577デフォルトの名無しさん
NGNGGoogleで調べてみたら、「NUnitAsp」なるものがあった。
中でNUnitの2.0だか1.1だかを使ってるっぽいことも書いてあった。
0578デフォルトの名無しさん
NGNGアホっす！アホっす！
真性のアホっす！！！
真性のアホが現れたっす！
大変っす！こんなアホ見たことないっす！
驚きっす！驚愕っす！愕然っす！呆然っす！大ニュースっす！
このスレッドにこんなアホがカキコするなんて驚きっす！
こんなアホ2ch始って以来っす！
信じられないっす！
ビックリっす！お笑いっす！
人間国宝級のアホっす！世界遺産級のアホっす！
アホの坂田もビックリっす！ジミー大西もビックリっす！
えらいことっす！大変っす！騒然っす！
アホっす！アホっす！
真性のアホっす！！！
アンビリーバボーっす！アメージィングっす！ファンタスティックっす！
みんなを呼んでくるっす！他の板のみんなも呼んでくるっす！
0579デフォルトの名無しさん
NGNG１）２）をやった後、
３）プロパティウィンドウの上部にあるイナズママークを押す
４）項目別に並んでいるときは一番上、アルファベットで
並んでいるときは上から７番目ぐらいにある「Click」項目の中に、
「Button1_Click」と書く。
これで、Button2のイベントが Private Sub Button1_Clickに結びつく。
0580VB6->NET
NGNG解決しました。ありがとうございました。
0581VB6->NET
NGNGあ、どうもです。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
Dim s as string
s = sender.text()
Label1.text = s
End Sub
で、発生元を調べればいいんですよね？
0582厨房ですよ！
NGNG0583デフォルトの名無しさん
NGNGうん。
0584デフォルトの名無しさん
NGNGもうおまえはここにくるな！
禿げ！ 氏ね！ あほ！ ボケ カス チンカス！
0585デフォルトの名無しさん
NGNGP4/2GHz+512MBでも重い。まぁ重いっていってもVB6に比べて、なんすけどね・
0586デフォルトの名無しさん
NGNGコントロール配列っぽくコントロールの配列(コントロール配列ではない)に
する場合は、AddHandlerでイベントを関連付ける。
ttp://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&c2coff=1&q=%27VB.NET%27++%E3%82%A4%E3%83%99%E3%83%B3%E3%83%88&lr=lang_ja
0587デフォルトの名無しさん
NGNGP3-1GHz+384MBでもさくさく動くぞ。
そのマシンスペックならさくさく動くじゃん。
0588デフォルトの名無しさん
NGNGSystem.IO.Streamは、
>Stream は、すべてのストリームの抽象基本クラスです。
MustInheritで定義されていることからして、
単体で使うものじゃないんだとさ。
↓こんな感じでほかのクラスのベースとして使うもんらしい。
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
Dim s As String
Dim d As String
Dim sm As System.IO.Stream
Dim sw As System.IO.StreamWriter
sm = SaveFileDialog1.OpenFile()
s = "12345"
sw = New System.IO.StreamWriter(sm)
sw.Write(s, Len(s))
sw.Close()
End If
0589VB6->NET
NGNGおぉ、動いたよ。ありがとう。
MSのサイトも、こういう基本の所の移行説明を書いてほしいなぁ。
ちなみに、ボクは「アップグレードウィザードがついてこないっていうのを知らずに」Standard版を買った
貧乏人です。
0590デフォルトの名無しさん
NGNGデザイナで編集する方法をご存じありませんか。
0591デフォルトの名無しさん
NGNGちょっと前のレス嫁。あれは飾りだっちゅーに。
あれ欲しさに上位バージョンにするのは無駄もいいとこ。
あんたは今の選択で正解かもよ。
>590
状況がよくわからん。継承内容を編集したいってことか？
0592デフォルトの名無しさん
NGNG近頃の若いもんは日本語の使い方を知らなくて困ったもんだ。
プログラミング言語が分かってもそれじゃあねぇ
0593VB6->NET
NGNGそうですか。
例えば
Dim a as integer
a=10
open "test.txt" for output as #1
print #1,"data=";a;"[m]"
close #1
をアップグレードウィザードにかけるとどうなるんすか？
0594デフォルトの名無しさん
NGNG＞プログラミング言語が分かっても
わかってない。
0595デフォルトの名無しさん
NGNG0596デフォルトの名無しさん
NGNGこんな感じになりますた。
Dim a As Short
a = 10
FileOpen(1, "test.txt", OpenMode.Output)
PrintLine(1, "data=" & a & "[m]")
FileClose(1)
一応動くみたい。
0597デフォルトの名無しさん
NGNGいまいちオブジェクト指向じゃないんだね。
0598デフォルトの名無しさん
NGNGそりゃそうなんだが、元は曲がりなりにも動いていた糞コードが、動作すらしない
糞コードにダウングレードされるからタチが悪い。
（どこがアップグレードウィザードやねん）
0599デフォルトの名無しさん
NGNGって事はその書き方が由緒正しいBasic風プログラムになるわけで、
StreamWriterなんて使うのは邪宗ってことですね（ｗ
REM あ、なるほど。Print文中の ; は &か。なるほどね
VB.NETは一応VB7.0っていう位置づけらしいが、正統派のVB7.0を富士通あたりから出さないかなぁ。
RealBasicとか。
REM ところでボクは昔のN88Basicとかの
REM PRINT FORMAT "A=####.## B=####.##",a,b
REM っていう記述が便利と思うのですが、未だにVisualBasicではこの記法は実装されてないんですね？
0600デフォルトの名無しさん
NGNGオブジェクト指向でやりたいのだったら，最初からそういうクラスを
使って書く必要がある．
コンバートしたからオブジェクト指向に変換されるわけではない．
0601デフォルトの名無しさん
NGNG0602デフォルトの名無しさん
NGNGVisualbasicのアプリ持ってない人
0603デフォルトの名無しさん
NGNG0604デフォルトの名無しさん
NGNG次元という意味があります
0605デフォルトの名無しさん
NGNGアプリ持ってなくてどういう状況を想定してるのか書けや
でないと答えられん
0606デフォルトの名無しさん
NGNGC とかみたいに
＃DEFINE
＃IFDEF
＃ENDIF
とか。
VB マクロ でｸﾞｸﾞｯても、開発環境のマクロしか引っかからない！
0607デフォルトの名無しさん
NGNG0608Don't NET
NGNGDim xls As Excel.Application
Dim xBook As Excel.Workbook
Dim xSheet As Excel.Worksheet
xls = CType(CreateObject("Excel.Application"), Excel.Application)
xBook = CType(xls.Workbooks.Add, Excel.Workbook)
xSheet = CType(xBook.Worksheets(1), Excel.Worksheet)
xSheet.Cells(1, 1) = TextBox1.Text
xSheet.Cells(2, 1) = TextBox2.Text
xSheet.Cells(3, 1) = TextBox3.Text
xSheet.Application.Visible = True
End Sub
VB.NET初心者ですが
本を見ながらエクセルにデータを送るステップを作ったのですが
開発環境のあるクライアント、
及び .NET Framework をインストールしてあるサーバーで
それぞれ実行するとうまくいくのですが
クライアント側からサーバーのEXEを起動すると
『ActiveXコンポーネントを作成できません。』
とやらのエラーが出ちゃいます。
原因は何が考えられますか？？？？？？？
0609デフォルトの名無しさん
NGNG0610デフォルトの名無しさん
NGNGTextBox1.Height = Form1.Size.Height - 32
とすると当然だがエラーになる（旧VB厨でｽﾏｿ）。
お前ら、どうしたらいいか教えて下さい。おながいします。
0611最凶VB厨房
NGNGSDKのことか？
それはさすがにやってない。
javaはメモ帳だけど。ﾜﾗ
サンプル打ち込んでるだけだしネ！
>>610
TextBox1.Height = Me.Size.Height - 32
Resizeんとこに書いてるのか？なら
Anchorプロパティも忘れずにネ！
0612デフォルトの名無しさん
NGNGエラーメッセージは？
ちなみにフォームの拡縮に追随してTextBoxも拡縮させたいなら
Anchorを上下左右に設定するのが楽かと。
0613デフォルトの名無しさん
NGNGnaru。THX!
早速やってみるとするか・・・
しかし今更メモ帳なんて(;´Д⊂)
0614610
NGNG#Region "メインフォームに合わせてテキスト1をリサイズしてみるテスト"
Private Sub form1_resize()
TextBox1.Height = Form1Size.Height - 32 '後ほどwidth属性も変更
End Sub
#End Region
一応コード書いとくけど、「非共有メンバを参照するには、オブジェクト参照が必要」ってなんでつこりゃ。
0615デフォルトの名無しさん
NGNGhttp://www.microsoft.com/japan/msdn/library/ja/cpref/html/frlrfSystemWindowsFormsFormMembersTopic.asp
のうち、黄色の「S」マークがついてないものは「非共有メンバー」。
これらには、インスタンスが作成されてないとアクセスできない。
Formの中から、Formのプロパティとかにアクセスするときは、
Me（クラスの現在のインスタンスを参照するオブジェクト変数と
同じように動作するキーワード）を使うよろし。つまり>>611ってこと。
0616デフォルトの名無しさん
NGNGあるButtonをクリックしたときに、PictureBoxの内容自体を縮小状態に
変えたいと考えています。（画像自体を小さくしたい）
現在はPictureBoxのimageをBitmapオブジェクトにいれて、色々と編集を
してみているのですがなかなか上手くいきません。
どなたか知恵を貸してください。
0617最凶VB厨房
NGNG3/4倍に縮小・・・
Dim destinationWidth As Integer = PictureBox1.Width * 0.75
Dim destinationHeight As Integer = PictureBox1.Height * 0.75
Dim bm As New Bitmap(destinationWidth, destinationHeight)
Dim gbm As Graphics = Graphics.FromImage(bm)
Dim destinationRect As New RectangleF(0, 0, destinationWidth, destinationHeight)
Dim sourceRect As New RectangleF(0, 0, PictureBox1.Width, PictureBox1.Height)
gbm.DrawImage(PictureBox1.Image, destinationRect, sourceRect, GraphicsUnit.Pixel)
PictureBox1.Image = bm
0618デフォルトの名無しさん
NGNGコントロールのイベントとイベントハンドラの接続って出来ないの？
C#だとプロパティウィンドウのイナズママーク押せば出来たんだが…
0619616
NGNGありがとうございます。思ってたのとは少し違いましたけど、
（白い部分が残ったのとStretchImageとは相性が悪い状態）
なんとかかんとか改良してみようと思います。
0620最凶VB厨房
NGNG確かにイナズママークはないね（ｗ
ただ、エディタの上の左側のコンボボックスで
(Base Class Events)を選んだらイナズママーク出てくるよ(ﾜﾗ
C#フォームデザイナで自動生成されるところに、
VB.NETでも同じように手動で追加しちゃう？
AddHandler Button1.MouseHover, New EventHandler(AddressOf Button1_Click)
んな感じでネ！
>>619
gbm.DrawImage(PictureBox1.Image, destinationRect, sourceRect, GraphicsUnit.Pixel)
で縮小してるだけだからネ！
あと
ms-help://MS.VSCC/MS.MSDNVS.1041/cpref/html/frlrfsystemdrawinggraphicsclassscaletransformtopic.htm
このメソッドを使って、座標縮小（?）することによって縮小表示もできる（はず）
↑のメソッド使うなら、↓のページと周辺読んでネ！（たいしたことするわけでもないが、ここらへんじっくり読んだ（ﾌﾟ>俺)
ms-help://MS.VSCC/MS.MSDNVS.1041/cpguide/html/_gdiplus_types_of_coordinate_systems_about.htm
0621最凶VB厨房
NGNGPrivate Sub ButtonA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click
MsgBox("こんなやりかたもあるんやねぇ。")
End Sub
0622デフォルトの名無しさん
NGNGエディタのほうにあったのね。。。
0623名前欄失敗
NGNG0624デフォルトの名無しさん
NGNG0625デフォルトの名無しさん
NGNGその程度なら少し考えれば分かるだろ
0626デフォルトの名無しさん
NGNG本を読んで一応理解はしたのですが、次になにをよめばいいかと思って。最終的には
ASP.NETをVBでやりたいんですが・・・よい本あれば教えてください。お願いします
0627デフォルトの名無しさん
NGNG>次になにをよめばいいかと思って
さっさとプログラム書けや。教本読み漁るだけでギター弾けるようになるか？それと一緒だ。
0628ゆうこ
NGNGhoge.exe <filename>
という感じにで引数にファイル名をとり、そのファイルを処理するという
単純なものなんですが、ワイルドカードを処理できるようにしたいんですが
これってどうするのがいいんでしょうか？
このEｘEはそのままに、VBSとかBATでよびだしてもいいんですが、
大量のファイルを扱いたいのでワイルドカードで処理したいです・・・
何もしなくても*.datで処理してくれるのかと思っていた私はあほです・・・
0629デフォルトの名無しさん
NGNG自分で書くしか。Fileオブジェクトにとかにそのまま渡せばやってくれるかもね。
0630デフォルトの名無しさん
NGNGDirectoryInfo.GetFiles とかはワイルドカード展開やってくれるけど。
逆に、なんだと出来なかった？教えてくれるとうれしい。
0631ゆうこ
NGNG0632デフォルトの名無しさん
NGNGそれはそちらの引数の仕様が分からんからなんとも答えられないが、一般的には該当する引数を一つづつ渡すよね。
#Framework Common Liblaryにワイルドカード展開をやってくれないメンバがあるんだと思った。。
0633デフォルトの名無しさん
NGNGIf App.PrevInstance Then
をアップグレードウィザードで変換すると、
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
になるのだけれど、このコード、どうやら、Windowクラス名を見ず、キャプションしか見ていないようで、
他のアプリ(VB6.0でも、Delphiでも・・・)で同名のWindowが立ち上がっていると、誤動作するようです。ｗ
FindWindow でWindowクラス名とタイトルの両方を指定すれば別アプリかどうか判定できるので、問題ない
といえば、ないけれど、ショボ過ぎ。ｗ
0634ゆうこ
NGNGと表示するようなプログラムです。
Main関数でSub Main(ByVal Args() As String)とやって第一引数のパスとファ
イル名をCmdArgs(0)で取得してます。このファイル名をファイルサイズを表示
するサブプロシージャAに投げているだけだけの単純構造です。
第一引数を取得するときに、まずそのディレクトリ内の該当するファイルを
DirectoryInfo.GetFilesでとってあとはファイルの数だけサブプロシージャA
を実行すればいいのかなあ・・・なんてなんとなく思っていじくってみたんで
すが、該当するファイルをゲットするところでいきなり行き詰っています
・・・VB暦2週間の私にどうかご教授お願いします。
0635デフォルトの名無しさん
NGNG( ´,_ゝ`)
お前のバグだろ （プ
0636デフォルトの名無しさん
NGNG俺はMS信者でもVBファンでもなんでもないが、>>633のようなフザケタ無責任発言は
むかつく。
お前、ほんとうに確かめたのかと(略)
自分のバグを棚に上げて他人をバグ呼ばわりするやつは、まずお前の脳味噌のバグを
直せと声を大にして言いたい。
0637デフォルトの名無しさん
NGNG0638デフォルトの名無しさん
NGNGサーバーからデータを一気に読み込むから遅いよね？
昔のADOみたいにスクロールしたときにデータを読みにいくように出来ないの？
0639デフォルトの名無しさん
NGNGファイル名を文字列として取得したいなら、
IsolatedStorageFile.GetFileNames
使い方は検索して。
0640ゆうこ
NGNGオレってば天才！
>>639 のはちとちがう感じ→
0641デフォルトの名無しさん
NGNGわかったわかった。お前さんは天オ。
わかったからどうやったか教えれ。
0642デフォルトの名無しさん
NGNG0643ゆうこ
NGNG0644デフォルトの名無しさん
NGNG0645デフォルトの名無しさん
NGNGアクティベートが必要で出来ない。無理にやったとしても違法。
0646デフォルトの名無しさん
NGNG大きなデータを扱うときはADOを使うとかじゃダメ？
ダメだよね・・・
0647デフォルトの名無しさん
NGNG（>>635-636は煽り？）
0648デフォルトの名無しさん
NGNGこんなにむずかしかったかなぁ。
0649デフォルトの名無しさん
NGNGSDKでやってる身なので、開発環境のことはわからんが、
とりあえず、２重起動禁止はMutexの方向で。
0650デフォルトの名無しさん
NGNG３台までならインストール出来るよ
0651デフォルトの名無しさん
NGNG> ２重起動禁止はMutexの方向で。
Delphiのサンプルコードなら見た記憶があるんだが、VB向けのは少ないような・・・。
0652デフォルトの名無しさん
NGNGProcess.GetProcessesByName()を使うのは、どうでしょ？
0653デフォルトの名無しさん
NGNGVB.NET Standardは、一人で使う限りは無制限と読めたけどね。
アクティベートも要らないし。
0654デフォルトの名無しさん
NGNGアカデミックは必要。
0655デフォルトの名無しさん
NGNGどっちにしろCスタイルのコード読めなきゃ結局干される。
0656 ◆oKgODJRETc
NGNGASPだとXML弄るのにMSXML使いますよね。そのときにメソッドを書き換えた
いと思った事があるんですよ。具体的にはsaveメソッドとloadメソッドを
書き換えて、ロックファイルを使って整合性を確保したいなっと。
ここではロック云々はどうでもいいのですが、VB.NETだとMSXMLのクラスの
メソッドを書き換えたりできるんでしょうか。
0657649
NGNG>>633でそのProcess.GetProcessesByName()を使う方法が
でてたから、Mutexにしなよってすすめてみたんだが(^^;
ちなみにProcessクラスを使った方法では、
各所で問題が発生しているみたいなので、あまりお勧めはしない。
＃はっきりとした原因は不明なんだけどさ
>>656
.NETなんだし、System.XML名前空間のクラスでいんでないの？
0658 ◆oKgODJRETc
NGNGうお、しらなかった。
ってことはそのクラスを好きにオーバライドすれば良いと？
0659デフォルトの名無しさん
NGNG考えてみればVBのスレで「クラスをオーバーライド」という言葉を聞くハメになるとは、
最初にBasic考えた人（誰だっけ）は考えもしなかっただろうな
0660デフォルトの名無しさん
NGNG0661デフォルトの名無しさん
NGNG勝手に他人のサイトを直リンク！！
「法的根拠はない！！」
「だから直リンしてます」
ハァ？
ネチケットも守れない痛い厨のサイト晒し
0662デフォルトの名無しさん
NGNG0663デフォルトの名無しさん
NGNG一つのリストボックスに列を何個か入れるのですが、各列のstringを右揃えで、
見た目よく表示するのにはどのようにしたらいいですか？
今の状態だと、stringの長さによって、左右によったりして列がそろいません。
各列のstringの長さを一定にしたのですが、文字の大きさによって、これも揃いませんでした。
どなたか、なにか良い方法を教えていただけますでしょうか？
0664デフォルトの名無しさん
NGNGフォントを固定ピッチのフォントにしなはれ。
で、3の倍数のサイズにすると。
0665デフォルトの名無しさん
NGNGどなたか教えていただけますでしょうか？
0666デフォルトの名無しさん
NGNG話はそれからです。
0667デフォルトの名無しさん
NGNG送信者は自分で代用できるので問題ありません。
続きの話をお願いします。
0669デフォルトの名無しさん
NGNGラベルに表示するにはどうすりゃいいのでしょう。
あ、絵を使えってのは無しですよ。
そういう仕様なんです。それと、ラベル１枚だけで
実行時に５×５枚表示するのは
どうしたらいいんでしょう。
0670デフォルトの名無しさん
NGNGそれだけの情報じゃ全然わからない。
何がやりたいのか？どうしたいのか？
というのは、
＞あ、絵を使えってのは無しですよ。
こんな事言ってるし。常套手段を使わないということは
何か他に狙いがあるのか。
絵を使わないのならキャラクタを表示するしかないのだが、
まさかその方法がわからないと言ってるんじゃないだろうね。
0671デフォルトの名無しさん
NGNG今それで悩んでいます。
誰か対処法をお願いします。
0672デフォルトの名無しさん
NGNGありません。ないものの対処法もありません。
0673デフォルトの名無しさん
NGNGmicrosoft.public.jp.dotnet.vsnetでそんなことをいってた
tomotomoとかいうのがいたな。
0674デフォルトの名無しさん
NGNGGraphicsオブジェクト取得して描きたいように書けやｺﾞﾗ。
0675デフォルトの名無しさん
NGNG0676最凶VB厨房
NGNGリソースのプロパティ→ビルドアクション 埋め込まれたリソース
Dim CurrentAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetExecutingAssembly()
PictureBox1.BackgroundImage = Image.FromStream(CurrentAssembly.GetManifestResourceStream("Saikyo.0000003897.jpg"))
0677675
NGNGありがとうございます。
早速使ってみたいと思います。
0678デフォルトの名無しさん
NGNG0679デフォルトの名無しさん
NGNGクライアントに.NET Freamworkがインストールされていれば
.NETで作ったカスタムコントロールが動くはずだが、やり方が
わかりません、私も知りたいので誰か教えて。
0680デフォルトの名無しさん
NGNG「連動」っていうのが具体的にどういう挙動を指してるのかは不明だけど、
ActiveXコンポーネントの作成はVB.NETじゃできないかと・・・
ってか、なぜに.NETでActiveXコンポーネントの作成を？
0681678
NGNG回答ありがとうございます。
開発環境がどーしても.NETじゃなきゃアカンつうことと、当方VBしか使ったことがないので
（C、JAVA系全滅）VBでできんものかなぁ、と。
とりあえずなんとかできないかがんがってみます。
0682デフォルトの名無しさん
NGNG0683デフォルトの名無しさん
NGNGVB.Net でもできますよね。
public static Complex operator +(Complex c1, Complex c2)
( C# MSDNより )
よくあるサンプルですけど、これをVBで書くとどうなりますでしょう
Public Shared operator+ ( c1 As Complex , c2 As Complex ) As Complex
ってなぐあいだどだめっぽいんです。
0684最凶VB厨房
NGNGhttp://www.users.gr.jp/ml/archive/CS/368.asp
http://pc3.2ch.net/test/read.cgi/tech/1021218036/148
http://pc3.2ch.net/test/read.cgi/tech/1021218036/150
決定的な記述が見つからんかった･･･。まだまだ甘いですね。ﾌﾟﾌﾟｯ>>俺
0685デフォルトの名無しさん
NGNG> VB.Net でもできますよね。
http://www.microsoft.com/japan/msdn/library/ja/vbls7/html/vblrfVBSpec11.asp
オーバーロードに関する記述が無いよ？
0686デフォルトの名無しさん
NGNG0687デフォルトの名無しさん
NGNG演算子のオーバーロードはC#独自の機能で、CLIの機能ではないよ。
IL的に見れば、ただの specialname 属性の付いた1メソッドにすぎないからね。
それをC#が勝手に特別扱いしてるだけ。
0689683
NGNGだめなら、だめで、他のコーディングで対応します。
#MSDNにも演算子のオーバーロードはできませんぐらい書いてくれたらいいのに。。。
0690デフォルトの名無しさん
NGNGドキュメントに言語仕様が掲載されているのに何言ってんだか。
0691デフォルトの名無しさん
NGNGスタートアップをMainにして、
Application.Run()でアプリ開始、
Application.Exit()でアプリ終了するようにすればよろし。
0692デフォルトの名無しさん
NGNG0693デフォルトの名無しさん
NGNGPrintScreenでキャプチャする
0694692
NGNGすいませんが、どのようなコードを記述すればよいのでしょうか？
PrintDocument1_PrintPageに、書き込めばいいのでしょうか？
よろしくお願いいたします。
0695デフォルトの名無しさん
NGNG0696デフォルトの名無しさん
NGNGブールは今は流行らない省略形を好むC厨読みです。
0697最凶VB厨房
NGNGありがとさん。
ﾌﾑﾌﾑφ...ﾒﾓﾒﾓ
specialname･･･
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfSystemReflectionTypeAttributesClassTopic.asp?frame=true
>>692
漏れのスキルじゃわからんﾁﾝ。
このコードが参考になるやもしれん。。。ならんかも知れん。鬱氏
http://www.dotnet247.com/247reference/msgs/26/133191.aspx
0698695
NGNG最新の読み方は何なんですか？
0699デフォルトの名無しさん
NGNGで、何かしらのグラフィックをパネルクリックをトリガにパネル上に書こうと思ったのですが
Private Sub Panel1_Paint(～
End Sub
Private Sub Panel1_Click(～ ) Handles Panel1.Click
End Sub
を出してから途方にくれているのですが、
その次にどのように考えたら良いのでしょうか？
0700最凶VB厨房
NGNGGraphicsオブジェクトを作成する。
その後は、
ms-help://MS.VSCC/MS.MSDNVS.1041/cpguide/html/cpcondrawingeditingimages.htm
ここらへん見て適当にやる。
0701デフォルトの名無しさん
NGNGブーリアン
ブールでも普通に通じるよ。ブール値を扱うのがブーリアンだし。
ちなみにブールは数学者の名前だ。
ttp://www.interq.or.jp/jazz/iijima/primer/comment/bool.html
0702デフォルトの名無しさん
NGNGﾚｽありがとう。今の状況。
サンプルに習いPanel1_Paint中に
Dim g As Graphics = e.Graphics
g.DrawString("Hello World!", Control.DefaultFont, Brushes.PapayaWhip, e.ClipRectangle.Left + 10, e.ClipRectangle.Top + 10)
を入れてます。
で、Form1のコンストラクタに
AddHandler Panel1.Click, AddressOf Me.Panel1_Click
の一文を入れたら良い感じ。ただ、一番にOnPaintが発生しているらしいので、生成時に既に書かれてしまっている。
ここをクリアできれば使えそうだが。。
0704699
NGNGあれ、読み返してみて馬鹿な事書いてる。Paintと関係ないじゃん。
忘れてください。
またやり直して報告しにきます。
0705最凶VB厨房
NGNGe.Graphics.DrawLine(New Pen(Color.Black), 0, 0, 100, 100)
ってな感じで使えるぜ。
0706699
NGNGそうなんです。
Paintをハンドルした先なら、Graphicオブジェクトが使えて
Clickをハンドルした先でClickイベントが捕まえられる。
どうにか、二つを一緒にしたClick→Paintという形態がとれないかと思っています。
目的としては学習および利用方法の取得メインなので、出来ればこの二つのハンドラを崩さない形で。
0707最凶VB厨房
NGNGhttp://www.atmarkit.co.jp/fdotnet/vb6tonet/index/index.html
にある
http://www.atmarkit.co.jp/fdotnet/vb6tonet/vb6tonet25/vb6tonet25_01.html
↑を見るがよろし。両方見るがよろし。
0708最凶VB厨房
NGNG0709699
NGNGClickのハンドラに
Dim g As Graphics = Graphics.FromHwnd(Me.Panel1.Handle)
g.DrawString("Hello World!", Control.DefaultFont, Brushes.PapayaWhip, Cursor.Position.X() - Me.Location.X - Me.Panel1.Location.X, Cursor.Position.Y() - Me.Location.Y - Me.Panel1.Location.Y)
を入れると、ちょっと座標が追従してなくおかしいけど、まぁ、大体合ったことは合った。
さて本来ならこれでいいのかもしれないですが、目的が達成されていないのでこれから>707のリンク先を見てきます。
0710699
NGNGハンドル追加しようにもシグニチャが違うと怒られる。。どっちもpanel1のイベントなのに(´･ω･‘)ｼｮﾎﾞｰﾝ
原因分からず。
とりあえずOnPaintはシステムで管理するタイミング専用と。
0711デフォルトの名無しさん
NGNG6にあったAfterColEditのようなイベントは無くなったのでしょうか？
0712デフォルトの名無しさん
NGNGそれだと、自分のウィンドウが他のウィンドウで隠れたら、
描画内容が消えないか？
PrivateなBitmapクラスの変数を用意しておく。
ClickイベントではBitmapオブジェクトを作って、
そこから得た、Graphicsオブジェクトに絵を描く。
BitmapオブジェクトがNothingでなければ、
PaintイベントではBitmapオブジェクトを描画する。
ってな具合でOKかな。
0713699
NGNGレスありがとう。
それが出来ればまともなアプリの振る舞いになりそう。
そこで、二つ聞きたいんだけど。(悩みながらやっているので、その後自己解決したら報告します)
Bitmapオブジェクトに対して書くのは、明示的にPanel1に書いて、Bitmapにも書くって事?
現状、Bitmapに対して書くことができないんだけど、どのような解決方法があるの?
0714712
NGNGちょっと抜けてたので補足。
ClickイベントでBitmapオブジェクトに描いて、
＃Bitmapオブジェクトに描くというのは、
＃Bitmapオブジェクトを生成して、さらに、Graphics.FromImageで
＃Graphicsオブジェクトを取得し、そこに描画するということ。
その後、Invalidateメソッドで再描画するように指示する。
そうすればPaintイベントが発火されるので、
その中では、e.Graphics.DrawImageを使ってこのBitmapを描画する。
0715699
NGNGFormのコンストラクタに
bmppanel = New Bitmap(Panel1.Width, Panel1.Height, Graphics.FromHwnd(Me.Panel1.Handle))
Paintのハンドラに
Dim g As Graphics = Graphics.FromImage(bmppanel)
If Not (bmppanel Is Nothing) Then
g.DrawImage(bmppanel, 0, 0)
End If
Clickのハンドラに
Dim g As Graphics = Graphics.FromImage(bmppanel)
g.DrawString("Hello World!", Control.DefaultFont, Brushes.PapayaWhip, Cursor.Position.X() - Me.Location.X - Me.Panel1.Location.X, Cursor.Position.Y() - Me.Location.Y - Me.Panel1.Location.Y)
としたら、全く描画がされなくなったけど、何かおしいところにいっているような気がする。
NETなんだろのサンプルもこんな感じだったし。
0716699
NGNGすいません読んでなかった。
715は712を読んでの結果です。
試してから出直してきます。
0717699
NGNGありが㌧。おかげさまで再描画対応なフォームが出来ました。
715の状態からPaintハンドラのGraphicオブジェクト宣言を
Dim g As Graphics = e.Graphics
に。またClickハンドラの最後に
Me.Panel1.Invalidate(True)
を追加するだけで出来ました。アドバイスのままですけど、改めてコードとして報告。
改めて、最凶VB厨房さんと、712さんに感謝。
あと、タイトルバー左上角からフォームの左上隅Sizeの取得方法わかる方いますか?ここのオフセットがどうしても取れない。。
0718デフォルトの名無しさん
NGNGcalc.exeを起動して、それが閉じられたらもう一回起動する、というようなプログラムはできないものでしょうか。
Shell関数の辺りを調べてみましたが、ダメでした。
よろしくお願いします。
0719デフォルトの名無しさん
NGNGSystem.Windows.Forms.SystemInformation で地道に計算。
0720デフォルトの名無しさん
NGNGできるかどうかは試してないが、
Processクラスあたりでなんかないかな。
0721デフォルトの名無しさん
NGNGvb6のように、真下にある物も表示させる方法はあるのかな。
0722デフォルトの名無しさん
NGNGもー８時間くらい試行錯誤してます… どなたかヒントだけでもプリーズ！
～～ VB6版（正常に動く
Private Type TestInfo
dataType As Long
dataSize As Long
scale As Double
act As Long
mot As Long
frm As Long
End Type
Private Declare Function GetInfo Lib "getinfo.dll" Alias "_GetInfo@8" (ByVal lpInFileName As String, lpInfo As TestInfo) As Integer
Dim iReturn As Integer
Dim info As TestInfo
iReturn = GetInfo(strFileName, info)
0723デフォルトの名無しさん
NGNG0724デフォルトの名無しさん
NGNG～～ エラーの表示
'System.NullReferenceException' のハンドルされていない例外が RaClient.exe で発生しました。
追加情報 : オブジェクト参照がオブジェクト インスタンスに設定されていません。
0726デフォルトの名無しさん
NGNGVB6の時はLoadPictureを使用して、
PictureBox.PaintPicture LoadPictute("画像.jpg"), 0, 0, 100, 100,0,0
って出来たんだけど、
VB.NETではどうやるんですか？
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/cpref/html/frlrfsystemdrawinggraphicsclassdrawimagetopic5.asp
の
Public Sub DrawImageRect(e As PaintEventArgs)
' Create image.
Dim newImage As Image = Image.FromFile("SampImag.jpg") ←これはわかります
' Create rectangle for displaying image.
Dim destRect As New Rectangle(100, 100, 450, 150)
' Draw image to screen.
e.Graphics.DrawImage(newImage, destRect)
End Sub
をやってみても、どこにも画像が表示されないし…。よくわかりません
よろしくお願いします。
0727世直し一揆
NGNG●とにかく気が小さい(神経質、臆病、二言目には「世間」）
●他人に異常に干渉する（しかも好戦的・ファイト満々でキモイ）
●自尊心が異常に強く、自分が馬鹿にされると怒るくせに平気で他人を馬鹿にしようとする
（ただし、相手を表面的・形式的にしか判断できず(早合点・誤解の名人)、実際にはたいてい、内面的・実質的に負けている）
●「常識、常識」と口うるさいが、実はA型の常識はピントがズレまくっている（日本の常識は世界の非常識）
●権力、強者（警察、暴走族…ｅｔｃ）に弱く、弱者には威張り散らす（強い者に弱く、弱い者には強い）
●あら探しだけは名人級（例え10の長所があってもほめることをせず、たった１つの短所を見つけてはけなす）
●基本的に悲観主義でマイナス思考に支配されているため、性格がうっとうしい（根暗）
●一人では何もできない（群れでしか行動できないヘタレ）
●少数派の異質、異文化を排斥する(差別主義者）
●集団によるいじめのパイオニア＆天才(陰湿＆陰険）
●悪口、陰口が大好き（Ａ型が３人寄れば他人の悪口、裏表が激しい）
●他人からどう見られているか、体裁をいつも気にしている（「世間体命」、「～みたい」とよく言う）
●自分の感情をうまく表現できず、コミュニケーション能力に乏しい（同じことを何度も言う、知障）
●表面上意気投合しているようでも、腹は各自バラバラで融通が利かず、頑固(本当は個性・アク強い）
●人を信じられず、疑い深い（自分自身裏表が激しいため、他人に対してもそう思う）
●自ら好んでストイックな生活をし、ストレスを溜めておきながら、他人に猛烈に嫉妬する（不合理な馬鹿）
●執念深く、粘着でしつこい（「一生恨みます」タイプ）
●自分に甘く他人に厳しい（自分のことは棚に上げてまず他人を責める。しかも冷酷）
●男は、女々しいあるいは女の腐ったみたいな考えのやつが多い
0728699
NGNG教えられるような身空じゃ無いんだけど、
Paintハンドラで、そのDrawImageRectメソッド呼び出してますか?
他にも方法があるけど有効なPaintEventArgsを得るにはPaintハンドラ内から呼び出すのがいちばん簡単。
>719
レスありがとう。
このメンバ(プロパティ)ほとんどStaticなんだね.。
該当する物を見当つけてﾋｰｺﾗ探している所です。
VB6と違ってインスタンス化しないクラスがあるので(VB6でもあったっけ?)、そういうときはウォッチ式が使いにくい。
あるクラスのプロパティの値だけ一覧でぱっと分かる方法って無いのかな。
0729726
NGNG申し訳ないんですが、簡単なコード教えてもらえませんか？
0730デフォルトの名無しさん
NGNG728もいってるけど、あやしーのは e as PaintEventArgs だね。
ちゃんと描画したいオブジェクトのGraphicsオブジェクト持ってきてる？
確かCreateGraphicsかなんかで作れたはず。
0731デフォルトの名無しさん
NGNG>>430あたりからのレスとか、>>539付近とかまずは見てみ。
0732デフォルトの名無しさん
NGNGDatasetをDatagridに貼り付ける際に
現在拙者はDoLoopを使ってAddしてます。
なんか自分は根本的に間違ってると思えるぐらい
激しく重いです。
DatagridのDataSourceに貼り付けようとしてみたんですが
クラス名が表示されたりしてうまいこといきません。
どうすれば効率的に貼り付けられるでしょうか。
どなたかよろしゅうお願いします。
0733726
NGNGうーん、、わからんですたい
考えてみると
＞Public Sub DrawImageRect(e As PaintEventArgs)
これがわからない
＞' Create image.
＞Dim newImage As Image = Image.FromFile("SampImag.jpg")
newImageにSampImag.jpgってのが格納されて
＞' Create rectangle for displaying image.
＞Dim destRect As New Rectangle(100, 100, 450, 150)
座標100,100、サイズ450,150がdestRectに入って
' Draw image to screen.
e.Graphics.DrawImage(newImage, destRect)
で、eが描画・・・ﾊｧ？
End Sub
ってことなんですよ
もう、わけわからないわけで。。。なんでこんなに大変なんだ.Netは・・・
0734デフォルトの名無しさん
NGNG質問の主旨がよくわかんないけど、データアダプタのFillメソッドを使う。
ttp://www.microsoft.com/japan/msdn/library/ja/Vbcon/html/
vbwlkwalkthroughdisplayingdatafromsingletableinwindowsform.asp
を一回読んでみたら？（urlは連結してね)
外してたらｽﾏｿ
0735730
NGNGってゆーか、よく見たらPictureBoxじゃん。
ImageオブジェクトをPictureBoxのImageプロパティにいれりゃOKだった。
PictureBox1ってやつを配置した場合なら、
Dim newImage As Image = Image.FromFile("SampImag.jpg")
PictureBox1.Image = newImage
どーしてもDrawImageが使いたいんならこんな感じ。
Dim Grap As System.Drawing.Graphics
Dim newImage As Image = Image.FromFile("SampImag.jpg")
Dim destRect As New Rectangle(100, 100, 450, 150)
Grap = PictureBox1.CreateGraphics
Grap.DrawImage(newImage, destRect)
0736726
NGNG>>735
あー出来ました。
どうしても、DrawImageが使いたかったので助かりました。
あとはCreateGraphicsを理解できればなんとかなるかな。
ありがとうございました。
そういや、コントロール配列ってなくなったんですねー。
Tagを使って変な感じで代替できてますが、なんか不便。。。
0737デフォルトの名無しさん
NGNG0738デフォルトの名無しさん
NGNG基本はDatagrid.DataSourceにDataSetのDataTableを入れりゃOK。
つーか、どうやってDataset取得してんのか教えれ。
>736
Controlクラスレベルならできるよ。
とはいえ、デザイナが自動生成するところいじらんとできない(はず)。
動的にコントロールを配置するときに少し便利。まあ、少しだけど。
0739732
NGNGども。レス感謝です。７３２です。
OLEテータアダプタで抽出してfillでつっこんでます。
データ自体が来てるのは確認済みです。
＞基本はDatagrid.DataSourceにDataSetのDataTableを入れりゃOK
つまり
Datagrid.DataSource = DataSet.tables("テーブル名")
って感じでしょうか?
一月前までDAOしかつかってなかったんで何がなんやら・・・
スンマセンです。
0740デフォルトの名無しさん
NGNGまずは試してみろよ。
それでも駄目なら再質問しれ。
まあ、一応それでOKのはず。
テーブル名はFillで指定したヤツな。
0741デフォルトの名無しさん
NGNGVB.NETを購入したのですがコントロールにあるVideoSoftのVSFlexというOCX
は配布可能な物なのでしょうか？使って配布不可だったら悲しいので。
0742デフォルトの名無しさん
NGNGそれ、パッケージのOCXじゃねぇの？
葡萄都市いってみれ。
0743デフォルトの名無しさん
NGNGそのカラムを基準にソートをしたいのですが、どうやればいいのでしょうか？
IComparerの実装というのがよくわかりません。。。
0745DataFormウイザード変？？
NGNG更新ボタンをクリックすると、”UPDATEステートメントの構文エラーです。”のメッセージが出てしまう。
ウイザード通りにやっても駄目なのはバグ？？ mdbデータベースに問題あり？？
0746デフォルトの名無しさん
NGNGちょっと見てみたが、できるんかなコレ？
SortメソッドにColumn指定するのないし。
IComparerはソート順の規則…だと思う。
コレ実装しても、多分無理じゃないかな。
そもそも別カラムのデータが入ってかないからね。
0747デフォルトの名無しさん
NGNG書籍にまんま載ってた。
0748デフォルトの名無しさん
NGNG0749DataFormウイザード変？？
NGNGmdbデータベースのフィールド名にvalueがある場合、
更新ボタンをクリックすると、”UPDATEステートメントの構文エラーです。”のメッセージが出るようだ。
やっぱ、バグか？？
絞り込むのに、疲れ果てた爺さんみたいになっちまったよ。
0750デフォルトの名無しさん
NGNG<param>
<ringo>150</ringo>
<banana>80</banana>
<melon>55</melon>
．
．
．
</param>
のようなXMLファイルがあるとき、このparam要素配下の
諸要素（要素数は不明）の数字を
fluits(0)=150 fluits(1)=80 fluits(2)=55…のように
上から順に配列に格納するにはどうすれば良いでしょうか。
どなたか助言お願いします。
0751デフォルトの名無しさん
NGNG0752デフォルトの名無しさん
NGNG0753デフォルトの名無しさん
NGNG0754デフォルトの名無しさん
NGNGBGMを流す方法希望。
0755デフォルトの名無しさん
NGNGDirectSound
0756デフォルトの名無しさん
NGNGhttp://choco.2ch.net/test/read.cgi/intro/1040885146/l50
0757デフォルトの名無しさん
NGNGmciSendString関数
0758７５０
NGNGＤＯＭを利用するというのは何となく分かったんですが
VB.NETで使う方法が調べても出てこなくて困ってます。どなたかお願いします
0759最凶VB厨房
NGNGmyXmlDocument.Load("test.xml")
Dim arraylist As New ArrayList()
Dim Reader As New XmlNodeReader(myXmlDocument.SelectSingleNode("param"))
While Reader.Read()
If Reader.HasValue Then
Console.WriteLine(Reader.Value)
arraylist.Add(Reader.Value)
End If
End While
test.xmlの中身・・・。
<?xml version="1.0" encoding="Shift_JIS" ?>
<param>
<ringo>150</ringo>
<banana>80</banana>
<melon>55</melon>
</param>
(´-`).｡ｏＯ(XMLさっぱりわからないや・・・。)
0760最凶VB厨房
NGNG0761７５０
NGNGどうもありがとうございます。
しかし１，４行目のXmlDocumentとXmlNodeReaderで
型が定義されていませんというエラーが出るのですが，
どう対処すれば良いのでしょうか？
0762最凶VB厨房
NGNGを追加。どこに追加するかはわかってるよね？
0763７５０
NGNGできました、ありがとうございます。
勉強始めたばかりなもので、済みません。
0764まいっちんぐマチコ ◆2gicN.Bep6
NGNGMSHFlexGridをフォームに貼り付けて、
MSHFlexGrid1.Cols = 7
っていう、コードを書いたんです。そしたら
Form1.vb(67): 'Cols' は 'AxMSHierarchicalFlexGridLib.AxMSHFlexGrid' のメンバではありません。
って、言うんです。どうしたら怒られないですみますでしょうか？
0765デフォルトの名無しさん
NGNG単純にColsプロパティがないんだと思われ｡
ヘルプ嫁｡
0766まいっちんぐマチオ ◆2gicN.Bep6
NGNGそれで、オブジェクトブラウザを見ると作成したMSHFlexGrid1はAxMSHFlexGridの方を継承していて
こちらのAxMSHFlexGridには確かにColsは無いんです。
ただ、Interop.MSHierarchicalFlexGridLibの下にあるMSHFlexGridには、Colsがあるんです。
私としては、後述したMSHFlexGridを継承している階層フレキシブルグリッドを使いたいんですがどうもうまくいきません。
何か良い手段はないでしょうか？
（マチコ先生に失礼なのでコをオに変えました）
0767デフォルトの名無しさん
NGNG何を代入できるかを表示させるにはどうすればいいんですか
0768デフォルトの名無しさん
NGNG0769デフォルトの名無しさん
NGNG0770デフォルトの名無しさん
NGNGそのプロパティの型は何？Booleanや列挙型を指定していれば
候補がでると思うけど、開発環境持ってないので知らん。その辺は旧VBと変わってないと思う。
>>768
・完全なオブジェクト指向言語になり、実装の継承が可能。オーバーロードも可。
・オブジェクト指向対応のためのキーワードの追加。
→ Protected, Inherits, Imports, Overrides, Overloadsなどなど
・イベント処理がプロシージャ名固定(例えばForm_Load、Command1_Click)ではなく、
同じ引数の並びを持っていれば(正確にシグニチャが同じなら)、任意のプロシージャを指定できる。
・ランタイムライブラリが.NETで共通化
・配列は0オリジン
・コントロール配列の廃止
・Long → Integer
・Integer → Short
・Varinat → 廃止
・Set xxx = hoge → xxx = hoge
・Public Sub A(B As Integer)のようなプロシージャがあるとき、
旧VBではByRef B As Integerの意味だが、VB.NETではByVal B As Integerの意味
・初期値の代入のサポート→例) Dim i As Integer = 100
・型指定、明示的型変換の強制オプションOption Strict On/Offの追加
・While～Wend→ While ～ End While
・旧BASICな文法の削除
・C/Java的にFunctionの戻り値を返すためのReturnの導入
・Try～Catch～Finally～End Tryによる構造化された例外処理
・APIの呼び出し制御が柔軟に
その他、多数。
0771デフォルトの名無しさん
NGNG初めて知ったぜ。
新鮮な機能ってあんまり追加されてないのね。
その他に含まれてたりしてｗ
0772デフォルトの名無しさん
NGNG0773デフォルトの名無しさん
NGNG使うソフトウェアやアーキテクチャによっていろいろ意味が違ってくる。
0774デフォルトの名無しさん
NGNG領域。
0775770
NGNGイベント処理まわり(AddHandlerで動的追加)とかAPI関連の変更、Try～Catchなんてかなり新鮮だけどねぇ。
(VB的には)
今までと違って、AddressOf演算子は普通に使うし。
ちなみにリフレクションとか、マルチスレッドとか、デリゲートとか、
豊富なクラスライブラリは.NETの機能なんで、770で挙げた中には含んでない。
C#のunsafeポインタのような使い方でのポインタじゃないが、
Marshalクラスを利用してポインタも利用できるし、
構造体と属性を利用してC言語のUNION(共用体)みたいなこともできる。
サブクラス化にAPIのSetWindowLong関数を使わんでいいとか。
(WndProcメソッドのオーバーライドでサブクラス化できる)
>>772
旧VB的に言えば、モジュールレベルの変数。
0776デフォルトの名無しさん
NGNG他すべてのファイルについて処理を行うことを考えています。例えば
以下のような処理で、ファイルAAAを固定して、ファイルNNNをAAA以外の
別ファイルとし、全ての別ファイルについて繰り返したい場合どうすれば良いでしょうか？
よろしくお願いします。
Private Sub Keisan
X=（aaaとnnnｎの処理結果を用いて計算）
Console.WriteLine(X)
End Sub
Private Function aaa()
ファイルAAAについて処理
End Function
Private Function nnn()
ファイルNNNについて処理
End Function
0777デフォルトの名無しさん
NGNG0778デフォルトの名無しさん
NGNGOption Strict Offならそのまま代入可。
OnでもCBoolで代入できるよ。
0780デフォルトの名無しさん
NGNGわけわかんない
0781デフォルトの名無しさん
NGNGFunction とEndで囲んで関数を表現するの気持ち悪くない?
C/C++/Java/C#のように{}で囲った方が使いやすいと思う。
そうでもない?
0782デフォルトの名無しさん
NGNGはっきり分かるほうがいいと思う
0783デフォルトの名無しさん
NGNG要するにジャンケンのグーチョキパーが書かれたファイルが１００あったら、
あるAの手と他の９９個全部の手を勝負させてその結果を表示しるとか
そういうことか？
>>781
気持ち悪いっつーかめんどくさい。
まあ初読みやすくはあるけど
0784デフォルトの名無しさん
NGNG○読みやすく
何だよ初読みって…
0785デフォルトの名無しさん
NGNG0786776
NGNGそうです！そういうことです。
>>776で、関数nnnで読み込むファイルを毎回変え、
処理全体をファイルの数だけ繰り返したい・・・ということです。
何か良い方法はないでしょうか？
>>780
すみません。。
0787780
NGNGPrivate Function nnn(ByVal fname As String)
If fname= …
End Function
みたいにして処理するファイルの数だけこの関数を呼び出すってのはどうでしょうか･･･
0789デフォルトの名無しさん
NGNGなに？
GotDotNetJapanって外部へのリンク多いと思わない？
0790デフォルトの名無しさん
NGNG外部へのリンクしかないように思うのは漏れだけ？
しかも、今後も増えていくのは海外ものの和訳だけのような気がするし・・・
0791デフォルトの名無しさん
NGNGListBoxを使用して同じことってできないですかね？
ドキュメントには
＞OpenFileDialog コントロールと SaveFileDialog コントロールを使用して・・・
って書いてあるのですが、どうすりゃいいの？
0792デフォルトの名無しさん
NGNGFileSystemObjectを使用して
自力でリスト表示すれ
0793デフォルトの名無しさん
NGNGえーと、たとえば？
GetFiles使ってなんとかできないですかねー
0794デフォルトの名無しさん
NGNG792,983の検索キーワードと､
配列の知識と､
For each
Next
を使えばできる｡
0795デフォルトの名無しさん
NGNG983はまだまだぞｗ
と一応つっこんでおく
0796デフォルトの名無しさん
NGNGまだ解決してなかったのか。
0797デフォルトの名無しさん
NGNG0798デフォルトの名無しさん
NGNGクラスライブラリ使えよ。System.IOあたりにあるだろ。
0799デフォルトの名無しさん
NGNG初心者のボクたちにくわしくおしえて。
Formは知ってるけどクラスは知らないよ。
System.IOも聞いたことないよ。
0800デフォルトの名無しさん
NGNG0801デフォルトの名無しさん
NGNG0802デフォルトの名無しさん
NGNG「VB.NET」とか「ファイルの入出力」とかでググれ。
大抵のVB.NET入門書とかにも書いてあるはず。
0803デフォルトの名無しさん
NGNGInput/Outputの略=IO
I/Oって雑誌知らないんだろうな。
0804デフォルトの名無しさん
NGNG0805デフォルトの名無しさん
NGNGDirectory.GetFiles
戻ってきたstring[]の要素数を調べればよいかと。
0806デフォルトの名無しさん
NGNGhttp://www.microsoft.com/japan/msdn/library/ja/cpref/html/frlrfSystemIO.asp
ぐらいは見ておいてくれ。
0808デフォルトの名無しさん
NGNGButtonボタンを押したときに描画されるんで、コードは間違ってないと思う。
でも、それだと意味がない
で、ようは再描画させれればいいと思い、
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
に同様のコードを書いてやってみてら、一瞬表示されて、やっぱり消えてしまうんです。
この場合は、いったんフォームが少しでも隠れれば表示されます
フォームがロードされたときに、表示させる方法ないですかね？
0809808
NGNG0810デフォルトの名無しさん
NGNGくわしくはこちら
http://life2.2ch.net/test/read.cgi/offevent/1041078183/l50
0811デフォルトの名無しさん
NGNGByRefに自動認識されてたのに
.Netでは必ずどちらか明記する必要がある模様。
明記はいいんだけど前はByRefがデフォだったのに
.Netは書いてないとByValが自動で付くから
旧VBコードを部分的にコピってくると
勝手にByValと書き加えられてナンジャソリャ―って感じ。
0812デフォルトの名無しさん
NGNGSet objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("C:\test") 'フォルダ指定
Set objFolderItems = objFolder.Items
For Each FolderItem In objFolderItems
If FolderItem.Name = "test.txt" Then 'ファイル名を指定
lbl1.Caption = FolderItem.ExtendedProperty("Title") 'タイトル
lbl2.Caption = FolderItem.ExtendedProperty("Subject") '表題
End If
Next
でNTFSフォーマットのHDDに保存しているファイル（C:\test\test.txt）の概要を取得できたんだけど
VB.NETのときは、どうやればいいでしょう？
0813デフォルトの名無しさん
NGNGんー、こんな感じでフツーにできるが。
どーやって描画してんの？
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
e.Graphics.DrawImage(newImage, destRect)
End Sub
0814813
NGNG間違えますた、ｽﾏｿ。
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
e.Graphics.DrawImage(Image, Rect)
End Sub
0815808
NGNGこんなんです
Dim Grap As System.Drawing.Graphics
Dim newImage As Image = Image.FromFile("C:\test.jpg")
Dim destRect As New Rectangle(0, 0, 60, 60)
Grap = PictureBox1.CreateGraphics
Grap.DrawImage(newImage, destRect)
Paintイベントを使ってやってみると、一瞬表示されるんですが、その後消えたままなんですよ。
今のところ、いったんTimerに送ってそこから描画してるんです。
でもこのやり方より、絶対にいい方法があると思うので
フォームが隠れたときはPaintイベントでいいんですけでね
0816IP記録実験
NGNGhttp://qb.2ch.net/test/read.cgi/accuse/1042013605/
1 名前：ひろゆき ◆3SHRUNYAXA ＠どうやら管理人 ★ 投稿日：03/01/08 17:13 ID:???
そんなわけで、qbサーバでIPの記録実験をはじめましたー。
27 名前：心得をよく読みましょう 投稿日：03/01/08 17:20 ID:yL/kYdMc
SETTING.TXT管轄でないということは全鯖導入を視野に、か？
38 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:22 ID:rLfxQ17l
>>27
鋭いです。
73 名前：ひろゆき ◆3SHRUNYAXA 投稿日：03/01/08 17:27 ID:rLfxQ17l
＞ところで、IPが抜かれて何か今までと変わることってあるのでしょうか？
・今までより、サーバが重くなる。
・裁判所や警察からの照会があった場合にはIPを提出することがある。
0817デフォルトの名無しさん
NGNGPaintイベントの引数eを使ってDrawImageしてみ。
0818デフォルトの名無しさん
NGNGInvalidateメソッドで。
0819デフォルトの名無しさん
NGNG0820デフォルトの名無しさん
NGNGヽ(`Д´)ﾉ ｳﾜｧｧﾝ
0821808
NGNGありがとうございます。
なるほど。↓のようにしたら描画表示されました。しかも、フォームが隠れても
再表示されました。>>814でできるわけですね。
Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Pic1.Paint
Dim Grap As System.Drawing.Graphics
Dim newImage As Image = Image.FromFile("C:\test.jpg")
Dim destRect As New Rectangle(0, 0, 60, 60)
e.Graphics.DrawImage(newImage, destRect)
End Sub
でも、
画像が複数あるばあい、一個づつこのコードを書かなきゃできないんですかね・・・
Invalidateメソッドを使わなくても出来てるような気がするんですが、
使用した場合、どうやいったタイミングに変わるんですか？
0822デフォルトの名無しさん
NGNG遅レスですが。
できました、どうもです
0823デフォルトの名無しさん
NGNGもしWebでフリーソフトとして公開した場合、accessがインストールされていないPCでも
mdbファイルを一緒に配布すれば、利用できると思うのですが、
フリーソフトのデータファイルとして、mdbファイルを配布するのは
問題ないのでしょうか？
0824デフォルトの名無しさん
NGNGエンジンによるかもしれんが
0825デフォルトの名無しさん
NGNG今後、予想されるレス
「IPって何ですか？」
「串って何ですか？」 「串揚げ」
0826デフォルトの名無しさん
NGNGArrayListみたいに１つずつ要素を増やしていくことはできないんでしょうか？
0827デフォルトの名無しさん
NGNGできません。多分。
つーかそのために用意されたのがArrayListだってどっかで聞いたことある。
0828デフォルトの名無しさん
NGNG２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 138720人 発行日：2003/1/9
年末年始ボケがそろそろ収まり始めた今日このごろのひろゆきです。
そんなわけで、年末に予告したIP記録ですが実験を開始しています。
「２ちゃんねる20030107」
こんな感じで各掲示板の最下部に日付が入ってるんですが、
20030107以降になってるところはログ記録実験中ですー。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
0829デフォルトの名無しさん
NGNG単にファイル名だけを取得したいのですが方法ありませんか？
0830デフォルトの名無しさん
NGNGPath.GetFileName
0831前に質問した791
NGNG遅れましたがありがとうございました
>>829
ドキュメント見てやってみたが、
Imports System
Imports System.IO
Private Sub GetFilName(ByVal TargetFolder As String)
Dim di As New DirectoryInfo(TargetFolder)
Dim fiArr As FileInfo() = di.GetFiles()
Dim fri As FileInfo
For Each fri In fiArr
Console.WriteLine(fri.Name)
Next fri
End Sub
をつくっといて
GetFilName（"C:\test"）でOKかな
0832デフォルトの名無しさん
NGNG誰かわかりませんかー？
0833デフォルトの名無しさん
NGNGぅ
ゎ
ぁ
0834デフォルトの名無しさん
NGNGアホが捕まる分には全く問題無いんだが、
重要なのは今後「善意の告発」でさえ潰される可能性がある事だ。
0835デフォルトの名無しさん
NGNGVBではRedimが一応使えるが、ArrayListで十分じゃないかい？
>>832
Shell.ApplicationをInteropしたんじゃだめなん？(もれは試してないよ)
0836デフォルトの名無しさん
NGNGVB.NETを使うようにすればJPEGやPNGを簡単に扱うことができますか？
できなければ今のままVB6.0を使おうかな、なんて思ってます。
0837デフォルトの名無しさん
NGNG0838デフォルトの名無しさん
NGNG0839デフォルトの名無しさん
NGNG0840デフォルトの名無しさん
NGNG0841デフォルトの名無しさん
NGNGまあ自業自得だな
0842デフォルトの名無しさん
NGNGヘルプからのコピペ
解説
通常、 PictureBox は、ビットマップ、メタファイル、アイコン、JPEG、GIF、または PNG ファイルをグラフィックを表示するために使用します。
0843デフォルトの名無しさん
NGNGｽﾏｿ、保存か。
複数のイメージ形式のサポート
GDI+ は、イメージをさまざまな形式で読み込み、保存、および操作できるように、Image、Bitmap、Metafile の各クラスを提供しています。次の形式がサポートされています。
BMP GIF JPEG EXIF PNG TIFF ICON WMF EMF
0844デフォルトの名無しさん
NGNGでも前スレがああだしさ。
0845デフォルトの名無しさん
NGNGとの質問には
「今月10月分はもう支払いが済んでいますので大丈夫ですが、
もしも何かがあったなら、潰れてしまう」
とおっしゃっていました。
大阪大学大学院国際公共政策研究科
「２ちゃんねる」西村博之氏の講演
写真あり
http://www.dryamasaki.com/PhotoJ/2002/OSIPP2/p1.html
0846デフォルトの名無しさん
NGNGたしかにＮＹのＰ２Ｐ掲示板が
のファイル交換ソフトのおまけ見たいな立場を
脱して単品で浸透してほしいね。
つっても使ったことないからどんなものなのか
まだよくわかってなかったりするが・・・。
４７氏は漏れみたいなヘタレでも使えるように
ぜひ掲示板だけバラで作成してください。
0847デフォルトの名無しさん
NGNG意味が分かりません
0848デフォルトの名無しさん
NGNGパパなにごとかやっちゃうぞー
0849デフォルトの名無しさん
NGNG0850デフォルトの名無しさん
NGNG0851PNG
NGNGさっそくありがとう～ございます。
やはりPNGが標準サポートとなると、それだけの理由で.NETに移行したくなります。
なにしろVBでゲームを作るときにPNGとか結構つかいますし。
0852843
NGNG.NET重いぞ！
起動も遅いぞ！
VB6は500MHzもあれば動いたけど、.NETは１Gでも遅い。
それでｹﾞｰﾑ作る気になればいいんでねーの。
DirectXは.NETに対応したバージョンでたし、必須かもナー。
0854PNG
NGNG0855デフォルトの名無しさん
NGNGどうせ作った事も無い奴のセリフだ。話半分に聞いとけ。
0856デフォルトの名無しさん
NGNGControlPaintクラスを要Check it out!
0858デフォルトの名無しさん
NGNGメモリの問題じゃねーの。開発環境なら256Mは最低ラインだな。
初期起動は遅いがそれ以降は遅くないぞ。
0859デフォルトの名無しさん
NGNG0860デフォルトの名無しさん
NGNGま、チャンスといえばチャンスだからな。大変なんでしょう。
0861デフォルトの名無しさん
NGNG0862デフォルトの名無しさん
NGNGhttp://www.1ch.tv/thread.php?th=2679&ar=6&ca=8
0863デフォルトの名無しさん
NGNG0864デフォルトの名無しさん
NGNG0865デフォルトの名無しさん
NGNG２ちゃんねるのお勧めな話題と
ネットでの面白い出来事を配送したいと思ってます。。。
===============================読者数： 139038人 発行日：2003/1/10
なにやら、連日メルマガだしてるひろゆきです。
そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。
重くなって落ちたりしてもご愛嬌ってことで。。。
んじゃ！
────────────────────────Age2ch─
■この書き込みは、Age2chを使って配信されています。
────────────────────────────
Keep your thread alive !
http://pc3.2ch.net/test/read.cgi/software/1041952901/l50
────────────────────────────
0866デフォルトの名無しさん
NGNG２ｃｈは徐々にハードルをクリアしてる。
0867デフォルトの名無しさん
NGNGIP漏れるのは嫌だな
0868デフォルトの名無しさん
NGNGラウンジとかは任意ID。メル欄に文字入れるとIDが???になる
パソコン一般板などはIDすらない
0869デフォルトの名無しさん
NGNGTIMEのアンケート
http://www.time.com/time/covers/1101030113/
Should North Korea be forced to freeze their nuclear program?
北朝鮮は核開発凍結を強いられるべきか？
YESに投票！！
Yes 44.7%
No 55.3%
逆転されました。応援求む。韓国は自動投票ツールを使っている模様。
http://live.2ch.net/test/read.cgi/festival/1042043442/5
に日本用の自動投票ツールあり。
祭り会場：TIME投票 北朝鮮の核開発凍結署名にYES!
http://live.2ch.net/test/read.cgi/festival/1042043442/
0870デフォルトの名無しさん
NGNG0871デフォルトの名無しさん
NGNG国内サッカー板が見れない…
0872デフォルトの名無しさん
NGNGこんか糞書き込みがあちこちに出没するんだからよ。
0873デフォルトの名無しさん
NGNG0874デフォルトの名無しさん
NGNG0875デフォルトの名無しさん
NGNGもう予告は止めた方が良いだろうね。
0876デフォルトの名無しさん
NGNG0877デフォルトの名無しさん
NGNG無理やり祭りにしたってかんじだね。もう飽きた
0878デフォルトの名無しさん
NGNG削除人は２ｃｈの制度上削除しても良い権利を持つ人でこの場合関係ない。
ISP責任法に沿って処理を要求する場合
削除依頼者が管理者に誹謗中傷であることを認識させる必要がある。
認可団体に判断を仰ぐのが妥当であろう。
そうでなければどんな言いがかりの削除依頼であっても
削除せなならなくなる。
0879デフォルトの名無しさん
NGNG0880名無し＠沢村
NGNGひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆき
ひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆき
ひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆき
ひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆき
ひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆきひろゆき
ああ～ひろゆき～～～～～～～～～～～～～～～～～～～～～～～ってか？
ヌヒはひろゆきと寝ろ！！！
0881名無し＠沢村
NGNGヌヒよ、いってる意味がわからないが…？
普通アイコンは自分でつくるものだが…。
0882デフォルトの名無しさん
NGNGVisual Studio Projectsってやつ
それに合うアイコン無い？
0883デフォルトの名無しさん
NGNGMS-Projectでもつかってるのか？
0884デフォルトの名無しさん
NGNGVS.NETのデフォルトだぞ
0885デフォルトの名無しさん
NGNG0886最凶VB厨房
NGNG0887デフォルトの名無しさん
NGNGもうひとつ、C#で
private byte[] buffer = new byte[1024]
と書いてあったのですが、VB.NETに訳すと何なんですか？
0888最凶VB厨房
NGNGPrivate buffer(1024) As Byte
0889最凶VB厨房
NGNG0890デフォルトの名無しさん
NGNGlistener.BeginAccept(new AsyncCallback(OnAccept), null);
はどうなるのでしょうか。
listenerはsocketです
0891最凶VB厨房
NGNGこんな感じになるかと思うが、OnAcceptって何じゃ？
0892デフォルトの名無しさん
NGNGOnAcceptは関数の名前です。
0893デフォルトの名無しさん
NGNGは何なのでしょうか・・・。
workerもsocketです。
0894デフォルトの名無しさん
NGNG↓
ヽ(*｀Д´)ﾉぬっころぬ！！！！
0895デフォルトの名無しさん
NGNGそのとき裁判官は「条理」を根拠にします。社会的常識も条理です。
内容証明でなくても裁判で事実を証明できれば勝てます。
プロバイダ責任制限法の条文を読んだけど、どうして免責の対象になるのか？教えてくれる？
0896デフォルトの名無しさん
NGNGhttp://game.2ch.net/575/ しりとり
http://game.2ch.net/arc/ アーケード
http://game.2ch.net/bgame/ 囲碁・将棋
http://game.2ch.net/cgame/ 卓上ゲーム
http://game.2ch.net/fly/ フライトシム
http://game.2ch.net/gal/ ギャルゲー
http://game.2ch.net/gamedev/ ゲ製作技術
http://game.2ch.net/gsaloon/ ゲームサロン
http://game.2ch.net/retro/ レトロゲーム
http://game.2ch.net/tanka/ 五七五・短歌
http://game.2ch.net/poke/ 携帯ゲーム
0897AMI
NGNG元彼フェラ写真流出事件まとめサイト
http://www.bj.wakwak.com/~bboy/xxx/fujimoto.html
もっとちっちゃい子がいいという方はこちら
「女子中学生のページ」
http://www.bj.wakwak.com/~bboy/xxx/lolita_d.html
0898こんばんは
NGNGは商用配布不可だった様ですが、
ＶＢ．ＮＥＴスタンダード（１２０００円ぐらいで単独で売ってるやつ）は
作ったアプリケーションを商用配布できるのでしょうか？
0899山崎渉
NGNG0900最凶VB厨房
NGNGDim remoteIP As IPAddress = CType(worker.RemoteEndPoint, IPEndPoint).Address
こうなるかな？
0901デフォルトの名無しさん
NGNGお前は脳みそないんかい！ｺﾞﾗ！
C#の文法をちょこっと抑えたらわかるだろがボケ！
そんなあなたに
http://www.kamalpatel.net/ConvertCSharp2VB.aspx
0903デフォルトの名無しさん
NGNG多重定義等の概念をサンプルプログラムをつかって、わかりやすく説明し
ている入門書ってありますか？
どの入門書もユーザーフォームの説明がおおくて、ＶＢ．ＮＥＴの基礎知識
を詳しく述べているものが見つかりません。
フォームの操作やイベント発生時の処理等、基本的なことはエクセルＶＢＡで
知っていますが、ＶＢ６は扱ったことがありません。
その程度の場合にふさわしい本があればいいなと思っています。
0904デフォルトの名無しさん
NGNG0905最凶VB厨房
NGNGms-help://MS.VSCC/MS.MSDNVS.1041/vbcn7/html/vaorivisualbasiclanguagetour.htm
ここらへん見るのではいかんの？
0906デフォルトの名無しさん
NGNGオブジェクト指向の基礎から書いてあるよ。
いわゆる旧VBユーザには是非読んで欲しい。
「ステップバイステップで学ぶオブジェクト指向プログラミング実践講座 マイクロソフト公式解説書」
\4,200+税
Robin A., Reynolds-Haertle, 鷲谷 好輝(訳)
日経BPソフトプレス
4-89100-302-2 C3055
0908デフォルトの名無しさん
NGNG0909山崎渉
NGNG0910デフォルトの名無しさん
NGNG(海外なら特に)あちこちにあるから探してみ。
0911デフォルトの名無しさん
NGNGmulti sled
という検索キーワードでOKですか？
0912デフォルトの名無しさん
NGNGMulti Thread だよ。
ローカルヘルプでも、「マルチスレッド」で検索すると、
「Visual Basic .NET におけるマルチスレッド」がヒットする。
0913名古屋のサワコ
NGNG継承元のフォームのLoadイベントが実行されてしまうんですが。
これって、VS.NETのバグでしょうか？
こんな動きだと開発大変なんですけど。
0914デフォルトの名無しさん
NGNGLoad されるわけですから、正常な動きです。というわけで、継承元フォームで、
デザイン時には何もしない、といった判定をするようにしましょう。
0915デフォルトの名無しさん
NGNGありがとうございます。
マルチスレッドをマスターすれば、時間のかかる処理をしている間に他の処理をおこなえるとのことで便利そうです。
0916デフォルトの名無しさん
NGNGVB.netをやろうかと考えております。
ところで、実行速度はどんなもんでしょう？.NET Frameworkは遅い！
ということをちらほら聞くのですが。
＃そもそも漏れの開発環境がCelelon500では貧弱すぎるのだが・・
0917最凶VB厨房
NGNG初回起動は遅く、2回目からは、起動が早い。
VS.NETは重い。というのが大方の意見かと。
C++>.NET>旧VB,javaと書いてある本も。
Pen2-266ですが、何か？（ｗ
メモリやHDDも重要なファクターよね。
百聞は一見にしかず！体感してみるべし。
0918デフォルトの名無しさん
NGNG俺の会社のPCなんて、
FMV Pen166、374MB RAM、2GB(!)HDD、NT4WSだよ！
文句言うな～ （´Д⊂
0919812
NGNGどうもでした。
ファイルの概要を取得する方法を
>>812の
Dim objShell As Object
Dim objFolder As Object
Dim objFolderItems As Object
Dim FolderItem As Object
を追加するだけでなんなく、Windows2000では出来たんですが、
WindowsXPではできません。
どうすりゃいいんでしょう？
XPのNTFS5.1&Shell32について参考文献ととかないですかね？
0920デフォルトの名無しさん
NGNGチャットソフトを作ろうとしているのですが意味不明の状況に陥っています。
その本の中では、ツールボックスのカスタマイズ→WinSock をチェックと書かれて
いるのでが、私のパソコンで試したところWinSock という項目が存在しません。
これはどういうことなのでしょう。ツールボックスにWinSockを表示する方法を教えてください。
0921デフォルトの名無しさん
NGNGVB6の人たちの現在の動向はどうなってるのですか。。
そのまま６、.net移行、その他の言語へ移行など。
0922デフォルトの名無しさん
NGNGVB.NETからの人ですか？
だったら、それは罠にはまってるね。VB.NET系の本には
2種類の本がある。
・VB6ユーザをターゲットに狙ったもの(あるいは単に著者が単なるVB厨房)。
・.NET Frameworkを操る言語の一つとしてVB.NETを取り上げている本。
君は前者を掴んでしまったんだよ。
WinsockコントロールはVB6に付属しているコントロールゆえ、
VB6Pro以上がマシンにインストールされてないと使えない。
しかし、SoketクラスがあるのでわざわざWinsockコントロールを使う必要はない。
もしネットワーク系のプログラミングをしたいと思っているのであれば、
http://www.cbook24.com/bm_detail.asp?sku=4816333347
をお勧めしておく。ネットワークの理論から網羅している。
また、簡潔でわかりやすい。
0923920
NGNGわかりました、その本購入してみます。ご協力ありがとうございました。
0924デフォルトの名無しさん
NGNGどうすればメールで送信できるのでしょうか？
教えてください。
0926９２４
NGNG0927めくみ
NGNGPUTでファイルを転送して、相手側のパソコンがそのファイルを
取得したとき、受信したよという画面をだしたいのですが何かいい知恵
はないでしょうか。よろしく御願いいたします。
0928デフォルトの名無しさん
NGNG携帯の最大受信容量を超えてるんだろ。しかもスレ違いどころか板違い
0929９２４
NGNGほんとにすいません。教えてください。
0930デフォルトの名無しさん
NGNG相手側のマシンでPUTでファイル転送するファイルを
監視するプログラムを動かしておく。
0931デフォルトの名無しさん
NGNGなんでここに辿り着いたのか・・・
携帯・PHS
http://cocoa.2ch.net/phs/
もしくは
PC初心者
http://pc.2ch.net/pcqa/
0932デフォルトの名無しさん
NGNGC#でなくVB.NETを使うのはなぜですか？
昔からVBを使ってるから？それとも環境の都合？
0933デフォルトの名無しさん
NGNG0934９２４
NGNGありがとうございます。
いってきます。
0935デフォルトの名無しさん
NGNGVB.NETって業務でVB6のしがらみで使うはめになる人多いだろうけど、
漏れはしがらみなしのVB.NETを楽しんでるよ。
仕事でなんてVB.NETやりたくないな。絶対旧VBのしがらみ(コード、人材)が
でてくるだろうから嫌だ。
0936デフォルトの名無しさん
NGNGVB.NETユーザだから.
0938デフォルトの名無しさん
NGNG・・・・士ね、ボケ！と思うことも多々あるVBだが、
そういう厨房はVB.NETには移行しないでほすぃな。業界やめれって感じで。
0939デフォルトの名無しさん
NGNGVBのコードからnextとthenをはぶくだけでC＃のコードになるんですよ。
便利でいいでしょ。
0940デフォルトの名無しさん
NGNGそれだけじゃない
0942デフォルトの名無しさん
NGNG大文字と小文字を区別する言語はちょっと面倒
0943デフォルトの名無しさん
NGNGCase
↑このインデント嫌い。
0944デフォルトの名無しさん
NGNG実行速度かなり違いますか？
0945デフォルトの名無しさん
NGNGVB6のプログラムはVB.NETでコンパイルできない。
VB.NETのプログラムはVB6でコンパイルできない。
いろんな意味で比較対象にならない。まったくの別の言語だから。
0946デフォルトの名無しさん
NGNG画面とペンの排他的論理和で表現する方法って知りませんか？
VC++のMFCでCDC.SetRop2(R2_XORPEN)としてやっていた事を
やりたいんですが。
お絵かきソフトのドラッグ時なんかで使いたいんです
0947デフォルトの名無しさん
NGNG★YAHOOOプロフィール★
0948デフォルトの名無しさん
NGNGNothingであるためのようです。
どう直せばいいのでしょうか？
' ユニークな認証標識と属性を定義する構造体
Structure LUID_AND_ATTRIBUTES
Dim Luid As tagLUID
Dim Attributes As Integer
End Structure
' アクセストークンの特権セット情報を定義する構造体
Structure TOKEN_PRIVILEGES
Dim PrivilegeCount As Integer
<VBFixedArray(0)> Public Privileges() As LUID_AND_ATTRIBUTES
End Structure
Private Sub PowerOff()
Dim udtNewState As TOKEN_PRIVILEGES
' 新しいアクセストークンを指定
With udtNewState
.PrivilegeCount = UBound(.Privileges) + 1'ここでエラー
.Privileges(0).Luid = udtLuid
.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
End With
以下略
0949デフォルトの名無しさん
NGNG作っています。音声関係はWINMM.DLLを使ってどうにかしたいと思っているのですが、
PCカメラの関係をどのように行うのかがわかりません。
メッセのオーディオチューニングウィザードでもカメラの選択は出ないし、
接続されたカメラの列挙やカメラからデータをもらうにはどうすれば良いのですか？
どなたか力を貸してください。
0950デフォルトの名無しさん
NGNGオプションパラメータを渡して起動するには、なんて関数を使えばいいんですか？
例えば、ノートパッドなら
%SystemRoot%\notepad.exe C:\test.txt
でtest.txtを開いて起動するみたいな感じで
0951デフォルトの名無しさん
NGNGこんな感じで試してみれ。
出来なかったらｽﾏｿ｡
Dim udtNewState As TOKEN_PRIVILEGES
↓
Dim udtNewState As New TOKEN_PRIVILEGES
0952デフォルトの名無しさん
NGNG0953最凶VB厨房
NGNGGetPixelSetPixel駆使するしかないのかも・・・。死
>>948
動的配列を初期化してないからだと思われ。
Dim i() As Integer
Dim cnt As Integer = UBound(i)
と同じことだと思われる。
ReDimすべし。
0954948
NGNGありがとうございます。とりあえず解決したようですが、
次の関数呼び出しで以下のようなエラーメッセージが表示されます。
追加情報 : 型 TOKEN_PRIVILEGES のフィールド Privileges をマーシャリングできません
: この型は構造体フィールドとして、マーシャリングできません。
書き込めないので、ソースは次の記事で。
0955948 ソース１
NGNGStructure TOKEN_PRIVILEGES
Dim PrivilegeCount As Integer
<VBFixedArray(0)> Public Privileges() As LUID_AND_ATTRIBUTES
End Structure
' 指定したアクセストークンを設定する関数の宣言
Declare Function AdjustTokenPrivileges Lib "advapi32.dll" _
(ByVal TokenHandle As Integer, _
ByVal DisableAllPrivileges As Integer, _
ByRef NewState As TOKEN_PRIVILEGES, _
ByVal BufferLength As Integer, _
ByRef PreviousState As TOKEN_PRIVILEGES, _
ByRef ReturnLength As Integer) As Integer
0956948 ソース２
NGNGDim udtNewState As New TOKEN_PRIVILEGES
Dim udtPreviousState As New TOKEN_PRIVILEGES
中略
' 新しいアクセストークンを指定
With udtNewState
ReDim .Privileges(0)
.PrivilegeCount = UBound(.Privileges) + 1
.Privileges(0).Luid = udtLuid
.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
End With
ReDim udtPreviousState.Privileges(0)
' 新しいアクセストークンを設定
lngWin32apiResultCode = _
AdjustTokenPrivileges(lngHandleToken, False, udtNewState, _
Len(udtPreviousState), udtPreviousState, lngLengthReturn)
'↑ここでエラー
以下略
0957デフォルトの名無しさん
NGNG属性つけてみるとか。
APIに関しては以前にも話題になったぞ。
0958デフォルトの名無しさん
NGNGわかったんなら、結果くらい書けやゴラ。
MainでCmdArgs() As Stringのように引き数で取るか、
Environment.CommandLineプロパティ、または、
Environment.GetCommandLineArgsメソッドを使う。
0959946
NGNG了解です。
今回は決定内容はpictureBox.Imageのビットマップに、
暫定内容はpictureBoxに直接表示して、Invalide,Updateで処理することにします。
ちなみに、GetPixel、SetPixcelを使う方法は激しく遅かったのであきらめです。
0960デフォルトの名無しさん
NGNG実は最近C#に乗り換えました。
いいね・・・これ・・・
0961デフォルトの名無しさん
NGNGどうやったらいいんですか？
DirectShowを使えば出来るみたいなんですが、
C++しかちゃんと説明されてないし。
またはDirectShowを使う以外に方法ありますかね？
ocxとかあれば教えてください
0962山崎渉
NGNG0963948
NGNGありがとうございます。
< StructLayout( LayoutKind.Sequential )> _
Public Structure TOKEN_PRIVILEGES
Dim PrivilegeCount As Integer
< MarshalAs( UnmanagedType.ByValArray, SizeConst:=1 )> _
Public Privileges As LUID_AND_ATTRIBUTES()
End Structure
という意味なら、とっくに試してみましたが、結果は同じです。
ちなみに、
http://vbvbvb.com/jp/gtips/0501/gExitWindowsExEwxPoweroff.html
のコードを移植してます。
0964最凶VB厨房
NGNGVB.net初心者～VB.net神&C#神
まで自由に書き込んでﾁｮ。
前スレ:【老若】VB.net質問ｽﾚ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/
どぼん！のVB道のトップページとTipsページ
http://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
0965最凶VB厨房
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
0966最凶VB厨房
NGNGVisualStudio.NET(MSDN Deluxe) Part 7
http://pc3.2ch.net/test/read.cgi/tech/1034772444/
くだすれＣ#(Part2)
http://pc3.2ch.net/test/read.cgi/tech/1035895873/
C♯相談室 Part9
http://pc3.2ch.net/test/read.cgi/tech/1039646808/
managed C++ やろうぜ！！
http://pc3.2ch.net/test/read.cgi/tech/1014486422/
フリーの.NET統合開発環境「SharpDevelop」
http://pc3.2ch.net/test/read.cgi/tech/1023727377/
消しゴムじゃない方のMONOを使ってみるスレ()
http://pc3.2ch.net/test/read.cgi/tech/1020215602/
♯♯♯Shared Source CLI ♯♯♯
http://pc3.2ch.net/test/read.cgi/tech/1024222901/
(*´д`*)ｱﾊｧ… VB初心者質問スレ Part20
http://pc3.2ch.net/test/read.cgi/tech/1041879465/
0967デフォルトの名無しさん
NGNGを終えたところですが、次になにを勉強したらいいのかわかりません。どう勉強したらいいでしょうか？
教えてください。
0968デフォルトの名無しさん
NGNGC#やれば？
0969デフォルトの名無しさん
NGNG勉強が目的なの？ それとも、何かを作るのが目的？
ということで、何か作ってみるのがいいと思うよ。
0970967
NGNGＣ＃はそのうち……。とりあえずVBで思い通りにプログラム組めるようになってから
やろうと思います。
>>969
作ろうと挑んでみたのですが、その度に知識の無さが原因で壁にぶち当たっているのです。
そこで質問させていただいた次第です。９６９さんは、VBをどのように勉強なされました？
0971デフォルトの名無しさん
NGNGこれができたらおもしろいと思うことや便利になることをやってみればいい。
本を読んだだけで理解できたと思っていたことがいかに身に付いてないか、
よーくわかるだろう。
0972967
NGNGわかりました。やてみます！
0973defaultの名無しﾀｿ
NGNGラベルを上手く使用してテキストだけで敵キャラを構成するソフトを作っているんですが、
ラベルの背景色を透過にする事はできるのでしょうか？
一応BackColorをTransparentにしてみたのですが、これはピクチャーにしか通用しませんよね？
他のコントロール(コマンドボタンやラベルなど)をも透過するにはどうしたらよいのでしょうか？
0974デフォルトの名無しさん
NGNGラベルとか継承したクラスで
SetStyleで透過を使えるようにすればいいかも。試してないけど。
0975defaultの名無しﾀｿ
NGNGありがとうございます！ちと難しそうに見えますが、やってみまつ。
0976デフォルトの名無しさん
NGNGもし可能ならをヒントください。
0977デフォルトの名無しさん
NGNGDragDropEffects を利用して、ドロップ先に作業を制限できますが、
どこで （ ドロップ先 ） 、どの処理 （ Copy,Move,Link ) がなされたのか、
若しくはキャンセルされたのかを
ドラッグ元にて検知する方法はないのでしょうか？
それとも、経験的に、検知する必要を感じないですか？
検知できた方が、よさそうに思うのですが。。。
0978977
NGNGステップ実行していて、DoDragDrop メソッドは返り値として、
実行結果 ( Copy,Move,Link ) 等をちゃんと返してくれる事に今気づきました。
＃ドラッグ先にて、エフェクトフラグ(e.Effect)にちゃんとセットしてくれれば、
＃のようですが。。。
一応、どの処理が実行されたかは分かりましたが、どこで実行されたのかは、
まだ、分かりません。ご存知の方がいらしたら教えて下さい。
0979デフォルトの名無しさん
NGNG0980デフォルトの名無しさん
NGNGどんな差がありますか?
>>979
VB.netにはStandardしかないっす。Pro以上はVS.netのみ。
0981デフォルトの名無しさん
NGNG>VisualBaisc.net のスタンダードではないやつ
VB.netにスタンダード以外の製品はない。
それ以上が欲しければVS.netを買いなさい。ってこった。
0982980
NGNG0983デフォルトの名無しさん
NGNGにはどうしたらよいのでしょうか。MenuItemメンバにはそれらしき
ものが見つからないんですが。。。
0984デフォルトの名無しさん
NGNG0985名無し＠どっとこむ
NGNGメールアドレス収集ソフト、ＤＭ送信ソフトなど各種宣伝用ツールを
格安でご提供いたします。
http://www.bizassist-jp.com/?ID=B0484
0986デフォルトの名無しさん
NGNGhttp://www.microsoft.com/japan/msdn/library/ja/csref/html/vcoriXMLDocumentation.asp
0987デフォルトの名無しさん
NGNGオーナードロー
OwnerDrawプロパティ、DrawItemイベントなどを使う。
0988デフォルトの名無しさん
NGNGレスありがとうございました。さっそく勉強します。
たすかりました！
0989デフォルトの名無しさん
NGNG【老若】VB.net質問ｽﾚ【男女】 (Part2)
http://pc3.2ch.net/test/read.cgi/tech/1043629429/l50
0990デフォルトの名無しさん
NGNGVB.NETやったら仕様が違っていてびっくりの 990get
0991デフォルトの名無しさん
NGNG>>990
VB6とVB.NETもかなり違うよ。
色んな意味で・・・
0992デフォルトの名無しさん
NGNG整数型の変更が痛いですな（涙
0993デフォルトの名無しさん
NGNG型指定子が感覚的にずれるのが痛い。
4バイトのつもりでうしろに&なんてつけたら・・・
0994デフォルトの名無しさん
NGNGする方法教えて。テキストオンリーで作りたいの。
0995デフォルトの名無しさん
NGNG0996デフォルトの名無しさん
NGNG0997デフォルトの名無しさん
NGNG0998デフォルトの名無しさん
NGNG0999デフォルトの名無しさん
NGNG1000デフォルトの名無しさん
NGNG1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。