古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]©2ch.net

**デフォルトの名無しさん** · 2015/08/30(日) 19:25:35.12

ここは古代に使われていた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/

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

**デフォルトの名無しさん** · 2016/12/17(土) 16:05:02.16

>>328
強いて言うなら、範囲制限。

**デフォルトの名無しさん** · 2016/12/19(月) 00:51:52.04

>>328
大昔のBASICにlong型がなかったから
当時の人材が今でも活躍してるんで。

**デフォルトの名無しさん** · 2016/12/26(月) 08:04:16.12

コモンダイアログは使っちゃだめだよね
将来的に使えなくなる可能性があるからAPIで書いておかないと
という話の「将来」が今田

**デフォルトの名無しさん** · 2016/12/26(月) 21:50:52.20

将来的にVBは産廃になるから移行しやすいようにレイヤー分割しとけよ
という話が教会に異端認定されて迫害されたから今苦労してるんだよね

**デフォルトの名無しさん** · 2017/01/29(日) 11:01:58.46

質問させてください。
VB初心者です。（普段はもっと古代言語を使用しています）

環境：windows7,office2010,vb6,activereports2.0j

VBのフォームにOLEを配置してEXCELを表示し、
ボタンを押すと、doverbメソッドが実行されてそのEXCELを編集出来るというプログラムがあります。
開発環境では問題無く動いたのですが、
実行環境で編集ボタンを押すと、押した時にはEXCELがアクティブになるのですが、
すぐにフォームのほうがアクティブになってしまい、EXCELを編集出来ません。
何度EXCELのほうにマウスを当てても戻ってしまいます。
環境かな？と思うのですが、何が原因なのか検討もつきません。
どなたか、何か思いつくことがあれば教えていただけないでしょうか？
よろしくお願いします。

**333** · 2017/01/29(日) 11:36:27.70

timerイベントで以下の処理を行っているのが原因でした。
If Me.Enabled = True Then
Me.SetFocus
End If
根本的な原因では無さそうな気がしますが、
特に問題もないようなのでこの処理を削除しました。

**デフォルトの名無しさん** · 2017/05/02(火) 07:16:38.64

それはよかたですね

**デフォルトの名無しさん** · 2017/05/06(土) 09:27:02.42

XPか7以降だったか
プロセスやスレッド間をまたがるフォーカス移動の挙動は仕様が変わってるから
SetFocusだけでは意図通り動かないと思う
説明がめんどくさいので解決したならいいけど

**デフォルトの名無しさん** · 2017/12/16(土) 16:36:17.31

まだVB.NETスレとパート数20くらい差があるのはすごい

**デフォルトの名無しさん** · 2017/12/16(土) 17:55:08.07

まだまだ使えう

**デフォルトの名無しさん** · 2018/01/05(金) 03:37:42.39

VBで困ったときにネット検索しても余り出てこなくなったんだよ

**デフォルトの名無しさん** · 2018/01/05(金) 09:30:37.13

パーツをペタペタ貼れるVB系は6.0しかないの？
．netでもそれさえあれば移行するのに。

**デフォルトの名無しさん** · 2018/01/05(金) 09:51:10.00

Win7で普通に組めるのは良いが配置したコントロール類を一括ドラッグ、位置調整するのが辛いな

**デフォルトの名無しさん** · 2018/01/06(土) 02:12:50.09

>>340
.netでも、ふつうにパーツペタペタ出来る

**デフォルトの名無しさん** · 2018/01/09(火) 11:31:51.61

>>342
マジで？
そういうツールが売ってるの？

**デフォルトの名無しさん** · 2018/01/09(火) 12:37:56.63

>>343
パーツがボタンやラベルのことならば標準機能で貼れる
お試し版あるからダウンロードして試したらヨカ

**デフォルトの名無しさん** · 2018/01/09(火) 14:04:33.78

Microsoft Team Explorer for Visual Studio 2013のMicrosoft Visual Basic 2013を使ってみたのですけど、コントロールを貼り付けられるようには出来てないような？
VB6でいうところのオブジェクトを表示する事が出来ませんよね？

**デフォルトの名無しさん** · 2018/01/09(火) 19:47:32.39

>>345
１回死んでから出直すといい

**デフォルトの名無しさん** · 2018/01/10(水) 18:40:35.20

