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

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

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

>>287
「状態」を保存しておく変数をひとつ持ってそれをもとにアクティブにするコントロールを割り出すとか。
各コントロールの状態からアクティブにすべきコントロールを返す関数を用意しておくとか。
いろいろあるじゃん。

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

>>287
タイマーコントロールでグローバル変数にアクティブコントロールを
保存しとくってのがVB房らしくていいぞ

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

>>287
タイマーコントロールで1秒おきにグローバル変数にアクティブコントロールを
保存しとくってのがVB房らしくていいぞ

**284** · NG

>>288
ありがとうございます。

>「状態」を保存しておく変数をひとつ持って～
つまり、状態Ａならこれ、状態Ｂならこれ……という感じですかね。
その状態の"変化"を感知するにはやはりすべてのコントロールのイベントプロシージャが
必要になってくるのかな、と思いますが、どうでしょうか。

>各コントロールの状態から～関数を用意しておく
その関数内ですべてのコントロールを調べて該当のものを返す、と。
つまりコントロールになにかしらの目印(フラグ)が必要になってきますね。(Tagプロパティを使ったり)
だとするとやはり、各コントロールのイベントプロシージャを記述する必要が……(?)。

**284** · NG

>>289 >>290
ありがとうございます。
タイマーを使うとは考えつかなかったです。
確かにこれで要件は満たせそうですが、極力無駄なイベントを発生させたくないのと、
タイマーコントロールは規約で使用不可だった気が……ｽｲﾏｾﾝ。

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

>>292
タイマーはおそらくネタだから無視しろ。

**284** · NG

>>293
あっ、そうなんですか（笑）
失礼しました。
「そういう方法もあるな」とマジメに思ってしまいました（笑）

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

