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

1 ：デフォルトの名無しさん：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 ホーム
　http://www.microsoft.com/japan/msdn/default.asp
Visual Studio 6.0 Service Pack 6
　http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
Google
　http://www.google.co.jp/

前スレ VBプログラマ質問スレ（Ver.6.0 まで） part64
http://peace.2ch.net/test/read.cgi/tech/1393069842/

※「まず自分で調べる」クセを身につけよう。

766 ：デフォルトの名無しさん：2022/10/18(火) 06:51:01.92 ID:pefqX3pO.net

>>764
今のWindowsって今までに蓄積したものをぶっ壊した挙句、
UIが中途半端なキメラ状態になってしまってるんだよな
もう、モバイル完敗なんだから、サッサと諦めて
今までのデスクトップ路線に戻してほしいわ

767 ：デフォルトの名無しさん：2022/10/18(火) 18:34:43.68 ID:jOxllUCG.net

XPが完成形だよな。それ以降は劣化だよ。
進数計算とか空で出来ない雑魚文系なので、XPの関数電卓は未だに重宝する。

768 ：デフォルトの名無しさん：2022/10/19(水) 13:44:29.15 ID:ZROCGRwu.net

今のWindowsの電卓は最低だわ
フリーソフト以下だ
たぶん新人の勉強のために作らせたんだろうが
あんなものをよく上司がOK出すなと思う

アンドロイドスマホの電卓はセンス良い
さすがGoogle

769 ：デフォルトの名無しさん：2022/10/19(水) 15:01:04.34 ID:A/s0fgHH.net

>>763
かも知れないね、、
まあ.NET Coreとか視野に有るならVB.NETよりC#にしとく方が良いからね

770 ：デフォルトの名無しさん：2022/10/21(金) 18:27:27.18 ID:dJ8blgI8.net

VB爺がC#なんて理解できると思うかい？

771 ：デフォルトの名無しさん：2022/10/22(土) 12:33:42.37 ID:rIQL1uZ+.net

古いプログラムは余り手を付けずに延命できるならそれに越したことはない
表面化してこなかったバグを掘り起こしてしまいかねない

C＃に移行なんて話は、どうせ元のソースの全てを理解してやろうとは思ってないだろ

772 ：デフォルトの名無しさん：2022/10/28(金) 18:14:06.14 ID:j2qyk+wH.net

「Internet Explorer 11」は2023年2月の
パッチで完全無効化
～Microsoftがアナウンス／

そろそろクラシックVBも引導渡されるかな。

773 ：デフォルトの名無しさん：2022/10/28(金) 21:30:01.59 ID:P0BjJ9dQ.net

そもそもプロプライエタリな開発ソフトなんて時代遅れだからっ！
これからはフリーなg++またはclang++やろ？
もちろんGUIはwxWidgetsッ！
Qt？・・・もう知らん

774 ：デフォルトの名無しさん：2022/10/29(土) 10:30:34.75 ID:cFqNUQAU.net

AmazonのKindle for PCがQtのようだ

775 ：デフォルトの名無しさん：2022/10/30(日) 03:06:07.39 ID:fzG7wj8e.net

edgeをdom操作出来るようになるまではie消すなよ。

776 ：デフォルトの名無しさん：2022/11/12(土) 21:59:06.42 ID:XBOqn3nq.net

VB6の様な実行即起動のP-CODEライクな開発環境はもう出ないのでしょうか？

777 ：デフォルトの名無しさん：2023/03/20(月) 14:59:47.60 ID:HJXqYRS2.net

VBは難しすぎる

778 ：デフォルトの名無しさん：2023/03/20(月) 15:02:19.30 ID:HJXqYRS2.net

VBとC、どっちが難しい？

779 ：デフォルトの名無しさん：2023/03/21(火) 00:01:47.36 ID:N6ww8/P/.net

VB

780 ：デフォルトの名無しさん：2023/04/10(月) 16:52:13.53 ID:z/zSHTiC.net

VBだけで出来ることなら簡単だけど、
OSの機能にアクセスしようとすると急に難しくなる

781 ：デフォルトの名無しさん：2023/04/12(水) 02:28:07.47 ID:swBiS/Z/.net

VBとVBAどちらが難易度高いすか？

782 ：デフォルトの名無しさん：2023/04/12(水) 19:25:35.16 ID:KziYdiqm.net

VBAにはコントロール配列が無かったから複数の同じコントロールを
操作するのが面倒だった気がする

783 ：デフォルトの名無しさん：2023/04/13(木) 01:54:06.82 ID:wAJ6smfe.net

結論:どちらも難しい

784 ：デフォルトの名無しさん：2023/04/13(木) 23:16:41.34 ID:DuR8Y0W3.net

VBってトライ＆エラーがやりやすいから
やっつけ的な糞コードができやすいというのはあるかも・・・

785 ：デフォルトの名無しさん：2023/04/26(水) 15:39:13.95 ID:RunjDrnT.net

難しいかどうかを気にするのって
やらない言い訳を探しているように見えるな

786 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：2023/05/04(木) 15:55:09.08 ID:xcZUCz0L.net

>>787
Picture1のAutoRdrawをTrueにしてもダメでしょうか？

789 ：デフォルトの名無しさん：2023/05/09(火) 16:11:08.45 ID:WGtTQQBV.net

>>787

これでどうでしょうか？

フォーム上に Picture1 と Command1 を置きました。
Picture1 上には任意の Image を置いてください。

※ Picture1 の ScaleMode プロパティは、「3 - ピクセル」に設定してください。

790 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：2023/05/28(日) 12:43:01.09 ID:yewAJdBX.net

ホントかウソか分からんが実は日本人が裏で頑張ってた説もあるんだよな
ある日突然日本人に触らせなくなってから劣化して逝ったとか・・・
日本人はソフト開発向かないと言われているが
一部には特別優秀な人が居るんだなぁ

799 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：2023/07/08(土) 15:09:34.94 ID:R9OUsPto.net

嶋の話って、年々大げさで伝説化していくのな

805 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：2023/07/16(日) 09:46:56.49 ID:U33WdBab.net

ありがてえっす

808 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：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 ：デフォルトの名無しさん：2024/04/25(木) 17:28:14.55 ID:ochKb6fH.net

MSの原点がBASICだったと思った