新規プロジェクトで
Windowsフォームアプリケーション選び
form1.vb選択して、右クリック
ビューデザイナー開いておいて
左側のツールボックス開いたらコントロール群あるから
選んで貼り付け

**デフォルトの名無しさん** · 2018/01/10(水) 23:20:26.41

ファイルリストボックスって
なまじっか英数字のファイル名だとソートしてるから、そのまま使えると思ってたら
漢字は中途半端なソートするね

**デフォルトの名無しさん** · 2018/01/10(水) 23:35:31.99

もう今年で20年だろw
まだ使ってる人いるのかw
いい加減成仏させてやれよw

**デフォルトの名無しさん** · 2018/01/11(木) 10:07:22.27

>>347
おぉぉ出来ました、ありがとうございます、ありがとうございます。

**デフォルトの名無しさん** · 2018/01/11(木) 10:09:51.44

>>346
色々あってよく分からなかったのですが、もしかしてこれは.netでは無いとか？

**デフォルトの名無しさん** · 2018/01/11(木) 12:27:34.62

>>351
2013のvb.net
2015と2017もある

**デフォルトの名無しさん** · 2018/01/11(木) 16:08:37.54

>>351
だからお前のような馬鹿は1回死んで出直せ

**デフォルトの名無しさん** · 2018/01/11(木) 18:35:50.09

何イライラしてんの？生理？

**デフォルトの名無しさん** · 2018/01/11(木) 21:47:30.73

馬鹿が嫌いなだけ

**デフォルトの名無しさん** · 2018/01/12(金) 12:25:09.01

そうか、でも自分の事は嫌いになるなよ

**デフォルトの名無しさん** · 2018/01/13(土) 01:01:21.10

馬鹿に馬鹿と指摘すると、悔しがってこうやって別IDで食って掛かってくるから楽しい

**デフォルトの名無しさん** · 2018/01/13(土) 07:18:55.84

自称「馬鹿に馬鹿と指摘する」馬鹿さん、馬鹿にされて楽しそう。

**デフォルトの名無しさん** · 2018/01/15(月) 10:17:42.59

>>350-351ｄすが、自分のせいで荒れてしまってすいません。

**デフォルトの名無しさん** · 2018/01/15(月) 12:37:59.35

気にすんな

**デフォルトの名無しさん** · 2018/01/15(月) 12:48:58.31

俺は気にした方がいいと思うよw
さすがにこのやり取りは質問者が叩かれて当たり前。

これが2002年ならわかる。2018年にもなってこれはない。
さすがに釣りだとと思ったらどうやら大真面目らしいのも何とも

**デフォルトの名無しさん** · 2018/01/15(月) 13:46:09.53

本当は質問があって嬉しかったくせに

**デフォルトの名無しさん** · 2018/01/15(月) 15:33:41.73

好きな子にいじわるしたくなっちゃう小学生男子の気持ち？

**デフォルトの名無しさん** · 2018/01/15(月) 16:30:38.76

こんなこともわからない馬鹿が開発なんかするなと

**デフォルトの名無しさん** · 2018/01/15(月) 20:19:15.56

知らん事は馬鹿ではない
知らん事を馬鹿だと思っている事が馬鹿なのだ

**デフォルトの名無しさん** · 2018/01/15(月) 20:29:16.79

村本？

**デフォルトの名無しさん** · 2018/01/15(月) 20:36:20.49

>>365
いじってみてもどうなっているか理解できないから馬鹿だろうが。そもそも製品の構成すら理解しとらん馬鹿だし。

**デフォルトの名無しさん** · 2018/01/15(月) 20:48:05.73

>>367
そんな事よりもボクはキミ自身が馬鹿なのだよという話をしているのだけれども

**デフォルトの名無しさん** · 2018/01/15(月) 21:26:47.29

知らないことと自分の力で理解できないことを一緒にして他人を煽ることしかできない馬鹿
↓
ID:3WbICYQr

**デフォルトの名無しさん** · 2018/01/16(火) 16:19:30.22

開発中に気が触れてしまう人もいるので、そっとしておきましょう
ここでは、開発が本業でなく、例えば八百屋さんがプログラムをいじってるなんて場合もあるのだから
自分の狭い専門分野で人を見下すのはバカ丸出しなんだよね