>>269
UNIX時間が欲しいなら、
UnixTime = DateDiff("s", #1/1/1970#, dateVB) - 32400 'JST-9
で取れる。

？ · NG

>>291
フォーカスの移動自体を無くせばいいと思います。
イメージコントロールはフォーカスを取得しないので、
押されてない状態のボタンの絵と押された状態のボタンの絵を
イメージコントロールで切り替えてそれをコマンドボタンの代わりにすればよろしいかと。

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

>>294
ネタじゃねーぞ

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

キーボードで操作できないボタンってのも、VBらしくてス・テ・キ。

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

>>297
マジだったのか。これだから VB 厨は...。

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

VB初心者スレ
歴代１位の厨は誰ですか？

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

？はドラマ板のロッカーの花子さんスレにも書き込んでたな

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

VB6でFormのタイトルバーを独自のものにしたいです。（色とか）
どうやれば出来ますか？簡単には出来そうもないので質問してみます・・・

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

>>300
お　ま　え

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

>>302
タイトルバーなしにして、自分で描画すればー。

**300** · NG

>>303
そんなバナナ

**284** · NG

>>296
ありがとうございます。
イメージを使った「偽コマンドボタン」ですか。
おもしろいかもしれませんね。

結局、「一つ前のコントロールにフォーカスを移す」仕様はやめました（笑）。
そこまで要求されませんでした。
皆さんありがとうございました。

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

すみませ～ん。
ピクチャーボックスで文字を表示してるのですが、
ピクチャーボックスに自動改行機能を付けるには
どうしたらいいのでしょう？

それと、適当な文字が左から何ドット上から何ドットの
位置にあるか取得できたら、自動改行ができるような
気がするのですが、取得方法はありますか？

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

>>307
プログラムしろよ！
なにかわからないところがあるならそれを質問しろ。

？ · NG

>>298
キーボード操作なんて簡単に実装できますよね？
>>299
タイマー使うのそんなに実害あるかな？そんな事より、
使う使わないはともかく、一番短いコードで実現できる点を評価したい。

自分じゃ何も思いつかない能無しが見当違いの煽りしてんじゃないよ。
とかたまには言ってみたりしていいですか？

>>301
別の人ですね。今のところ？はこのスレでしか使ってないです。
でもあのドラマは何回か見ましたよ。面白かった。

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

>>307
TextWidthで文字幅がわかるから、文字の描画位置は自己管理しる。

**310** · NG

APIのDrawText関数を利用する手もあるかな。

1 · NG

文末の vbCrLf を削りたいのですけど、どういった方法がいちばんスマートでしょうか。

たとえば、Foo = "ABC" & vbCrLf & "DEF" & vbCrLf の場合の、
Perl で言うところの chop Foo や、Foo =~ s/\n$// です。

**312** · NG

すんまへん。あげます。

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

>>312
hoge = Replace(hoge,vbCrLf,"")
じゃ駄目なの？

**312** · NG

>>314
それだと文中の vbCrLf も削られます。

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

>>315
あぁ、なるほど。
If Right$(hoge,2)=vbCrLf Then
　　hoge = left$(hoge,Len(hoge)-2)
End If
ってやって地道にやるしかないよーな…。

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

>315
hoge = Left(hoge, Len(hoge) - 2)& Replace(hoge, vbCrLf, "", Len(hoge) - 1, 2)
か？

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

Perlと同じように正規表現使ってやればいいじゃん

**312** · NG

>>316-317
うへえ。泥臭いことしなくちゃいけないんですね。

>>318
.NET ぢゃないんです。

**318** · NG

>>319
> .NET ぢゃないんです。
わかってるって。

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

>320
Microsoft VBScript Regular Expressions 5.5を参照設定しる。(WSH5.6必要)
でもたかだかそのためだけにって感じも無きにしも非ず。

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

VBSってここで聞いていいでちゅか？

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

>>307
マルチポストかよ。

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

>>322
おっけ。

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

>>309
実害以前に、耐えられない仕様だ。
１秒おきの場合、
最後にTimerの関数が実行された後、ボタンが押されるまでに、
フォーカスが複数移動したらどうするんだ？

ってことは思いつかなかったんでしょうか？

すなおに TabStop = True であるコントロールの GotFocus イベントに書くのが余計な負荷をかけない。

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

>>325
まあまあ、VBだから許してあげてよ。

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

GotFocusにイベントを書くとめんどくさいから、クラスを作って
コントロールごとインスタンスを割り当ててそこから、
フォームに通知した方がいいね。

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

>327
サンプルきぼん

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

>>328
適当に作ったけどこんな感じかな。
Formにいくらコマンドボタンを置いても共通のIAllGotFocus_AllGotFocusが発生する。
この例はコマンドボタンだけ対応。他のコントロールに対応したかったら、
それ専用のClass1を作成するか、Class1を改造したり、まぁ他にも色々工夫してくれ。

<Form1>
Implements IAllGotFocus
Private m_controls As New Collection

Private Sub IAllGotFocus_AllGotFocus(ByVal ctrl As Control)
　　Debug.Print ctrl.Name
End Sub

Private Sub Form_Load()
　　Dim ctrl As Control
　　For Each ctrl In Controls
　　　　If TypeOf ctrl Is CommandButton Then
　　　　　　Dim c1 As Class1
　　　　　　Set c1 = New Class1
　　　　　　c1.SetControl ctrl, Me
　　　　　　m_controls.Add c1
　　　　End If
　　Next ctrl
End Sub

Private Sub Form_Unload(Cancel As Integer)
　　Set m_controls = Nothing
End Sub

**つづき** · NG

<Class1>
Private WithEvents m_cmd As CommandButton
Private m_AllGotFocus As IAllGotFocus

Public Sub SetControl(ByVal ctrl As Control, ByVal AllGotFocus As IAllGotFocus)
　　Set m_cmd = ctrl
　　Set m_AllGotFocus = AllGotFocus
End Sub

Private Sub m_cmd_GotFocus()
　　m_AllGotFocus.AllGotFocus m_cmd
End Sub

<IAllGotFocus>
Public Sub AllGotFocus(ByVal ctrl As Control)

End Sub

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

要するにDecoratorパターンだな。

**328** · NG

>329
ｔｈｘ－
なるほど。たしかにｽｯｷﾘしてていいすね

Implementsってこう使うのか。。

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

へ～そんなことができるんだ。
<IAllGotFocus>
↑ってどういうこと？モジュールかな？

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

いちばん便利なのはGoToだ

**みのもんた** · NG

>>334
正解！

？ · NG

>>325
＞実害以前に、耐えられない仕様だ。
つまり目立った実害は無いという事ですか？
タイマーイベント内もたった一行だし余計な負荷がかかると言ってもたかが知れてますしね。

＞１秒おきの場合、最後にTimerの関数が実行された後、ボタンが押されるまでに、
＞フォーカスが複数移動したらどうするんだ？ってことは思いつかなかったんでしょうか？
インターバルを調節すればいいってことは思いつかなかったんでしょうか？

＞すなおに TabStop = True であるコントロールの GotFocus イベントに書くのが余計な負荷をかけない。
だったらそう書けばいいのになんで余計な煽りするんですか？
質問者が他に手段はないかと聞きに来てる時に手段の１つとして上げてる、適切なレスだと思いますが。

つまらない言い合いしてすみません。。。
でも自分的にはくだらない煽りより面白い意見を聞きたいと思うんです。

>>329
そんなことが出来るんですか。勉強してみます。

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

>>336
> インターバルを調節すればいいってことは思いつかなかったんでしょうか？

インターバルを調整しても、本質的には解決しませんよ。
Timerは優先順位が低いので、負荷がかかるとイベントが後回しになり
取りこぼすことになります。

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

date型の変数の初期化ってどうするのが最良ですか？

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

ファンタジィと呼ばれるピンク色の汁を出すよ

**338** · NG

Emptyを代入。それでいいのだな？

**325** · NG

>>336
以上のような理由でネタもしくは、
質問者を混乱させようという悪意かと思っただけ。
なので、質問者が混乱しないようにネタだと注意をしておいただけ。
あおってはいない。

>>337にもあるとおり、実際取りこぼしのないようにインターバルを
を小さくすればするほど余計な負荷がかかる上に、
どれだけ小さくしても完全ということはない。

＞質問者が他に手段はないかと聞きに来てる時に手段の１つとして上げてる、適切なレスだと思いますが。
質問を良く見てみろ。
この手法はすでに質問者が自分で言っていて、他にいい手段はないのかと問ういている。
だからわざわざ質問者に対して書くべきことでもなかったのだ。

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

質問です。

Dim Date1 As Date
Dim Date2 As Date

Dim Min As Integer

Date1 = "2002/09/30 12:00:00"

で、Date2にDate1のMin分後の日時を入れたいんですが、
スマートな方法教えてください。
お願いします。

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

>>342

DateAdd 関数

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

>>343
ありましたね。
ありがとうございました。

**327=329** · NG

>>333
あぁ、そうか。使ったことが無い人にはいきなり名前だけ書いてもわからんわな。

<Form1>はフォームモジュール、<Class1><IAllGotFocus>はクラスモジュール。
ちなみにIAllGotFocusのIはこれがインタフェースであることを表している。
VBはクラスもインタフェースも宣言が同じなので名前でわかりやすくしている。

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

VB6.0初心者です。相談に乗ってもらいたくて来ました。モマー（；´Д⊂　
MSDNのヘルプを見ながらTCPのサーバーを作ってます。
クライアントからの通信を、クライアントそれぞれに返したいのですが、
色々いじっても、１つのクライアントにしか返送できませんでした。
（最初に立ち上げたクライアントしか返らない、通信を送ったクライアントにしか
　返送しない。最後に立ち上げた～以下略。下のソースは、最初に～の一部です。）

Winsock1(Index).GetData strData
txtData(Index).Text = strData

For i = 1 To intMax Step 1
If Winsock1(i).State = sckConnected Then
Winsock1(i).SendData strData
End If
Next

通信が確立しているソケット全てに対して、データを送っているイメージで、
プログラミングしています。
ちなみにクライアントとサーバ間はどれも通信はできていました。
通信できる状態でも、sckConnected 以外の値を取ったりしているのでしょうか？
それとも何か根本的な間違いをしてるんでしょうか？
わかる方がいたら教えて下さい、お願いします。

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

DeveloperとかProfessionalっていうのはどう違うんですか？
単語の意味はわかるがあらわそうとしているものがわからない。

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

6.0Enterprise Edition に付属のMSDEは配布可能なんでそうか？

**３３３** · NG

>>345
ヘ～。
ありがと～。

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

>>347

ちゃんとパッケージに書いてあるよ。
(あなたがVBを不法な手段で手に入れたのでなければね)

メーカーのテクニカルサポートサイトにも明示されているはず。

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

>>350
あんがと。
まだ買ってないので＜パッケージ
どれがいいかなと。

microsoftのページみてるけど、書いてることがいまいち意味がわからなかったりする。

例：右記の製品インストール時の追加必要システム＞　Microsoft Data Engine

これがあらわしてることがわからない。

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

それから、6.0にするか.NETにするかもなやみどころ。

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

>327 (=>329 =>345)
合格です。このスレでコテハンになる許可が下りました。

**346** · NG

http://support.microsoft.com/default.aspx?scid=kb;ja;JP409932
現在上記のページで、winsockをコントロール配列で使う時の制限事項で、
同様の問題の解決方法が載ってました。
Winsock1(i).SendData strData
DoEvents
このようにDoEventsが必要だ、との事です。お騒がせしますた。

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

はじめまして。

RaiseEventを使ってイベントを発生させております。
イベント発生先の処理が終わるまではイベント発生元の処理は
進展しないのでしょうか？

スレッドのように処理を同時に行いたいのですが、
ＶＢではどのような方法があるのでしょうか？

みなさま、宜しくお願いします。

**デフォルトの名無しさん** · 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までの乱数が必要な場合はどの様に求めればいいのですか？

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

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