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

1 名前：デフォルトの名無しさん mailto:sage [2015/08/30(日) 19:25:35.12 ID:ZYoWCo0d.net] ここは古代に使われていた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/ 前スレ VBプログラマ質問スレ（Ver.6.0 まで） part64 peace.2ch.net/test/read.cgi/tech/1393069842/ ※「まず自分で調べる」クセを身につけよう。 784 名前：デフォルトの名無しさん mailto:sage [2023/04/13(木) 23:16:41.34 ID:DuR8Y0W3.net] VBってトライ＆エラーがやりやすいから やっつけ的な糞コードができやすいというのはあるかも・・・ 785 名前：デフォルトの名無しさん [2023/04/26(水) 15:39:13.95 ID:RunjDrnT.net] 難しいかどうかを気にするのって やらない言い訳を探しているように見えるな 786 名前：デフォルトの名無しさん mailto:sage [2023/04/26(水) 18:27:20.79 ID:QhJ3494d.net] vbもvbaどちら様も難しいございますわよ。 だってプログラミングなんだもん。 787 名前：デフォルトの名無しさん [2023/05/04(木) 08:08:25.88 ID:h3ZpMKja.net] Picture1をコンテナとして、複数のImageコントロールが乗っています そのイメージを Clipboard.Clear Clipboard.SetData Picture1.Picture　か　Picture1.Image でクリップボードに入らないかと思ったらImageは無視されてしまいます Picture1に直接描かずに、Imageを乗せるのは、 Imageはドラッグで動かすものだからです ウインドウ丸ごとキャプチャは、Picture1がウインドウより大きくて スクロールしながら見るものだからダメです 全Image を BitBild でPicture1にコピーしてから Clipboard.SetData するしかないでしょうか 788 名前：デフォルトの名無しさん mailto:sage [2023/05/04(木) 15:55:09.08 ID:xcZUCz0L.net] >>787 Picture1のAutoRdrawをTrueにしてもダメでしょうか？ 789 名前：デフォルトの名無しさん mailto:sage [2023/05/09(火) 16:11:08.45 ID:WGtTQQBV.net] >>787 これでどうでしょうか？ フォーム上に Picture1 と Command1 を置きました。 Picture1 上には任意の Image を置いてください。 ※ Picture1 の ScaleMode プロパティは、「3 - ピクセル」に設定してください。 790 名前：デフォルトの名無しさん mailto:sage [2023/05/09(火) 16:11:45.13 ID:WGtTQQBV.net] Option Explicit Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hDC As Long) As Long Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hDC As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function SelectObject Lib "gdi32" (ByVal hDC As Long, ByVal hObject As Long) As Long Private Declare Function DeleteDC Lib "gdi32" (ByVal hDC As Long) As Long Private Const SRCCOPY = &HCC0020 Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long Private Const CF_BITMAP As Long = 2 Private Declare Function OpenClipboard Lib "user32" (ByVal hWnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function SetClipboardData Lib "user32" (ByVal uFormat As Long, ByVal hData As Long) As Long 791 名前：デフォルトの名無しさん mailto:sage [2023/05/09(火) 16:12:13.61 ID:WGtTQQBV.net] Private Sub Command1_Click() Dim hDC As Long Dim hBitmap As Long Dim hBitmapOld As Long hDC = CreateCompatibleDC(Picture1.hDC) hBitmap = CreateCompatibleBitmap(Picture1.hDC, Picture1.ScaleWidth, Picture1.ScaleHeight) hBitmapOld = SelectObject(hDC, hBitmap) BitBlt hDC, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight, Picture1.hDC, 0, 0, SRCCOPY If OpenClipboard(Me.hWnd) Then If (EmptyClipboard()) Then SetClipboardData CF_BITMAP, hBitmap End If CloseClipboard End If SelectObject hDC, hBitmapOld 'DeleteObject hBitmap DeleteDC hDC End Sub 792 名前：デフォルトの名無しさん mailto:sage [2023/05/09(火) 16:12:29.38 ID:WGtTQQBV.net] 全 Image を Picture1 に BitBlt する必要な無いみたいです。 VB6 の Clipboard オブジェクトを使用する場合は、StdPicture にする必要があるみたいですが、 hBitmap を StdPicture に変換するより Clipboard API を使用して hBitmap を渡す方が簡単だと思ったので この様にしました。 793 名前：デフォルトの名無しさん [2023/05/12(金) 20:31:18.18 ID:7o2Sw5TQ.net] ありがとうございます ありがとうございます ありがとうございます できました！ 複数のImageは透過Gifでして、重なり合っているので ImageはたぶんBitbldできないから、一旦ワーク用のPictureBoxにコピーして それをＺオーダーの下層から順にPicture1にBitbldするのに EnumWindowsとGetNextWindowを調べているところでした でもPicture1はウインドウより大きいので やはり見えない部分は内部では保持していないのでしょうね そこはコードから少しずつスクロールしながらキャプって繋ぎ合わせようと思います 私の趣味に付き合って頂いた善意あるあなた様のご健康を願っていますので一言 「ワクチンは絶対に打ってはなりません」 これから世界は大混乱の終末の様相となり大勢の人々が無くなります もし自由な時間がおありでしたら海外情報を紹介しているサイトをご覧になることをお勧めします 794 名前：デフォルトの名無しさん mailto:sage [2023/05/21(日) 21:31:13.35 ID:MfvE52Zi.net] オレはワクチン打つたびに副作用が強くなっていったから3回で止めたわ 人によっては1回目で強烈な副作用に襲われたらしいが・・・ 795 名前：デフォルトの名無しさん [2023/05/27(土) 13:44:40.69 ID:dQE1+1Te.net] マイクロソフトもWindowsアプリケーションの開発手段のひとつを提供しただけで、VB6.0はもともと本流ではない。 796 名前：デフォルトの名無しさん mailto:sage [2023/05/27(土) 14:25:02.05 ID:GOC3C8Ue.net] それなのに予想以上に人気が出てしまって（ソフトに掛けるお金や時間もなく） 切るに切れずに今に至るのでした 簡易的なものはDelphiに任せてどんと構えていれば良かったのかもしれないな 797 名前：デフォルトの名無しさん [2023/05/28(日) 12:29:12.65 ID:37jclXZD.net] でもVB４〜６の出来は素晴らしい Windows本体やエクセルなんかより頑張ったと思う 文句の付け所がほとんど無い 思うに、MSはある時点で突然スタッフが劣化し その前に終了したVBは良く見えると 798 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 12:43:01.09 ID:yewAJdBX.net] ホントかウソか分からんが実は日本人が裏で頑張ってた説もあるんだよな ある日突然日本人に触らせなくなってから劣化して逝ったとか・・・ 日本人はソフト開発向かないと言われているが 一部には特別優秀な人が居るんだなぁ 799 名前：デフォルトの名無しさん mailto:sage [2023/05/28(日) 17:33:46.12 ID:DIrPnLmV.net] MSIMEがうんこになったのは開発拠点を中国に移したせいだと聞いたな 800 名前：デフォルトの名無しさん [2023/05/28(日) 18:11:05.53 ID:8TEHyhBs.net] 噂の範疇 801 名前：デフォルトの名無しさん [2023/05/30(火) 19:12:16.07 ID:rTNSOv2W.net] 日本から富士通やらNECやらがWindows開発部隊をMSに送り込んでいたのは事実 当時FM-TOWNSを持っていて、富士通系のパソコン雑誌でそういう記事が紹介されてた てっきりWindowsの日本語化、２バイト文字対応をしてるのかと思ってたが Windowsの核の部分から日本人技術者が担当してたと後から聞いた すると松下が加勢した日本のOSであるTRONと、Windowsの戦いは ある意味日本人同士の戦いだったのかも知れんね 戦いというほどではなかったのかも知れないが ゲイツや孫一味によるJAL123便撃墜で終止符が打たれたから アメリカの方では完全に戦いになってた アメリカはスーパー301条を発動したからね ペンタゴンまでTRONには国防上の大問題だとイキってたし 日本人は本当に優秀だよ JAL撃墜のときの中曽根、そして小泉・竹中による日本潰しが始まった こいつら日本人じゃないんだ 海外の調査でも、日本をトップに、香港など東アジア勢が知能指数が高いことが判っている 8ビットCPUの、ザイログZ80やインテル8080は日本人の嶋さんの設計で 嶋さんはインテルに引き抜かれた カナダで製造された世界初の量子コンピューターの原理は日本人の発案 人工知能でブレイクスルーとなったディープ・ラーニングも日本人の発案 しかし日本には白人の言う通りに動く、いわば日本人の足かせとなっている民族がいる 政治家なんか全員そうだ 802 名前：デフォルトの名無しさん mailto:sage [2023/05/30(火) 19:41:10.23 ID:IJpskfJb.net] そしてWindows安全神話が始まった （実際は、アメリカに情報抜かれまくってたりして 803 名前：デフォルトの名無しさん [2023/07/06(木) 21:11:21.56 ID:R+K28tLlP] 儿フィらはスポーツ少年た゛ったそうだし，├━キョ一五輪て゛は．改めてスポ―ツが麻薬賭博暴力贈収賄税金泥棒ハ゛カひき逃げ差別主義猥褻 セクハラＪκレイプ地球破壊の人類史上最悪の犯罪者生産システムと証明されたわけだが，いまだに葛飾区やら犯罪者量産のための施設に 莫大な税金投入してたりと．この何ひとつ価値生産できない地球に湧いた害虫と゛もに乗っ取られた世界最悪の腐敗國家は救いようか゛ないな てめえか゛やる健康目的のスポ‐ツならともかく，観戰(笑)た゛の五輪(笑)た゛の税金使えだのほざいてる奴は犯罪者た゛と決めつけるのか゛正解 アホしかいない公明党に対して、自民は私利私欲腐敗主義だか゛アホしかいないわけて゛はないにもかかわらず曰本に原爆落とした世界最惡の ならず者霸権主義國家がウクラヰナと同様に，台湾や日本を踏み台にしてクソシナ攻撃をたくらんでいることに氣つ゛けないわけがないわな 台湾た゛けでは狭すぎて当事國にならざるを得んか゛日本を戰場にすれは゛長期にクソシナを間接攻撃して弱体化させることか゛可能なわけた゛しな よって組織化する曰本の治安悪化や安倍晋≡の殺害を考えれば，クソシナみたいな市民との衝突を予期しての保身軍拡と理解するのか゛正解 創価学会員は，何百万人も殺傷して損害を与えて私腹を肥やし続けて逮捕者まで出てる世界最悪の殺人腐敗組織公明党を 池田センセ―が囗をきけて容認するとか本氣て゛思ってるとしたら侮辱にもほと゛があるぞ！ https://i.imgur.com/hnli1ga.jpeg 804 名前：デフォルトの名無しさん mailto:sage [2023/07/08(土) 15:09:34.94 ID:R9OUsPto.net] 嶋の話って、年々大げさで伝説化していくのな 805 名前：デフォルトの名無しさん mailto:sage [2023/07/14(金) 12:53:42.31 ID:b+ja8x9H.net] ビルド実行してもエラーもおきずEXEも吐き出されないのはどうやって原因追及すれば 突然VB6やることになってやばいです 806 名前：デフォルトの名無しさん [2023/07/15(土) 22:56:11.91 ID:b97teXF7.net] VBPをメモ帳で開いて良く見るのです 807 名前：デフォルトの名無しさん mailto:sage [2023/07/16(日) 09:46:56.49 ID:U33WdBab.net] ありがてえっす 808 名前：デフォルトの名無しさん mailto:sage [2023/08/01(火) 11:43:16.63 ID:3rD/GhRz.net] VB6の寿命半端ねぇっす どうせならWindowsと共に生涯現役で・・・ 809 名前：デフォルトの名無しさん [2023/08/01(火) 21:04:07.07 ID:9YAGGl5I.net] 同じ機能、同じ性能のアプリを作れるなら 簡単に早く作れる方がいいに決まっているからね 810 名前：デフォルトの名無しさん [2023/11/13(月) 17:45:59.64 ID:iaAhBGeY.net] Windows１０上のVBアプリで テキストボックスに入力していると そのうち漢字入力ができなくなる問題が放置されている もう修正する気は無いのだろう たぶんWindows１１上でも同じなんでしょ？ VBアプリを再起動すれば復活するのだけど 何かコードを書いて、漢字モードのリセット的なことはできないでしょうか つまり、漢字入力できなくなったら、 それ用のコードを仕込んだボタンをポチッと押すだけで 再び漢字入力できるような・・・ 811 名前：デフォルトの名無しさん mailto:sage [2023/11/13(月) 18:31:45.22 ID:fc85Zzal.net] IMEモードを変えてもだめなのかシーラナイ 812 名前：デフォルトの名無しさん [2024/04/19(金) 02:47:20.29 ID:uD5nyH4z.net] VB6.0なんてマイクロソフトがもう捨てろと言っているのにな 813 名前：デフォルトの名無しさん mailto:sage [2024/04/24(水) 15:39:04.48 ID:a09B/WSd.net] マイクロソフトのライバルはマイクロソフトなのである！ つまり、VB6の様な手軽に開発出来るソフトを作ってしまったのがいけなかったんや VBが無ければみんな泣きながらVC++使ってたろうから、多分.NETが救世主に見えたんじゃね？ 814 名前：デフォルトの名無しさん [2024/04/24(水) 16:30:10.07 ID:QkuRMYb7.net] >>813 C++も無かった時代を知らないにわかですか？ 815 名前：デフォルトの名無しさん mailto:sage [2024/04/25(木) 17:28:14.55 ID:ochKb6fH.net] MSの原点がBASICだったと思った 816 名前：デフォルトの名無しさん mailto:sage [2024/09/28(土) 18:57:16.43 ID:US9sJTQ8.net] https://github.com/twinbasic/twinbasic VB6互換のモダンIDE＋コンパイラ １０月１日にVer1.0リリース予定か ちょっと既存のプロジェクト読ませてみたがエラー出まくってたがよく見たら変数宣言できてないとか今までよく動いてたなみたいなエラーだったわ IDEがモダンになるだけでも有り難いが、まだバグが残っているのか保存のたびに変な空白文字がファイル先頭に入るので使えないな ランタイム経由じゃなくネイティブコードで動くので早くなるのも期待している 817 名前：デフォルトの名無しさん mailto:sage [2024/09/28(土) 20:32:47.27 ID:EWVVyNTK.net] 開発環境が古すぎていやだったのが解決するなら期待 818 名前：デフォルトの名無しさん mailto:sage [2024/09/28(土) 21:36:30.58 ID:US9sJTQ8.net] ２，３時間ほど弄ってみたけどまだまだ様子見は必要そうだ ActiveX実装が１２月予定されているから来年になったら使えるかも 一見動くけど、印刷系は上記でエラーはくしデバッガで動いてもビルドexeがエラーも吐かずに落ちるので手仕舞いした Ver1は年末に延期だとか 819 名前：デフォルトの名無しさん [2024/12/03(火) 10:27:32.63 ID:Yc34NKUK.net] 趣味としてやっる分には、 VB6及びBoland C++ → EXCEL VBA へ移行済 だが、EXCELVBAも2003年頃までがバッチリで それ以降は、なんかモッサリだしさ、 今は　EXCEL VBA → JavaScript にドンドン移行 JavaScriptは、初心者向けなのに、 結構、サクサク動作する事も多い というか、ブラウザで動かしてるけど クロームよりエッジの方がよりサクサクしてるな エッジはクロームのエンジンをパクったのに ナゾだ。もしかするとクロームを魔改造してるのかな というか、VB6復活してほしい、欲しい、★いです。 820 名前：デフォルトの名無しさん [2024/12/11(水) 23:19:34.52 ID:grHlZG0Q.net] VB6のSP6ってどこかに落ちてませんか？ 821 名前：デフォルトの名無しさん mailto:sage [2024/12/12(木) 22:40:48.98 ID:trovn3Vo.net] Web Archive 822 名前：デフォルトの名無しさん mailto:sage [2024/12/14(土) 23:44:37.32 ID:7Y9Bg41A.net] >>821 見つからん・・・ 823 名前：デフォルトの名無しさん mailto:sage [2025/04/19(土) 09:53:53.94 ID:oh4s6y5c.net] hosyu 824 名前：デフォルトの名無しさん mailto:sage [2025/04/29(火) 04:56:41.39 ID:DUP3Wr3v.net] アクティブXってIEとともに終わるじゃん 825 名前：デフォルトの名無しさん [2025/05/01(木) 21:23:06.52 ID:OfvCVd3a.net] VBとC言語、どっちが難しい？ 826 名前：デフォルトの名無しさん [2025/05/02(金) 10:55:02.60 ID:k5bGwZZ0.net] VBで単体テスト、カバレージ100とかやってる？ 827 名前：デフォルトの名無しさん [2025/05/02(金) 12:38:49.21 ID:f9tWyJS3.net] AIがテストPG作ってくれるならやってもいいけどそんな時間も手間もかけられんわ 828 名前：デフォルトの名無しさん mailto:sage [2025/05/05(月) 18:10:26.90 ID:Oh73xZ5Q.net] >>825 初心者が学ぶならCの方が難しい しかし初心者を脱すると制約だらけのVBの方が面倒になってくる 829 名前：デフォルトの名無しさん mailto:sage [2025/05/06(火) 17:11:34.93 ID:GbYxwNEQ.net] >>822は見つかったのかな ISOとかで検索すれば入れる事はできそうな感じだけど 830 名前：813 mailto:sage [2025/06/23(月) 20:28:34.02 ID:4uCSsfHB.net] >>829 みつかりません 831 名前：デフォルトの名無しさん mailto:sage [2025/06/24(火) 08:44:26.80 ID:0eiRtB6r.net] VB6-SP6って、Visual Studio 6 の VS6sp6.exe て事？ 832 名前：デフォルトの名無しさん mailto:sage [2025/06/24(火) 08:58:19.37 ID:0eiRtB6r.net] あぁ、VB6のみのSP6があるのか Vs6sp6.exe でも VB6をアップデートできるという書き込みがある 手元に Vs6sp6.exe はあったわ 833 名前：813 [2025/07/05(土) 19:49:51.16 ID:z9o2nQ5q.net] マジで誰かアップしてくれませんか？ Visual Studio 6.0用のものでもいいので 834 名前：デフォルトの名無しさん mailto:sage [2025/07/05(土) 21:46:47.52 ID:nTiFAwJZ.net] 釣りにマジレスしてやるが 普通にGoogleで検索すれば出てくる それでも見つからないなら VB6みたいな古の開発ツール扱うのは無理であろう 835 名前：デフォルトの名無しさん [2025/07/06(日) 18:05:35.66 ID:C0uO5gyf.net] https://web.archive.org/web/20191201031534/https://www.microsoft.com/ja-jp/download/confirmation.aspx?id=5721 836 名前：デフォルトの名無しさん mailto:sage [2025/07/08(火) 17:26:03.55 ID:ew+3yJ8r.net] >>833 どこかアップできる所用意してくれたら置くけど 手元の Vs6sp6.exe md5: a881a08fb27d0eb96604dab1a10d1d11 837 名前：デフォルトの名無しさん mailto:sage [2025/07/09(水) 02:56:39.32 ID:ohpjpVt+.net] 手元の Vs6sp6.exe は27.7MBだけど そんなもんが欲しいのか 838 名前：デフォルトの名無しさん mailto:sage [2025/07/09(水) 08:46:26.46 ID:rA3ZMGU/.net] 私のは Vs6sp6.exe 62.2MB 839 名前：デフォルトの名無しさん mailto:sage [2025/07/09(水) 08:51:19.31 ID:rA3ZMGU/.net] あぁ、上をインストールした後、下をインストールなのね Vs6sp6.exe 62.2MB Vs6sp6B.exe 27.7MB 840 名前：デフォルトの名無しさん mailto:sage [2025/08/03(日) 12:52:43.15 ID:OldczXYQ.net] twinBASICのリリース時期が後退していくのですが一体いつリリースされるのやら・・・ 841 名前：デフォルトの名無しさん [2025/08/03(日) 15:25:52.04 ID:nPWHGEJB.net] ７月という話は結局無理だったのか うまくいけば金鉱ではあると思う 842 名前：デフォルトの名無しさん [2025/08/03(日) 20:31:58.93 ID:kVKBj15M.net] VB6.0は元からWindowsアプリ開発の主流ではない。

---

---

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

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