くだすれVB6.0以前（超初心者向け）

1 名前：d mailto:age [2008/03/30(日) 09:01:59 ] このスレッドはVBについて、 他のスレッドでは書き込めない超低レベル、 もしくは質問者自身何が何だか分からない質問を勇気を持って書き込むスレッドです。 VB使いが優しくコメントを返しますが、 お礼はVBの布教はしなくてよいので、初心者の救済をお願いします 前スレ くだすれVB6.0以前（超初心者向け） pc11.2ch.net/test/read.cgi/tech/1165574205/ 710 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:38:51 ] >>706 厳密にTopIndexが一つ変化するごとに確実にイベントが欲しい、 とかで無ければタイマ使ってポーリングしたら？ こんな感じのクラスを作って検証してみたが、悪くないように思うけど。 [ListBoxWatcher Class] Private WithEvents mListBox As ListBox Private WithEvents mTimer As Timer Private mTopIndex As Integer Public Event TopIndexChanged() Public Property Set ListBox(lb As ListBox) Set mListBox = lb Dim frm As Form Set frm = mListBox.Parent If mTimer Is Nothing Then Set mTimer = frm.Controls.Add("VB.Timer", "pollingTimer") mTimer.Interval = 200 End If If frm.ActiveControl Is mListBox Then StartPolling End If End Property 711 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:40:35 ] Private Sub StartPolling() 　　mTimer.Enabled = True 　　mTopIndex = mListBox.topIndex End Sub Private Sub mListBox_GotFocus() 　　StartPolling End Sub Private Sub mListBox_LostFocus() 　　mTimer.Enabled = False End Sub Private Sub mTimer_Timer() 　　Dim currentTop As Integer 　　currentTop = mListBox.topIndex 　　If currentTop <> mTopIndex Then 　　　　mTopIndex = currentTop 　　　　RaiseEvent TopIndexChanged 　　End If End Sub しかし、なんでそんなイベントでそんな値が必要なんだろう 712 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:44:28 ] VB6のサブクラス化って初めて見た 横から勉強になります 713 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:48:29 ] 「VB6 のサブクラス化」は、違う意味を指すもんだけどな。 714 名前：デフォルトの名無しさん mailto:sage [2009/03/07(土) 23:55:46 ] 「ホイールで動かしたけりゃこのドライバ入れるかあのソフト入れろ」と言える俺は趣味グラマ 715 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 00:03:30 ] 趣味グラマ以前にバカすぎ 動かしたいって話ではなく 動かすのは出来てる上で そのイベントを取りたいって話なのに 716 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 15:06:15 ] FlexGridライクなグリッドツールで 使いやすくてフリーか安価な物ってありますか？ 717 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 16:16:19 ] ttp://www.grapecity.com/japan/support/database/p1_223.htm 718 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 16:17:29 ] Windows7でもランタイム入ってるのか あと5年はイけそうだぬ 719 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 16:25:32 ] >>718 ところが動かないソフト続出ｗ 720 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 18:44:50 ] >>716 俺はMSHFlexGridを自作のクラスと組み合わせて使いやすくしてる プログラマなら他人が作ったものを使うことばかり考えてないで 少しは自力で便利にしようって気になろうよ 721 名前：デフォルトの名無しさん mailto:sage [2009/03/08(日) 19:10:59 ] DataGridView 722 名前：デフォルトの名無しさん mailto:sage [2009/03/09(月) 00:37:17 ] DataGridViewって.NETのコントロールじゃないの？ VB6でも使えるのか？ 723 名前：716 mailto:sage [2009/03/09(月) 00:46:37 ] 自分で実装しても良いんですけど 自作にかかる費用と購入する費用を考えたときに 購入する方が安上がりかと思いまして 後、うちの会社レベルが低すぎてクラスの概念理解できる人がいないんです… やっぱグレープシティ買って貰うのが一番手っ取り早いですかね 1週間分の人件費で買えますし… 724 名前：デフォルトの名無しさん [2009/03/10(火) 22:18:45 ] 何でもかんでも自分で作ろうとする奴は馬鹿なのか？ 費用対効果とか生産性で一番効率品質ともに良いほうを選ぶだけのこと。 車輪の再発明なんぞ自宅でやれ。仕事でやるな。 再発明した低レベルの車輪を見せびらかすな。 725 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 22:25:08 ] たいていは、上の人が買ってくれないから、って理由じゃない？＞自前で作る 726 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 22:33:08 ] FlexGridProの品質の悪さは異常 727 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 23:25:40 ] > 車輪の再発明なんぞ自宅でやれ。仕事でやるな。 そもそも最初の質問で仕事で使うとは一言も書いてない件について 個人で使うことを想定した回答を、後出しの仕事で使うという情報を理由に叩く奴は馬鹿なのか？ 728 名前：デフォルトの名無しさん mailto:sage [2009/03/10(火) 23:40:34 ] >>724の回答もどうかと思うが、 君のそれも話が噛み合ってないんじゃないの？ >>725の言うように724は勤め人にありがちな境遇がわかってない、 ってのなら同意するんだが。。 まあ、くだらんことで熱くなってもしょうがないだろ。 729 名前：デフォルトの名無しさん mailto:sage [2009/03/11(水) 23:33:39 ] でも車輪の再発明って楽しいよな。 730 名前：デフォルトの名無しさん mailto:sage [2009/03/12(木) 00:15:49 ] 再発明ではなく 新発明に出来る可能性を秘めてるからな 再発明にすら届かない可能性も孕んではいるが 731 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:12:26 ] 再発明ってやつは、意識して取り組めば、何らか得るものがあるが、 いかんせん時間効率がよくない。と思う 車輪の再発明は学生のうちにしとけ。とはよくいったもの 世の中そううまくいかん(実りある再発明行為が、学生のうちにできるわきゃない)わけだが 732 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:21:25 ] 時間効率が重視される仕事に置いてまで 再開発でも自作しろなんて言ってる奴は皆無である件について 733 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:28:14 ] コスト計算できない上司が部品買ってくれないってのは、自作しろって事じゃないの？ 734 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:43:24 ] それは上司の主張であって、このスレの住人の主張ではないだろ 735 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 00:45:13 ] なんで上司の主張は除外されるわけ？ 736 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 02:50:12 ] ここが会社ではなく2chのスレだから 737 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 03:19:15 ] 2chのスレだったら会社の話をしちゃいかんのか？ 738 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 05:24:15 ] 別にいいんじゃないの？ ただ会社の場合は「会社では」って付けてね 何も付けないと、名前空間上「このスレでは」って意味になるから 739 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 15:41:56 ] 上司の話をするのに、いちいち会社の上司はと付けなければいけないのか？ いつからそんなルールになったんだ？ 740 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 15:48:00 ] いや、そもそも「このスレの住人の（合意された）主張」なんてものが存在しません。 741 名前：デフォルトの名無しさん mailto:sage [2009/03/13(金) 17:43:28 ] ★印の ”A7” とこを Cells(ｙ, x) とすると 「Rangeメソッドは失敗しました」 と文句言われますが、どうすればいいのでしょう！？ Range("A7:R120").Select Application.CutCopyMode = False Selection.Sort _ Key1:=Range("A7"), _　　　★ Order1:=xlDescending, _ Header:=xlGuess, _ OrderCustom:=1, _ MatchCase:=False, _ Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin 742 名前：デフォルトの名無しさん mailto:sage [2009/03/21(土) 18:37:57 ] おしえてくだせえ。 frmMain 実行中に、フォームの右端をドラッグして大きさかえると、Resizeイベントが発生するまではいいんだが、 その後 frmMain.ScaleWidth や、frmMain.Width などを取得してみると大きさ変更前の値しか出てこないんだよ。 なにか足りない部分があるのでしょうか？ 743 名前：742 mailto:sage [2009/03/21(土) 18:45:53 ] すんません。事故解決です。 VBのウイザードからある程度メニューやツールボックスが揃ったプロジェクトではじめていたので、 Set fMainForm = New frmMain と標準モジュールからフォームオブジェクトが開かれてました。 初心者に意地悪なつくりでした。 744 名前：デフォルトの名無しさん [2009/03/29(日) 21:05:14 ] VB6のMouseMoveイベントでXの値は正常に取得できるのですが、 Yの値が0となってしまいます。どうしてでしょうか？ 745 名前：デフォルトの名無しさん mailto:sage [2009/03/29(日) 22:02:14 ] それが 再現 できる 最小の コードを 出してくれ 746 名前：デフォルトの名無しさん [2009/03/29(日) 22:15:43 ] >>745 Private Sub txtLesson_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single) With txtLesson(Index) If .Left <= X And X <= .Left + .Width And .Top <= Y And Y <= .Top + .Height Then 　.Left = .Left + 2: .Top = .Top + 2 SetCapture txtLesson(Index).hwnd Else .Left = .Left - 2: .Top = .Top - 2 ReleaseCapture End If End With End Sub いろいろ省きましたが、デバッグ中にIf文のところでYにポイントするとY=0と表示されます。 Xは通常どおり取得できます。 もうこれはコードの問題じゃないのではないかと思うのですが、どうでしょう？ 747 名前：デフォルトの名無しさん mailto:sage [2009/03/29(日) 22:37:02 ] テキストボックスに対して上からカーソル移動させてる。なんてオチはないよな？ 上下左右どこから移動してもY=0なんだよな？ 748 名前：デフォルトの名無しさん mailto:sage [2009/03/29(日) 22:38:18 ] そういうときは、コードを Debug.Print y だけにして試すのが常道。 749 名前：デフォルトの名無しさん mailto:sage [2009/03/29(日) 23:47:10 ] >>746 それは「再現できる最小のコード」じゃないぞ 750 名前：デフォルトの名無しさん [2009/03/30(月) 05:21:48 ] >>747 うわーすみませんでした。そんなオチでした。 >>748 そうですよね。次回からそうしてます。有難うございました。 >>749 一応全体で何をやろうとしてるかも、伝わったほうがいいかなと思ったのですが、最小ではないですよね。 皆さん有難うございました。どうも僕はX, Yの値がテキストボックス上の値でなく、 それを含むウィンドウ上の値であると勘違いしていた模様です。 おかげで解決できました。どうもありがとうございました。 751 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 18:46:38 ] Err.RaiseとかRaiseEventとか俺使ったことないけど、何であんな奇妙なプログラム するんだ。あんなん何の意味があるんだ。 752 名前：デフォルトの名無しさん mailto:sage [2009/04/02(木) 20:24:17 ] しなけりゃしないでいいんだよ QBなどからの代々の互換性というか、いきあたりばったりというか、その場しのぎの言語仕様なんだから 753 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 00:53:26 ] 内部処理のエラーを外部仕様の言葉に変えて使用者に返したいんじゃないか 754 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 02:07:33 ] VB6使うならRaiseEventは無いと死ぬ 755 名前：デフォルトの名無しさん mailto:sage [2009/04/03(金) 17:18:15 ] >>751 イベントドリブンなコード書いたこと無いの？ 756 名前：デフォルトの名無しさん mailto:sage [2009/04/04(土) 01:40:09 ] >>751 ベントウドンブリなコード書いたこと無いの？ 757 名前：デフォルトの名無しさん [2009/04/06(月) 11:33:02 ] VB6で作成したアプリからVB2005で作成したexeを呼び出したいと思っています。 しかし、やろうとすると以下のエラーが出ました。 　実行時エラー'5' プロシージャの呼び出し、または引数が不正です。 呼び出す部分のコードは以下の通りです。 VB2005で作成したexeを、仮に"VB2005App.exe"とし、そのexeはVB6.0で作成したアプリのexeと同じ階層に居るものとします。 Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwProcessId As Long) As Long Dim IDProcess As Long Dim hProcess As Long Private Const PROCESS_QUERY_INFORMATION = &H400& IDProcess = Shell("VB2005App.exe", vbNormalFocus) hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 1, IDProcess) AppActivate IDProcess 色々と調べたつもりですが、Shell関数の第1引数のパスはちゃんと合っていました。 ちなみに、VB6で作ったexeをshell関数で呼び出す場合は、何の問題もなく上記の方法で呼び出せました。 しかしなぜVB2005で作ったexeだとだめなのか、見当が付かない状況です。 どうかご回答を頂けたらと思います。 758 名前：デフォルトの名無しさん mailto:sage [2009/04/06(月) 13:51:04 ] .NETフレームワークが無いって落ちじゃないよね･･･ 759 名前：デフォルトの名無しさん mailto:sage [2009/04/06(月) 14:41:10 ] AppActivate IDProcess でエラーっぽいな。 WaitForInputIdｌeがオンになるタイミングとActive可能なフォームが表示されるタイミングが 違ってる場合はAppActivateはエラーになる。 .NETのアプリはその例。 shellやAppActivateは使わずに全部Win32APIで書けば対応できるはず。 760 名前：デフォルトの名無しさん [2009/04/06(月) 15:37:30 ] VB6なんですが、サンプルコードを見ていて調べても分からなかった のですが、関数の後ろに%が付いているのは何の意味でしょうか？ 例えば下記のような感じ Call DatInit% DatInit()という自作関数を呼び出すときにこんな風に書く場合です。 761 名前：デフォルトの名無しさん mailto:sage [2009/04/06(月) 15:59:13 ] >>760 調べ方が足りない。型宣言文字 762 名前：デフォルトの名無しさん [2009/04/06(月) 16:32:05 ] >>761 �dクス。型宣言文字自体は知ってましたがまさか関数にくっつくとは・・・ 戻り値が整数って事？ C++みたいなキャスト目的って事でいいでつか？ (まかり間違って長整数が返ってきてｵﾊﾞﾌﾛするのが嫌だから確実に整数にしとく、 みたいな) 763 名前：デフォルトの名無しさん mailto:sage [2009/04/06(月) 16:38:42 ] お前の口調にはイライラする 764 名前：762 [2009/04/06(月) 16:55:49 ] 自己解決しました。 765 名前：デフォルトの名無しさん mailto:sage [2009/04/06(月) 17:31:21 ] 春・・・だねぇ・・・ 766 名前：デフォルトの名無しさん mailto:sage [2009/04/07(火) 00:45:56 ] VB6でH8マイコンにデータを送信するプログラムを作る課題があるのですが 送信しようとすると時々VB自体がフリーズして強制終了するハメになります プロセス見るとVB6.EXEがあり終了することが出来ません フリーズする原因がわかりません。よろしくお願いします 767 名前：デフォルトの名無しさん mailto:sage [2009/04/07(火) 00:46:48 ] プログラムが悪い、としか・・・ 768 名前：デフォルトの名無しさん [2009/04/07(火) 09:09:02 ] おいおい>>764は誰だ？ 自己解決なんかしてないぞ。 くだスレなのに意地悪だねぇ 769 名前：757 [2009/04/07(火) 10:00:54 ] CreateProcess関数(API)を使ってexeを起動するようにしたら解決しました。 ありがとうございました。 770 名前：デフォルトの名無しさん mailto:sage [2009/04/08(水) 15:14:51 ] スレの皆さんはじめまして。 VBでGSDを使用しようと思い試行錯誤中なのですが、いまいちテクスチャー作成 の部分でつまづきます。 VBで型などのポインタ受け渡しに悪戦苦闘しています。 まず、サンプルにあるテクスチャ作成・設定を行おうとCの本片手に変換しているのですが 動いてくれません。 どうかご教授お願いいたしたく思います。 GSD ttp://mosax.sakura.ne.jp/fswiki.cgi?page=GSD サンプル ttp://coderepos.org/share/wiki/GSD 771 名前：デフォルトの名無しさん mailto:sage [2009/04/08(水) 15:53:54 ] 入れてもないし触ってもないけど なんとなくサンプル見たらDeclareしてVarPtrで普通にいけそうなんだけど 772 名前：デフォルトの名無しさん [2009/04/09(木) 11:11:15 ] 質問です。 VB6.0とVSSをインストールしてあるのですが VB6.0上でVSSを使用しファイル管理をするには まず何をしたらいいのでしょうか・・・？ 773 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 12:08:25 ] まず基礎を自力で勉強したらいいと思うよ 勉強する気がないならプログラミングなんてやめちまえ 774 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 12:45:21 ] >772 プロジェクトをVSSに追加するとこから あとはVBの中からチェックアウト/インできる 775 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 12:51:24 ] VSSのヘルプを見てみてはどうか 776 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 19:24:54 ] gotfocusって、setfocusしないと呼び出せないの？ それともフォーカスされると自動的にgotfocusが呼び出されるの？ 777 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 19:54:37 ] Tab移動でも良いしマウスクリックでも良いし 対象のコントロールにフォーカスが移動した時に呼ばれるよ 実際に試してみると良いよ 呼び出されなくて悩んでるなら何のコントロールにどういうコードを書いてるのか 教えてもらわないと何も言えない 778 名前：デフォルトの名無しさん mailto:sage [2009/04/09(木) 21:20:57 ] >>777 ありがとう〜 フォーカスの仕方によって、フォーカス対象のラベルが二通りに変動する処理を作ろうかと思ってて質問しますた ある時はラベルにＡと表示して、またある時はラベルにＢを表示する　みたいに 779 名前：770 mailto:sage [2009/04/10(金) 04:13:24 ] >>771 レスありがとうございます。色々四苦八苦していました。 GSD_GetTexture(0, &info); ↓ Call GSD_GetTexture(0, ByVal VarPtr(Ginfo)) この様な感じでVarPtrでポインタをを指定しているのですが戻りが返ってきません。 他のバージョン取得等は戻り値が帰ってくるのでdll自体は使えてると思うのですが･･･ 色々調べてみようと思います。 780 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 09:18:12 ] GSD_TextureInfo がどういう宣言のし方してるんだろうな・・・ Ginfoのバイト数とかはC++のそれと同じにしてるんだろうか　とか・・・ 詳しい動作の話になるとやってみないと突っ込めないけど 781 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 11:28:45 ] >>780 マニュアルでは struct GSD_TextureInfo { BOOL active; DWORD texSize; int x, y; DWORD color; DWORD align; BYTE *data; }; とありましたので Private Type GSD_Info GSD_Active As Boolean GSD_TexSize As Long GSD_X As Integer GSD_Y As Integer GSD_Color As Long GSD_Align As Long GSD_BYTE() As Byte End Type と置き換えました。 最後のByteは「テクスチャを格納したバッファへのポインタ」と書いてました。 782 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 21:28:58 ] BOOLとintはVBのLongに対応する。 あとBYTE*もLongにして、コード中で別の配列変数からVarPtrで取得した値を代入するしかないと思う。 ところで元と名前を変えるのキモい。 783 名前：デフォルトの名無しさん mailto:sage [2009/04/10(金) 22:57:02 ] >>782 ありがとうございます。早速やってみようと思います。 >ところで元と名前を変えるのキモい。 すみません･･･以後気をつけます 784 名前：770 mailto:sage [2009/04/11(土) 04:40:18 ] >>782 Private Type GSD_Info active As Boolean texSize As Long x As Long y As Long color As Long align As Long data As Long End Type --- Dim Ginfo As GSD_Info Dim GByte(256) As Byte Ginfo.data = VarPtr(GByte(0)) Call GSD_DataLock Call GSD_GetTexture(0, ByVal VarPtr(Ginfo)) とし、Ginfo.texSizeを取得しても戻って来るはずのテクスチャサイズが 戻ってきませんでした。 置き換えって難しいですね･･･更に試行錯誤してみます。 785 名前：デフォルトの名無しさん mailto:sage [2009/04/11(土) 08:10:46 ] ところで GetTexture の宣言文どうなってるの？ 786 名前：770 mailto:sage [2009/04/11(土) 12:03:47 ] >>785 BOOL GSD_GetTexture(int index, struct GSD_TextureInfo *info); とマニュアルに記載いたしておりましたので Private Declare Function GSD_GetTexture Lib "gsd.dll" 　(GSD_Index As Long, GSD_TextureInfo As Long) As Long といたしました。 787 名前：デフォルトの名無しさん mailto:sage [2009/04/11(土) 13:58:30 ] >>786 ByVal 指定がないじゃん。 788 名前：デフォルトの名無しさん mailto:sage [2009/04/11(土) 20:26:58 ] だね。こんな感じでどうだ。 Private Declare Function GSD_GetTexture Lib "gsd.dll" (ByVal index As Long, ByRef info As GSD_Info) As Long 789 名前：デフォルトの名無しさん mailto:sage [2009/04/11(土) 23:02:10 ] 予想通りの展開の予感 790 名前：デフォルトの名無しさん mailto:sage [2009/04/12(日) 00:03:06 ] >>752 ちょいまち Err.RaiseもRaiseEventもQBにはないよ、と揚げ足をとる。 791 名前：デフォルトの名無しさん mailto:sage [2009/04/12(日) 00:09:32 ] お前は視野が狭く小さい人間だ QBだけの話じゃない事すら見えていない 人間のクズだ ゴミだ 何故おまえはここにいる お前の目は飾り物か ガラスの玉でも入れておけ お前の頭は帽子のスタンドか 帽子すら置けない役立たずか 792 名前：デフォルトの名無しさん mailto:sage [2009/04/12(日) 08:07:13 ] どこを縦に読むんだ？ 793 名前：デフォルトの名無しさん [2009/04/13(月) 23:18:04 ] >>790 そもそもどちらもRaiseではあるけど、 まったく別の用途だから並んでることにすごい違和感を覚える。 クラス間連携でRaiseEventを使わざるを得ないこともあるし、 On Error Resume Next で拾わざるを得ない処理は Err.Raise 必須だし、 どちらも一般的に使いそうなもんだけどなぁ。 794 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 09:45:23 ] >>793 俺もそう思う 795 名前：デフォルトの名無しさん mailto:sage [2009/04/14(火) 18:21:00 ] officeXPのaccessのmdbをVB6でＧｅｔＯｂｊｅｃｔしています。 それからDoObj.RunSQLでＳＱＬ設定しています。 ところが、accessをoffice2007に変更すると、 GetObjectのところでunknown errorになってしまいます。 何かDLLか足りないみたいですが、ググっても 見つかりませんでした。どなたかヒントあったら下さい。 お願いします。 796 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 02:28:57 ] 救世主スレ見つけたｗ VBで作ったスケジュール管理システムを、ネットを使って外からスケジュールをアップデートできるようにしたいんですけど VBをHTMLでネット経由で動かす方法がまったくわかりません(´・ω・`) 学校の一学期使ったプロジェクトレベルのシステムなので、そんなに複雑じゃないので十分です。 自分はＨＴＭＬ担当で、VBを稼動ブラウザか何かで稼動させなくちゃならないのですが、 知識が無さ過ぎて何をググって良いのかも分からないっす（＞＜） 何か良いページでもあったら、教えてくださいｍ（＿　＿）ｍ 797 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 02:53:15 ] VBでhttpdを作りたいって事？CGIとしてVBプログラムを動かしたいって事？クライアントがVBって事？ 798 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 03:04:48 ] >>797 >CGIとしてVBプログラムを動かしたいって事？ おそらくこれです！ MSISSとOracleとVBとAccessでスケジュール管理システムを構築するのですが、 利用者が自宅からスケジュールをチェックしたり更新したりする必要があるので そのインターフェースをHTMLで。との事です。 799 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 03:09:25 ] では　VB CGI IIS でぐぐればいいんじゃないか？ 800 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 03:12:14 ] >>799 どうもありがとうございます！ 逝ってきますﾉｼ 801 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 03:32:05 ] >>787 >>788 助言ありがとうございました。 あれから色々試してみたのですが、どうもダメでした･･･ せっかく教えて下さったのに申し訳ありません。 802 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 10:34:13 ] VBでCGIは作れないよ IIS使えるならASPで 803 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 10:46:32 ] Win32APIで標準入出力できるからCGIは普通に可能 でもhttpdはCGIを呼ぶ側だろ httpdもWinsockなどを使えば当然作れる 804 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 11:01:55 ] API実装してまでやるんだったら Cで書いた方が早くね？ 805 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 12:25:46 ] VBでやりたいって言うんだからしょうがないだろ 806 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 16:51:07 ] FSOでできるだろ 807 名前：デフォルトの名無しさん mailto:sage [2009/04/15(水) 23:26:48 ] 普通に考えたら、コンポーネント化して、ASP/ASP.NET から呼ぶだろ 808 名前：796 mailto:sage [2009/04/16(木) 01:26:57 ] えっと・・・。何がなにやら・・・。 自分達はプログラマーじゃなくて、システム管理のクラスをとってるだけなんです(´・ω・`) VBとSQLの基礎をちょっとやった事があるくらいのレベルなのに、 自分達でシステムをくみ上げなければいけないと言うクレイジーな状況でして・・・。 自分もHTMLのHPくらいは作った事あるけど、データを扱うとか皆目検討が付かないorz 一応ソースの一部を提供されてるんですけど、何がなにやら。 ソースの一部です。 <body lang=EN-US style="tab-interval: .5in"> <form ACTION = "/cgi-bin/Demo1" METHOD =GET> <p>Type a word in each box, then press the Submit button <p> <p><INPUT TYPE="text" NAME="Field1" VALUE></p> <p><INPUT TYPE="text" NAME="Field2" VALUE></p> <p><INPUT TYPE="submit" VALUE="Submit Message"></p> <p> <p> The button will call the VB program Demo1.exe </form> </body> 809 名前：デフォルトの名無しさん mailto:sage [2009/04/16(木) 01:34:23 ] こりゃあ一般人が二階建て住居を建てるようなもんだな がんばれよ 810 名前：デフォルトの名無しさん mailto:sage [2009/04/16(木) 01:38:03 ] ちょｗｗまｗｗｗｗ 何か参考になるサイトの紹介でもいいんで、助けてプリーズ・・・orz

---

---

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

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