VBプログラマ質問スレ（Ver.6.0 まで） part57

1 名前：デフォルトの名無しさん mailto:sage [2011/04/30(土) 01:50:27.76 ] ここは Visual Basic 〜6.0 の質問スレです。 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。 ○ 質問者の心得 　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。 　二．VBScript、インストーラーなどはこのスレでＯＫ。 　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。 　四．荒らしは相手しない。 ○ 回答者の心得 　一．答えられない質問は無駄に罵倒せずスルー。無理するな。 　二．代用法を強制しない。 　三．回答する上で必須ではない情報をむやみに聞き返さない。 　四．荒らしは相手しない。 　五．VB情報募集中。 　六．回答は質問者が理解できるよう具体的に。 MSDN Online Japan ホーム 　www.microsoft.com/japan/msdn/default.asp Visual Studio 6.0 Service Pack 6 　msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx Google 　www.google.co.jp/ ※「まず自分で調べる」クセを身につけよう。 708 名前：デフォルトの名無しさん mailto:sage [2011/11/07(月) 17:06:39.62 ] >>699 リッチテキストでのプログラムが出来たなら type,get辺りでググれば出来ると思うよ。 709 名前：デフォルトの名無しさん mailto:sage [2011/11/07(月) 21:47:48.66 ] >>708 ありがとうございました。 簡易的なものは組めましたので 何とかなりそうです。 710 名前：デフォルトの名無しさん mailto:sage [2011/11/08(火) 00:59:20.93 ] でも今からVB6てのはお勧めしないよいや割と本当に 現状でも保障なんて無いしな。 Officeなら2010でもまだVBA生き残ってるから大丈夫だろうけど 711 名前：デフォルトの名無しさん mailto:sage [2011/11/08(火) 06:14:48.16 ] >>708 どうにか作ることが出来ました。 本当にありがとうございました。 712 名前：デフォルトの名無しさん [2011/11/09(水) 16:48:23.22 ] 710はキモい文章をお書きになりますね 713 名前：デフォルトの名無しさん mailto:sage [2011/11/09(水) 20:46:04.15 ] 仕事で困ってる人間へのアドバイスが "お勧めしない"ってのは無理な話だよな。 714 名前：デフォルトの名無しさん mailto:sage [2011/11/09(水) 21:17:38.00 ] UNICODEがまともに使えないって時点で終わってるし 仕事でプログラムやってるならVB6だけで食えるという人なんてもういないだろうからどうでもいい話だわな 今の時期に入門としてVB6を指定したのなら鬼畜かそいつを辞めさせたいかどちらかだろう 715 名前：デフォルトの名無しさん mailto:sage [2011/11/10(木) 00:49:38.96 ] FA制御系だとVB6の方が都合良かったりする。 716 名前：デフォルトの名無しさん mailto:sage [2011/11/10(木) 16:18:48.15 ] FA制御って何でやるの？ 717 名前：デフォルトの名無しさん mailto:sage [2011/11/10(木) 20:55:27.36 ] >>715 ガベコレの都合だよな？ 718 名前：デフォルトの名無しさん mailto:sage [2011/11/12(土) 10:42:29.04 ] >>716 IOやGPIBボードで。こういうことを聞いてる？ ttp://www.interface.co.jp/io/index.asp メカ自体はPLC（シーケンサー）での制御だけど大量のデータ演算なんかはPCを使う。 最新環境はマイクロソフトやプログラマーの都合だけであって、エンドユーザーからすれば 新規装置でも過去装置との互換を保つ方が何かと都合がいい。 >>699はそういう環境なんじゃないかと思う。 俺なんかもWin95〜XPまではVB6も使ってるけどね。需要は多いよ。 719 名前：デフォルトの名無しさん [2011/11/21(月) 02:40:22.80 ] >>714 VBでUNICODEがまともに扱えないとは 例えばどんな状況でしょう？ VBはUNICODEが基本でしゅが 720 名前：デフォルトの名無しさん mailto:sage [2011/11/21(月) 15:04:08.78 ] VB6のコントロールでUNICODEにまともに対応しているやつってあるのかな 721 名前：デフォルトの名無しさん mailto:sage [2011/11/21(月) 20:36:04.41 ] UIが対応してないんだよね 722 名前：デフォルトの名無しさん mailto:sage [2011/12/05(月) 21:50:41.81 ] 古いソフトをVB6で更新する仕事を受けたんだが、 テキストファイルをバイトサイズで分割して〜 というような仕組みだったので UNICODEにしてしまうVB6ではちょっとめんどくさい事になった。 723 名前：デフォルトの名無しさん mailto:sage [2011/12/05(月) 22:01:41.15 ] そういう仕事を請け負う会社が無くならない限り ＶＢ６は不滅です 724 名前：デフォルトの名無しさん mailto:sage [2011/12/05(月) 22:50:02.47 ] byte区切りならテキスト形式で開かなければいいし 改行で分割するならバイナリで開けばいいし 2バイト文字区切りならバイナリで区切って文字コードで判断すればいいし VB6のせいなのかねぇ 725 名前：デフォルトの名無しさん mailto:sage [2011/12/06(火) 09:23:02.67 ] 2バイト文字の途中で区切ってもいいのか? だとすると、もはやテキストではないので バイナリファイルとして考えれ 726 名前：デフォルトの名無しさん mailto:sage [2011/12/06(火) 10:56:10.77 ] 単に、固定長テキスト形式ってヤツだと思うが・・ 727 名前：デフォルトの名無しさん mailto:sage [2011/12/06(火) 20:05:54.86 ] それが単に固定長でもないのよ。 AパートとBパートがあるとして、 確かにAパートもBパートも固定長だが、Bパートは1〜複数存在する。 改行は無い。 AパートもBパートもそれぞれさらに細かく分割される。 バイナリで読む方法はもちろん試したが、文字化けが生じてしまった。 最終的には、ADODB.streamの文字コード変換を使って解決した。 728 名前：デフォルトの名無しさん [2011/12/07(水) 12:55:30.21 ] Ethernet-シリアルコンバーターを接続した装置への通信プログラムを作成しようとしています。 シリアル通信プログラムは ttp://www.picfun.com/serial00.html 等のサイトで基本的なコードは書けたのですが、Ethernetを経ているのでどのように装置にアクセスしたら良いのかわかりません。 ルータ（192.168.1.1） 　┣制御PC（（192.168.1.2） 　┗Ethernet-シリアルコンバンーター（（192.168.1.3）━（RS-232C）装置 環境：Visual Basic 2008 Express Edition よろしくお願いします。 729 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 13:06:59.23 ] >>728 dobon.net/vb/dotnet/internet/tcpclientserver.html この辺をみて 730 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 13:12:21.82 ] >>728 仮想COMポートはないの？ 731 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 13:17:54.26 ] Visual Basic 2008 ってありなのか？このスレ。 732 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 13:27:40.57 ] 無しですよ？ 733 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 13:28:53.15 ] Ethernet-シリアルコンバンーターというのが どこのメーカーのなんと言う製品なのかによるな 734 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 23:10:11.38 ] VB6のIDEでタブを入力するとスペースに変換されてしまうんだけど これはどこで設定したら良い？ 735 名前：デフォルトの名無しさん [2011/12/07(水) 23:27:05.55 ] 728です。 Ethernet-シリアルコンバンーターは、CONTECのRP-COM(FIT)H-AFです。 www3.contec.co.jp/B2B/ConIWCatProductPage_B2B.process?Merchant_Id=1&Section_Id=54&Catalog_Id=54&Product_Id=1528 当機は、仮想ポートには対応しております。 736 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 23:49:48.95 ] じゃあ解決だね 737 名前：デフォルトの名無しさん mailto:sage [2011/12/07(水) 23:51:42.93 ] >>735 マニュアルとドライバぐらいダウンロードしないよ。 制御PCに仮想COMドライバをインストールすればよい。 後は普通のCOMポートと同じように使用できる。 もしくは、もう一台シリアルコンバーターを買ってきて、 制御PCのCOMポートに接続してあげればよい。 もし制御PCからUDPを使って装置を制御する事を期待しているなら、 装置のファームウェアを変更して、RP-COM(FIT)H-AFの専用コマンドに 対応するように作りかえる必要がある。 ただし、この手のハードウェアは制御線の動作に癖があるので、 CS/RSやCTS/RTSを変わった使い方してるとまともに動かない事もある。 738 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 00:00:45.20 ] >>734 ない。 739 名前：デフォルトの名無しさん [2011/12/08(木) 01:36:46.69 ] 728です。 大変参考になりました。 ありがとうございました。 740 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 09:43:50.99 ] VBの総合スレみたいのはないのかな。 コードは出来てる(と思う)んだけど、今VBが使えない環境なもんで、 誰か代わりに実行してULし直して貰えたりしませんか？ www1.axfc.net/uploader/Sc/so/298858.zip 同梱ファイルのバイナリを書き換えるだけの物なんだけど、手動じゃちょっと膨大で。 741 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 10:50:53.13 ] その程度の内容ならVBじゃなくてもベクターなどから適当なBasicなり他の言語でもひろって作ればええやん 742 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 12:00:51.92 ] >>727 >文字化けが生じてしまった あたりまえだ。 固定バイトで区切るんだから、2バイト文字の間で区切ったら 文字と対応しないバイト列になるんだから 表示できない。 文字コード変換してとか解決したように見えただけだろ。 もし表示できてるなら、指定バイトで区切られてないはず。 表示したものをもう一度書き出すプログラムなんて世に送り出さないでくれ。 743 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 12:23:58.60 ] >最終的には、ADODB.streamの文字コード変換を使って解決した。 ２バイト文字を切ったとかじゃなくて、そもそも違う文字コードのを データを表示しようとして化けただけじゃないか シフトJIS固定長で文字が境界またぐなら、格納時に考慮しとくべき問題だが 744 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 12:38:34.22 ] >>741 すみません、スマホしかないもので。 ダメもとで、とりあえずあちこち見ながら書いてはみたものの。 でもそれ程基礎的な物ならスマホ上でも動くアプリあるかもしれないですね。 もう少し勉強し直してみます、ありがとうございました。 745 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 13:04:46.33 ] スマホで動くものをVBで作れと？ 746 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 13:06:52.79 ] Androidのアプリなら作れるけど 747 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 14:17:19.97 ] VB6でやろうとするのはどんな苦行だろう 748 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 20:07:09.17 ] Windows Mobileと呼ばれる前のPocket PC 2003で動くeVB3用アプリなら作れるけど 749 名前：デフォルトの名無しさん mailto:sage [2011/12/08(木) 21:21:16.25 ] 俺はeVC3なら作れる 750 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 01:46:41.86 ] いわゆる趣味でプログラミングとかしてんだけど ちょっとした作業ツールとか作るの慣れたVB6が楽すぎて未だにVB6から離れられない 751 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 03:19:45.10 ] すごく初歩的な質問なんだけど、インスタンスの生成方法がさっぱり分からんorz Dim btn As CommandButton ' コンパイル通るし、実行してもエラー起きない Dim btnA As New CommandButton ' New キーワードの使い方がだめ　とエラーが出る Set btn = New CommandButton ' 同上 Dim a As New Class1 'Class1は何も書いてない適当なクラスモジュール。　問題ない。 おそらく、CommandButtonは抽象クラスだから生成出来ないのかな？と考えてはいるんですが エラーメッセージが変だし、Class1でコンストラクタなど定義してないにもかかわらず、生成出来る不思議。 そして、ネット上で探してもノイズ(VB.NET)が多すぎてよく分からんorz 752 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 03:42:06.27 ] あと、変数の宣言を強制する方法は分かったけど、 （デフォルトで入れておけよ…デフォルトで入ってないから未定義の変数を読み出す様なひどいソースを引き継ぐことになったorz) 型変換、キャストも強制するオプションはどうすれば？ あと、誰かLongのリテラルの書き方教えてくれ、 Dim j As Long j = &HFFFF MsgBox(j) ' -1 !? MsgBox(&H10000 - 1) ' 65535 とりあえず Const H0xFFFF = &H1FFFF - &H10000 Const H0x8000 = &H18000 - &H10000 というようなのを定義してごまかしてるけど。 とりあえず、この入門書（笑）は風呂の焚き物にしかならんな… 753 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 05:08:55.90 ] 私こと初心者が適当な風に回答します >>751 CommandButtonなどのコントロールは、たしかNewでインスタンスは生成できないとか 「VB6 動的 コントロール」でググるとコントロールの動的追加について記載サイト出てくるかも >>752 こゆこと？ Dim a As Long, b As Integer, c As Single, d As Double ↓ Dim a&, b%, c!, d# a = 100& (Long型) b = 100% (Integer型) c = 100! (Single型) d = 100# (Double型) オプションは分からないけどキャストは CInt() CLng() CSng() CDbl() とかそういう関数あるよ 754 名前：753 mailto:sage [2011/12/09(金) 05:10:49.37 ] 勘違いしてたり間違ってたりしてたらごめんなさいね 755 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 07:12:29.84 ] >>751 ＵＩ部品のインスタンスを動的に作成する場合にはいくつか制限がある。 フォーム上にボタンを張り付けて、Indexに0と指定しておく。 でもってコントロール配列に対して「Load Button1(1)」とすれば、 インスタンスを生成できる。 756 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 07:27:23.06 ] >>742 答えは>>743。VB6が勝手にUNICODEにしてしまうところでそうなった。 境界またぎはさせてないよ。 757 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 08:17:21.17 ] 配列にしなくても動的作成できるなんて始めてしった 7ujm.net/VB/VB6Controls.html 758 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 09:26:32.58 ] 配列でロードする方法ならIndex 0のプロパティがほとんどコピーされるから 実行時に型を変える(TextBoxに入力したコントロール名のを作成)とかで ない限り、配列ロードでいいんじゃないの。 759 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 09:28:04.83 ] えー ださいよー 760 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 15:15:33.32 ] New使ってるからLoadでのコピーは用途違うんじゃねの？知らんけど 761 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 16:24:09.53 ] >>753 ああ、なるほど、ケツにつけるから併用出来るのか MsgBox(&HFFFF&)ででけた 自動でキャストされることになれてないから、キャストを明示的に指定しなきゃいけない様に設定できたら VB初心者のおいらでも安心してくめるかなと。そうした方が後継者もあんまり混乱しなくてすむし。 >>755-760 thx。要素数に応じて、コントロールを並べることを考えてたからコントロール配列で良さそうだわ。 コントロール配列使えばたぶん必要ないことだと思うけど、 VB6にはまだ匿名関数でクロージャをやったりとか出来ないよね？（確認） コールバックとか難しそうだな…AddressOfで取得したのを直接実行できないのかよ。 762 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 16:33:10.59 ] AddressOfは外部APIに渡すときしか使えなかったような 763 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 17:08:05.52 ] 何言ってるのかさっぱりわからん 764 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 18:31:41.95 ] >>763 いやさ、おまえらみたいになれてる奴には気にならんかもしれんけど d.hatena.ne.jp/snaka72/20100126/1264514893 ここに書いてあるようにCallByNameっていうevalっぽいものじゃなくて Sub hoge(callback as Method) 　callback() End Sub hoge(AddressOf(foonction)) みたいに出来るもんだと思っててさ。まあ、セキュリティ的に直接関数ポインタを実行出来ない方が正しいと思うけど。 しかし、このIDE使いにくいな…　&HFFFF& <-コレはいい、　&HFFFFF& <-勝手に&外される &H0FFFF <-勝手に0を消される 765 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 20:09:16.34 ] 勝手に&が消されるのは指定しなくてもLong型で認識されるからじゃねの 766 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 20:16:14.63 ] CallByNameで諦メロン 767 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 20:33:37.14 ] (インスタンスとか意識して作ったことないから俺には話の内容が高度すぎて)何言ってるかさっぱりわからん 768 名前：デフォルトの名無しさん mailto:sage [2011/12/09(金) 20:36:46.71 ] ちげーよw 769 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:10:33.06 ] VBはじめたいのですがもうVB6.0は手に入らないのでしょうか？ VB6用の本を買ったのですがVB2010というのでもいけますかね？ 770 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:12:46.13 ] VB6とVB2010では全然違うから VB6のやり方ではVB2010では何もできない VB2010のやり方ではVB6では何もできない 771 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:12:58.41 ] >>769 6.0と2010は全く違うものです それに6.0は今から覚えるには古すぎるのでお勧めしない 772 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:14:34.67 ] 数年前はMSDNのイロイロ入りの奴で手に入れるのが通説だったんだが 今はどうなのかねえ。 773 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:15:44.89 ] >>770>>771 そうなんですか・・・2010用の学習書を買い直しますありがとうございました 774 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:21:16.77 ] >>769 VB2010はVB6とは全く別物。.netベースになってる。 VC++2010みたいにWin32も開発できるなんてことは”ない”。完全に.net専用。 つか、新しく始めるならなぜにVB6とか苦行するしw .netでもかまわないならC#とかおすすめよ。C#の方が新機能とかの追加が早いし。 研究とかで.netが使えないなら、C/C++あたりが無難。誰でも使えるしな。 RADツールがほしいならDelphi3〜7という手も悪くない。マイナーだが、プログラム経験があれば1週間もあれば誰でもかけるようになるだろう。 過去の遺産の引き継ぎとか、明確にVB6でなければならない限り、VB6を使う理由もないし、使うべきじゃない。 入手先の前にまず再考を。　別にその本をどぶに捨てたところで全然惜しくないしな。 775 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:31:06.68 ] >>774 Cはある程度できるんでC++にしようかなと思います。 ただ簡単なソフトを作ったりするのにはVBが一番簡単かな？と思ったんです 776 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:32:18.67 ] ディスコンになって10年経過してる商品について>>769はさすがにネタ投入（ただし全然面白くないが） としか思えんけど。 逆にネタじゃないなら相当頭がどうかしてる。 こんなところに書き込んでるわけだから、最低限webにアクセスできる環境にはあるんじゃないの？ 777 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:36:23.30 ] たとえそうだとしてもそのレスをする必要はないような 778 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:38:39.02 ] いつもイライラしてるIT土方が来たようだな＾＾ 779 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:39:04.41 ] いつまでもVB6なんて使ってる化石をからかっただけですけどね 780 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:41:04.82 ] やべえ、真性のアスペかよこいつｗ どこに「いつまでもVB6なんて使ってる」なんて書いてあるんだｗ 781 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:41:39.00 ] おい、つまらんレスはするなバカども 782 名前：デフォルトの名無しさん mailto:sage [2011/12/10(土) 21:42:54.61 ] >>781 じゃああなたが面白いレスの手本見せて下さいよ〜 783 名前：デフォルトの名無しさん mailto:sage [2011/12/11(日) 05:39:23.55 ] 簡単なもの作るだけならExcelでも使っとけ つかVBマクロて人気なんだな OpenOfficeに最も望まれてる追加機能がVBA対応とか これじゃVB無くならんわ 784 名前：デフォルトの名無しさん mailto:sage [2011/12/11(日) 16:03:38.31 ] >>783 Excelっていう土台と、初心者と本格的プログラミングの中間にある 開発環境が他にないからね。 Accessまでいっちゃうと、本格的プログラミング寄りで、何より、データベース って土台は初心者にキツイ。 ということなのだろう。 ただ、そろそろVBAは、言語体系を.NETに近づけたほうがいいとは思う。 785 名前：デフォルトの名無しさん mailto:sage [2011/12/11(日) 16:14:13.29 ] Excelとかのマクロ言語はVBAやめてJavascript系にしちゃえばいいのに 786 名前：デフォルトの名無しさん [2011/12/11(日) 16:34:15.51 ] 学校のVisual Basic 6.0で線形探索とファイル処理を使ったプログラムを作る課題がでました。 Excelでデータを作って対応させるのように指示を受けました。 私は商品名を入力し、実行するとその商品の画像を表示するようにしたいのですが、 この場合、Excelのデータ作成はどのように行えばいいですか？ 787 名前：デフォルトの名無しさん mailto:sage [2011/12/11(日) 16:44:32.25 ] 商品名と画像ファイル名だけじゃないの？ 788 名前：デフォルトの名無しさん mailto:sage [2011/12/11(日) 17:39:35.98 ] 学校ってまだVB6使ってるの？ 789 名前：デフォルトの名無しさん mailto:sage [2011/12/11(日) 17:41:41.90 ] >>784 近づけるというか、いっそうVBAとCOMを取り除いて、.netベースにしてしまって VBAの代わりにVB.NET（移植向け）、C#(新参/初心者向け）を使えるようにすればいいんじゃね？ ExcelやAccessでlinqが使えれば、業務系の人にもうけが良いだろうし。（むしろにて異なるものでキモがられるかね？） >>785 .netって基盤を作ってきたMSだから、今更Javascriptはないと思う。 OOoはVBAとか誰得なものをつけるより、Javascriptでマクロを組めた方が遙かに現実敵だとは思うが。 Google Docsの方はJavascriptだけども、サーバサイドで動くので使いにくいね。　 790 名前：デフォルトの名無しさん mailto:sage [2011/12/11(日) 17:43:13.57 ] >>786 研究室の過去のプログラムの更新にやむなくってのは分かるが 学校で今更VB6を教えてるって、その学校かなりヤバくね？ 中学校の部活か何かでVBAでプログラミング体験とかなら分からんでもないが。課題もそのレベルだし。 791 名前：デフォルトの名無しさん mailto:sage [2011/12/11(日) 17:48:42.38 ] 情報系じゃないが、若いセンセが嘆いてた 教える老人のノート、数十年前のものいまだに使ってるって 792 名前：デフォルトの名無しさん mailto:sage [2011/12/12(月) 02:34:55.91 ] ワイは日本人やが聞いた情報によると、もうじき中国はバブルがはじけて昔の貧乏な元の中国に戻るらしいで みんなも知っての通りもう経済は破綻してて、取り戻すのは無理なんだそうや その世界ではごっつい有名な政府関係者筋から聞いた確かな情報やで まあお前らほどの頭の良い連中には、今さらなくらいのネタやな、失礼なくらいかもしれん お前らからすればもう常識的なくらいの知識やろ？ 793 名前：デフォルトの名無しさん mailto:sage [2011/12/12(月) 10:26:11.26 ] Windows7で「Microsoft Shell Controls And Automation」を参照設定してexeファイルを作り、XPのパソコンで実行すると、 実行時エラー430(クラスはオートメーションまたは予測したインターフェースをサポートしていません。)が発生しました。 shell32.dllのバージョンが原因なのでしょうか？ Dim oShell As New Shell Dim oFolder As Folder2 Set oFolder = oShell.BrowseForFolder(0, "選択してください。", 1) If oFolder Is Nothing Then Exit Sub ElseIf oFolder.Title = "デスクトップ" Then 　　　　MsgBox "デスクトップは選択できません。", vbOKOnly + vbCritical Set oFolder = Nothing End If If Not (oFolder Is Nothing) Then txtFolder.Text = oFolder.Items.Item.path pFileDir(lstFile.ListIndex + 1) = txtFolder.Text End If Set oFolder = Nothing 794 名前：デフォルトの名無しさん [2011/12/12(月) 15:51:10.15 ] VB初心者なのですが、 xlsmファイルって読み取ることができますか？ 読み取れるようであれば例文教えていただけると ありがたいですm(_ _)m 795 名前：デフォルトの名無しさん mailto:sage [2011/12/12(月) 15:52:47.84 ] Excelが入ってれば読めるよ 796 名前：デフォルトの名無しさん [2011/12/12(月) 15:58:29.53 ] >>795 Excelも入れていて読み込めるはずなのですが xlsmfile = New FileIO.TextFieldParser("ファイル名.xlsm", System.Text.Encoding.GetEncoding("Shift_JIS")) xlsmfile.TextFieldType = FileIO.FieldType.Delimited xlsmfile.SetDelimiters(",") この文では読みこめないのでしょうか？ 797 名前：デフォルトの名無しさん mailto:sage [2011/12/12(月) 16:09:00.17 ] >>796 createobjectして読み込むんだよ 798 名前：デフォルトの名無しさん mailto:sage [2011/12/12(月) 16:23:43.16 ] >>796 ひょっとして.net＋VSTO？VSTOは実は単なるCOMラッパーだったりするから微妙だけど。 そもそも、Microsoft.VisualBasic.FileIO.TextFieldParserって、zipしてある奴も読めるのか？ MSDNをさっと目を通すと、CSV/TSVとかのテキストファイル前提っぽいが。 >.GetEncoding("Shift_JIS")) あれ？普通、xlsx/xlsmの中身のエンコードってUTF-8とかUnicode系じゃねーの？ あと念のために聞くけど、PC初心者？まるで分かってないオーラが漂いまくってるけど。 ついでに、VSTOはそんな便利じゃないよ。イテレートもろくに使えないし。 799 名前：デフォルトの名無しさん [2011/12/12(月) 16:27:08.33 ] >>797 試してみたんですができませんでした。 createobject　の使い方教えてくれませんか？ 800 名前：デフォルトの名無しさん mailto:sage [2011/12/12(月) 16:41:55.33 ] そういえばExcel2007以降とか見たこと無かった。 801 名前：デフォルトの名無しさん [2011/12/12(月) 17:01:08.62 ] >>798 テキストファイルを読むことを前提にしているので大丈夫です。 >あれ？普通、xlsx/xlsmの中身のエンコードってUTF-8とか Unicode系じゃねーの？ 調べてみます。 PC初心者です。 これから勉強していきたいのでよろしくお願いします。 802 名前：デフォルトの名無しさん mailto:sage [2011/12/12(月) 17:01:50.87 ] >>794 読めます。 中身はZIP形式で圧縮されたテキストファイルです。 試しに拡張子をzipに変更した後、開いて、中のファイルをメモ帳ででも開けばよい。 803 名前：デフォルトの名無しさん mailto:sage [2011/12/12(月) 17:02:57.81 ] >>799 どう試してみたの？ 804 名前：デフォルトの名無しさん mailto:sage [2011/12/12(月) 17:06:09.39 ] >>799 ググった？　あと、ここはVB6スレなんだが間違いはないか？ 805 名前：デフォルトの名無しさん mailto:sage [2011/12/13(火) 02:14:57.18 ] >>796のコードはVB6のコードには見えないな。文法が違う 806 名前：デフォルトの名無しさん mailto:sage [2011/12/13(火) 08:17:11.38 ] 細かいこと気にスンナよ 807 名前：デフォルトの名無しさん mailto:sage [2011/12/13(火) 12:45:11.56 ] >>801 ここID出ないから、名前欄に1個前のレス番を毎回入れるか 最初にレスしたレス番を入れるとかしてくれないと誰か分かりづらい。 絞り込みして見る事もできね。 Googleで　VB6 XML 読み込み　をキーワードに検索して結果の1件目。 t-yoshi-tomi.at.webry.info/200905/article_2.html >Dim XmlDoc As DOMDocument 'xmlデータ用変数 >Set XmlDoc = CreateObject("Microsoft.XMLDom") 808 名前：デフォルトの名無しさん mailto:sage [2011/12/13(火) 22:12:37.25 ] >>806 言語が全く違うんだから気にスンナレベルじゃねーだろw >>807 VB6ならExcel COMから読み出せば良いんじゃね？ VB.NETなら、どこかのZIPライブラリ使って中のxmlをlinqで列挙するのがお手軽かと思うけど

---

---

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

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