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

1デフォルトの名無しさん2015/08/30(日) 19:25:35.12ID:ZYoWCo0d
ここは古代に使われていたVisual Basic 〜6.0 の質問スレです。
質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、
「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。

VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。

○ 質問者の心得
 一.質問する前にMSDNやGoogle、過去ログにも目を通してみる。
 二.VBScript、インストーラーなどはこのスレでOK。
 三.質問は第三者にもわかりやすいよう簡潔かつ具体的に。
 四.荒らしは相手しない。

○ 回答者の心得
 一.答えられない質問は無駄に罵倒せずスルー。無理するな。
 二.代用法を強制しない。
 三.回答する上で必須ではない情報をむやみに聞き返さない。
 四.荒らしは相手しない。
 五.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/

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

357デフォルトの名無しさん2018/01/13(土) 01:01:21.10ID:Or/J88FT
馬鹿に馬鹿と指摘すると、悔しがってこうやって別IDで食って掛かってくるから楽しい

358デフォルトの名無しさん2018/01/13(土) 07:18:55.84ID:odSwvUdp
自称「馬鹿に馬鹿と指摘する」馬鹿さん、馬鹿にされて楽しそう。

359デフォルトの名無しさん2018/01/15(月) 10:17:42.59ID:04gEGU4B
>>350-351dすが、自分のせいで荒れてしまってすいません。

360デフォルトの名無しさん2018/01/15(月) 12:37:59.35ID:AX/il8KV
気にすんな

361デフォルトの名無しさん2018/01/15(月) 12:48:58.31ID:88lrhbw0
俺は気にした方がいいと思うよw
さすがにこのやり取りは質問者が叩かれて当たり前。

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

362デフォルトの名無しさん2018/01/15(月) 13:46:09.53ID:JizfWv+s
本当は質問があって嬉しかったくせに

363デフォルトの名無しさん2018/01/15(月) 15:33:41.73ID:qFZdWehx
好きな子にいじわるしたくなっちゃう小学生男子の気持ち?

364デフォルトの名無しさん2018/01/15(月) 16:30:38.76ID:3WbICYQr
こんなこともわからない馬鹿が開発なんかするなと

365デフォルトの名無しさん2018/01/15(月) 20:19:15.56ID:qFZdWehx
知らん事は馬鹿ではない
知らん事を馬鹿だと思っている事が馬鹿なのだ

366デフォルトの名無しさん2018/01/15(月) 20:29:16.79ID:yL7WiRbH
村本?

367デフォルトの名無しさん2018/01/15(月) 20:36:20.49ID:3WbICYQr
>>365
いじってみてもどうなっているか理解できないから馬鹿だろうが。そもそも製品の構成すら理解しとらん馬鹿だし。

368デフォルトの名無しさん2018/01/15(月) 20:48:05.73ID:qFZdWehx
>>367
そんな事よりもボクはキミ自身が馬鹿なのだよという話をしているのだけれども

369デフォルトの名無しさん2018/01/15(月) 21:26:47.29ID:3N9Vi6BJ
知らないこと と 自分の力で理解できないことを一緒にして他人を煽ることしかできない馬鹿

ID:3WbICYQr

370デフォルトの名無しさん2018/01/16(火) 16:19:30.22ID:BeNqsycH
開発中に気が触れてしまう人もいるので、そっとしておきましょう
ここでは、開発が本業でなく、例えば八百屋さんがプログラムをいじってるなんて場合もあるのだから
自分の狭い専門分野で人を見下すのはバカ丸出しなんだよね

371デフォルトの名無しさん2018/01/16(火) 19:32:19.61ID:sMiE+lp1
>>370
八百屋ナメんなよコラ。お前市場行ってセリで買えるか?セリにsnipetなんかねえんだよ。
全部キロ単位の値段設定だぜ?即座に頭で歩留まり計算しておかないと儲け出ねえんだぜ?
八百屋、魚屋のような生モノ扱う仕事は常にtry-catch-finaryでロスが出ねえように考えて仕入れ販売
しないとあっさり赤字こくんだよ。
コード屋はそりゃ大変だろうが、楽な仕事なんかねえんだよ

372デフォルトの名無しさん2018/01/17(水) 01:08:40.33ID:1Qaovn3i
>>370
青果市場のセリで、キャベツを指差しして「これは白菜ですね!」とか大声で叫んでみろよ。
お前のようなゆとりの馬鹿が社会をダメにする。

373デフォルトの名無しさん2018/01/17(水) 12:24:06.42ID:bthN5Jmq
気がふれた自覚があるのこの人?

374デフォルトの名無しさん2018/02/03(土) 08:34:10.13ID:nKXUpnsB
Integerが2バイトしかないなんてヒドイ

375デフォルトの名無しさん2018/02/03(土) 09:01:48.21ID:nKXUpnsB
VB6では任意に例外を投げることはできないのでしょうか

376デフォルトの名無しさん2018/02/16(金) 05:57:15.07ID:W1XJdyx1
☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が3分の2を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

377デフォルトの名無しさん2018/02/26(月) 06:40:53.98ID:eCGyw0Qs
Private Sub Form_Load()
  Text1 = "106.456"
  Command1.Caption = "▲"
End Sub
となっています

1ドルなん円という数字が入っていて
小数2位以下はいらないので▲ボタンを押すごとに
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
2行のプログラムをつくりましたが、あら不思議、これは動きません
Intが悪さをしている、Intはいらないと分かったのですが
なぜIntが悪さをするのでしょうか

378デフォルトの名無しさん2018/02/26(月) 08:10:45.22ID:alXZrH5L
整数型に変換するから

