(´д`)ウッ…　VB初心者質問スレ Part15

**エロチカセブン** · NG

**デフォルトの名無しさん** · NG

>>355

VBのバージョンを明記すべき。
VB6.0以前と.NETでは、答えが全然違うものと思われ。
(つうか、VB6.0以前では、スレッド並行処理は不可能では？？)

**デフォルトの名無しさん** · NG

>>356
できることはできるがサポート外

**355** · NG

申し訳ありません。
VBのバージョンは6.0です。

**デフォルトの名無しさん** · NG

>>357
それをできるというのはどうかと思うが

**デフォルトの名無しさん** · NG

皆さん、ＶＢの検定は難しいのでしょうか？？今年か来年に受けるのですが・・・・経験者の方いますか？？

**デフォルトの名無しさん** · NG

>>360
そんなもんあるのか

**デフォルトの名無しさん** · NG

>>361
MSがやってるベンダー試験のことじゃないか？
VB以外にもNT ServerとかSQL Serverとか色々有った気がする。

**デフォルトの名無しさん** · NG

ＶＣ検定ってのも聞いたことがあったが本当にそんなのがあるのか。
ＭＳぼろもうけだな。

**３６０** · NG

学校でＶＢの授業があって、検定に向けて授業をやってるんですけど・・・
どのくらいの難易度なのか分からないんですよね・・３級だからそんなに難しくは
無いと思うけど・・・どうなんでしょう？？

**362** · NG

MSのベンダー試験じゃないようだ。
「VisualBasic技術者能力認定試験」っていうのがあるみたいだね。
初めて知った。難易度は知らん。

これの本試験対策講座をやってみたいのだがどうしたもんか(w
http://www.it-system-jp.com/vbkentei3.html

**デフォルトの名無しさん** · NG

始めまして。
WinXP,VisualBasic6.0-SP5でリッチテキストボックスを使ったテキストエディタもどきを作っています。

タブキーを押すと出る空白の長さを標準(半角スペース8コ分?)から変えようと思っています。
で、ここの過去スレッドに書いてあった「EM_SETTABSTOPSメッセージをSendMessage APIでテキストボックスに投げる」
を試してみたところ、普通のテキストボックスだと上手く行ったのですが、リッチテキストボックスだと動作しませんでした。
しかしMSDNにはテキストボックスでもリッチテキストボックスでも動作すると書いてあったので、
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/editcontrols/editcontrolreference/editcontrolmessages/em_settabstops.asp
私のコードが間違っているのかもしれませんけど。。(´Д⊂

ダメだったのでまた探したところ、同じくSendMessage APIでEM_SETPARAFORMATメッセージをリッチテキストボックスに送信して設定する方法というのが見つかりました。
ただ、肝心のパラメータの指定方法が分かりませんでした。それでいまこうして質問させていただいている次第です。

「ここはこうしたほうがいい」、「こういう方法でできる」でも結構ですので、よろしくお願いします。
長文すみませんでした。

以下その方法を使って私が書いたソースです。

**366** · NG

文字数制限に引っかかったので分割しました。
'標準モジュールのコード---------------------
'-- API 定数
Public Const WM_USER = &H400 : Public Const EM_SETPARAFORMAT = (WM_USER + 71)
'-- API 関数
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _
　　ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
'-- 構造体
Type PARAFORMAT2
　　cbSize As Long :　dwMask As Long : wNumbering As Integer : wEffects As Integer
　　dxStartIndent As Long : dxRightIndent As Long : dxOffset As Long : wAlignment As Integer
　　cTabCount As Integer : rgxTabs(31) As Long : dySpaceBefore As Long : dySpaceAfter As Long
　　dyLineSpacing As Long : sStyle As Integer : bLineSpacingRule As Byte : bOutlineLevel As Byte
　　wShadingWeight As Integer : wShadingStyle As Integer : wNumberingStart As Integer : wNumberingStyle As Integer
　　wNumberingTab As Integer : wBorderSpace As Integer : wBorderWidth As Integer : wBorders As Integer
End Type

'フォームのコード---------------------------
'-- タブ幅設定
' パラメータをセット
Dim udtParaFormat As PARAFORMAT2
With udtParaFormat
　　.dwMask = PFM_TABSTOPS
　　.cTabCount = ? 'ここがわからない
　　.rgxTabs(0) = ? 'ここがわからない
End With
'SendMessageでメッセージを投げる
Call SendMessage(RichTextBox1.hwnd, EM_SETPARAFORMAT, 0, udtParaFormat)
RichTextBox1.Refresh

'--ここまで-------------------------------

**デフォルトの名無しさん** · NG

テキストファイルを、任意の行から読み取りたい場合はどうすればいい？

一行のバイト数は不定です。

Line Inputを行分ループするしかないのかなー。
もっと高速に動作させたい。

**デフォルトの名無しさん** · NG

>>365
なんじゃそこは。
ソースにパスワードが書いてある。

**デフォルトの名無しさん** · NG

>>368
ファイルの最初にインデックスでも持たせたら。

**デフォルトの名無しさん** · NG

>>366
　　.cbSize = Len(udtParaFormat) 'これを忘れずに
　　.cTabCount = MAX_TAB_STOPS '=32
　　for x=0 to .cTabCount-1
　　　　.rgxTabs(x) = タブ幅 * (x + 1)
　　next

タブ幅はtwipsで指定。
ちなみにヘルプにちゃんと書いてある。

**デフォルトの名無しさん** · NG

>>370
インデックスを持ってもこの場合は意味無くない？

**366** · NG

>>371
ありがとうございます。
もうちょっとよくヘルプを見るようにします。。

**362** · NG

サイト覗いてたらなんかむかついてきたな。
誰かがここに直接アドレスを貼り付けてそこから飛んだら
不正アクセスにはならんよな。
普通ならちゃんとしたアクセス制限かけてあるはずだし。普通なら。

**デフォルトの名無しさん** · NG

>>374
だよな。HTMLソース自体にパスワードが書いてあるものを、
ページ見たからといって不正アクセスだと言われても困る。

**デフォルトの名無しさん** · NG

>>372
Seek ステートメント使って読みたい位置まで移動すればいいじゃん。

**デフォルトの名無しさん** · NG

フォルダの判定とか、"\"で判定しています。
でも英語のソフトとかだと"/"のが多いですよね。
英語版Windowsで動かすとこの辺の仕様とか変わってくるのでしょうか？

**デフォルトの名無しさん** · NG

FileSystemObject使えよ

**355** · NG

CreateThreadを使えばできるようなことを聞いたのですが、
ＶＢでCreateThreadは使えるのでしょうか？

**デフォルトの名無しさん** · NG

>>379
CreateThreadできることはできるのだが、スレッド内で何か操作すると
途端にアプリが落ちる(w
他モジュールやフォームをいじると落ちるんだっけかな。
よって、実際は使えない。VB6の場合ね。
VB5の場合は一応使いようによってはOKらしい。

**355** · NG

>>380
返答ありがとうございます。
スレッドではORACLEへのストアドコールを行います。
数分返答がないようなストアドをコールします。

スレッドが処理中（ストアドコール中）にGetExitCodeThread,
ExitThread等を行うとやはりエラーとなるのでしょうか？

自分で作成したＤＬＬ内部でスレッド生成を行いたいのですが、
重い処理をしてもＥＸＥが返答待ち（固まらない）しない事を
実現したいと思っております。

**デフォルトの名無しさん** · NG

>>381
スレッドを使わなくてもストアドコールとかは非同期で実行できるんじゃないか？

**355** · NG

>>382
本当ですか！
よろしければ実現方法を教えて頂けないでしょうか。

**デフォルトの名無しさん** · NG

>>355

VBでマルチスレッドにするならActiveX DLLにするしかないかと思います。

http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/0008/com/

**382** · NG

>>383
すまん。しらないんだ。ADOとかで非同期で実行するという引数やらなんやら
あって常識的に考えれば出来そうだなぁと思っているだけ。
今までやったこと無い。個人的にはやりたいんだがなんで要望でないかなぁ(w

**デフォルトの名無しさん** · NG

>>383
ADO をつかっているなら、 execute メソッドの options に adAsyncExecute
を指定すれば出来ると思います。

やったことないので、外してたらゴメン。

**デフォルトの名無しさん** · NG

すいません、超初歩的な質問なんですが…
ランダム関数で、1～100までの乱数を発生させるのは

Int(Rnd() * 100) + 1

ですが、50～100までの乱数が必要な場合はどの様に求めればいいのですか？

**ふなはすです（ＱＯＯ）** · NG

横スクロールのシューティングゲームのソース
（ＶＢ）　があるサイト教えて♪

**デフォルトの名無しさん** · NG

>>387
おまえのレスの
> Int(Rnd() * 100) + 1

Int(Rnd() * 100) 　は乱数の範囲：０～９９
1　は乱数の最低値

あとは自分で考えてみ。

**デフォルトの名無しさん** · NG

>>389
あ！

Int(Rnd() * 100) + 50

ですよね!?
どうもありがとうございました！

**デフォルトの名無しさん** · NG

>>390
・・・自信満々で間違うなよｗ
ネタだよな？
焦っただけだよな？
そうだと言ってくれ！

**デフォルトの名無しさん** · NG

>>391
え!!
違うの…

かなり自身満々だったのに
ｳﾁｭ

**デフォルトの名無しさん** · NG

>>392

>>389の乱数の範囲：０～９９てのを０～５０にしないとな。

**デフォルトの名無しさん** · NG

>>392
次も自信満々で
Int(Rnd() * 50) + 50
とかやってくるんだろーなー

**デフォルトの名無しさん** · NG

>>393,394
まんまと394の様にしようと思ってたよ…。
（'･ε･`）ｼｮﾎﾞｰﾝ

**デフォルトの名無しさん** · NG

+ 激しく偏り +
　　　　　　　　　　　+ 激しく失敗 +

Int((Rnd() + Rnd()) * 51 / 2) + 50

**デフォルトの名無しさん** · NG

ゲッ！
俺Rnd関数、０～１が返ると思ってた。

**デフォルトの名無しさん** · NG

>>396
これが正解なんですか？
ありがとうございます。
使ってみます！

**秋山蓮** · NG

>>390
はしゃぐな！！

**デフォルトの名無しさん** · NG

Rnd 関数は 0 以上、1 未満の範囲の値を返します。
引数 number の値によって、Rnd 関数が返す乱数が決まります。
初期シード値が変わらない限り、一連の Rnd 関数が返す乱数系列は同じになります。
これは、連続する各 Rnd 関数が乱数系列の中の直前の乱数をシード値として、次の乱数を
それぞれ生成するためです。
システムタイマーから取得した新しいシード値を使って、乱数ジェネレータを初期化するには、
Rnd 関数を呼び出す前に、引数を指定せずに Randomize ステートメントを実行してください。
任意の範囲の整数の乱数を生成するには、次の式を使ってください。

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

この式では、変数 upperbound には範囲の上限の値を指定し、変数 lowerbound には
範囲の下限の値を指定します。

**デフォルトの名無しさん** · NG

>>387
おれならこうするな
do while true
r=int(rnd()*200)
if r>=50 and r<=100 then exit do
loop

**デフォルトの名無しさん** · NG

>>398

+ 激しく違う +

**デフォルトの名無しさん** · NG

>>400、401
どうもありがとうございます。
今、Accessでﾃｽﾄﾃﾞｰﾀを1万件作るためのﾐﾆｱﾌﾟﾘ作成中なのです。
　 For i = 1 To 10000
rs.AddNew
rs("Key") = Format(Int(Rnd() * 1000) + 1)
rs.Update
Next i

↑こんな感じでにRnd()はﾙｰﾌﾟの中にあるのでﾙｰﾌﾟはあまり使いたくなくて
質問しました。でも>>394の方法で上手くいきましたけど…
間違ってるのかな??ｳｰﾝ､ﾜｶﾗﾝ。

**デフォルトの名無しさん** · NG

>>403
任意の範囲の整数の乱数を生成するには、次の式を使ってください。

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

この式では、変数 upperbound には範囲の上限の値を指定し、変数 lowerbound には
範囲の下限の値を指定します。

**デフォルトの名無しさん** · NG

これでも分かんなきゃ人間やめたほうがいいよ。マジで。

**デフォルトの名無しさん** · NG

>>404
ありがとうございます。
今、その方法で取組中です。
たくさんｱﾄﾞﾊﾞｲｽいただけてﾎﾝﾄ感謝です。

>>405
大丈夫です！何とか理解できました(,,ﾟДﾟ)ｷﾞﾘｷﾞｾｰﾌ

すいません、入社したばかりのﾍﾀﾚ女性ﾌﾟﾛｸﾞﾗﾏです。
どうもｱﾘｶﾞﾄございました。

**デフォルトの名無しさん** · NG

>>406
(*´д`*)

NG

>>406

これぐらいカンタンだとレスはたくさんくるよ（ｗ
しかも突込みどころ満載だったし。

**デフォルトの名無しさん** · NG

　ＶＢ初めて３日の初心者です。
　過去スレで一応調べてみたのですが、訊かせてください。
　どうかよろしくお願いします。
　環境はVB7.0です。

　Module1.vbに構造体を以下のように定義したのですが、

Public Structure data
{
Public x As Double
Public y As Double
}
　
　ビルドすると、
「Public class 'Form1' の外にある Friend 型を公開できません。」
　のようなコンパイルエラーが出てしまうのです。」

　構造体を別モジュールで定義したくてこんなことをしているのですが、
外部Moduleで宣言されている構造体を使うには、どのようにしたら良いの
でしょうか？

**デフォルトの名無しさん** · NG

>>409
【老若】VB.net質問ｽﾚ【男女】
http://pc3.2ch.net/test/read.cgi/tech/1025848458/l50

**デフォルトの名無しさん** · NG

でもさ、Rnd使ってると、な～んかいまいちランダムじゃないなぁと思うんだけども
どうでほ。

**デフォルトの名無しさん** · NG

カウントしてみ。ランダムさがよくわかる。
４００回くらいまでは偏るけどね。（０から９までのとき）

**デフォルトの名無しさん** · NG

Randomizeしてないだけとか言うなよ。

**デフォルトの名無しさん** · NG

>>411
Randomizeしても同じ数値が連続したことがあった

**409** · NG

>410
　ごめんなさいわかんないっす…
　（：Ａ；）ハウー

　「作成したモジュールに、フォームのインスタンスを渡す」
　ってところなのでしょうか？

**デフォルトの名無しさん** · NG

shell関数とOpenProcess関数ではどちらの方が
起動時間がはやいんですか？

**デフォルトの名無しさん** · NG

自分でやってみるのもオツなものです

**デフォルトの名無しさん** · NG

>>414 何度もRandomizeしたとか言わないでね。

**デフォルトの名無しさん** · NG

>>414
100回振って、一度も同じ目が連続して出ないサイコロはイカサマです。

**デフォルトの名無しさん** · NG

美容室向けの予約システムを作っているのですが、
どうしてもスケジュール表(時間割)部分の作り方がわかりません。
Gridのコントロールだと時間軸の上に｢10:00｣というような表示ができないのでこまっています。
横が時間軸で縦にスタッフの名前でただ該当の時間がいろで塗りつぶせて
その上にお客さんの情報を書きたいのですが、
どなたかいいやり方教えていただけませんでしょうか。
よろしくお願いします。

**デフォルトの名無しさん** · NG

今どき
VB6で動作想定環境をWIN98にして開発するのは
VBSのHPを作るようなものでしょうか？ｗ

**デフォルトの名無しさん** · NG

>>420
いろいろ方法がありすぎて、、、

>>421
VB6でWin98の何がおかしいのか？

.netでだったら問い詰めても良いけどね。

NG

>>420
表示部は、ラベルを貼りまくってやれ。
表示する中身を管理して表示しまくれ。

もしくは、文化オなんとか社が出してるスプレッドを使うんだな。

**デフォルトの名無しさん** · NG

ドラッグ＆ドロップで質問したいです。
今、ファイル名を指定してそこにあるデータを配列に落としているんですが、
これをドラッグ＆ドロップが行われた時にドロップされたファイルを
配列に落とすにはどうしたらいいんでしょうか？今、使っている命令は
こんな感じです。
Open "D:\data\all.txt" For Input As #1
For i = 1 To Ypixel
For j = 1 To Xpixel
Input #1, MOT(i, j)
Next
Next
Close #1

お願いします。

**デフォルトの名無しさん** · NG

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Open Data.Files(1) For Input As #1
...
Close #1
End Sub

但しFormのOLEDropModeプロパティを1-手動にしとく。

**４２４** · NG

ありがとうございます。試してみます。

**デフォルトの名無しさん** · NG

>>423
そういったOCX等使うと、msiインストーラー作るとき、
OCXやらDLLやらがたくさんアプリケーションフォルダにいれられてごっちゃになるんですがいいほうほうはないでしょうか？

**お茶丸** · NG

じつはiMode用のメール保存閲覧ソフトを作りたいと思うのですが、
有効な情報がなかなか得られません。
もしよろしかったら少しでも結構ですので作成のヒント、
関連する情報など教えていただけないでしょうか？
一方的ですみませんが何卒よろしくお願いします。

**デフォルトの名無しさん** · NG

>>428
一方的もなにも、わけわからんぞ。

・必要と思われる機能の定義
・利用しようと思っているOS、開発環境、アプリ

ぐらいは書け。なるべく具体的に。

**598** · NG

まいった

**デフォルトの名無しさん** · NG

教えて下さい

double型の変数の小数点以下を切り捨てたいのですが
「￥」を使うと、以下の様な場合答えが４になってしまいます。

a=3.99
b = a \ 1

何か方法はありませんか？

**デフォルトの名無しさん** · NG

IntかFix

**デフォルトの名無しさん** · NG

>>432
たすかりました
ありがとうございます

**デフォルトの名無しさん** · NG

VB6 で、フォームの width と height をiniファイルに保存しておいて、
フォームを開くときに保存されていた値を読んでその値にフォームのサイズを変更しておこうとおもって、
Form_Load でiniファイルの値を読んでセットしているんですがうまくいきません。
なにか足りないことでもあるのでしょうか？

**434** · NG

できた。

**デフォルトの名無しさん** · NG

>>432
Int(1.15*100) ではまる罠

**お茶丸** · NG

大変失礼しました(汗)
☆必要な機能
　携帯電話とＰＣをＵＳＢにて接続し、ウインドウズアプリより携帯に対し、メールを送受信したい

☆希望する動作OS
　WindowsＸＰ

☆開発環境
　Ｍｉｃｒｏｓｏｆｔ　ＶｉｓｕａｌＳｔｕｄｉｏ　6.0　のＶＢまたはＶＣ、ＶＪ

☆アプリ
　外部アプリは使用しない

以上です。すみません初投稿なもんで(汗)もしご存知でしたらよろしくおねがいします<(_ _)>

**お茶丸** · NG

追加です
現状として、携帯電話になんらかのコマンドを送出すると、対応した情報
(電話帳データ等)が返ってくるのはわかっています。
どんなコマンドを送出するとメール内容が取得できるのか、またクラスやＡＰＩ
が提供されているのか、当方では力不足で調べられませんでした。

**デフォルトの名無しさん** · NG

>>438
ここは初心者の館だよ。

**デフォルトの名無しさん** · NG

>>438
そんなの機種によって違うんじゃないの？一緒なの？

**４２４** · NG

>>425
うまく取り込めました。ありがとうございました。

**デフォルトの名無しさん** · NG

ヘルプなんですけど、HTMLヘルプ使ってます。
FormとかにHelpContextIDってプロパティーがありますが、この項目は従来のヘルプにしかつかえないんでしょうか？

**デフォルトの名無しさん** · NG

ここってクリスタルレポートとかの質問もありですか？

**デフォルトの名無しさん** · NG

>>443
ありです。

**443** · NG

それではすいません、質問させてもらいます。
詳細に10行だけ出力して改ページしたいんですが、
どこでどういう風にすればよいのかわからないんですが･･･。
ちなみにverは8.5です。

**445** · NG

すいません何に関しての質問か抜けました。
クリスタルレポートに関してです。

**デフォルトの名無しさん** · NG

>>438
そいうものが公開されてないのにはそれなりの理由がある。
ネタじゃなければ今後気をつけなよ。

**デフォルトの名無しさん** · NG

MOVEFILE_WRITE_THROUGHという定数って値なんでしょう？
手持ちのAPI Viewerにのっていないんですが・・

**デフォルトの名無しさん** · NG

>>445
１．明細にサブレポートを使う。
２．10行印刷されるとちょうどページの縦の幅がなくなるように、ページヘッダ、ページフッタなどの高さを調節する。
３．印刷する前のレコードに、10件づつインクリメントする番号を振っておいて、それでグループ化。
など思いつきました。

**デフォルトの名無しさん** · NG

>>448
#define MOVEFILE_WRITE_THROUGH 0x00000008

WINBASE.Hにあった。

**４４８** · NG

お、ありがとございます。
これってようするに8のことですよね？

**デフォルトの名無しさん** · NG

>>448
>手持ちのAPI Viewerにのっていないんですが・・
アホを晒してはいけない....載っていない定数なんていくらでもある
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/movefileex.asp

英語が読めない場合、首を括るなり辞書を引くなりしてくれ

**４４８** · NG

>>452
おうっと。
ありがと。（ｗ

**デフォルトの名無しさん** · NG

すごく大きな数（倍精度浮動小数点数型）が見にくいので
1.23456E+8
というような表示にして出力したいんですがどうしたらいいですか？

**デフォルトの名無しさん** · NG

>>454
Format関数で第二引数"Scientific"指定とかどうかね。

(*´д`*)ウッ… VB初心者質問スレ Part15

(´д`)ウッ…　VB初心者質問スレ Part15