**デフォルトの名無しさん** · 2018/01/16(火) 19:32:19.61

>>370
八百屋ナメんなよコラ。お前市場行ってセリで買えるか？セリにsnipetなんかねえんだよ。
全部キロ単位の値段設定だぜ？即座に頭で歩留まり計算しておかないと儲け出ねえんだぜ？
八百屋、魚屋のような生モノ扱う仕事は常にtry-catch-finaryでロスが出ねえように考えて仕入れ販売
しないとあっさり赤字こくんだよ。
コード屋はそりゃ大変だろうが、楽な仕事なんかねえんだよ

**デフォルトの名無しさん** · 2018/01/17(水) 01:08:40.33

>>370
青果市場のセリで、キャベツを指差しして｢これは白菜ですね！｣とか大声で叫んでみろよ。
お前のようなゆとりの馬鹿が社会をダメにする。

**デフォルトの名無しさん** · 2018/01/17(水) 12:24:06.42

気がふれた自覚があるのこの人？

**デフォルトの名無しさん** · 2018/02/03(土) 08:34:10.13

Integerが2バイトしかないなんてヒドイ

**デフォルトの名無しさん** · 2018/02/03(土) 09:01:48.21

VB6では任意に例外を投げることはできないのでしょうか

**デフォルトの名無しさん** · 2018/02/16(金) 05:57:15.07

☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

**デフォルトの名無しさん** · 2018/02/26(月) 06:40:53.98

Private Sub Form_Load()
　　Text1 = "106.456"
　　Command1.Caption = "▲"
End Sub
となっています

１ドルなん円という数字が入っていて
小数２位以下はいらないので▲ボタンを押すごとに
106.456→106.500→106.600→106.700・・・
となるように
Private Sub Command1_Click()
Dim v&
　　v& = Int(Val(Text1) * 10) + 1
　　Text1 = Format(v& / 10, "0.000")
End Sub
２行のプログラムをつくりましたが、あら不思議、これは動きません
Ｉｎｔが悪さをしている、Ｉｎｔはいらないと分かったのですが
なぜＩｎｔが悪さをするのでしょうか

**デフォルトの名無しさん** · 2018/02/26(月) 08:10:45.22

整数型に変換するから

**デフォルトの名無しさん** · 2018/02/26(月) 11:36:26.78

整数型に変換してるんですけど
ＩＮＴの外にある「＋１」が無効になる感じです

**デフォルトの名無しさん** · 2018/02/26(月) 12:40:59.80

v& = Clng(Val(Text1) * 10) + 1

**デフォルトの名無しさん** · 2018/02/26(月) 13:21:07.72

Dim v&
この瞬間見る気が失せた

v& = Int(Val(Text1) * 10) + 1
　　　　↓
v& = CInt(Val(Text1) * 10) + 1

**デフォルトの名無しさん** · 2018/02/26(月) 19:01:29.09

お二方のは、最初の１回だけ動いて、
以降は動かなくなりましたよ
しかしCsngやValだと
106.456→106.500→106.600→106.700・・・
としたいところ
106.456→106.600→106.700・・・
になってしまうけど、まぁ動きました
お手間をとらせました、有難うございました

**デフォルトの名無しさん** · 2018/02/26(月) 19:06:37.17

根本的にわかってない奴

**デフォルトの名無しさん** · 2018/02/26(月) 20:28:52.46

ああ分かったよ
実数の扱いの深い部分だね
Debug.Printで見ても表示されないから分からなかったわけだ

**デフォルトの名無しさん** · 2018/02/26(月) 20:48:01.22

これだ
? Csng("125.600") * 10
1256

? Csng("125.600") * 10 + 0!
1256

? Csng("125.600") * 10 + 0.0
1255.99998474121

**デフォルトの名無しさん** · 2018/02/27(火) 10:46:57.34

こんなやつが作ったソフトを使う人がいるのかと思うと・・・

**デフォルトの名無しさん** · 2018/02/27(火) 19:18:36.84

>>386
と思うだろ？ところがすっとこどっこい
お前が使ってるソフトを作ってるやつも似たりよったりなんだぜw

**デフォルトの名無しさん** · 2018/02/27(火) 19:24:31.43