379デフォルトの名無しさん2018/02/26(月) 11:36:26.78ID:eCGyw0Qs
整数型に変換してるんですけど
INTの外にある「+1」が無効になる感じです

380デフォルトの名無しさん2018/02/26(月) 12:40:59.80ID:YJGi4a16
v& = Clng(Val(Text1) * 10) + 1

381デフォルトの名無しさん2018/02/26(月) 13:21:07.72ID:WN96vgWt
Dim v&
この瞬間見る気が失せた

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

382デフォルトの名無しさん2018/02/26(月) 19:01:29.09ID:eCGyw0Qs
お二方のは、最初の1回だけ動いて、
以降は動かなくなりましたよ
しかしCsngやValだと
106.456→106.500→106.600→106.700・・・
としたいところ
106.456→106.600→106.700・・・
になってしまうけど、まぁ動きました
お手間をとらせました、有難うございました

383デフォルトの名無しさん2018/02/26(月) 19:06:37.17ID:/Ydpjrs/
根本的にわかってない奴

384デフォルトの名無しさん2018/02/26(月) 20:28:52.46ID:eCGyw0Qs
ああ分かったよ
実数の扱いの深い部分だね
Debug.Printで見ても表示されないから分からなかったわけだ

385デフォルトの名無しさん2018/02/26(月) 20:48:01.22ID:eCGyw0Qs
これだ
? Csng("125.600") * 10
1256

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

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

386デフォルトの名無しさん2018/02/27(火) 10:46:57.34ID:58fQJcC7
こんなやつが作ったソフトを使う人がいるのかと思うと・・・

387デフォルトの名無しさん2018/02/27(火) 19:18:36.84ID:ckmPPEEZ
>>386
と思うだろ?ところがすっとこどっこい
お前が使ってるソフトを作ってるやつも似たりよったりなんだぜw

388デフォルトの名無しさん2018/02/27(火) 19:24:31.43ID:Al9WGUeE
VB.Net ではなくVB6.0を愛用してます。
世の中64ビットOSになり、次は128ビットになりっとどんどん大きくなると思うんですが、
今まで作成した私のVB6.0のアプリは今度どうなるのでしょうか。
多少VC++が分かるんですが、実装するのはやっぱり使い慣れたVB6.0が手っ取り早いし簡単で、ずっと使いたいんですが、、、

389デフォルトの名無しさん2018/02/28(水) 01:00:36.09ID:2+QamQQ/
>>388
馬鹿は死ねばいいよ

390デフォルトの名無しさん2018/02/28(水) 08:01:30.43ID:hBhv/I2a
>>388
切迫感無いですね
保全関係の請負で食べてる人ですか?
それだけ過去資産持ってるならそれをC++なりで再現する方向で精進するのが普通の発想だと思いますがね

391デフォルトの名無しさん2018/02/28(水) 08:17:03.83ID:odMMDySc
>>388
OSがランタイムサポート打ち切るだろうからお前も死亡

392デフォルトの名無しさん2018/03/05(月) 16:53:20.52ID:Vud36prW
>>391
具体的にサポート切る話出てます?

393デフォルトの名無しさん2018/03/07(水) 22:19:09.25ID:rslQbK+P
Basic系の言語って
今でも有るのですか

394デフォルトの名無しさん2018/03/07(水) 23:54:20.09ID:fiBk/l1y
「系」で良いのなら全ての現代的プログラミング言語は
BASICの影響を受けたBASIC系言語と言えるよ
プログラミング言語の系図ぐぐってみ

395デフォルトの名無しさん2018/03/08(木) 00:13:41.52ID:FnIaUAPR
修正
Basic言語って
今でも有るのですか

396デフォルトの名無しさん2018/03/08(木) 00:56:07.07ID:MPGMUJOe
>>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

397デフォルトの名無しさん2018/03/08(木) 01:25:09.32ID:eYpvJZJ4
>>395
馬鹿は死ねばいいよ

398デフォルトの名無しさん2018/03/08(木) 09:11:53.19ID:oo8HBoOw
>>397
おまえそれしか言えないの?

399デフォルトの名無しさん2018/03/08(木) 16:00:50.26ID:FnIaUAPR
大昔N88やクイックBasicで
遊んでいたのでちょっと気に成った

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

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

401デフォルトの名無しさん2018/04/14(土) 13:16:18.18ID:o+IDV1P4
例えば適当なテキストファイルがあって、それをエクスプローラで
12♬34.txt
とリネームします
これをVBのプログラムで読むには?

402デフォルトの名無しさん2018/04/14(土) 20:38:42.77ID:cGW/rI9o
そもそもVB6ってロングファイルネームサポートされてないんじゃ?
8.3形式のファイル名で読むしかないんじゃね

403デフォルトの名無しさん2018/04/15(日) 21:30:44.63ID:3gCJYAlM
>>398
そいつはこの板を荒らしてるBasicジジイだ。触っちゃいけない

404デフォルトの名無しさん2018/04/18(水) 00:07:35.39ID:tthgPYsW
>>401
そもそも VB6.0 のコードエディタに貼り付けても化けちゃうしw
CreateFileW 等の API を使ってゴリゴリ書くしかないだろうね。

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

405デフォルトの名無しさん2018/04/18(水) 01:10:14.49ID:Fou0n0Q0
まだ使ってる人いるのかw
VBって割と最初からUnicode対応だと思ったけど、IDEのエディターやコンパイラは対応してなかったのかw

406デフォルトの名無しさん2018/05/23(水) 19:48:49.05ID:Au5e7VGg
僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法 モニアレフヌノ』

LVCSB

407デフォルトの名無しさん2018/05/24(木) 10:57:47.97ID:cPlRxlDn
LVCSB

新着レスの表示
レスを投稿する