04/11/19 20:58:46
>>448
>>449
ソースありがとうございます。
ReceiveEventHandlerは実際どの様に使ったらいいでしょうか?
プログラムに組み込んだものの使い方がいまいちわかりません。
初心者で本当申し訳ありませんが、返信お願いします。
512:最凶VB厨房
04/11/19 21:24:39
>>511
>ReceiveEventHandlerは実際どの様に使ったらいいでしょうか?
ソースを見てくれとしかいいようがない・・・。
コンパイルして実行してみた?
デリゲートがわからんならここでも見れ
URLリンク(www.atmarkit.co.jp)
イベントがわからんならここでも見れ。
URLリンク(www.microsoft.com)
ついでにテスト用送信プログラムはこんな感じだ。実行してみれ
Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class udpc
Shared Sub Main()
Dim client As UdpClient=new UdpClient(20000)
Dim i As Integer=0
Dim ss As String="パケット発射"
For i=0 To 3
ss &=ss
Next
Dim bb() As Byte=Encoding.UTF8.GetBytes(ss)
client.Connect(IPAddress.Loopback,10000)
client.Send(bb,bb.Length)
End Sub
End Class
513:デフォルトの名無しさん
04/11/19 23:03:23
>509
質問に答える気がないのに書き込む行為は荒らしと
見なされますよ。別のスレで同じプロバイダの奴がそれで
アク禁になって、えらい迷惑受けた。
514:デフォルトの名無しさん
04/11/19 23:15:17
>>513
俺は>>509ではないが、空腹の奴に魚の釣り方教えてるだけだろ?
ていうか、だから馬鹿は自分の言葉を自分自身に適用できんのか?
お前がすべきでないと言っていることを、お前自身がやってないか?
俺様だけは特別ルールが適用されます、ってか?
とんでもない棚上げ野郎だな。
515:最凶VB厨房
04/11/19 23:25:35
もまえらそろそろおちけつ
516:デフォルトの名無しさん
04/11/19 23:30:15
>514
アホ。
517:デフォルトの名無しさん
04/11/19 23:30:41
TreeViewのノードを一部非表示にすることってできますか?
518:デフォルトの名無しさん
04/11/20 00:25:54
>517
すいません。別の方法で解決できたのでこの質問は忘れてください。
519:デフォルトの名無しさん
04/11/20 02:00:45
iTunes for Windows をVBから操作したいのですが参考になるソースコードはありませんか。
520:デフォルトの名無しさん
04/11/20 02:35:13
URLリンク(developer.apple.com)
この辺とか
521:デフォルトの名無しさん
04/11/20 02:45:14
>>520
追加
参照設定でCOMの中からiTunesタイプライブラリを設定
インターフェースがずらずら出てくるから
後はJavaScriptのソースと見比べながらどうぞ
522:デフォルトの名無しさん
04/11/20 10:20:19
現在テキストボックスでKeyPressイベントの中で数字のみの入力に制限しています。
e.KeyChar < "0"c Or e.KeyChar > "9"cとかで。
でもこれだとコピー、ペースト、カットのショートカットキーも無視されてしまいます。
どうやった両立できますか?
523:デフォルトの名無しさん
04/11/20 10:52:54
最近の人たちはどうして自分で実装しようとしないんだろう。。。
524:デフォルトの名無しさん
04/11/20 13:07:23
>>523
脳味噌腐ってるのか?
だから「自分で実装」する方法を聞いてるんだと思うが。
>>522
実際やったことはないが、KeyPressではなくKeyDownでキーコードをマスクするように
書けばできると思う。
525:ネタではありません。
04/11/20 15:16:01
すみません、困っています。
どなたかWEBアプリケーションを作れる方、
相談にのっていただけませんか?
「こういうWEBプログラムが作りたい」という案は
すでにあります。自宅サーバーもすでにあります。
平日の夜、都内で焼肉をおごります。
もし、「それなら作れるよ」ということでしたら
数万円の謝礼をお支払いする用意があります。
よろしくお願いいたします。
526:デフォルトの名無しさん
04/11/20 15:22:52
>>525
まずは要件定義書を完成させてこい。話はそれからだ。
527:yukki
04/11/20 15:57:13
>>512
>最凶VB厨房さん
たびたび申し訳ありません。
>>ReceiveEventHandlerは実際どの様に使ったらいいでしょうか?
>ソースを見てくれとしかいいようがない・・・。
>コンパイルして実行してみた?
テスト用送信プログラムもコンパイルして送信してみたのですが、受信イベントが発生しません。
紹介してもらったURLを参考に受信側のFORMでフォームロードイベントで、デリゲートを宣言を下記のように
してみたのですが、うまくいきません。
VB.NETというかプログラム自体初心者なため検討違いなことしてますか?
デリゲートの使用方法を教えていただけないでしょうか。
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim TestReceive As ReceiveEventHandler
TestReceive.Invoke()
End Sub
'Public Overridable Sub Invoke(sender As Object, e As UDPEventArgs)' のパラメータ 'e' に対して引数が指定されていません。
'Public Overridable Sub Invoke(sender As Object, e As UDPEventArgs)' のパラメータ 'sender' に対して引数が指定されていません。
528:デフォルトの名無しさん
04/11/20 15:58:19
MSDNをインストールして使っていますが、
背景色の白がまぶしいので、他の色に変えたいのですが
どうやってできるかご存知の方いませんか?
529:デフォルトの名無しさん
04/11/20 17:03:15
>>521
大変参考になりました。どうもありがとう。
530:デフォルトの名無しさん
04/11/20 17:42:12
>>525
新しいのが出てきたな
面白いぞ
531:デフォルトの名無しさん
04/11/20 17:52:59
>>525
まず君の連絡先をここに晒せ。こちらから連絡させて頂きます。
532:デフォルトの名無しさん
04/11/20 18:29:53
>>525
こんなメールが来そうな予感
ようこそ、バーボンハウスへ。
このテキーラはサービスだから、まず飲んで落ち着いて欲しい。
うん、「また」なんだ。済まない。
仏の顔もって言うしね、謝って許してもらおうとも思っていない。
でも、このメールを見たとき、君は、きっと言葉では言い表せない
「ときめき」みたいなものを感じてくれたと思う。
殺伐とした世の中で、そういう気持ちを忘れないで欲しい、そう思って
このスレを立てたんだ。
じゃあ、注文を聞こうか。
533:デフォルトの名無しさん
04/11/20 20:06:30
>524
>523みたいな奴をいちいち相手してやることないって。
>526 多分君にはお願いされてないと思うよ。
534:デフォルトの名無しさん
04/11/20 21:10:27
>>533
答えてやれよ
535:デフォルトの名無しさん
04/11/20 22:42:00
sendkeyみたくマウスのボタンを操作する事はできますか?
出来ればやりかたを教えていただきたいのですが。
536:デフォルトの名無しさん
04/11/20 22:52:56
>>535
SendInput
キーストローク、マウスの動き、ボタンのクリックなどを合成します。
UINT SendInput(
UINT nInputs, // 入力イベントの数
LPINPUT pInputs, // 挿入する入力イベントの配列
int cbSize // 構造体のサイズ
);
537:デフォルトの名無しさん
04/11/20 23:17:33
>>525
○痴
スレリンク(tech板:525番)
スレリンク(php板:841番)
スレリンク(php板:871番)
538:デフォルトの名無しさん
04/11/20 23:47:29
>>525
数万円て馬鹿か。
539:デフォルトの名無しさん
04/11/20 23:58:52
質問です。
System.Web.Mail.SmtpMailクラスでメール送信する際
ポートの指定は出来ないのでしょうか。ググッてもわか
りませんでした。
540:デフォルトの名無しさん
04/11/21 00:10:03
>>539
できない。
.NET 2.0で追加されるSystem.Net.Mail.SmtpClientならできる。
どうしてもやりたければSocketを使う。
541:デフォルトの名無しさん
04/11/21 00:18:55
>>540
どうもです。デフォルトのポートは25に設定されているんでしょうか。
542:デフォルトの名無しさん
04/11/21 00:40:09
質問です。
VB.NETでEBCDIC漢字はSHIFT-JISに変換できないのでしょうか?
シフトコードは入れているのですが変換できません。
半角カナは変換できるのですが・・
543:デフォルトの名無しさん
04/11/21 00:40:57
>>536
ありがとうございます。
544:デフォルトの名無しさん
04/11/21 01:12:43
vb .net 2003 / windows2000
MDIでテキストエディタを作ってるのですが、ファイルの保存方法がわかりません。。。
アクティブなMDIウインドウのtextbox1のテキストを保存したいのですが、MDIウインドウの指定方法がわかりません。
545:デフォルトの名無しさん
04/11/21 01:57:47
>>544
事故解決しましたm(_ _)m
546:デフォルトの名無しさん
04/11/21 08:13:22
Private s As String = ""
Private Sub ThreadMain1()
Dim i As Integer
For i = 0 To 99
s = s + "A"
Next
Trace.WriteLine("ThreadMain1 done")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim thread1 As New System.Threading.Thread(AddressOf ThreadMain1)
thread1.Start()
End Sub
これを実行するとへんなメッセージがでます。これは何なのでしょう。
名前がありません? 名前あるけど。0x340って何?
ThreadMain1 done
スレッド '<名前がありません>' (0x340) はコード 0 (0x0) で終了しました。
547:デフォルトの名無しさん
04/11/21 08:33:35
そのまま、名無しのスレッドが終了したってことだが。
名前ってのはThread.Nameプロパティで指定する文字列だよ。
0xNNNは内部で使われているスレッドID。
548:デフォルトの名無しさん
04/11/21 08:37:08
>547
ホントにわかってんのかな。
549:546
04/11/21 09:05:00
> 547
おっ、ありがとう。
>548
さらに分かってるいる方の解説希望。
たとえば、IDの使い道とか
550:デフォルトの名無しさん
04/11/21 09:41:40
>>548
が分かっていないに100炎
551:デフォルトの名無しさん
04/11/21 10:37:04
>547と>550も分かっていないに1000炎
552:デフォルトの名無しさん
04/11/22 10:02:37
>>513
ヒントを与えているが。
553:デフォルトの名無しさん
04/11/22 11:30:24
バックグラウンドでHIDEで動作している常駐のクラスclsBでタイマー
イヴェントを1秒ごとに起してコマンド処理をしています。
メインの方では色々なフォームを立ち上げたり消したりしています。
そのフォームの一つaFormで、データ取り込みコマンドを
clsBにたいして送ります。clsBは1分でそのコマンドの処理をして完了とデータををaFormに送ります。
しかしその時ユーザーは処理の完了を待ちきれずに別のフォームを立ち上げていて、
aFormは消えているかもしれません。
こういう場合、どのような方法で処理をすればよいでしょうか?
1案)aForm終了時にキャンセルコマンドを送る。
2案)clsBは処理の終了でaFormがまだ存在するかを調べて、存在すれば
完了コマンドとその処理済データをaFormに送る。
を考え付きましたが、
クラスが存在するか消滅しているかは、どうやって調べるのでしょうか?
554:553
04/11/22 11:33:39
正確には、クラスのインスタンスの存在、消滅の検出方法です。
555:デフォルトの名無しさん
04/11/22 12:48:40
>554
グローバル
556:デフォルトの名無しさん
04/11/22 13:25:54
VB.NET 2005 Express Beta落として使ってるんだけど、
新規プロジェクトでForm1が出来る
↓
ツール→オプション→Windows フォームデザイナ→Layout ModeをSnapToGridに
↓
Form1の大きさをマウスで変えようとするとエラー
「オブジェクト参照がオブジェクトインスタンスに設定されていません」
なんとかならんかね?
557:デフォルトの名無しさん
04/11/22 14:09:42
>556
どうなってほしいの?
558:yukki
04/11/22 16:56:41
>>527
>最凶VB厨房さん
自己解決できました。
ありがとうございます。
559:522
04/11/22 17:51:33
>>524
遅レスになってしまいました。
KeyDownイベントでもやってみたんですが、e.Handled = Trueとやっても
キャンセルされず文字が入力されてしまいます。
IsInputCharあたりをオーバーロードしてやってみてますが、いまだ未解決のままです。
560:デフォルトの名無しさん
04/11/22 18:38:11
VB6にあった実行ファイルのオプションは
どこにいったのでしょう?
会社名とか書けない…
561:yukki
04/11/22 18:49:44
度々申し訳ありません。
UdpClientのReceive メソッドはメッセージを受信するまで実行をブロックしてしまいます。
メッセージの受信を待ちつつ、他の動作(例えば、メッセージ送信やイベント発生)などを行うにはどうしたらよいでしょうか?
ご存知の方いらっしゃいましたらご伝授願います。
562:556
04/11/22 18:54:35
>>557
Layout ModeをSnapLineに設定していると、フォームの大きさをマウスで変えてもエラーが起きない。
SnapToGridでも同じように出来ませんか?という相談だったのだが。
わかりにくかったらごめん
563:デフォルトの名無しさん
04/11/22 19:09:24
>560
アセンブリ
564:デフォルトの名無しさん
04/11/22 19:28:17
>>563
教えて頂きアリガトです。
しかし。。。凹みました。仕様?2002だけかな?
565:デフォルトの名無しさん
04/11/22 19:35:44
>564
.NET系は全部そうなんじゃないの?c#も同様だったし。
566:デフォルトの名無しさん
04/11/22 22:10:54
あげ
567:デフォルトの名無しさん
04/11/23 09:39:24
フォームを表示させずに処理したいんですがどのようにやればいいのでしょうか?
568:デフォルトの名無しさん
04/11/23 09:55:23
>567
どういうこと?Sub Main()からスタートしてフォーム表示させないように
すればよさそうだけど、そういうことでいいのかな?
569:デフォルトの名無しさん
04/11/23 10:11:35
>>568
そです。これから試してみます
どうもです
570:デフォルトの名無しさん
04/11/23 14:47:35
VB.NETで、ftpサーバにファイルをアップロードするプログラムを作っています。
本のサンプルそのままに一つのファイルをアップロードさせるのはうまくいくのですが、
複数のファイルをアップロードしようとすると、うまくいくのは最初のファイルだけで、
2番目のファイルは、アップ先に空のファイルができるだけで、止まってしまいます。
URLリンク(do.sakura.ne.jp)
↑いま、こちらにソース置かせてもらったのですが、
Button1_Click()で、サーバにログインし、
Button2_Click()で、最初のファイルアップロード。アップロードが完了してから、
Button3_Click()で、2番目のファイルをアップロードするのですが、ここで、止まってしまいます。
なぜなのでしょうか?
よろしくお願いします。m(__)m
571:デフォルトの名無しさん
04/11/23 18:02:53
>>558
どう解決したのか
しりたいでつ
572:MSDE
04/11/23 18:50:02
. .NETでMSDEを利用したいと思いますが、新規にデータベースを作成する方法が分かりません。
サンプルにこのコードを見つけたのですが、
型 'Repository' が定義されていません。となりエラーになります。
Dim oRepos As New Repository
oRepos.Create("SERVER=MyServer;DATABASE=MyDatabase;UID=MyUserID;PWD=MyPassword;")
リポジトリーというのが意味不明ですが、新規にDBファイルを作成するのはこのコードで
いいのでしょうか? このエラーを取り除くにはどうすればいいのでしょう?
573:デフォルトの名無しさん
04/11/23 19:20:55
MSDN嫁。SQLでテーブル定義したいならDB板に逝け。
その前にDBの基礎とかオブジェクト指向とか、ハードルが高そうな気もするが。
574:デフォルトの名無しさん
04/11/23 19:28:46
>573
質問に対する回答・ヒント以外の書き込みは
他のスレで荒らし報告されています。
ちなみにこの書き込みはあなたの書き込みに対しての
もので、質問に対するものではないです。
575:デフォルトの名無しさん
04/11/23 19:39:48
(・∀・)ニヤニヤ
576:573
04/11/23 20:14:40
2ちゃんの専門板のレベルも地に堕ちたな。
577:デフォルトの名無しさん
04/11/23 20:33:04
>576
それは君では?
578:(・∀・)ニヤニヤ
04/11/23 20:44:24
必死すぎ。w
579:デフォルトの名無しさん
04/11/23 20:56:47
>578
最後に「w」が付いてるのは何?
580:MSDE
04/11/23 20:57:01
名前つきインスタンス、混在モード、ストロングパスワードなど手前勝手なヤツラ言語の
名前がつけられていて何のことかサッパリ分からん。
インストールくらい勿体つけないで普通に喋れんのか?きっとどいつもこいつも上から下まで
精神構造がおかしいのだろう。
ここでヤツラ言語とは奴らが勝手に作った長持ちしない言語のこと。
■以下はインストールのマイクロソフトの説明
以下のコマンドのいずれかを実行します。
Windows 認証モードを使用するように設定された既定のインスタンスをインストールするには、次のコマンドを実行します。
setup SAPWD="AStrongSAPwd"
ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードです。
Windows 認証モードを使用するように設定された名前付きインスタンスをインストールするには、次のコマンドを実行します。
setup INSTANCENAME="InstanceName" SAPWD="AStrongSAPwd"
ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードで、InstanceName はそのインスタンスに割り当てられた名前です。
混在モードを使用するように設定された既定のインスタンスをインストールするには、次のコマンドを実行します。
setup SAPWD="AStrongSAPwd" SECURITYMODE=SQL
ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードです。
混在モードを使用するように設定された名前付きインスタンスをインストールするには、次のコマンドを実行します。
setup INSTANCENAME="InstanceName" SECURITYMODE=SQL SAPWD="AStrongSAPwd"
ここで AStrongSAPwd は sa ログインに割り当てられた強力なパスワードで、InstanceName はそのインスタンスに割り当てられた名前です。
581:デフォルトの名無しさん
04/11/23 20:58:21
>580
質問スレなんだから質問を書け。ここはお前の日記帳じゃない。
訳がわからなくて質問することもできないというのなら、
お前は業界を変えろ。
582:MSDE
04/11/23 21:00:16
読めば読むほど滑稽な文章なのだが、、、
いま腑と思いついたが「マニュアルから読むマイクロソフトの
精神構造」という本を書いたら馬鹿の壁よりはきっと売れると思う。
583:デフォルトの名無しさん
04/11/23 21:03:34
>582
書くのがお前じゃ売れないと思うよ。
584:MSDE
04/11/23 21:09:46
書くのはゴーストライターに決まってる。
585:MSDE
04/11/23 21:14:20
ところで、こんなんがあった。もうすこし簡単にならん?
Set oServer = CreateObject("SQLDMO.SQLServer")
Set oDatabase = CreateObject("SQLDMO.Database")
Set oDBFile = CreateObject("SQLDMO.DBFile")
Set oLogFile = CreateObject("SQLDMO.LogFile")
' SQLサーバーへ接続します
oServer.Connect "(local)", "sa", ""
' データ ファイルを定義します
oDBFile.Name = "MyData" ' 名前
oDBFile.PhysicalName = "C:\MSSQL7\Data\MyData.mdf" ' 物理ファイル名
oDBFile.PrimaryFile = True ' プライマリーファイルとして設定
' データ ファイルの自動拡張を設定
oDBFile.FileGrowthType = 0 'SQLDMOGrowth_MB MB拡張
oDBFile.FileGrowth = 1 ' 1MB拡張
' データファイルの定義を追加する
oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFile
' トランザクション ログを定義します
oLogFile.Name = "MyLog" ' 名前
oLogFile.PhysicalName = "C:\MSSQL7\Data\MyLog.ldf" ' 物理ファイル名
oDatabase.TransactionLog.LogFiles.Add oLogFile ' 追加
' 定義したデータベースを作成する
oDatabase.Name = "MyDB" ' 名前の指定
oServer.Databases.Add oDatabase ' サーバー上にデータベースを作成
586:MSDE
04/11/23 21:21:51
>MSDN嫁。SQLでテーブル定義したいならDB板に逝け。
>その前にDBの基礎とかオブジェクト指向とか、ハードルが高そうな気もするが。
Dim oRepos As New Repository
でハードルの低いお前はReposhitoryがどこのNameSpaceか知ってるのか?
知ってるなら答えてみなさい。
587:デフォルトの名無しさん
04/11/23 21:22:51
Reposhitoryねぇ・・・そんなクラスはないんじゃないですかねぇ・・・
588:デフォルトの名無しさん
04/11/23 21:23:39
>584
お前おもしれーな。ゴーストライターの意味分かってるか?
589:デフォルトの名無しさん
04/11/23 21:24:34
>585
どこが難しいの?
590:デフォルトの名無しさん
04/11/23 21:25:42
>572からの変わりようがいいな。ドキュメント読んで分かんないもんだから
ドキュメントのせいにして騒いでるw
そんなんじゃ誰も相手にしてくれないよw
591:MSDE
04/11/23 21:36:20
>589
>どこが難しいの?
名前があって物理ファイル名があってデータベース名があるんですか?
えっと、選り取りみどり、名前には不自由しないようですね。
でトランザクションログって何ですかね? 不思議な名前ですが。
まあそれはいいとして。ログ見りゃなんか分かるんでしょう。きっと。
でもトランザクションとは関係ないと思うが。
' データ ファイルの自動拡張を設定
oDBFile.FileGrowthType = 0 'SQLDMOGrowth_MB MB拡張
oDBFile.FileGrowth = 1 ' 1MB拡張
1MB拡張ってなんなんです?
592:デフォルトの名無しさん
04/11/23 21:42:51
>591
データファイルのサイズが足りなくなったときに1MBずつ
拡張すること。スレ違い。>573で既に指摘されてるだろ。
593:デフォルトの名無しさん
04/11/23 21:43:31
今後MSDE氏の質問には回答しないように。
回答自体もスレ違いなので。
594:MSDE
04/11/23 21:53:40
>592
難にせよ。ありがとう。
しかしRepositoryのNamespaceについて誰もしらんのか? そんなマニュアルを
のさばらせているのは、一体誰なんだ。
>お前おもしれーな。ゴーストライターの意味分かってるか?
著者じゃなくて馬鹿の壁を本当に書いた人のことね。あなた知ってる?
知らないでしょ。そう、誰も知らない。知ってるのは、当の精神科医と
檻のなかの機知外くらいだよ。
>ドキュメントのせいにして騒いでるw
>そんなんじゃ誰も相手にしてくれないよw
あのドキュメントから読めるものは、タイトルが意図しているものとは
別のもの。そう脳みその異常。
595:MSDE
04/11/23 21:55:57
ADOってのは.NETの目玉じゃないのか? ちがう? スレは目玉を
避けるのね? こわいから?
596:デフォルトの名無しさん
04/11/23 22:04:33
取りあえず見つけたサンプルとやらのアドレスを書け。
話はそれからだ。
597:デフォルトの名無しさん
04/11/23 22:06:29
>595
通報しときました。適切なスレを選ばないとこういうことになります。
598:デフォルトの名無しさん
04/11/23 23:40:05
イイヨイイヨー
599:デフォルトの名無しさん
04/11/23 23:40:06
>>579
ブッシュ?
600:デフォルトの名無しさん
04/11/24 04:43:30
面白いスレですね。
眠気が吹っ飛んだよ
601:デフォルトの名無しさん
04/11/24 07:24:55
夜はレベルが低くなるスレだな
602:573
04/11/24 09:01:09
まっとうなプログラマは昼間仕事するからね。
603:デフォルトの名無しさん
04/11/24 09:33:41
VB.NET 2005 Express Beta落として使ってるんだけど、
新規プロジェクトでForm1が出来る
↓
ファイル→名前を付けてForm1.vbを保存
↓
実行ファイルが作られていない
実行ファイルの作り方がわかりません。スレ違いだったら誘導おながいします
604:デフォルトの名無しさん
04/11/24 10:38:04
ビルド
605:デフォルトの名無しさん
04/11/24 11:38:31
F5
606:デフォルトの名無しさん
04/11/24 12:07:18
>>602
そりゃ説明になっとらん。
昼レベルが高いとしたら、まっとうなプログラマが昼間仕事さぼってここに書き込んでることになる。
漏れもだが。 orz
607:デフォルトの名無しさん
04/11/24 12:43:25
>606
あほ
608:デフォルトの名無しさん
04/11/24 14:40:46
>>604
>>605
ビルドですか。F5ですか、ありがとうございます。
609:デフォルトの名無しさん
04/11/24 15:26:06
すみません。続いての質問で恐縮なんですが。
ビルドしても実行ファイルが作られてないみたいなんですが
まず、パスを通さないといけないのでしょうか?
ビルド出力パスというのが関係するんでしょうか。
ソースファイルが2つと、リソースファイルまでは作れたんですが
610:デフォルトの名無しさん
04/11/24 15:31:51
VBで
文字列を入力すると、その文字列が回文(右から読んでも左から読んでも一緒)
であるかどうかを判別するプログラムのコードだれかわかりませんか?
611:デフォルトの名無しさん
04/11/24 15:44:10
誰か、VB.NET2005 betaのわかりやすい解説書いてほしいよ。
既存ぼ解説とずれてて微妙にわかんないや。ただでさえ時間がかかってるのに
612:500 困ったくん
04/11/24 16:29:25
割り算を減算(引き算で)行うプログラムを作っています。
[ Text1 ] ÷ [ Text2 ] = [ Text3 ] 余り [ Text4 ]
のように表示させるのですが、例えば、35÷6をしたときに、
答えが、Text3=1 Text4=29 になってしまいます。
どうすればいいのでしょうか?
よろしくお願いします。 なお、僕の考えたプログラムは以下の通りです。
(※”=”部分がコマンド1です)
Private Sub Command1_Click()
M = Text1.Text
N = Text2.Text
sho = 0
Do
M = M - N
sho = sho + 1
Loop While M >= N
Text3.Text = sho
Text4.Text = M
End Sub
結局、どうすればいいのでしょうか??
教えてください!!
613:デフォルトの名無しさん
04/11/24 16:41:13
>>609
デフォルトだと日本語のパスが通らないらしいんだけど
そのへんはどうだろ?
614:デフォルトの名無しさん
04/11/24 17:18:13
エンタープライズ版のVSを使って、AS/400にODBC接続を試みています。MSDEの時のと同じ要領で
データーセットを作るところまではあっさりできましたし、データーグリッドにこれを表示するところまで
はすんなり通ったのですが、このデーターグリッド上の数値を書き換える事ができません。
AS/400に対して、コマンドが通らないと言うのであれば納得もできるのですが、データーグリッド上の
数値をいじっている時点では、クライアント側での話しなので、とんと判らず弱っています。
同じような症状を解決出来た方、いらっしゃいませんか?
615:デフォルトの名無しさん
04/11/24 17:21:56
>>612
先にあまりを出しておいて、それを元の数からひいて、その上で、もう一回割り算
っていうのは、どうでせう?
616:デフォルトの名無しさん
04/11/24 17:42:16
>615
アホ
617:デフォルトの名無しさん
04/11/24 18:32:39
>>616
罵倒するだけの能無しよりはマシな希ガス、アルゴンガス、アセチレンガス。
618:617
04/11/24 18:35:34
すいません。>617の書き込みは自分自身に対してのものです。
気を悪くされた方、わたしのことですので気にしないでください。
619:デフォルトの名無しさん
04/11/24 18:38:10
結局>>501だろ。
MとNをintegerで宣言すれば解決する話だ。
DoWhileだと余計なループが発生して結果がおかしくなるのも指摘されてるな。
つかそもそもこれは本当にVB.NETのコードなのか?
620:デフォルトの名無しさん
04/11/24 19:10:53
Now()を実数に変換する方法おしえて。
621:デフォルトの名無しさん
04/11/24 19:16:58
>>612
35-6-6-6-6-6-6=-1<0
-6でループ計算をさせ、この結果がでてきたら
Text1=35
Text2=6
Text3=ループ回数-1
※Text5=-1
Text4=-1-(-6)
こんなのでどうだろうか・・・
622:デフォルトの名無しさん
04/11/24 19:23:18
>620
実数って何のこと指してます?
623:デフォルトの名無しさん
04/11/24 19:34:23
>612
それでプログラムはOKだが、数値の宣言とかで問題があるんかもな。
確実に変数を宣言してみなさいよ。
DIM N,M,sho as double 'M,N,SHOを実数として宣言する
M = TextBox1.Text
N = TextBox2.Text
sho = 0
Do
M = M - N
sho = sho + 1
Loop While M >= N
TextBox3.Text = sho
TextBox4.Text = M
624:620
04/11/24 19:43:47
実数っていうのは、つまり最初が0.0(多分1755年1月1日0:0:0:0?)
基準に3msec精度での積算値。 NOw()はDate型だけど実体は実数なの。
で dim msec as double
msec = NOw().todouble となるのが普通なのだけど、todouble()ってメソードを
なんか別の書き方にしているらしい。
toStringがあるならtoDoubleだろう?普通なら。
625:620
04/11/24 19:56:03
>612
こうすると 1,29がこたえになる。
Dim M, N As String, sho As Double
M = TextBox1.Text
N = TextBox2.Text
sho = 0
Do
M = M - N
sho = sho + 1
Loop While M >= N
TextBox3.Text = sho
TextBox4.Text = M
626:デフォルトの名無しさん
04/11/24 20:05:26
>>624
それは一体どんな言語/環境の話なのよ。
URLリンク(www.microsoft.com)
VB.NET(と.NET Framework)では8バイトの整数として西暦1年1月1日から100ナノ秒単位で格納されてる。
UNIX時間でも整数を使ってるし。
627:620
04/11/24 20:20:04
あっすまん。すこしいい加減なことを行ってしまったかも。
しかし、さっきどっかでみたんだが、西暦1年じゃなかったと
おもうが、、、、
628:620
04/11/24 20:24:51
1999・11・30日を変換すると変換すると0見たいだぞ
629:デフォルトの名無しさん
04/11/24 22:51:25
>>628
.NETとVB(とか他の言語)が混ざってないか?
URLリンク(www.atmarkit.co.jp)
こことか参考になるんじゃないの?
630:デフォルトの名無しさん
04/11/25 13:54:53
Aフォームを継承したA’フォームがある。
このA’フォームのデザイン画面をソリューションエクスプローラーから開いた時、
基底クラスAフォームのLoadイベントが実行されるなんてことがあるのだろうか・・・
現在そのロードイベントにはApplication.StartupPathでファイルをオープンする処理があるのだが、
StartupPathにC:\Program Files\Microsoft Visual Studio .NET 2003\Common7\IDEが入ってきているらしく
エラーが発生してしまう。これって何なんだ・・・orz
631:デフォルトの名無しさん
04/11/25 14:03:57
>>630
オリジナルのコントロール貼り付けてもLoadイベントは起きる
632:630
04/11/25 14:15:01
>>631
レス感謝。
確かにAフォームのLoadイベントにメッセージボックスを記述するとデザイン時でもメッセージボックスが出るな。
これって常識??
基底クラスのLoadイベントが発生するって解釈でいいのかな?
633:デフォルトの名無しさん
04/11/25 14:20:09
>>632
> 基底クラスのLoadイベントが発生するって解釈でいいのかな?
そうじゃなきゃ困る。
DesignModeプロテクトプロパティを使えばデザインモードかどうか判断できる。
ただしコンストラクタでは常にFalseを返すようなのでLoadイベント内で。
634:631
04/11/25 14:58:00
>>633
>>631だがDesignModeは知らんかったw
勉強になった
635:630
04/11/25 15:10:36
>>633
なるほど・・・実行中のことしか頭に無かったよ。
すごく勉強になった。ありがと。
636:デフォルトの名無しさん
04/11/25 19:36:40
Tabpageを使って、一つのフォーム内に
┃TabPage1┃TabPage2┃TabPage3┃TabPage4┃
というように、TabPageが4つあるフォームを作成しました。何をどうやったのか判らないのですが
気が付くと
┃TabPage1┃TabPage3┃TabPage2┃TabPage4┃
と順番が入れ替わってしまいました。元に戻したいのですが、どうすればよいでしょうか?
637:デフォルトの名無しさん
04/11/25 22:34:04
>636
ソースコード直接いじれば?addする順番変えれば
いいんじゃないの?
638:デフォルトの名無しさん
04/11/25 22:45:41
「表示」→「タブオーダー」
639:デフォルトの名無しさん
04/11/26 00:50:19
VB.NETの勉強の過程で
VB.NETを使いPocketPC用のRSSリーダーを作ろうと思ってるんですが
RSSの整形方法などを判りやすく解説されているサイトや書籍、サンプルコード等をご存じないでしょうか?
よろしくおねがいします
640:斉藤 ◆kvYxWFRquQ
04/11/26 05:16:10
リアル社会でVB.NET使ってる人はここ見ない方がいい、ってことですね。
641:デフォルトの名無しさん
04/11/26 14:10:18
最近VB.netをはじめたのですが、本を読みながら勉強中のところでわからないところがあります。
アクセス2000の形式を使ったデータベースでのレコード検索なのですが、
基本の形が「戻値=デートセット名.データテーブル名.Select(抽出条件)」
で,できるみたいなのですが、例題では抽出条件のところの書き方が...Select("単価 = 2000")
のようにしないさいとあります。
そこで実際にプログラミングしていく段階でテキストボックス内の値を抽出条件にするときに、
...Slect("商品グループ = '" & textbox1.Text & "'")
のようにしなければならないみたいです。抽出する値をシングルクォーテーション(')で囲むようにっと書いてあるので、
「'~~'」の意味はわかりますが、その中の「" & textbox1.Text & "」の意味がいまいちわかりません。
長くなってしまったのですが、ご教授のほどよろしくお願いします
642:デフォルトの名無しさん
04/11/26 14:30:02
&は文字列を連結する演算子であると言えば分かるだろうか。
643:デフォルトの名無しさん
04/11/26 14:30:37
TextBox1.Textの中に「生鮮食料品」と言う値が入ってた場合
Slect("商品グループ = '" & textbox1.Text & "'")
この中身は
Slect("商品グループ = '生鮮食料品' ")
になる
ためしに
Dim str as String = "商品グループ = '" & textbox1.Text & "'"
MessageBox.Show (str)
Slect(str)
に置き換えてみると解りやすいかも
644:デフォルトの名無しさん
04/11/26 14:33:19
>>641
その「&」の部分にカーソルを当ててF1キーを押すと、ヘルプが
出てくる。「&」は「+」と異なり、文字列だけを連結する機能
がある。
645:デフォルトの名無しさん
04/11/26 14:42:58
ふむふむぅ、、違うかもしれないのですけど、
シングルクォーテーションで囲まれた部分をひとつの固まりとみなして、
そのままではtextbox1.Textは文字列になってしまうのでそれをテキストボックスのプロパティにして、
さらにそれを「&」の結合演算子で繋げるということなのでしょうか?
646:デフォルトの名無しさん
04/11/26 15:05:16
あああ!!!わかった!!!ごめんなさいです;w;
区切り方を間違っていました;w;
「"商品グループ='"」& 「textbox1.Text」 & 「"'"」
っということなのですね('△';)
こんなことを気づかなかったとは;w; 親切に教えてくださった方ほんとにありがとうございます(^▽^)
647:デフォルトの名無しさん
04/11/26 15:12:31
>>646
乙
648:yukki
04/11/26 15:53:20
UdpClient.Receive メソッドについて。
Receiveメソッドはメッセージを受信するまで実行をブロックします。
メッセージ受信以外の方法でブロックを解除するにはどうしたらよいでしょうか?
649:hoge
04/11/26 21:44:49
>>648
ちょうど俺もUDPのプログラム書いてたから
Do Until MainSock.Available > 0
Application.DoEvents()
System.Threading.Thread.Sleep(1)
m_intResponsTime = timeGetTime() - ConnectStartTime
If m_intResponsTime >= 2000 Then
Exit Function’TimeOut
End If
Loop
ReDim ReceiveBuffer(MainSock.Available - 1)
MainSock.Receive(ReceiveBuffer, MainSock.Available, SocketFlags.None)
650:デフォルトの名無しさん
04/11/26 22:24:23
激しく外出かもしれませんが、
VC++.NET:Win32-DLLプロジェクトで
#ifdef DLLTEST_EXPORTS
#define DLLTEST_API __declspec(dllexport)
#else
#define DLLTEST_API __declspec(dllimport)
#endif
DLLTEST_API int __stdcall funcAdd(int a,int b);
DLLTEST_API int __stdcall funcAdd(int a,int b){
return(a+b);
}
VB.NETで
Declare Function funcAdd Lib "DllTest.dll" (ByVal a As Long, ByVal b As Long) As Long
と言う風に宣言してDLLのfuncAddを呼ぼうとすると
DLL DllTest.dll の funcAdd というエントリ ポイントが見つかりません。
と言うエラーが出てしまいます。対処法を教えてください。お願いします。
651:650
04/11/26 22:27:13
マニュアルだとDefファイルは書かなくても良いとの事なのですが…
652:デフォルトの名無しさん
04/11/26 22:31:28
C++の場合
extern "C"_declspec (dllexport)
とC言語型の関数として宣言しなけりゃいけないはず。
653:デフォルトの名無しさん
04/11/26 22:32:47
なんか変になった。
extern "C" __declspec (dllexport)
654:650
04/11/26 22:36:16
>>652>>653レスありがとうございます。
試したのですが、やっぱりエントリポイントが無いと
怒られてしまいましたvro
655:デフォルトの名無しさん
04/11/26 23:28:04
__stdcallの場合VB.NET側の宣言で
1)Aliasを指定する
Alias "_関数名@引数のバイト数合計"
2)Autoを指定する
のどっちかが必要なようだ。
あと通常C/C++のintはVB.NETではInteger(Int32)であってLong(Int64)ではない。
656:650
04/11/26 23:40:32
>>655
出来ました。ありがとうございました。
・・・しかし、defファイルが無いとやっぱりエントリポイント
が無いと怒られてしまいます。
__declspec (dllexport)をVC++側でやっとけばdefファイルはいらんと
マニュアルに書いてあるんですが・・・残念。
レス、ありがとうございました。
657:デフォルトの名無しさん
04/11/26 23:47:06
で、結局何をどうやったの?
>653と>655でこっちでは問題なくエントリポイントを取得できたんだけど。
//Alias "#1" でもいいな。これが一番妥当か。
658:650
04/11/26 23:59:30
>>657
File:DllTest.def------------
LIBRARY DllTest.dll
EXPORTS
funcAdd
------eof--------------
>650を
Declare Function funcAdd Lib "DllTest.dll" (ByVal a As Integer, ByVal b As Integer) As Integer
にしてDllTest.defをソリューションプロパティのモジュール定義ファイル
に置いたら出来ました。
でも、>653&>655の方が良さそうなのでそちらにさせていただきました。
多謝。
659:650
04/11/27 00:00:19
>>658
Declare Auto Function...
でした。
660:デフォルトの名無しさん
04/11/27 00:11:12
某社のグリッドコンポーネントを使用してpostbackした時に
非常に時間がかかるのだけど・・・・
htmlのサイズとしては500k位、postbackするのに5分位かかる
こんなもんなん!?
誰か詳しい人教えてください
661:デフォルトの名無しさん
04/11/27 00:12:54
なぜ某社
662:デフォルトの名無しさん
04/11/27 00:18:26
グレープシティーです
663:デフォルトの名無しさん
04/11/27 04:36:05
質問です.
初めてVBを使います.
Data0001
Data0002
:
:
と,順番にファイルを読み込みたいです.
For i=1 to n
Workbooks.Open Filename:="Data000???.xls"
???のとこのプログラムをどのようにすればいいでしょうか?
664:デフォルトの名無しさん
04/11/27 04:37:15
きわめてウイルスチックな香りが
665:デフォルトの名無しさん
04/11/27 04:41:32
マクロに応用するだけですよ
666:デフォルトの名無しさん
04/11/27 05:05:21
ここはVB.NET専門だから記述が異なる
VB6かVBAのスレに行ってみてはいかが?
VBAについて Ver.3.0
スレリンク(tech板)l50
VBプログラマ質問スレ(6.0以前) Part39
スレリンク(tech板)l50
667:デフォルトの名無しさん
04/11/27 05:36:12
開発者じゃなくて利用者の立場の質問なのですが・・・、
VB.NET で開発されたソフトウェアを動かすには、
Microsoft Windows Update などから、
「Microsoft .NET Framework Version 1.1 日本語版」 みたいなのをダウンロードしなきゃいけないんですか?
だとしたら、Windows 2000 や XP のデフォルトの状態では動作しないのでしょうか?
よろしくお願いします。
668:デフォルトの名無しさん
04/11/27 06:17:00
>>667
ランタイムが必要。
URLリンク(www.microsoft.com)
Javaと同じで素の2000,XPじゃ動かん。
669:667
04/11/27 06:24:16
>>668
回答ありがとうございます。
やっぱり、「.NET Framework」というランタイムが必要なんですね。
今まで色々な商用ソフトやフリーソフト、シェアウェアを使ってきましたが、
.NET Framework のインストールを要求された事はありませんでした。
やっぱり、.NET で作成されたプログラムって普及してないんでしょうか?
現在でも、VB6とかVisual C++ とかが一般的なのですか?
670:デフォルトの名無しさん
04/11/27 10:31:37
>>669
新しい技術(?)についていけてないだけ
671:デフォルトの名無しさん
04/11/27 11:22:49
>>669
Microsoft が こりゃーいい感じ と思ったら、
新しい Windows にデフォルトで入れてきて
一気に普及するということもありうるよね。
でも、現状では、Javeとか .Net のランタイム
のインストールを嫌がる人も多いので、、、
そう言うことでしょう。
672:デフォルトの名無しさん
04/11/27 16:26:41
.NETの終わり方が分かりません。Disposeで終わっても、タスクリストに
EXEが稀に残ります。なんででしょう。とりあえず、終了まえにThread.Abort
とApplication.exitはやってます。他になにかやることがあるんでしょうか?
threadが一つ動いてます。MSDEを使ってます。ComのFlexgridをつかって
ます。それ以外は特別変わったことはしてません。
673:デフォルトの名無しさん
04/11/27 16:27:57
>>669
ってか、WindowsUpdateしろよ。ちゃんとしてたら自動的に入ってる筈だぞ。
674:デフォルトの名無しさん
04/11/27 16:33:17
taskリストにいつまでも残ってる奴を殺す方法を教えてください。
675:デフォルトの名無しさん
04/11/27 17:26:44
窓から(ry
676:デフォルトの名無しさん
04/11/27 19:24:43
>675
窓から手はだめ。手を使わないでプログラムで殺す方法。
677:デフォルトの名無しさん
04/11/27 19:28:58
' 角の丸い長方形を描く関数の宣言
Declare Function RoundRect Lib "gdi32.dll" _
(ByVal hdc As Integer, _
ByVal nLeftRect As Integer, _
ByVal nTopRect As Integer, _
ByVal nRightRect As Integer, _
ByVal nBottomRect As Integer, _
ByVal nWidth As Integer, _
ByVal nHeight As Integer) As Integer
Public pic As PictureBox
RoundRect(PictureBox1.hdc,10,10,10,10,10,10)
PictureBox1.hdc がVBNETじゃだめなの。 何を渡すの?
678:デフォルトの名無しさん
04/11/27 19:58:23
解決
Dim hn As IntPtr = pic.Handle
Dim hDC As IntPtr = GetDC(hn)
ででけた。
しかし、中をグリーンにしたいんだがどうすればいいの?
679:デフォルトの名無しさん
04/11/27 20:15:17
>671
Windows Server 2003には.NET 1.1のRuntimeがプリインスト。
Windows XPは初期状態で.NET 1.0のRuntimeが入っていたような?
次期Windowsは、それ自体が.NETのコンポーネントで構成されるって
聞いたような。
680:デフォルトの名無しさん
04/11/27 21:58:04
>>678
CreateSolidBrushでブラシを作成。
SelectObjectで作成したブラシを選択。
RoundRectで描画。
SelectObjectで作成したブラシから元々選択していたオブジェクトに戻す。
DeleteObjectで作成したブラシを削除。
Graphics.FillPathとどっちが楽だろ。
//まあマネージドで完結させ得る点でGraphicsの方が良いが。
>>679
XPはSP2でも入らない。
WindowsUpdateの追加選択で任意にインストール、レベル。
自動通知の場合は知らない。
681:デフォルトの名無しさん
04/11/27 23:03:31
リストビューのレポートスタイルで、カラムをクリックしてソート
したときに▼とか▲をヘッダに出したいのですが、あれはやっぱり
オーナードローとかいうものをしないとダメなのでしょうか。
VBでも可能なんでしょうか。
682:デフォルトの名無しさん
04/11/27 23:21:32
VB.NETで作成したアプリケーションのバックグラウンド
処理の優先度を下げる方法はありますか?
683:デフォルトの名無しさん
04/11/28 00:09:41
すいません。>681はVB6.0についての質問だったのに
間違えてこちらに投げてしまいました。
すいませんが>681は取り下げさせてください。
684:フナ太郎
04/11/28 05:30:47
>>673
自動的に、ってことはねーべ。
.NET Framework のインストールはオプションだっぺ。
685:デフォルトの名無しさん
04/11/28 05:56:55
>680
ありがとう
>DeleteObjectで作成したブラシを削除。
えっ、ガベッジコレクションきかないのですか?
削除する必要があるんですか?
>'Graphics.FillPathとどっちが楽だろ。
>'//まあマネージドで完結させ得る点でGraphicsの方が良いが。
APIで描いた図形にGraphics.FillPathできます?
GraphicsにRoundRectさえあれば、APIなんて使いませんよ。図形描画に関しては
滅茶苦茶原始的。MSDOSのまんまだね。 2Dで回転すらできないのか? あーあ。
686:デフォルトの名無しさん
04/11/28 08:30:31
>>685
> えっ、ガベッジコレクションきかないのですか?
> 削除する必要があるんですか?
ガベージコレクションをもう一度勉強すれ。
メモリ以外はガベージコレクションの対象外だ。
アンマネージドなものを使うならDeleteObjectやReleaseDCなんか常に意識しないと駄目。
マネージドなものならGCされる時に関連リソースもファイナライザで破棄できるんだが。
> APIで描いた図形にGraphics.FillPathできます?
できるんじゃないかね。言っている意味がよくわからんが。
hDCからGraphicsを取得する事もその逆もできるし。
> 滅茶苦茶原始的。MSDOSのまんまだね。 2Dで回転すらできないのか? あーあ。
Graphics.RotateTransformとか駄目か。
687:686
04/11/28 09:26:57
まあ俺もガベージコレクションなんか意識してないけどな。
適当適当。プログラムなんてそんなもんよ。
688:デフォルトの名無しさん
04/11/28 12:59:45
>>613
通らないみたい。レス遅くなってすいません。
プロジェクトで、ビルド出力パスというのを設定したら実行ファイルがつくられてました。
689:デフォルトの名無しさん
04/11/28 13:00:33
>688
謝って済む問題じゃないだろ。
690:デフォルトの名無しさん
04/11/28 13:04:16
>>613
それでもビルドしたときになんかエラーがでてたよ。詳細はわかんないけど、無事exeができてました。ありがとう
691:デフォルトの名無しさん
04/11/28 13:11:33
>>689
報告が遅れてすまんかったね
692:デフォルトの名無しさん
04/11/28 13:12:21
>687
マジメにやれや。
693:デフォルトの名無しさん
04/11/28 13:12:53
>691
謝って済む問題じゃないだろ。二度とここに書き込むな。
694:デフォルトの名無しさん
04/11/28 13:21:14
>>693
どういう点が、謝ってすむ問題じゃない?何も問題起こしてませんよ。てかさ、質問と解答と報告以外のことすんなよ、オッサン。
基本的に「謝ってすむ問題」の定義からしておかしいしね。文章嫁や。イライラしてるんなら、最悪板にでも逝って下さいおながいします
あなたがいると迷惑ですよ?
695:デフォルトの名無しさん
04/11/28 13:23:30
>694
釣られすぎ
696:デフォルトの名無しさん
04/11/28 13:24:07
>694
え?誰がどこに「謝って済む問題」をどう定義したの?
697:デフォルトの名無しさん
04/11/28 13:29:44
>アンマネージドなものを使うならDeleteObjectやReleaseDCなんか常に意識しないと駄目。
そういうことですか。
>Graphics.RotateTransformとか駄目か。
OK。これでおけ。
>hDCからGraphicsを取得する事もその逆もできるし。
hDCからGraphicsをとる方法おしえてくだされ。
698:デフォルトの名無しさん
04/11/28 13:34:48
689 名前: デフォルトの名無しさん [sage] 投稿日: 04/11/28 13:00:33
>688
謝って済む問題じゃないだろ。
お前が定義してるね↑笑
>696はVBよりもまずは日本語を覚えようよ♪うん♪
699:デフォルトの名無しさん
04/11/28 13:36:21
>698
笑じゃなくて。質問に答えてくれませんかね。
あーーーー、すいません。脳が少ない方でしたか。
あらかじめ言って頂ければそれなりに対処したんですが。
すいません。
700:デフォルトの名無しさん
04/11/28 13:40:12
>>698
定義してないよ。
>694
>基本的に「謝ってすむ問題」の定義からしておかしいしね
何に対して何がどうだからおかしいと思ったの?
701:デフォルトの名無しさん
04/11/28 13:40:18
定義:謝って住む問題。
謝ると、それ以後問題とならない問題。もともと問題とならない
些細な問題を含む。
もともと謝って住む問題であっても、一旦謝ると謝っても済まない
問題となることがある。
702:デフォルトの名無しさん
04/11/28 13:41:33
>701
余計な書き込みをしないように。お前には関係ないし、誤字があって
意味がわからん。
703:デフォルトの名無しさん
04/11/28 13:43:01
694に質問。「定義」ってどういう意味?
君が思う(思い込んでいる)「定義」の意味でいいよ。
704:デフォルトの名無しさん
04/11/28 13:43:54
>700
アホをまともに相手するな。お前も荒らしと言われるぞ。
705:デフォルトの名無しさん
04/11/28 13:44:52
>701
いそうろうのことか?
706:デフォルトの名無しさん
04/11/28 13:47:20
>>699
お前が定義してるっていってるじゃん。爆笑
俺があやまってるのをみて。謝ってすむ問題じゃないって思ったんでしょ?w
それで、謝ってすむ済む問題じゃないだろ。↓笑
689 名前: デフォルトの名無しさん [sage] 投稿日: 04/11/28 13:00:33
>688
謝って済む問題じゃないだろ。
お前は、日本語読めてるの?ワラ
脳が少ない??
へぇ。ケッサクだね。脳が少ないなんて普通言わないしねw普通はw Iちなみに俺とお前だったら、レスの内容から、あきらかにお前の方が少ないしね
うん。それから、別に話しかけてこなくて良いよw
すいません。ってw
707:デフォルトの名無しさん
04/11/28 13:52:00
>>703
定義:謝って住む問題。
謝ると、それ以後問題とならない問題。もともと問題とならない
些細な問題を含む。
もともと謝って住む問題であっても、一旦謝ると謝っても済まない
問題となることがある。
おれもこれで↑定義はあってると思うよ。
708:デフォルトの名無しさん
04/11/28 13:53:43
カリカリして書き込みするなや。
とりあえず飯食って昼寝しろ。いま職場でもカップ麺くらいある
だろし、今日なら上司もいないだろ?
俺は金曜から一歩も外に出られない。(´;ω;`)ウッ…
709:デフォルトの名無しさん
04/11/28 13:57:59
>>700=702
702 名前: デフォルトの名無しさん [sage] 投稿日: 04/11/28 13:41:33
>701
余計な書き込みをしないように。お前には関係ないし、誤字があって
意味がわからん。
別に、誤字脱字ないでしょ?ワラ
コレぐらいの文章くらい読解してくださいね。厨房さん
でなきゃ700=702は荒らしでw
710:デフォルトの名無しさん
04/11/28 13:58:54
>>708
乙。
711:デフォルトの名無しさん
04/11/28 13:59:58
>>697
>hDCからGraphicsをとる方法おしえてくだされ。
一度Graphicsクラスのメンバ一覧をじっくり目を通すと良いと思う。
質問の解答以外にも意外な発見もあるかも知れない。
712:デフォルトの名無しさん
04/11/28 14:01:55
>709
誤字はホントにあるよ。バカだな。
713:デフォルトの名無しさん
04/11/28 14:03:02
>706
ふぅ・・・一体どこまでレベルを下げてあげれば伝わるのか。
脳が少ないというかない人にからんだ私が間違ってましたよ。
714:デフォルトの名無しさん
04/11/28 14:03:23
>709
誤字あるじゃん。
715:デフォルトの名無しさん
04/11/28 14:03:50
>709
>705のツッコミで気付けよw うまいこと言ってるのに。
716:デフォルトの名無しさん
04/11/28 14:05:21
>708
>俺は金曜から一歩も外に出られない。(´;ω;`)ウッ…
こいつ臭そう。相当デキが悪いんだろうな。
うちに来てる協力会社でも机に座った分しっかり
請求してくるバカがいるからな。成果物チェックしまくって
めちゃくちゃ減らしてやってるけど。
717:デフォルトの名無しさん
04/11/28 14:05:49
誤字に気付いた後の逆ギレに期待。
718:デフォルトの名無しさん
04/11/28 14:06:35
>713
気付くの遅すぎ。
719:デフォルトの名無しさん
04/11/28 14:09:02
謝って住む問題か。確かに居候っぽいなw
720:デフォルトの名無しさん
04/11/28 14:09:54
>706
>703はスルーですね?分かりました。
721:デフォルトの名無しさん
04/11/28 14:11:17
>716
そんな奴ばっかだろ。小さい会社は精鋭揃いだと思ったら
大間違いだからな。金曜も協力会社の奴一人泣かし
ちまった。
722:デフォルトの名無しさん
04/11/28 14:11:53
>707
自演、かっこ悪いよw
723:デフォルトの名無しさん
04/11/28 14:13:13
>688-719は全部688の自演って皆気付いている?
724:デフォルトの名無しさん
04/11/28 14:14:51
またか・・・スレ埋めたいのかなんだか知らんが・・・
725:デフォルトの名無しさん
04/11/28 14:17:07
>>708
そうですよね。このスレには、どうやら厨房がいるみたいなので。お互い監視してないとスレが続きませんね
乙
726:デフォルトの名無しさん
04/11/28 14:17:43
>721
とことんやらないとな。慈善事業じゃないんだから。
727:デフォルトの名無しさん
04/11/28 14:18:18
>725
まだ自演は続くのか。
728:デフォルトの名無しさん
04/11/28 14:19:45
>711
>一度Graphicsクラスのメンバ一覧をじっくり目を通すと良いと思う。
>質問の解答以外にも意外な発見もあるかも知れない。
みました。わかりません。hdcからGraphicsをとるのに
そもそもGraphicsのメンバーは関係ないでしょう。
Graphics = GetGraphics(hDC)
だから。そのGetGraphicsがどこにあるのか分からないのです。
hdc=gGraphics.GetHdc()
これはわかります。
発見もありました。
なんで平行移動がTranlateTransformなのか?
ReleaseHDCInternalは内部関数で使ってはいけないのになんでPublicなのか?
そういう発見です。
729:デフォルトの名無しさん
04/11/28 14:24:47
>>726
厨房へ。釣り、ご苦労様です。w
730:デフォルトの名無しさん
04/11/28 14:26:08
>729
いつになったら自演やめてくれるの?
731:デフォルトの名無しさん
04/11/28 14:27:19
あきらかに自演じゃないだろ。笑
732:708
04/11/28 14:27:47
>>716
>>721
まあ確かに俺は出来がいいとは言えないが、今回は後輩の後始末だよ。
月曜テスト予定のファイルをバックアップごと破壊して蒸発した。
いろいろ溜め込んでいたようだが、ここまでするとは‥‥。orz
やつの管理外バックアップと各端末から差分の残滓を回収したりして、
ようやくメドが立ったよ。社内にシャワー室があるんで、臭くならな
い&眠気取りができたのも助かったかな‥‥まあ、普段もよく使って
るんだが。
じゃ、仮眠してからシナリオと照らし合わせる最終チェックに入りま
す。(´・ω・`)ノシ
733:デフォルトの名無しさん
04/11/28 14:28:16
730は、もう書き込まなくていいよ
734:デフォルトの名無しさん
04/11/28 14:34:05
こいつの場合>730みたいなツッコミも含めた自演だからな。
マジでタチが悪い。
>733も自分自身に対するツッコミで、しばらく待って
誰も書き込まないと見るや、自分で別人のフリして
続けるからな。誰も釣られてないのに終わらないんだ。
735:デフォルトの名無しさん
04/11/28 14:36:26
プログラム上からブロードバンドルータのリブートってできる?
736:デフォルトの名無しさん
04/11/28 14:38:17
>>735
そのルーターの制御コードがわかってるなら。
737:690
04/11/28 14:39:38
>>708
僕の方はようやく内定が決まって、一段落した感じです。プログラミングではなくて、メーカーで評価・シュミレーションというやつをやることになりました。^^;
分野は違いますが、お互い頑張りましょう。レス㌧クスでした。嬉しかったです。では。乙
738:デフォルトの名無しさん
04/11/28 14:46:53
>>728
> >711
> みました。わかりません。hdcからGraphicsをとるのに
> そもそもGraphicsのメンバーは関係ないでしょう。
> Graphics = GetGraphics(hDC)
> だから。そのGetGraphicsがどこにあるのか分からないのです。
Sharedと言う可能性を忘れていないか。
Image.FromFileとかあるじゃんか。
Graphics.FromHdcがあるじゃないか。
> なんで平行移動がTranlateTransformなのか?
Translateに平行移動って意味もあるんだが……。
URLリンク(dictionary.goo.ne.jp)
> ReleaseHDCInternalは内部関数で使ってはいけないのになんでPublicなのか?
そういうのは他にも色々あるが……。
何でだろうね?
739:デフォルトの名無しさん
04/11/28 14:53:04
>736
制御コードってどんな形式のもの?
corega BAR SW-4P HGなんだけど、やったことある
人いないかな。
740:デフォルトの名無しさん
04/11/28 15:03:17
>739
パケットキャプってみて、同じパケット作って飛ばして
あげればできたりするかな。
741:デフォルトの名無しさん
04/11/28 15:34:13
>>739
メーカーが公表する性質のものでもないし、>>740の助言みたい
にするのが大吉。管理者ログインからリブート指示まで、丸ごと
捕獲して解析してみそ。
つか、そのあたりの話はスレ違いになるから、メーカースレにで
も行ってみたらいい助言が得られる悪寒。
742:デフォルトの名無しさん
04/11/28 15:47:18
>741
>740は助言じゃなくて俺の独り言でした。
まぁとにかくやってみます。
743:デフォルトの名無しさん
04/11/28 15:59:00
>Translateに平行移動って意味もあるんだが……。
そうなのか、しらんかった。 自分ならTransferにするけど、Translateの方が
適当なのかな?
>Sharedと言う可能性を忘れていないか。
>Image.FromFileとかあるじゃんか。
>Graphics.FromHdcがあるじゃないか。
うー意味不明。サッパリわからん。
RotateTransformをつかおうとすれば、結局DrawRectangleやDrawLineなど
Graphicsが持っているメソードを使わないとだめみたいね。
APIのGLIBでイメージメモリに描いてそれをGraphicsに渡して描画する
みたいなことができたらできるかも? MatrixOrderというぐらいだから
対象はベクターだろうね。
よく知らんが、まともなグラフィックスというとOpenGlとかはVBNETでも
うごくんだろか? VB6だったら動くみたいだね。これがまた簡単には動かんの
だろな。 aUTOCADのVBAだったらすごく楽にかけるんだけどね。ところがこれが
バグだらけで、すぐにハングする。ろくなものがない。
744:デフォルトの名無しさん
04/11/28 16:05:28
>>743
ホントに意味がわからんのか?
こう言えばわかるか?
Graphics クラスには FromHdc という Shared メソッドがあるんだよ。
745:フナ太郎
04/11/28 17:30:26
(-。-)y-~~~~ ここはまじめな人がおおいね。いいことだ。
746:デフォルトの名無しさん
04/11/28 17:53:45
>Graphics クラスには FromHdc という Shared メソッドがあるんだよ。
あっ、すまん。そういう言葉に対して基本的知識がかなり不足している。
思えば、適当にプログラムを作ってきたツケだとおもう。
そこで適当に想像したり、検索したりしてその場をしのいでいるが
Sharedというのは共有になるということらしい。技術評論社の
VisualBasic.NETプログラミングマニュアルというのを参考にしているが
サッパリ意味不明だ。この本は失敗だった。技術評論社は信頼しているんだが、
やっぱり女の書いた本はロクなのがない。適当に本を買ったのが失敗だったなー。
麻奈ちゃんも恵子ちゃんも香織ちゃんも明子ちゃんもだめ。もうお前らの本は買わん。
わからん。もう一度買ってほしかったらわかるように書いてくれ。
それはいいとして、Sharedだからどうにかなるというものでもないような気がする。
Sharedの意味は分からんが
こうすれば
Dim hn As IntPtr = pic.Handle
Dim hDC As IntPtr = GetDC(hn)
Dim gr As Graphics
gr = gr.FromHdc(hDC)
Dim pen As New Pen(Color.Green)
gr.DrawLine(pen, 0, 0, 200, 200)
たしかに、PictureboxのハンドルからGraphicsが取れる。これは驚き。
かなり、知識のバリエーションが広がった気がする。
747:最凶VB厨房
04/11/28 18:01:04
>>746
おもろい
748:デフォルトの名無しさん
04/11/28 18:11:20
>>746
> Dim gr As Graphics
> gr = gr.FromHdc(hDC)
気持ち悪い……。
gr = Graphics.FromHdc(hDC)
と書こうよ。
つまり、Sharedであるものは特に前提条件無くその場で使用可能なわけ。
hDCさえあればGraphicsオブジェクトを作成可能なの。
つかそもそも.NET内でならデバイスコンテキストを意識する必要すらない。
Dim pic As PictureBox = new PictureBox()
Dim g As Graphics = pic.CreateGraphics()
...
'Dim hdc As IntPtr = g.GetHdc() 'デバイスコンテキストは取得するならGraphicsから取得する。必要な事態は余り無いが
...
'g.ReleaseHdc(hdc) 'もちろんアンマネージドリソースはそれに相応しく破棄処理
...
g.Dispose()
で終了だ。
749:デフォルトの名無しさん
04/11/28 18:25:17
>748
おお、すっきり。ありがとう。
ところで色々教えてもらったので一ついいことを教えてあげましょう。
Strict ON
ってスイッチしってます?
これをONすると、自分のコードはエラーだらけになった。実に強力に
エラーチェックをしてくれます。
大事な仕事の時はぜひStrict ONです。昨日はじめて知りました。
750:最凶VB厨房
04/11/28 19:00:49
>ReleaseHDCInternalは内部関数で使ってはいけないのになんでPublicなのか?
内部は内部でもクラス内部という意味じゃなくて
MS内部という意味じゃねぇか?w
クラスライブラリ内部と言った方がいいかな。
751:最凶VB厨房
04/11/28 19:04:44
>>749
URLリンク(www.microsoft.com)
これ見たら驚きの連続だぞ(ワラ
752:デフォルトの名無しさん
04/11/28 20:19:08
>741
キャプってみたけど訳分からん。ネットワークの基礎から
勉強しないと・・・ とりあえずロケットマウスでしのぎますw
753:613
04/11/28 22:51:35
>>689
俺は別に構わんがw
754:デフォルトの名無しさん
04/11/28 23:49:39
>751
>これ見たら驚きの連続だぞ(ワラ
そんなにいっぺんに驚いても勿体ないでしょ。
ところで、最凶はVBにかかるの? 厨房にかかるの?
今回Graphicsのサンプルをテストするとき、C#をすこし使いましたが、
InterisenceとかがVBにくらべて弱いですね。VBの方がかなり楽にプログラム
できます。
言語的に幾分弱いVBに便利さで意図的にアドバンテージをおくのはMSの戦略ですかね。
755:デフォルトの名無しさん
04/11/28 23:53:16
逆にVB.NETのインテリセンスのしつこさにちょっとウザさを感じるところもある。
やっぱり初心者に優しくという方向性なんだろうな。
756:デフォルトの名無しさん
04/11/29 05:46:17
>755
なんで初心者のお前がうざいと感じるんだよ。
757:フナ太郎
04/11/29 06:55:53
>>756
インテリセンスはベテランの俺でもありがたい機能だぞ。
だれが、あんな長いクラス名やメソッド名を手で打ち込みたいと思うかね?
758:デフォルトの名無しさん
04/11/29 08:13:22
incremental build のチェックをはずすとベテラン向きに10倍
速くなるのか? やってみたことあるベテランさん感想をどうぞ!
759:デフォルトの名無しさん
04/11/29 08:15:55
ちなみにデフォールトでは
C#はOFF、VBはON
このちがいか?
760:デフォルトの名無しさん
04/11/29 09:29:25
>757
俺にレスするな
761:デフォルトの名無しさん
04/11/29 10:42:56
ユーザーコントロールでテキストボックスを作ろうと考えてます。
MultiLineがいつもTrueで、通常は1行表示でフォーカスを持つと入力部分が大きくなるような奴です。
で、入力部分を大きくする時にフォーム中央にある場合は問題ないんですが、
隅にあったりして大きくなるとフォームからはみ出す場合に途切れずに
表示するにはどのようなアイデアがあるでしょうか?
現在はフォームにテキストボックスだけを貼り付けて、それを表示させようかと考えてはいるのですが・・・
762:フナ太郎
04/11/29 10:52:57
>>760
あ、755だった。すまん。
763:デフォルトの名無しさん
04/11/29 11:13:55
>>761
フォーム側がユーザコントロールのResizeイベント辺りでフォーム自身のサイズ変更すればいいんじゃない?
764:デフォルトの名無しさん
04/11/29 16:46:33
Private Sub cangeStrNarrow()
Dim sText As String
sText = a
Dim sNewText As String
sNewText = StrConv(sText, VbStrConv.Narrow)
a2 = sNewText
End Sub
入力された文字を、上のコードで半角にしてみましたが、作ったデーターを渡す
相手がオフコンなので、半角の長音が通りません。
半角の長音をマイナスに入れ替えるルーチンを書きたいのですが、どなたかど
の命令を使えばよいかアドバイスください。
765:デフォルトの名無しさん
04/11/29 16:50:10
String.Replaceでいいんじゃね。
766:デフォルトの名無しさん
04/11/29 20:57:35
すんません。どなたか教えてください。
MSDEのVIEWを作り、列にコード値に対応する文字を持たせたテーブルの用意して
テキストボックスにその文字が表示されるように.Databinding.Textに設定したいんですが、
オブジェクトのプロパティ設定画面上では、設定したい列名がすべてExprn(nは数字)
となっていて、すごく使いにくいです。
MSDEでVIEWをデザインした時に、結合した列には全て別名を登録したのに
VS.NETのエディター上は別名で表示してくれる機能はないのでしょうか?
767:デフォルトの名無しさん
04/11/30 04:48:36
>766
どうしたらそんなことになるの? 列名はチャンとレコードアイテムが
でるはずよ。もっと手順を追って詳しく説明してくれたら何かアドバイス
できると思う。DBの作り方はいろんな方法、I/Fがあるから、その説明では
何をやってるのかサッパリわかりません。
768:デフォルトの名無しさん
04/11/30 09:33:03
>767
分からないなら書くなよ。
769:デフォルトの名無しさん
04/11/30 09:35:56
>>768
そんなに自分を責めるなよ。
770:769
04/11/30 09:44:08
すまん。769は767へのレスね
771:デフォルトの名無しさん
04/11/30 10:21:35
MSDEで重要なのは周期的な処理丸木バックアップを作成しすることだよ。
772:本物の769
04/11/30 10:32:59
>>770
(´,_ゝ`)プッ
773:デフォルトの名無しさん
04/11/30 10:34:48
>772
なにこいつ
774:デフォルトの名無しさん
04/11/30 11:02:16
MSDEの特徴はBACKUPはいくらでもできるが、RESTOREはどんなにがんばっても
できないこと。
結局リストアーに仕方が分からんままに中国に納めたよ。
まあトラブルことはめったにないし大丈夫だろ。
775:デフォルトの名無しさん
04/11/30 11:42:58
VBにて三角形2次元モデルの描画を行いたいのですが、全然わからないので助けていただきたいのですがここで聞いてもいいでしょうか?
776:デフォルトの名無しさん
04/11/30 11:46:46
何を質問したらいいですかみたいなメタ質問は無しな。
777:775
04/11/30 11:57:38
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Color
Dim vp As ViewPort
c = Color.FromArgb(255, 255, 0, 0)
vp.Xgw = ○○
vp.Ygw = ○○
vp.Xgc = ○○
vp.Ygc = ○○
vp.Xvw = ○○
vp.Yvw = ○○
vp.Xvc = ○○
vp.Yvc = ○○
DrawPoint(○, ○, c)
DrawPointScs(○, ○, c, vp)
DrawPointWcs(○, ○, c, vp)
DrawLine(○, ○, ○, ○, c)
DrawLineScs(○, ○, ○, ○, c, vp)
DrawLineWcs(○, ○, ○, ○, c, vp)
End Sub
で、三角形の各頂点 (200,200) (400,200) (300,400)
ViewPort 左下座標(150,150) 幅300 高さ300
なのですが座標系についてさっぱりなので埋めることができなくて困ってます(´・ω・`)
必要でしたらコードをうpします。
778:デフォルトの名無しさん
04/11/30 12:22:43
>776
どこにそんなルールが?
779:デフォルトの名無しさん
04/11/30 12:32:42
Private Sub OpenFileDialog1_FileOk(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
このイベントのSenderから選択されたファイル名を取得する方法はありませせんでしょうか?
780:デフォルトの名無しさん
04/11/30 12:34:45
>779
なんでsenderから取りたいのでしょうか?
OpenFileDialog1 からは取れないの?
781:デフォルトの名無しさん
04/11/30 12:42:53
senderをOpenFileDialogにキャストしてやれば問題ないが。
なぜわざわざイベントで? とは思うな。
782:デフォルトの名無しさん
04/11/30 14:16:05
MSDEのように、データセットをウィザードで作れるDBを探しています。
リナックスで作動するDBがよいのですがMySQLは上記のような作り方で
作動しますか?
783:デフォルトの名無しさん
04/11/30 14:51:12
>>777
自分も詳しくないけどさ、取りあえずViewPortというクラスか構造体か、
.NET FrameworkにもManaged DirectX9.0にも無いようなんだけど。
DrawPointScsとかのメソッドも分からないわけだし。
784:デフォルトの名無しさん
04/11/30 14:53:29
>781
なぜわざわざイベントで???
785:779
04/11/30 15:28:49
>784
>なぜわざわざイベントで???
「わざわざそういうプログラムをしてみたい」としか答えようがありませんが、
そういうこともできるのかというのが分かると、これはまた別の応用が、つまり
senderとは何かについての性質がよりはっきりと理解できるのではないでしょうか?
これで理由になりますか? 理由に間違いないのですが、この気持ちを
理解可能ですか?
786:779
04/11/30 15:30:23
>781
そういうやり方が即座に浮かぶようになりたい。です。
787:779
04/11/30 15:31:41
ところで、VB6のFile1やDir1に変わるものはないのでしょうか?
パスを取りたいのですが。
788:779
04/11/30 15:36:57
>なんでsenderから取りたいのでしょうか?
>OpenFileDialog1 からは取れないの?
OKボタンを押したことを知る方法はEVENT以外にありません。
イベントで待ち構えているとSender、とE がやってきます。
ですからこの二つからすべてを処理するのが、自分の感性として
はスマートなのです。
789:デフォルトの名無しさん
04/11/30 17:37:44
>>787
.NET Frameworkにはない。 //Frameworkの扱うべきレイヤからかなり外れてるから。
手っ取り早いのはVBのコンポーネントを参照するこったね。
790:デフォルトの名無しさん
04/11/30 18:03:40
>788
>OKボタンを押したことを知る方法はEVENT以外にありません。
平然とウソを書くなよ。ちゃんとヘルプ読んだか?
791:デフォルトの名無しさん
04/11/30 18:05:53
>788
OKボタンってOpenFileDialog上にあるOKボタンのこと?
ShowDialog()の戻り値を見るのが普通だと思うけど
いまいち何がしたいのか分からないなぁ。
792:デフォルトの名無しさん
04/11/30 18:20:31
>787
あのさ、どういう機能を実現したいのかまずは日本語だけで
まとめてみれば?
あと>785みたいな人の神経を逆撫でするような書き込みしといて
その後すぐ質問ってどういう神経なんだろう。投稿前に見直し
とかしてる?
793:デフォルトの名無しさん
04/11/30 18:22:53
ちなみに779はMSDN見れる人?
単に見れないからMSDN代わりにここを利用しようとしてる?
ちょいとそこんとこ教えて。
794:デフォルトの名無しさん
04/11/30 19:31:09
>>783
URLリンク(do.sakura.ne.jp)
にソースコードを書いておきました。
埋める場所は空欄(先の通り)となっています。
795:デフォルトの名無しさん
04/11/30 22:28:05
VB6からVB.NETになってジレンマに陥ってるのか
漏れも一時期Senderをキャストしてイベントの内容拾ったりしてたが
無駄だということに気が付いてやめた
796:779
04/11/30 23:07:33
>ShowDialog()の戻り値を見るのが普通だと思うけど
ええっ、戻り値があったのか? 知らんかった。そうだったの。ガックシ。
FolderBrawserDialogはもっと悲惨だった。こっちは探してもEVENTがない。
継承元からイベントを取れないか半日も悪戦苦闘してあきらめた。
いつにもまして「MSのアフォたれ、馬鹿たれ」と思っていが、戻り値があるんか?
なら簡単だった。
>平然とウソを書くなよ。ちゃんとヘルプ読んだか?
HELP
■ShowDialog
(CommonDialog から継承されます)
オーバーロード。 コモン ダイアログ ボックスを実行します。
何だこのHELPは。このHELPをみて分かるか? わかるか?おい。
797:デフォルトの名無しさん
04/11/30 23:11:10
>796
じゃあCommonDialogの方も読むだろ、普通
798:デフォルトの名無しさん
04/11/30 23:11:32
いや...についてに書かれてるサンプルコード見りゃすぐ分かるこったろ……。
799:デフォルトの名無しさん
04/11/30 23:12:10
>796
アホ
800:デフォルトの名無しさん
04/11/30 23:25:39
とりあえずチンコの皮は剥けたようだな
801:デフォルトの名無しさん
04/11/30 23:27:11
ヘルプに文句をたれる前に、初心者用の入門書を読んだほうがいいね。
802:デフォルトの名無しさん
04/12/01 03:36:56
Overloads Public Function ShowDialog() As DialogResult
なんで"As DialogResult"が目に入らないかなあ。つか、それ以前にVB.NETの構文を知らないのか?
803:779
04/12/01 06:41:54
>じゃあCommonDialogの方も読むだろ、普通
普通は読まん。遡るほど分からなくなるものだとは知らないの?普通。
分かりやすく、使いやすくするために継承するんですよ。
遡るほど、分かりやすいなら最初からSystemを読んでください。分かりやすいですか?
>いや...についてに書かれてるサンプルコード見りゃすぐ分かるこったろ……。
エムエスの
アフォ糞餓鬼の
ガタガタの
能書き言わず
サンプルを出せ
(一首贈呈)
サンプルコードが大切だよね。マトモな。
>800
お前は剥けすぎベロリンチョ
>ヘルプに文句をたれる前に、初心者用の入門書を読んだほうがいいね。
林晴彦のサンプル全部みたよ。10ページに渡って穴が開くほど見たが、
戻り値を使う例はただの一つも無い。(VB6のだけどね)
すまん、このセンセのチンコも剥いてやってくれ。
>Overloads Public Function ShowDialog() As DialogResult
>なんで"As DialogResult"が目に入らないかなあ。つか、それ以前にVB.NETの構文を知らないのか?
なんでそれを目に入るところに書かないのかなあ?
804:デフォルトの名無しさん
04/12/01 06:49:05
ここホントにC#スレか?
VB.NETは別スレあるからそっちでやれよ。
805:779
04/12/01 06:58:26
>789
.> NET Frameworkにはない。 //Frameworkの扱うべきレイヤからかなり外れてるから。
どういう意味なの? File1やDir1の方がシンプルでスマートだと思うよ。
対応するのはFoldeBrowzerDialogだろうけど、今一って感じる。ダイアログは簡単
だけど、フォームに貼り付ける方がいい場合がたまにある。
>手っ取り早いのはVBのコンポーネントを参照するこったね。
このコンポーネントって参照できるの? どうやって? OCXが分からん。
VB6組み込みじゃないの?
分からないからVB6でDirとFileをフォームに貼り付けてActiveXを作って
VBNETに貼り付けてやってみたが誤動作する。
Dirをダブルクリックすると内部でエラーがでてハングする。
うまくいかんかった。
もちろんそのActiveXはVb6上ではテストしてますよ。
806:デフォルトの名無しさん
04/12/01 07:17:31
うは
チンコの皮までレスしてる
VB6の概念から抜け出せてないようだから.NETはしばらくやめておいたら?
もしかしたら2005でお望みの機能が追加されてるかもしれんし
>>805のようなOCXの事書いているようだから
マニュアル類は一切読んでないか、読んだつもりにいなってるんだろうな
コントロールの上でF1押せばほとんどのHELPが載っているし
記述の癖も1日2日すれば慣れると思うんだが
良くも悪くもHELPまでMicrosoftオブジェクト指向で書かれてるので
掘っていけばほぼ答えは見つかる
それでもなければ全文検索
>フォームに貼り付ける方がいい場合がたまにある。
フォームに張り付かないのか?
807:デフォルトの名無しさん
04/12/01 07:21:18
>803
素晴らしいよ、君は。
一生そうやって生きればいいね。
808:デフォルトの名無しさん
04/12/01 07:39:51
オーバーロードの一覧
フォームをオーナー ウィンドウのないモーダル ダイアログ ボックスとして表示します。
.NET Compact Framework でもサポート。
[Visual Basic] Overloads Public Function ShowDialog() As DialogResult
[指定した所有者を持つモーダル ダイアログとしてフォームを表示します。
[Visual Basic] Overloads Public Function ShowDialog(IWin32Window) As DialogResult
使用例
[Visual Basic]
Public Sub ShowMyDialogBox()
Dim testDialog As New Form2()
'Show testDialog as a modal dialog and determine if DialogResult = OK.
If testDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
Read the contents of testDialog's TextBox.
txtResult.Text = testDialog.TextBox1.Text
Else
txtResult.Text = "Cancelled"
End If
testDialog.Dispose()
End Sub 'ShowMyDialogBox
809:779
04/12/01 07:47:09
> Dim testDialog As New Form2
まちがってない?
810:デフォルトの名無しさん
04/12/01 07:47:10
VB6の参考書を読んで.NETが解らないと言ってたのか
冷蔵庫の取扱説明書を読んでも洗濯機は動かないわな
811:デフォルトの名無しさん
04/12/01 07:47:49
>>809
あってるよ
812:779
04/12/01 07:50:49
糞長いOK書くくせに
System.Windows.Forms.DialogResult.OK
これは何?
Dim testDialog As New Form2
宣言をしっかりして、Localでは省略するのが正解だと思うよ
第一動かんサンプル(W
813:811
04/12/01 07:51:12
VSのヘルプをまるまるコピーしてある
もしForm2の下に並線が出るようだったら
ソリューションエクスプローラで新規のフォーム(Form2)を追加してくれ
814:779
04/12/01 08:07:24
>811
ありがとう。しかしこの例は何を説明したいのかサッパリ分からん。
実行したらFolderBrowserDialogが立ち上がって、OKしても
txtResultには何にも帰ってこない。
あれ、Form2ってインスタンスなんでしょ
クラスとしても認識するんですか? わけわからん。
815:779
04/12/01 08:13:01
あっごめんForm2は継承クラスでした。Vb6がぬけませんね。
816:779
04/12/01 08:32:35
へんなコードがまざっていて勘違いした。
例の意味はこういうことね。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x As New Form2
If x.ShowDialog() = DialogResult.OK Then
Debug.Write("OK")
Else
Debug.Write("CAN")
End If
End Sub
MSってなんで持って回ったような頓珍漢な例をかくんだろね。
817:779
04/12/01 08:37:56
林センセの場合もそうですが、、、
(日経BPソフトプレスの全サンプルもそうですからしかたありませんが)
先生方こういうサンプルが多いんですがだめですよ。
戻り値がある場合は必ず戻り値を見るようにしましょうね。
If CommonDialog1.filename <> "" Then
とくにこの判別のしかたはまずいですよ。誰かの本みて真似してるんでしょ。
■サンプル(悪)
Private Sub Command1_Click()
'***** ファイル名の取得 *****
With CommonDialog1
.filename = ""
.Filter = "Data(*.dat)|*.dat"
.ShowOpen
End With
'***** ファイルのオープンと表示 *****
If CommonDialog1.filename <> "" Then
Open CommonDialog1.filename For Input As #1
Do Until EOF(1)
Line Input #1, a$
Print a$
Loop
Else
MsgBox "キャンセルされました。", , "メッセージ"
End If
End Sub
818:779
04/12/01 08:38:17
■改良サンプル
try
cd = CommonDialog1
cd.filename = "":cd.Filter = "Data(*.dat)|*.dat"
if cd.ShowOpen = vbOk then
fname = CommonDialog1.filename
If fname <> "" Then
'***** ファイルのオープンと表示 *****
End If
end if
catch ex as Exception
msgbox ex.discription
end try
819:779
04/12/01 09:20:05
Public Sub ShowMyDialogBox()
Dim testDialog As New Form2()
....
testDialog.Dispose()
End Sub
このMSサンプルの testDialog.Dispose() は意味の無いコード
もし意図的に終了処理をする必要があるなら、内部でするべきだ。
(ShowDialog、モーダルだろ!)
こういう無造作に何でも追加したコードは最も悪い例だね。
820:779
04/12/01 09:28:43
>VB6の参考書を読んで.NETが解らないと言ってたのか
>冷蔵庫の取扱説明書を読んでも洗濯機は動かないわな
コンプレッサーをモーターに置き換えて読むんだよ。そんなに違いはない。
ボタンを押したら、ランプがついて、回って、時間が来たらとまる。
821:779
04/12/01 09:40:31
>マニュアル類は一切読んでないか、読んだつもりにいなってるんだろうな
>コントロールの上でF1押せばほとんどのHELPが載っているし
NETになって多少はよくなってるな。
>記述の癖も1日2日すれば慣れると思うんだが
>良くも悪くもHELPまでMicrosoftオブジェクト指向で書かれてるので
これは皮肉? どこがオブジェクト指向?
MSオブジェクト羅列っていうんだよ。
>掘っていけばほぼ答えは見つかる
それがみつからないから、藁おもつかむ。
822:デフォルトの名無しさん
04/12/01 09:46:40
構造体の中身のクリアってどうやるんだっけ???
823:デフォルトの名無しさん
04/12/01 10:05:26
Disposeの意味も知らずにまあ吠える事。
>>822
構造体という物にクリアという概念そのものが余りなじまないわけだが。
//Integerをクリアって何それ、って感じでしょ。
用意されているならEmpty静的読み込み専用フィールドを使うとか。
(引数を取らない)デフォルトコンストラクタがあるならnewし直すとか。
引数を0とNothingのみでnewし直すとか。
824:779
04/12/01 10:52:27
>823
外部でDisposeが必要なのはComponentのメモリーリリース。
FormはCompornetじゃない。リリースの必要はない。やってもgcに対しては意味がない。
ひょっとすると君の方じゃないのか吼えてるのは
Disposeの意味より、Compornentの意味だな重要なのは。
さて正しいのはどちらだろう。
825:デフォルトの名無しさん
04/12/01 11:03:49
>>823
なるほど!ちょっとやってみます。
826:デフォルトの名無しさん
04/12/01 11:06:33
>>824
これでも読んでみると良いよ。
URLリンク(www7.big.or.jp)
827:779
04/12/01 11:10:08
>822
クラスは構造体のバージョンアップ。
だから構造体は使わない方がいいですよ。全部クラスでやる。
構造体を使う意味はない。
だからクラスにしてClear()メソードを実装するのが正解。
かな?
828:デフォルトの名無しさん
04/12/01 11:23:02
>>827
ありがとうございます!
上手い具合にいきました!
829:デフォルトの名無しさん
04/12/01 11:26:46
>>779は初心者神か
相当偉い人のようだが
830:デフォルトの名無しさん
04/12/01 11:48:24
さすがに828には失笑を隠せなかった。
831:779
04/12/01 11:53:05
>829
>さすがに828には失笑を隠せなかった。
お前の方が失笑ものだ。構造体をまだ使ってるんだろ。
832:デフォルトの名無しさん
04/12/01 11:54:19
>>827
> 構造体を使う意味はない。
言い過ぎ。
833:779
04/12/01 12:02:06
>これでも読んでみると良いよ。
>URLリンク(www7.big.or.jp)
たしかにShowDialogの時はDisposeに飛んでこないね。フォームを閉じた時点で
内部のコンポーネントを使うことを意識しているのか?
xx.ShowDialogをやったからと言って、そのあとでxx.Dispose()をやってる
例はないな。ざっと10例近くのサンプルを見たがそういう例はない。
MSのあのサンプルだけだね。
大事なことがよく分からんなー。
1000万回ほどぐるぐる回ししてテストしてみるか。
834:デフォルトの名無しさん
04/12/01 12:02:23
構造体をつかわにゃ実現できない機能もあるだろうに
835:779
04/12/01 12:05:34
>言い過ぎ。
言いすぎではないとおもうよ。構造体は使わない方がいいと思う。
どうしても区別したいなら、名前のつけ方を変えたらいい。
836:779
04/12/01 12:06:13
>構造体をつかわにゃ実現できない機能もあるだろうに
ない
837:779
04/12/01 12:08:49
>相当偉い人のようだが
きみの観察眼は鋭いかも?ウホン。
838:デフォルトの名無しさん
04/12/01 12:08:56
是非クラスだけでP/Invokeを宣言する偉業に取り組んでいただきたい。
839:デフォルトの名無しさん
04/12/01 12:10:33
>>836
どうして言い切れる?
840:779
04/12/01 12:20:01
おい。P.Invokeで検索したら
■高度なトピック
Obfuscation for .NET -- Dotfuscator by PreEmptive Solutions
P/Invoke メソッド
P/Invoke メソッド (つまり、ネイティブ プラットフォーム メソッド) の名前は自動的に変更されません。
これのどこが高度なトピックなのか? 中身がないのが高度なのか。Pu
そりゃ中身が無けりゃ誰にもわからん。高度だよな。pU。
841:779
04/12/01 12:22:04
>どうして言い切れる?
できない例をだしてください。
たちどころに、、、、clsでかいて見ましょう。
高度すぎて中身が書いて無いとどうにもなりませんが。
842:779
04/12/01 12:31:31
Obfuscation for .NET
ドットネットのこころを暗くする要因
-- Dotfuscator by PreEmptive Solutions
先制攻撃的解決によるドットフスケーター(これは英語かよ?)
843:779
04/12/01 12:45:20
なんだDotfuscatorって隠蔽ツールか。マニュアルまで隠蔽ツールで
処理しないでね。
844:デフォルトの名無しさん
04/12/01 13:04:57
構造体はバイト配列などで代用できるな
845:832
04/12/01 13:06:23
クラスだけで実装ができるからって構造体が無意味とは
いえない。
初心者の内はそれでいいが、最適化の過程で構造体を
使いたくなってくる場面もある。
「なくてもできる=無意味」じゃないということだ。
846:779
04/12/01 13:30:17
何の最適化ですか? ソースの見栄え、飾りのこと?
それとも実行コードの? コードには違いは影響しないと思うよ。
違いを儲ける必然せいがない。
いらない機能は有害とおもう。
まあベテランが新しい技術についていけないから、とりあえず残してある
という理由はわかりますが。
少なくとも初心者にとっては有害ですね。
847:デフォルトの名無しさん
04/12/01 13:41:00
非管理のメッセージをやり取りするにはどうしても構造体が必要になるな
モノによってはクラスでも大丈夫だが、厳密に定義されて無いメッセージが戻る場合や
構造体そのもののサイズが重要な場合はクラスだとちと難しい罠
848:832
04/12/01 13:45:31
>>846
まー、いずれわかる。
要らないうちはあわてて知る必要もないから、せいぜい頑張れ。
将来なにかで行き詰まったら、まじめに検証してみるといい。
849:779
04/12/01 14:07:03
>非管理のメッセージをやり取りするにはどうしても構造体が必要になるな
>モノによってはクラスでも大丈夫だが、厳密に定義されて無いメッセージが戻る場合や
>構造体そのもののサイズが重要な場合はクラスだとちと難しい罠
それは配列でしょ。
構造体というのは配列を含んでいるの? 配列は重要だとおもうよ。
配列以外の構造体のことね。
それとも、構造体はメモリーアレンジが予測可能とかそういう性質が
あるの? うんそれなら意味あるね。クラスにはそんな機能は無いかも?
つければいいだけなんだけどね。
そういう違いがあるのか? ヒョットシテ。
850:デフォルトの名無しさん
04/12/01 14:23:32
( ゚Д゚)ポカーン
851:779
04/12/01 14:36:29
>将来なにかで行き詰まったら、まじめに検証してみるといい。
そうします。
要するに、要らん機能がOS周辺にあるから、それに合わすために
言語にも要らん機能がいるってことですね。
852:デフォルトの名無しさん
04/12/01 14:52:23
( ゚Д゚)ポカーン
853:デフォルトの名無しさん
04/12/01 22:03:43
マルチスレッドに対応していないDLL内のメソッドをマルチスレッド
プログラムから呼び出したいのですが、安全に呼び出すための
常套手段はどんな方法でしょうか。
イメージ的には呼び出し前に何らかのロックを取得して
呼びだし、実行後にロックを解除するみたいな
感じかなと・・・
854:デフォルトの名無しさん
04/12/01 22:31:45
Monitor
Enter
Exit
855:デフォルトの名無しさん
04/12/01 23:11:51
ハイパーリンクで飛ばす時に、Submitボタンのように
フォームの内容をURLに追記したいのですが、
どうすれば良いのでしょうか?
856:デフォルトの名無しさん
04/12/02 00:00:45
>855
もうちょい詳しくお願い
857:デフォルトの名無しさん
04/12/02 00:08:36
>>779
まぁ、記述が長いと思うならImports であってるんだっけ?
それで名前空間をインポートしてもいいと思うんだが?
そこまで判らないとは言わせない(;´Д`)
そこまでの記述を吹っ飛ばせるから長さは感じないはず
まぁ、コレをするとそのうち似たよな名前作ってしまうと、名前空間がこんがらがってくるのだが・・・
まぁ、普通に問題ないと思われ
858:777
04/12/02 09:29:24
HELPヽ(´Д`)ノ
全然わかんないよママン_| ̄|○
859:フナ太郎
04/12/02 10:23:08
>>858
もうリンク切れてるし。
860:777
04/12/02 11:26:36
Public Class Form1
Structure ViewPort
Dim Xgw As Integer
Dim Ygw As Integer
Dim Xgc As Integer
Dim Ygc As Integer
Dim Xvw As Double
Dim Yvw As Double
Dim Xvc As Double
Dim Yvc As Double
End Structure
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c As Color
Dim vp As ViewPort
c = Color.FromArgb(255, 255, 0, 0)
↓ここから
vp.Xgw = 000
vp.Ygw = 000
vp.Xgc = vp.Xgw / 2
vp.Ygc = vp.Ygw / 2
vp.Xvw = 000
vp.Yvw = 000
vp.Xvc = 000
vp.Yvc = 000
DrawPoint(000, 000, c)
DrawPointScs(000, 000, c, vp)
DrawPointWcs(000, 000, c, vp)
DrawLine(000, 000, 000, 000, c)
DrawLineScs(000, 000, 000, 000, c, vp)
DrawLineWcs(000, 000, 000, 000, c, vp)
↑ここまで の数値入力がわかりません。
End Sub
861:777
04/12/02 11:32:43
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PictureBox1.Refresh()
End Sub
Private Sub DrawPoint(ByVal x As Integer, ByVal y As Integer, ByVal c As Color)
Dim g As Graphics
Dim p As Pen
g = PictureBox1.CreateGraphics
p = New Pen(c)
g.DrawEllipse(p, x, y, 1, 1)
End Sub
862:777
04/12/02 11:35:48
Private Sub DrawLine(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal c As Color)
Dim x As Integer
Dim y As Integer
Dim a As Double
If x1 = x2 Then
x = x1
If y1 <= y2 Then
For y = y1 To y2 Step 1
DrawPoint(x, y, c)
Next
Else
For y = y2 To y1 Step 1
DrawPoint(x, y, c)
Next
End If
863:777
04/12/02 11:36:15
Else
a = CDbl(y2 - y1) / CDbl(x2 - x1)
If Math.Abs(a) <= 1 Then
If x1 < x2 Then
For x = x1 To x2 Step 1
y = CInt(a * CDbl(x - x1) + CDbl(y1))
DrawPoint(x, y, c)
Next
Else
For x = x2 To x1 Step 1
y = CInt(a * CDbl(x - x1) + CDbl(y1))
DrawPoint(x, y, c)
Next
End If
Else
If y1 < y2 Then
For y = y1 To y2 Step 1
x = CInt(1.0 / a * CDbl(y - y1) + CDbl(x1))
DrawPoint(x, y, c)
Next
Else
For y = y2 To y1 Step 1
x = CInt(1.0 / a * CDbl(y - y1) + CDbl(x1))
DrawPoint(x, y, c)
Next
End If
End If
End If
End Sub
864:777
04/12/02 11:36:40
Private Sub DrawPointScs(ByVal x As Integer, ByVal y As Integer, ByVal c As Color, ByVal vp As ViewPort)
Dim Xg As Integer
Dim Yg As Integer
Xg = x + vp.Xgc
Yg = -y + vp.Ygc
DrawPoint(Xg, Yg, c)
End Sub
Private Sub DrawPointWcs(ByVal x As Double, ByVal y As Double, ByVal c As Color, ByVal vp As ViewPort)
Dim Xv As Double
Dim Yv As Double
Dim Xs As Integer
Dim Ys As Integer
Xv = x - vp.Xvc
Yv = y - vp.Yvc
Xs = CInt(Xv * vp.Xgw / vp.Xvw)
Ys = CInt(Yv * vp.Ygw / vp.Yvw)
DrawPointScs(Xs, Ys, c, vp)
End Sub
865:777
04/12/02 11:37:01
Private Sub DrawLineScs(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal c As Color, ByVal vp As ViewPort)
Dim Xg1 As Integer
Dim Yg1 As Integer
Dim Xg2 As Integer
Dim Yg2 As Integer
Xg1 = x1 + vp.Xgc
Yg1 = -y1 + vp.Xgc
Xg2 = x2 + vp.Xgc
Yg2 = y2 + vp.Ygc
DrawLine(Xg1, Yg1, Xg2, Yg2, c)
End Sub
Private Sub DrawLineWcs(ByVal x1 As Double, ByVal y1 As Double, ByVal x2 As Double, ByVal y2 As Double, ByVal c As Color, ByVal vp As ViewPort)
Dim Xv1 As Double
Dim Yv1 As Double
Dim Xv2 As Double
Dim Yv2 As Double
Dim Xs1 As Double
Dim Ys1 As Double
Dim Xs2 As Double
Dim Ys2 As Double
Xv1 = x1 - vp.Xvc
Yv1 = y1 - vp.Yvc
Xv2 = x2 - vp.Xvc
Yv2 = y2 - vp.Xvc
Xs1 = CInt(Xv1 * vp.Xgw / vp.Xvw)
Ys1 = CInt(Yv1 * vp.Ygw / vp.Yvw)
Xs2 = CInt(Xv2 * vp.Xgw / vp.Xvw)
Ys2 = CInt(Yv2 * vp.Ygw / vp.Yvw)
DrawLineScs(Xs1, Ys1, Xs2, Ys2, c, vp)
End Sub
End Class
866:777
04/12/02 11:40:01
リンク切れてると言うか本体ごと無くなってますね_| ̄|○
ちょっと長いですがこちらに張らせて頂きました。すみません。
求めるモデルが
三角形の頂点 (200,200) (400,200) (300,400)
ViewPort 左下座標(150,150) 幅300 高さ300
となります。
867:デフォルトの名無しさん
04/12/02 12:56:04
>856
反応サンクスです。
>855 の続きです。
まるっきり初心者ですので宜しくお願いします。
Submitでページを移行させると、フォームの内容がURLの後ろの方に
「 hogehoge=**** 」
のように追記されて、次のページで内容を取得できますよね?
同じように、Hyper Linkでページを移行させて、次のページで元ページの
フォームの内容を取得する為には、どのような方法を使えば良いのでしょうか?
SubmitのようにURLの後ろに付いてくれるとありがたいのですが、
全く別の方法でも構わないので教えて頂けるとありがたいす。
868:デフォルトの名無しさん
04/12/02 15:24:41
DataGridにArrayListをバインドさせているのですが、
869:デフォルトの名無しさん
04/12/02 15:27:09
ぐはっミスッタ
途中でArrayListの編集を行った後
DataGridが更新されないのです。
フォーカスが移るとDataGridも反映されます。
DataGrid1.DataSource = objArray
DataGrid1.Refresh()
DataGrid1.Update()
じゃ駄目ですか・・