VB.Net ではなくVB6.0を愛用してます。
世の中64ビットOSになり、次は128ビットになりっとどんどん大きくなると思うんですが、
今まで作成した私のVB6.0のアプリは今度どうなるのでしょうか。
多少VC++が分かるんですが、実装するのはやっぱり使い慣れたVB6.0が手っ取り早いし簡単で、ずっと使いたいんですが、、、

**デフォルトの名無しさん** · 2018/02/28(水) 01:00:36.09

>>388
馬鹿は死ねばいいよ

**デフォルトの名無しさん** · 2018/02/28(水) 08:01:30.43

>>388
切迫感無いですね
保全関係の請負で食べてる人ですか？
それだけ過去資産持ってるならそれをC++なりで再現する方向で精進するのが普通の発想だと思いますがね

**デフォルトの名無しさん** · 2018/02/28(水) 08:17:03.83

>>388
OSがランタイムサポート打ち切るだろうからお前も死亡

**デフォルトの名無しさん** · 2018/03/05(月) 16:53:20.52

>>391
具体的にサポート切る話出てます？

**デフォルトの名無しさん** · 2018/03/07(水) 22:19:09.25

Basic系の言語って
今でも有るのですか

**デフォルトの名無しさん** · 2018/03/07(水) 23:54:20.09

「系」で良いのなら全ての現代的プログラミング言語は
BASICの影響を受けたBASIC系言語と言えるよ
プログラミング言語の系図ぐぐってみ

**デフォルトの名無しさん** · 2018/03/08(木) 00:13:41.52

修正
Basic言語って
今でも有るのですか

**デフォルトの名無しさん** · 2018/03/08(木) 00:56:07.07

>>395
MicrosoftのOffice,WORD,Excel,PowerPoint
はVisual Basicで組まれているのでは無いのですか？

https://ja.m.wikipedia.org/wiki/Microsoft_Visual_Basic

2008年でサポート終了

https://ja.m.wikipedia.org/wiki/Microsoft_Visual_Basic_.NET

**デフォルトの名無しさん** · 2018/03/08(木) 01:25:09.32

>>395
馬鹿は死ねばいいよ

**デフォルトの名無しさん** · 2018/03/08(木) 09:11:53.19

>>397
おまえそれしか言えないの？

**デフォルトの名無しさん** · 2018/03/08(木) 16:00:50.26

大昔N88やクイックBasicで
遊んでいたのでちょっと気に成った

**デフォルトの名無しさん** · 2018/04/09(月) 16:21:33.75

YoutubeをTHXでダウンロードすると動画タイトルがファイル名になることがあって
動画タイトルに連音符のような特殊文字が使われているとVBで扱えなくなる
エクスプローラでリネームしてやれば済む話だけども
寝てる間にダウンロードして所定のフォルダに所定のファイル名で保存するプログラムは動作しない

変な文字コードが入り込んだファイルというのはFileListBox上には存在するけども
FileLen,Open,Name,FileCopyなどでは存在しないファイルとなる
実際のファイル名とVBが見ているファイル名が違うからだと思われる

**デフォルトの名無しさん** · 2018/04/14(土) 13:16:18.18

例えば適当なテキストファイルがあって、それをエクスプローラで
12♬34.txt
とリネームします
これをＶＢのプログラムで読むには？

**デフォルトの名無しさん** · 2018/04/14(土) 20:38:42.77

そもそもVB6ってロングファイルネームサポートされてないんじゃ？
8.3形式のファイル名で読むしかないんじゃね

**デフォルトの名無しさん** · 2018/04/15(日) 21:30:44.63

>>398
そいつはこの板を荒らしてるBasicジジイだ。触っちゃいけない

**デフォルトの名無しさん** · 2018/04/18(水) 00:07:35.39

>>401
そもそも VB6.0 のコードエディタに貼り付けても化けちゃうしｗ
CreateFileW 等の API を使ってゴリゴリ書くしかないだろうね。

あと、MAX_PATH を超えるような場合は \\?\ や \\?\UNC\ 等のプレフィックスをつける必要がある。
ttps://msdn.microsoft.com/en-us/library/windows/desktop/aa365247(v=vs.85).aspx

**デフォルトの名無しさん** · 2018/04/18(水) 01:10:14.49

まだ使ってる人いるのかw
VBって割と最初からUnicode対応だと思ったけど、IDEのエディターやコンパイラは対応してなかったのかw

**デフォルトの名無しさん** · 2018/05/23(水) 19:48:49.05

僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

LVCSB

**デフォルトの名無しさん** · 2018/05/24(木) 10:57:47.97

LVCSB

**デフォルトの名無しさん** · 2018/06/21(木) 04:44:22.62

EXEはVBPと同じフォルダに作られるのがデフォルトだったけど
どうもWindows10の新しいバージョンになってから
EXEが作られるフォルダのデフォルトというのがカレントフォルダとは限らないようだ
いったい何を見てEXEを作るフォルダのデフォルトを決めているのだろう

**デフォルトの名無しさん** · 2018/06/28(木) 13:53:55.74

Win10の最近の更新からVB6がインストールができなくなったという情報あり
Win１０をUSBなりからクリーン・インストールしたら
まずVBをインストールして、その後にWinの更新をすればいいのかも

**デフォルトの名無しさん** · 2018/06/28(木) 17:26:50.94

ついに殺しにかかったか

**デフォルトの名無しさん** · 2018/06/28(木) 19:03:43.48

>>409
なぜその情報元を書かないのか

**デフォルトの名無しさん** · 2018/07/04(水) 22:04:14.51

R75

**デフォルトの名無しさん** · 2018/07/05(木) 16:29:36.01

R75

**デフォルトの名無しさん** · 2018/07/26(木) 11:48:33.91

最後の行だけ改行コードがついてないテキストファイルがあって
それを読みながら修正などしながら、別ファイルに書き出すという処理で
最後の行には、どうしたって改行コードがついてしまうよね

**デフォルトの名無しさん** · 2018/07/26(木) 12:50:49.22

>>414
Write使えば付かないでしょ。

**デフォルトの名無しさん** · 2018/07/26(木) 18:37:53.12

最後の行だけWriteを使う？

**デフォルトの名無しさん** · 2018/07/26(木) 19:49:11.90

そこは工夫の問題じゃない?
最初だけ改行なしでWrite、次からは改行+Writeでも良い。

**デフォルトの名無しさん** · 2018/07/26(木) 23:23:44.06

全て書出し終わったファイルをバイナリで再度開いて末尾の0D0Aだけ削除

**デフォルトの名無しさん** · 2018/07/27(金) 06:16:27.69

なるほどー
「まずバイナリでファイル末尾の改行の有無を判定する
末尾に改行なしなら、２行目以降は、改行コードを頭に付けて出力する」
ありがとうございました

自分にない発想に出会うと感動しますね
数年前に阿修羅で出会った感動の書き込みを紹介しますと
「日米戦争はイカサマだった→東京裁判は昭和天皇が進駐軍にやらせたものだった」
これにはぶっ飛びました
自分では色々考えたつもりでも、それは所詮自分の殻の中の世界であって
真実に到達できていない可能性があるんだと思い知らされました

**デフォルトの名無しさん** · 2018/07/27(金) 10:11:13.17

>>419
周りが馬鹿やめろよと思っていることに気付かない人かな

**デフォルトの名無しさん** · 2018/07/28(土) 08:36:57.37

別におかしくはないが

**デフォルトの名無しさん** · 2018/07/28(土) 12:18:23.01

こういうのをおかしくないと思うような頭だからまだVBなんかを平然と使うのかね

**デフォルトの名無しさん** · 2018/07/29(日) 17:28:52.06

どこがおかしいか言えないくせに

**デフォルトの名無しさん** · 2018/07/29(日) 22:03:25.11

>>423
( ´,_ゝ｀)ﾌﾟｯ

**デフォルトの名無しさん** · 2018/07/30(月) 07:16:37.08

セミコロンしか思いつかない

**デフォルトの名無しさん** · 2018/07/30(月) 08:11:32.75

天皇が日本人殺し専門家だったということかな

**デフォルトの名無しさん** · 2018/07/31(火) 03:33:29.93

開業医が美人の受付を雇うのと同じ？

**デフォルトの名無しさん** · 2018/07/31(火) 17:51:36.68

２発の原爆のうちの
広島の方は天皇原爆だったという話だよ