◆VB初心者質問スレ Part5

1 ：引越しました：02/01/10 10:04

前スレはこちら。
　　Part1 = http://piza.2ch.net/test/read.cgi?bbs=tech&key=968328471&ls=50
　　Part2 = http://piza2.2ch.net/test/read.cgi?bbs=tech&key=990793224&ls=50
　　Part3 = http://pc.2ch.net/test/read.cgi/tech/1000523122/
　　Part4 = http://pc.2ch.net/test/read.cgi/tech/1006922992/

Win32 API関連スレ
　　http://pc.2ch.net/test/read.cgi/tech/1006783012/l50

心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調てみる。
参．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。

2 ：Part4 の 959 さんの解決されていない？質問：02/01/10 10:06

複数のコントロールが重なっている状態で、
ZOrderを使い、前面・背面移動を切り替えた場合に
各コントロール毎に表示されている重なり位置は取得できるのでしょうか？

すいません、ちょっと伝わらないと思ったので補足します。

コントロールはまったく同じではないのですが、
部分的に重なっているものとします。

最前面側
「コントロールＣ」
「コントロールＡ」
「コントロールＢ」
最下面側

上のような状態で重なっているものとして、
コントロールＡ = 1
コントロールＢ = 2
コントロールＣ = 0
の様な、ZOrderに対応した値を取得することは可能なのでしょうか？

m(＿＿)m よろしくおねがいします

3 ：Part4 の 965 さんの解決されていない質問：02/01/10 10:07

ネットワークに繋がっているPCがいくつかあるとします。
たとえばPC001・PC002・PC003の3台。
で、このネットワークに入れるユーザがいつくかあるとします。
たとえばHOGE・WOW・MAO・AFOなど

やりたいことは、各パソコンから相互に自分以外のパソコンにログインしている
ユーザ名がわかるようにしたいのです。
たとえば、PC001を使用している人は、PC002と3に今ログインしているユーザ名
を取得したい。

自分のパソコンにログインしているユーザ名は簡単に取得できますが、
ネットワークに繋がったパソコンの現ログインユーザ名は取得できないのでしょうか

よろしくお願いします。

4 ：デフォルトの名無しさん：02/01/10 10:28

仮に取得できないとしても、自分のPCにログインしている人を
返すようなサーバソフトを作ればいいと思うが。

5 ：デフォルトの名無しさん：02/01/10 11:12

>>2
コントロールがウインドウハンドルを持っていると仮定するとして、
APIのGetTopWindowでZが一番上のhWndを取得。
んで、それを目的のコントロールのhWndと比較。
GetNextWindowで次のZ順位のウインドウを探して、繰り返し。

これで一応実現できると思う。
目的のコントロールのhWnd突っ込んだらZが出るよーな関数でも
作ればいいんじゃないかな。
もっと簡単そうな方法は知らない。

6 ：デフォルトの名無しさん：02/01/10 13:38

>>3
ログインしているユーザ名が外部から知られてしまうというのは
どうなのだろうか、、、

>>4 のようにサーバソフトと、各クライアントからサーバへユーザ名を
申告するようなものを作れば良いとおもうのですが

7 ：2：02/01/10 14:42

>>5さん　ﾚｽありがとうございます。

具体的な方法で答えていただき、大変参考になりました。

重なりで使用するコントロールを調べたところ、
ハンドルを持ってるコントロールもありますが、
持ってないコントロールもありました。

とりあえず、ハンドルが取得できるものだけでも
この方法で試してみます。

ありがとうございます。

8 ：デフォルトの名無しさん：02/01/10 15:09

WinSockコントロールを使用して簡単な通信アプリを作っています。
ポート番号は、1024番以降であれば好きに使ってよいのでしょうか?

9 ：デフォルトの名無しさん：02/01/10 15:29

>>8
10000以上にしましょう

10 ：デフォルトの名無しさん：02/01/10 15:46

>>8
http://www.iana.org/assignments/port-numbers
The Dynamic and/or Private Ports are those from 49152 through 65535
ってあるから、まぁ50000以上にするのが無難かもしれないけど、10000以上なら
隙間が空きまくりなので問題ないでしょ。いちおうかぶらないよう気をつけて。

#9801がRFCに登録されてたのは驚いた。

11 ：デフォルトの名無しさん：02/01/10 15:51

日付を入力して、その日がその月の第何週かをしらべたいのですが
どうもうまくいきません
Datepart関数をつかったのですが
1月１日から数えて第○週となってしまいます
その月だけの指定はどのようにおこなうのでしょうか？
それとも根本的に間違ってるのでしょうか?

12 ：8：02/01/10 16:03

>9　>10
サンクスっす。

13 ：デフォルトの名無しさん：02/01/10 17:13

>>11
月初めの日と、目的の日、双方の年始めからの週を取得し、
差を求めればいいような気がするが。

14 ：3：02/01/10 17:51

ありがとうございます。
では>>4のやり方で実現するつもりですが、このソフトが完成しインストールする際
そのパソコンにログインするすべてのユーザのスタートアップに、ソフトの
ショートカットを入れるにはどうしたらよいでしょうか。

もうVB自体の質問ではない気もしますが、よろしくお願いします。
おそらく、ProgramMenuFolder のようなWindowsの特殊フォルダを指定する
ようなキーワードがあるのだろうとは思うのですが、見つけられませんでした。

ちなみにインストーラはWindows Installerを使っています。

15 ：Part4 の 960：02/01/10 18:08

>>Part4 の 954 解決できたか？
おいおいいい関数あるじゃねぇか！！（＾＾；
思いっきり Split関数の関連項目にあったよ。鬱死！

<html>
　<script language="VBScript">
　　
　　</script>
</html>

これでどうよ？

16 ：デフォルトの名無しさん：02/01/10 18:51

>>14
ttp://homepage1.nifty.com/Wan/vbtool/vbtool.htm
これを応用されてはどうでしょうか

CSIDL_COMMON_STARTUP
これを使えばAll Usersのスタートアップフォルダが
取得できそうです

17 ：16：02/01/10 19:06

失礼
ご質問の内容と違っていましたね

18 ：デフォルトの名無しさん：02/01/10 21:13

初心者向けの解説サイトってないですか？
自分で見つけたところはどこも制作途中で終わってしまっているもので…

19 ：デフォルトの名無しさん：02/01/10 22:21

>>18
終わっているサイトが多いのではなく、検索の仕方、検索エンジンが悪いのかと。
Google (ttp://www.google.com/) がよいかと。
検索単語を半角スペース区切りで指定したらよいかと。
ex :「VB_Forms_コレクション_初心者」とか書けばよいかと。
ではさようならかと。

20 ：デフォルトの名無しさん：02/01/10 23:53

＞10
プロバやルータやＦＷの設定で、大きいポート番号を
無条件で拒否してる場合もある。

21 ：デフォルトの名無しさん：02/01/11 00:12

エクセルのタイトルバーの右端にある×（閉じる）ボタンを
非表示にするにはどうすればいいんでしょうか？
ツールバーにある閉じるボタンは非表示にできるけど
その上のタイトルバーにあるもう一つができないです。
詳しい方助けてください。

22 ：デフォルトの名無しさん：02/01/11 00:26

＞21
板違いだから、こっちのExcelスレ逝ってみたら？
http://pc.2ch.net/bsoft/

23 ：38：02/01/11 00:26

>>21
シラネーよ、ボケ！死ね！！

24 ：デフォルトの名無しさん：02/01/11 00:37

何で？VBAでも出来るんじゃないの？

25 ：デフォルトの名無しさん：02/01/11 00:37

>>23 お前が市ね！！！！！！！！！！！！！

26 ：デフォルトの名無しさん：02/01/11 00:40

＞21
電車に飛び込んでください。

27 ：デフォルトの名無しさん：02/01/11 00:40

21は高卒

28 ：デフォルトの名無しさん：02/01/11 00:42

>詳しい方助けてください。
助けても見返りがないと...

29 ：デフォルトの名無しさん：02/01/11 00:47

ダメな奴は何をやってもダメのいい例＞21
つーか、質問の仕方がよくない。

30 ：デフォルトの名無しさん：02/01/11 01:31

＞3
NetWkstaUserEnumか、NetUserEnum。

31 ：デフォルトの名無しさん：02/01/11 06:26

雰囲気がこわいけど・・ちょいと便乗させて。
ウインドウの最小化は表示、最大化は非表示とかできませんか？

32 ：デフォルトの名無しさん：02/01/11 07:55

21=31

33 ：3：02/01/11 10:01

ネットワークに繋がっているパソコンにログインしているユーザ名を
取得するプログラムを以下で見つけました。
ttp://www.codeguru.com/system/AC_NTSrv.shtml

が、さっぱり解りません。。。。日本語はないですかね。。。

34 ：デフォルトの名無しさん：02/01/11 10:02

>>31
デザイン時にFormのプロパティで設定できます。Excelだった？

35 ：デフォルトの名無しさん：02/01/11 10:29

>>33
翻訳してみれば？

ttp://www.excite.co.jp/world/url/

36 ：uja：02/01/11 10:41

スレ違ってたらごめんなさい。OUTLOOKのVBAについてです。
他人の予定をVBAで取得するときは、下記のようなプログラムでできたのですが
Dim myNameSpace As NameSpace
Dim myRecipient As Recipient
Dim shceduleFolder As MAPIFolder
Set myNameSpace = Application.GetNamespace("MAPI")
Set myRecipient = myNameSpace.CreateRecipient("ユーザー名")
Set shceduleFolder = myNameSpace.GetSharedDefaultFolder(myRecipient, 9)
Msgbox shceduleFolder.Items(1).body

その中の定期的な予定を取得するのがうまくいきません。
shceduleFolder.Items.IncludeRecurrences
のプロパティ値をTrueにしてやれば、定期的な予定も展開されると
MSDNには書いてあるのですが、それに従ってやっても
定期的な予定は、周期の一番最初の予定しかみることができません。
なにか知ってる方がいらっしゃいましたらアドバイスをお願いします。

37 ：デフォルトの名無しさん：02/01/11 18:27

DBにMySQL使って開発した方いませんか？

38 ：デフォルトの名無しさん：02/01/11 21:05

わざわざMySQLなんて使わないと思います。
ほかにもっといいものがあると思います。
少なくとも私個人としてはそう思います。

39 ：デフォルトの名無しさん：02/01/11 21:16

ファイルが存在するか調べるのにDir関数って使いますよね。
ファイルが存在していれば大文字でファイル名が返される"はず"ですが、
どういうわけか小文字で返されました。こういうことってあるんでしょうか？

40 ：デフォルトの名無しさん：02/01/12 00:21

>>39
大文字で返すなんて、どこに書いてあったの?

41 ：デフォルトの名無しさん：02/01/12 09:33

なんか新スレになってから、ちょっと変な質問が増えたね

42 ：39：02/01/12 12:33

>>40
VisualBasic6.0例文事典　ステートメント・関数編
という本。MSDNは入れてないし今手元にない。

以前作成したプログラムでは確かに大文字で返してましたが、
単に大文字のパスをDir関数に入れてただけかも…

43 ：デフォルトの名無しさん：02/01/12 13:49

>>37
漏れ貧乏だからMySQL使ってる

44 ：デフォルトの名無しさん：02/01/12 15:50

小文字だと何か問題が起きるソフトを作ってるの？

45 ：39：02/01/12 17:50

>>44
いえそんなことはないです。ただ本に書いてあったことが気にかかっただけです。
小文字だろうが大文字だろうが、Ucase関数で全て大文字に変換してしまえば
なんら問題はないでしょうが。（ただのファイルチェックルーチン）

46 ：デフォルトの名無しさん：02/01/13 00:02

Windowsってファイル名の大文字小文字って関係あるんか?

47 ：デフォルトの名無しさん：02/01/13 08:21

>>45
>小文字だろうが大文字だろうが、Ucase関数で全て大文字に変換してしまえば
>なんら問題はないでしょうが。（ただのファイルチェックルーチン）

全角アルファベットのときに問題あります。
ヘルプの「UCase関数, ファイル名の操作」に載っています。

48 ：デフォルトの名無しさん：02/01/13 08:51

全角って最初に逝ってくれ...

49 ：デフォルトの名無しさん：02/01/13 13:19

こにちわー。
うんと、PictureBox自体を回転させようと思っているのですが、
PictureBoxは斜めに表示できないと聞きました。
ということは不可能なことなんですか？

50 ：デフォルトの名無しさん：02/01/13 13:24

>>49
PictureBox自体を回転させるのは無理やろな。
PictureBox内の画像を回転させるなら中学数学で可能だけど。

51 ：39(45)：02/01/13 15:07

>>47
なるほど全角アルファベットがありましたね。参考になりました。
問題解決したのでみなさんお世話様です。んでは。

52 ：デフォルトの名無しさん：02/01/13 15:30

>>50
はーい、わかりました。

53 ：デフォルトの名無しさん：02/01/13 15:57

Windowsアプリケーションをインストールする時なんかに
よく[参照]ってボタンを押してインストールフォルダを指定しますよね。
その時に使われる、

C:\
｜-Documents and Settings
｜　　　-Administrator
｜　　　　　　　-Application Data
｜　　　　　　　-My Documents
｜-Program Files
｜-RECYCLER
｜-WINNT

↑なんかこんな、クリックしたら開いていくツリーみたいなのを
VBで作れないですか？

54 ：デフォルトの名無しさん：02/01/13 16:32

２Dの上から見下ろす形のレースゲームで見るような、
スクロール（らしきでもよい）画面を作りたいです。
マウスまたはキーなどで直進するように入力したら、画面は下へ流れ、
横へ入力したら、円を描くような感じで画面が回転しているように
流れます。（方向転換っていたらいいのかな？）
画面の動きがわかりやすい様に、線など描きながら見れるようなのが
いいです。

サンプルとか、出来る方がいらっしゃいましたら教えて頂きたいです。

55 ：デフォルトの名無しさん：02/01/13 17:43

>>53
Private Sub cmdPath_Click()

    Dim typBrowseInfo As BROWSE_INFO
    Dim lFoldPointer As Long
    Dim sPathName As String

    With typBrowseInfo
        .hwOwner = frmMain.hWnd
        .lRoot = CSIDL_DESKTOP
        .sTitle = "フォルダを選択してください"
        .lOptions = BIF_RETURNONLYFSDIRS Or BIF_DONTGOBELOWDOMAIN
    End With

    lFoldPointer = SHBrowseForFolder(typBrowseInfo)

    sPathName = String$(256, vbNullChar)

    Call SHGetPathFromIDList(lFoldPointer, sPathName)

    CoTaskMemFree lFoldPointer

    If Left(sPathName, 1) <> Chr(0) Then
        txtPath.Text = LCase(sPathName)
    End If

End Sub

56 ：デフォルトの名無しさん：02/01/13 17:44

>>53
Option Explicit

Public Declare Function SHBrowseForFolder Lib "shell32.dll" _
        Alias "SHBrowseForFolderA" _
       (lpBROWSEINFO As BROWSE_INFO) As Long

Public Declare Function SHGetPathFromIDList Lib "shell32.dll" _
        Alias "SHGetPathFromIDListA" _
       (ByVal pidl As Long, ByVal pszPath As String) As Long

Public Declare Sub CoTaskMemFree Lib "ole32" (ByVal pv As Long)

Public Type BROWSE_INFO
    hwOwner As Long
    lRoot As Long
    lDspName As Long
    sTitle As String
    lOptions As Long
    lfn As Long
    lParam As Long
    lImage As Long
End Type

Public Const CSIDL_DESKTOP = &H0            '仮想デスクトップ
Public Const CSIDL_PROGRAMS = &H2           'プログラムグループ
Public Const CSIDL_CONTROLS = &H3           'コントロールパネル
Public Const CSIDL_PRINTERS = &H4           'プリンタ
Public Const CSIDL_PERSONAL = &H5           'My Documents
Public Const CSIDL_FAVORITES = &H6          'お気に入り
Public Const CSIDL_STARTUP = &H7            'スタートアップ
Public Const CSIDL_RECENT = &H8             '最近使ったファイル
Public Const CSIDL_SENDTO = &H9             '送る
Public Const CSIDL_BITBUCKET = &HA          'ごみ箱
Public Const CSIDL_STARTMENU = &HB          'スタートメニュー
Public Const CSIDL_DESKTOPDIRECTORY = &H10  'デスクトップフォルダ
Public Const CSIDL_DRIVES = &H11            'ドライブ
Public Const CSIDL_NETWORK = &H12           'ネットワーク
Public Const CSIDL_NETHOOD = &H13           'NetHood
Public Const CSIDL_FONTS = &H14             'フォント
Public Const CSIDL_TEMPLATES = &H15         'テンプレート

57 ：デフォルトの名無しさん：02/01/13 18:40

VB5のネイティブコードコンパイルで、「シンボリックデバッグ情報を作成」を
選択して「.pdb」ファイルを作ると、VC5のデバッガで、シンボル付きの
逆アセンブラ状態でデバッグ出来たのだけど、VB6で同じ様にコンパイルすると、
VC5でシンボル情報がありませんって言う警告が出るんです。
これってbugなのでしょうか？
MSDNにはVC++(5.0以降のバージョン)またはそれと互換性のあるデバッガでデバッグできます。
と書いてあるのですが…。

58 ：デフォルトの名無しさん：02/01/13 19:08

Shift-JisとAsciiコードって何が違うのですか？

59 ：デフォルトの名無しさん：02/01/13 19:15

>>58
http://www.google.com/search?q=%95%B6%8E%9A%83R%81%5B%83h%81@%83V%83t%83gJIS%81@ASCII&hl=ja&lr=

60 ：58：02/01/13 20:06

>>59
ありがとう。大好き

61 ：デフォルトの名無しさん：02/01/13 22:24

>>54
参考にならんだろうけど、こんなかんじ？（←→で回転、↑で進むかんじ）
Private Const MM = 20
Private mx&(MM), my&(MM)
Private mpx&, mpy&, mpd&, wx&, wy&, rr#

Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = vbPixels
wx = Me.ScaleWidth: wy = Me.ScaleHeight
rr = 3.14159 / 180
Dim t&: For t = 0 To MM: mx(t) = Rnd * wx: my(t) = Rnd * wy: Next
mpd = 0: mpx = wx / 2: mpy = wy / 2: draw
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then mpd = (mpd + 10) Mod 360
If KeyCode = vbKeyRight Then mpd = (mpd + 350) Mod 360
If KeyCode = vbKeyUp Then
mpx = mpx + 10 * Cos((mpd + 90) * rr)
mpy = mpy - 10 * Sin((mpd + 90) * rr)
End If
draw
End Sub

Sub draw()
Dim t&, x&, y&
Me.Cls: Me.PSet (wx / 2, wy / 2)
For t = 0 To MM
x = (mx(t) - mpx) * Cos(mpd * rr) - (my(t) - mpy) * Sin(mpd * rr)
y = (my(t) - mpy) * Cos(mpd * rr) + (mx(t) - mpx) * Sin(mpd * rr)
Me.Line -(wx / 2 + x, wy / 2 + y)
Next: Me.Refresh
End Sub

62 ：デフォルトの名無しさん：02/01/13 23:06

＞57
VB6とVC6の組み合わせなら、ちゃんとデバッグできたよ。

63 ：デフォルトの名無しさん：02/01/13 23:16

>>61
どうもありがとうございます。
やってみます☆

64 ：デフォルトの名無しさん：02/01/14 01:00

Olectra Chartってどうなんでしょうか
人から貰ったプログラムのグラフ描画部分に、これが使われてたから
試用版DLしてきたんですけど、買う価値あり？

ちなみにVB今からスタート予定・・・

65 ：デフォルトの名無しさん：02/01/14 01:11

＞64
使ったことない。趣味では必要ない。。
でも、グラフ使って仕事するなら、買えば？

66 ：デフォルトの名無しさん：02/01/14 06:39

MoveToExとLineToを使って線を書きたいのですが、
それぞれのAPIを書いて、POINTAPIって書いた後、どうすればよいか
良くわかりません。
PictureBOXに線を描く簡単な例を教えて頂きたいです。
おねがいします☆

67 ：デフォルトの名無しさん：02/01/14 07:22

>>66
ttp://www.netlaputa.ne.jp/~stadt/vb/index.html
ここのメタファイル関係あたりではどうでしょう

68 ：デフォルトの名無しさん：02/01/14 10:17

>>67
いってきまーす。

69 ：デフォルトの名無しさん：02/01/14 10:22

ディストリビューションウィザードを使って配布しようと思うんですが、
その時、フォントもインストールするようにしています。

しかし、インストールが終了したあとシステムを起動しても、なぜか
インストールしたはずのフォントが無効になっています。

インストールされてないのかな？　と思ってコントロールパネルから
フォントを開いて見ると、ちゃんと追加されています。

その後、もう1回システムを起動したら、今度はフォントがしっかり表示
されていました。

インストールが終わったら、再起動しないといけないんでしょうか？
インストール終了後、自動で再起動させる方法があったら教えてください。

よろしくお願いします。

70 ：デフォルトの名無しさん：02/01/14 22:24

今クイズのプログラムを作ってて、全部クイズが終わった後に結果出力を
指定のフォルダのテキストファイルを作りたい場合、
どのようなプログラムにすればいいのでしょうか？
過去ログから自分なりにつくってみましたが、手直しお願いいたします。
（たくさんあると思いますが）

プログラムが"C:\Program Files\MyProg"にあって
C:\Program Files\MyProg\shousai\index.txt"にファイルを作成したい
しようと思っています。

Private Sub command1_Click()

Dim intFileNum As Integer
Dim strFullPath As String 'フルパス
Dim strSoutaiPath As String '相対パス

strSoutaiPath = "\shousai\index.txt"
strFullPath = App.Path & strSoutaiPath

intFileNum = FreeFile()
Open strFullPath For Output As #intFaileNum

Print #1, "詳細出力"
Print #1, "クイズ正答率" & seitouritu & "％"
Print #1, "正解数" & seikaisuu & "問"
Print #1, "問題数" & mondaisuu & "問"
（中略）
Close #1

End Sub

71 ：デフォルトの名無しさん：02/01/14 23:21

＞69
再起動する必要がある。
Win9x系か、NT系か、書いてないけど、APIの
ExitWindowsEx、InitiateSystemShutdownあたりを使う。

＞70
As #intFaileNum のタイプミス以外はいちおうオッケー。

"クイズ正答率" & CStr(seitouritu) & "％" とかなら、
あんまり厨房あつかいされなくなるかな。

72 ：デフォルトの名無しさん：02/01/14 23:38

浮動小数から長整数へキャストする時の、小数点以下の切り捨てってどうやるんですか？
C++だとdoubleからlongへのキャスト時に勝手に小数点以下を切り捨ててくれるけど、VBで同じような感じでCLngすると値が丸められちゃうよね？
消費税算出みたいな小数点以下の切り捨てを行わなければならない時にすごく困るんだけど・・・。

あ、ちなみにInt関数やFix関数はNG。Integerでは箱が小さすぎるから・・・

73 ：強引：02/01/14 23:53

R=503.9564:? Clng(R)+(Clng(R)>R)

74 ：デフォルトの名無しさん：02/01/15 00:05

さらに強引

strNum = CStr(dblNum)
strNum = Left$(strNum, Instr(1, strNum, ".") - 1)
lngNum = CLng(strNum)

75 ：72：02/01/15 00:09

73のやり方すごい。Trueが-1であることを利用したってことね？
74はピリオドがないと落ちますね・・・

thanx!!

76 ：デフォルトの名無しさん：02/01/15 00:18

>>70
こらこら、何のためにFreeFile()を呼び出している?
Print #1って書きたくないからだろ?
(他の部分で既にに#1が開かれていたりした場合エラーになるので)
たまたまFreeFileが1になってるから、動いてるだけだよ。

その他は別にいいんじゃない?

77 ：７１：02/01/15 00:24

＞76
あ、ほんとだ。そこは見落とした(汗)。

78 ：デフォルトの名無しさん：02/01/15 00:30

>>72
MSDNには、Int()やFix()がInteger型を返すとは書いてないよ。
> Int、Fix 関数
> 指定した数値の整数部分を返します。

Dim i As Integer
Dim n As Long
Dim d As Double
d = 70000.123
'i = Int(d) 'オーバーフロー
n = Int(d)
Debug.Print "i=" & i & " n=" & n

「結果」
i=0 n=70000

79 ：デフォルトの名無しさん：02/01/15 00:30

＞Int関数やFix関数はNG。Integerでは箱が小さすぎるから・・・
「Fix 関数および Int.関数は引き渡された値と同じデータ型で常に値を返します。」

80 ：ＳＴＲＣＡＴ：02/01/15 00:34

case WM_KEYDOWN:
if(wParam==VK_SPACE){
strcat(moji, "あ\n");
hDC = GetDC(hWnd);
GetClientRect(hWnd, &rt);
DrawText(hDC, moji, strlen(moji) &rt, DT_WORDBREAK);
ReleaseDC(hWnd, hDC);
}

スベース押すたびに｢あ\n｣が増えると思うのに
1回しか｢あ\n｣が増えないのはどうして？

81 ：デフォルトの名無しさん：02/01/15 00:38

>>80
moji はどこで宣言してる?

82 ：ＳＴＲＣＡＴ：02/01/15 00:40

LRESULT CALLBACK WndProc(HWND　省略){
char *moji = "あ\n";

83 ：ＳＴＲＣＡＴ：02/01/15 00:43

#include <iostream.h>
main(){
char *str = "a";
int i = 1;
strcat(str,"b");
cout << str << '\n';
switch(i){
case 1:
strcat(str,"c");
cout << "case の結果は等しかった" << '\n';
break;
default:
cout << "case の結果は異なってた" << '\n';
}
cout << str << '\n';
getchar();
}

switchの中ではグローバルが通用しないかと思ったけど、↑を
やったらabcになった。問題なしだ。
Winプログラムではなぜかうまくいってない。

84 ：ＳＴＲＣＡＴ：02/01/15 00:49

LRESULT CALLBACK WndProc(HWND　省略){
　char *moji = "あ\n";
　strcat(moji, "い\n");

　switch (msg){
　　case WM_KEYDOWN:
　　　if(wParam==VK_SPACE){
　　　　strcat(moji, "う\n");
　　　　hDC = GetDC(hWnd);
　　　　GetClientRect(hWnd, &rt);
　　　　DrawText(hDC, moji, strlen(moji), &rt, DT_WORDBREAK);
　　　　ReleaseDC(hWnd, hDC);
　}

これなら、あ\nい\nうになるけど、再びスペースを押しても
　　あ\nい\nう\nう\n
でなく、
　　あ\nい\nう\n
なのだ。
不思議。
case の中では strcat( ) が1回しか実行されない？

85 ：デフォルトの名無しさん：02/01/15 00:56

>>84
WndProcはメッセージが来るたびにOSから呼び出される。
その最初で、初期化してるのだから、何度やっても同じ結果になるのはあたりまえ。
char *moji = "あ\n";
の行をコメントアウトし、
TCHAR moji[80];
を#includeの下あたりに書いてみそ。

86 ：ＳＴＲＣＡＴ：02/01/15 02:08

分かったー！！
そうだったのかー。
WndProc( ) は高速で何度も発生していることが分かったよ。
ありがと～。

87 ：ＳＴＲＣＡＴ：02/01/15 02:19

#includeの下あたりに書いても動いた。
つまり、int APIENTRY WinMain( ) の前。
WndProc( ) の中の case WM_CREATE: でもいいよね。

よくあるソース

LRESULT CALLBACK WndProc(HWND 省略){

　HDC hDC;
　PAINTSTRUCT ps;
　char *str = "abc";

　switch (msg){
　case WM_PAINT:
　　hDC = BeginPaint(hWnd, &ps);
　　TextOut(hDC,0,0,str,3);
　　EndPaint(hWnd, &ps);
　break;

これは

　HDC hDC;
　PAINTSTRUCT ps;
　char *str = "abc";

が何度も実行されるから無駄がある。

LRESULT CALLBACK WndProc(HWND 省略){

　switch (msg){
　case WM_CREATE:
　　HDC hDC;
　　PAINTSTRUCT ps;
　　char *str = "abc";
　break;
　case WM_PAINT:
　　hDC = BeginPaint(hWnd, &ps);
　　TextOut(hDC,0,0,"abc",3);
　　EndPaint(hWnd, &ps);
　break;

とした方がいいと思ったけど、こういうソースを
見かけないのはどうして？

88 ：デフォルトの名無しさん：02/01/15 02:22

こばんわー。
今、こんな感じで線を描いているます。
コマンドボタンを押すと線を描くのですが、

そうではなくて、マウスを動かして、ある座標の範囲を
示したら一定の加速度を得て、そして速度が出て、
勢いを増しながら線が描かれていくのをやりたいと思っています。
とりあえず線を描く方向は一方向でいいので、
速度をつけたいです。
出来るでしょうか？
よろしければお願いします。

BitBlit
POINT構造体
MoveToEx
LineTo

Dim hdc1 As Long, hdc2 As Long 'デバイスコンテキスト
Dim pw As Long, ph As Long 'コピー元の領域の幅，高さ
Dim sx As Long, sy As Long 'コピー先の始点
Dim p As POINTAPI

Private Sub Command1_Click()
pw = 1000&: ph = 1152& 'PictureBoxのサイズ
sx = CLng(Text1.Text)
sy = CLng(Text2.Text)
Timer1.Enabled = Ture
End Sub

Private Sub Timer1_Timer()
hdc1 = PicOriginal.hdc
hdc2 = PicDisplay.hdc

MoveToEx hdc2, pw \ 2, ph \ 2, p
LineTo hdc2, pw \ 2 + sx, ph \ 2 + sy
BitBlt hdc1, -sx, -sy, pw, ph, hdc2, 0&, 0&, vbSrcCopy
BitBlt hdc2, 0&, 0&, pw, ph, hdc1, 0&, 0&, vbSrcCopy
End Sub

89 ：デフォルトの名無しさん：02/01/15 09:37

今ブラウザーを作っているのですが、TextBoxに入力されたURLが無効な
アドレスだった時の処理の仕方で詰まってます。

無効なアドレスが入力された場合、"***に接続できませんでした"と表示
されるようにしたいのですが、無効なアドレスか有効なアドレスかを判定
するには、どうしたらいいのでしょうか？

90 ：デフォルトの名無しさん：02/01/15 09:59

>>87
WndProcが何度も呼び出されるって書いたよね。
一度、WndProcを抜けると、ここで宣言された変数は開放されてなくなっちゃうの。
だから、WM_CREATEでいくら宣言してあっても、
WM_PAINTに行く場合は、宣言されていないことになってしまう。

変数のスコープについて勉強しましょう。
あと、激しくスレ違いなので、
「□□□VC 初心者質問スレ２□□□」へ逝こう。
俺も気づかんかった。

91 ：デフォルトの名無しさん：02/01/15 10:17

>>89
まずURLの形がしっかりとしているか文字列チェック
次に実際にGETして、ヘッダをチェックする。

92 ：デフォルトの名無しさん：02/01/15 11:06

色を計算で自動生成したいのですが、どういう風にやればよいかイメージが湧きません。
折れ線グラフの線の色で、項目数(色数)は不定で上限がなく、
なるべく色同士の違いがわかるように設定したいのですが…

93 ：名無しさんです：02/01/15 12:54

初めてツリービューを使ってるのですが、削除した
ノードのindexって開放されずに残ったままなんで
しょうか？
ノードに納まってる変数の内容を保存しようと思って
ノードの最初のindexを参照したら削除や追加をした
後に限って「削除されてます」って怒られるのですが。
それともなにか他に問題があるのでしょうか？

94 ：意外と初心者（ｗ：02/01/15 15:25

>>93
よくわかんない（それならレスするなちゅーねん）けど、
削除したノード分のインデクスって詰められない？勝手に。
Index を使わないで Key だったら勝手に詰められても識別できるんじゃない？

95 ：94：02/01/15 15:26

Sub の方か・・・ごめん間違い。
逝ってきます・・・。

96 ：デフォルトの名無しさん：02/01/15 15:46

垂直スクロールバーがついたテキストボックスを使っていて、表示しきれないとき
勝手にスクロールさせてケツを表示させるため、以下のようなコードを書いています。
txtHoge.SelStart = Len(txtHoge.Text)

ところが、大体65535文字くらいになるとこれが効かなくなります。
どうもSelStartは65535以下までしか受け付けてくれないようです。
この場合、どうしたらいいでしょうか

97 ：デフォルトの名無しさん：02/01/15 16:04

>>96
テキストボックスってそれくらいしかはいらないんじゃなかったっけ

98 ：デフォルトの名無しさん：02/01/15 16:43

自己参照構造体とは何ですかね？

99 ：デフォルトの名無しさん：02/01/15 17:26

>>98
http://www.google.com/search?num=20&hl=ja&q=%8E%A9%8C%C8%8EQ%8F%C6%8D%5C%91%A2%91%CC&btnG=Google+%8C%9F%8D%F5&lr=lang_ja

100 ：デフォルトの名無しさん：02/01/15 17:51

DAO3.6を使っていますが、DBの最大容量はいくつですか
また、Windowsそのものの1ファイルあたりの最大容量はいくつですか

101 ：デフォルトの名無しさん：02/01/15 18:11

chr$(number) と chr(number)
Left$() と　Left()
の違いがまったく分かりません。

102 ：デフォルトの名無しさん：02/01/15 18:23

フォームの名前を取得して
その取得した名前を引数にしてｻﾌﾞﾙｰﾁﾝを動かしたんですが…

call S_test(me.form)

sub S_test(A_frmname as form)
～
end sub

これじゃうまくいかなかったんです
どうやってやるの？

103 ：8：02/01/15 18:23

>101
戻り値の型。

104 ：デフォルトの名無しさん：02/01/15 18:27

>102
何がどううまくいかなかったのかを明確に書くとよいと思われ。

105 ：102：02/01/15 19:19

修正

call S_test(me.name)

sub S_test(A_frmname as form)
～
end sub

でした
me.nameでフォームの名前を取得して
その名前で処理したいんですけど
me.nameで型が違うってｴﾗｰが出てしまいます

106 ：デフォルトの名無しさん：02/01/15 19:23

ダイアログにFixedsysとかのシステムフォントを使うと、
W2kで画面表示が崩れるのですが(文字が欠けたり、はみ出したり)、
プログラムの変更なしに対応させることが出来るでしょうか?
一応あちこち調べてWin2Kの固定ピッチフォントの問題のアップデートもしたけどだめでした。

システムフォントのFixedsysをMSPゴシックに変えたいのですが、
どうすればよろしいでしょうか?

107 ：106：02/01/15 19:25

ちょっと説明が足りませんでしたが、
w2k以前のバージョンのwindowsで作成したアプリを
W2kで動かす場合です。

108 ：名無しさん ◆MZ2000oY ：02/01/15 19:32

>>105
Call S_test(me)

Sub S_test(A_frmname as form)

だとなんかマズイのか?

109 ：デフォルトの名無しさん：02/01/15 19:49

VB6のコマンドボタンについて教えてください。
コマンドボタンの文字の色を変えたいのですが、どこを変更すれば
いいのでしょうか？
コマンドボタンのプロパティー内にBackColorという項目があり、
そこにボタンの文字という設定があるみたいなんですが、選択して
変更してもボタンの表面の色しか変わらないんです。
どなたか教えてください;-;

110 ：デフォルトの名無しさん：02/01/15 19:51

>>100
> DAO3.6を使っていますが、DBの最大容量はいくつですか
DBに拠るでしょ。

> また、Windowsそのものの1ファイルあたりの最大容量はいくつですか
ファイルシステムに拠るでしょ。
FAT16：1GB
FAT32：2GB
NTFS：4TB
だっけか。NTFSはバージョンによって違うかも。
つーか、このくらい自力で調べろと言いたい。

111 ：デフォルトの名無しさん：02/01/15 19:52

>>105
> sub S_test(A_frmname as form)
> sub S_test(A_frmname as String)
かな。

112 ：デフォルトの名無しさん：02/01/15 21:09

>>109
この質問ってほんとよく見かけるなぁ。
コマンドボタンコントロールにはそういう機能はない。
その仕様は普通じゃないってことだ。

どうしてもっていうなら
Styleプロパティを1にしたチェックボックスなどで代用するのが定石。
Clickイベント時Value=0とすればボタンとほとんどかわらなんよ。

113 ：109：02/01/15 21:20

>112
レスありがとうございます。
そういう仕様なんですね。
うむむぅ、残念です。
ありがとうございました。m(_ _)m

114 ：名無し：02/01/15 21:31

jpgファイルの名前の部分を
あるCGIファイルの名前と、中身の一部分の文字と置き換えをする

という単純な作業の繰り返しをどうにかして
プログラムにする事はできないでしょうか
或はそのようなフリーソフトなどを知っている人がいらっしゃったら
教えていただけると嬉しいです。

115 ：デフォルトの名無しさん：02/01/15 22:03

ADOの勉強してます。
VBから、あるMDBファイルのテーブル名を全て取得したいのですが、
どのようにしたら良いですか？

116 ：デフォルトの名無しさん：02/01/15 23:36

>>101
103の指摘のように戻り値の型の違いもあるが、
(気持ち$ありのが速い。最近のマシンなら数万回程度のループでは計測不能なほどだが)
NULLを受け付けるかどうかという違いもある。
後は、昔のBASICの名残。

>>102
108同様
>call S_test(me.name)
をcall S_test(me)
とする方が普通のやり方でしょう。

どうしても名前でやりたいなら、
>sub S_test(A_frmname as form)
をsub S_test(A_frmname as String)
とした上でこのプロシージャの中では、
Formsコレクションでオブジェクトの参照を取得すればOK。

117 ：デフォルトの名無しさん：02/01/15 23:38

あげっぱなしだ

118 ：デフォルトの名無しさん：02/01/15 23:59

for (wp = start; wp->next != NULL; wp =wp-> next)

（wpは変数）
どういう意味ですかね？

119 ：デフォルトの名無しさん：02/01/16 00:07

リストを終端まで辿る処理だろ。つか、それのどこがVBだ。

120 ：デフォルトの名無しさん：02/01/16 00:17

バイト配列に対するMid・Left・Rightライクな操作って、
ループで１バイトずつ処理するしかないですか？
いったん文字列に変換すると、変わる制御コードがあるから。

121 ：デフォルトの名無しさん：02/01/16 00:45

>>120
RtlMoveMemoryあたりのAPIを使うと楽。
間違うと簡単に落ちるけどねｗ
(実行前にソースは保存しとけよ）

122 ：93：02/01/16 00:57

>>94
Keyも考えたんですが、ノードのKeyって数字が使えない
（数字のみかな？）ので不便なんです。
もうちと試行錯誤してみます…。

123 ：１２０：02/01/16 00:57

＞121
ひえ～～～！
たかが数十バイトの処理で落ちたくないですぅ。

124 ：１２０：02/01/16 01:01

Ｃの初級問題とかでアルゴリズムがあるか探してみます。
いちおう自作してみたけど、エラー処理が若干不安なので(笑)。

125 ：１２０：02/01/16 01:11

ここを見つけたけど、かえってむずかしい？
ttp://www.threeweb.ad.jp/~satou/delphi5.htm

126 ：94：02/01/16 03:30

>>122
Key でいいんならプレフィックス文字を適当に付けて
例えば "Z1" とか "Z0000001" とかしといて Mid$ とかで "Z" 以下取ってくれば？
それを数値型にしちゃえば Index と同じような感覚で扱えるのでは？

127 ：105：02/01/16 10:18

>>108
>>111
>>116
ありがとうございました
うまくいきました～

128 ：こまねずみ：02/01/16 10:28

ＷＳＨでファイルを開きたいだけなんだけど、
必ず「スクリプト設定ファイル "C" が不正です。」
と、なって実行できないのです。

厨房質問だとおもうけど、どなたか助けて～。

129 ：こまねずみ：02/01/16 12:38

↑
自己解決しました。

130 ：デフォルトの名無しさん：02/01/16 14:29

ルートディレクトリのパスだけが判明していて、
その中の子ディレクトリの中にあるファイルを探したいのですが、
どうしたら良いでしょう？
子ディレクトリは階層も名前も不明です。

131 ：130：02/01/16 14:30

バッチ処理なので、コモンダイアログも使えないのです。。。

132 ：デフォルトの名無しさん：02/01/16 14:31

>>130
前スレに全てのファイルをリストアップするコードがあったよ。

133 ：132：02/01/16 14:36

あとこのあたり

http://www.google.com/search?num=100&hl=ja&q=VB+%83t%83@%83C%83%8B%8C%9F%8D%F5&lr=

134 ：130：02/01/16 14:44

>>132
ありがとうございます！
前スレですね？探してみます。

参考URLの方も確認します。
ありがとうございました。

135 ：デフォルトの名無しさん：02/01/16 15:44

ｃでいう%って何でしたっけ？

136 ：デフォルトの名無しさん：02/01/16 16:04

>>135
mod　？

137 ：デフォルトの名無しさん：02/01/16 19:54

text1.textにかいてある文字が数字か英語か2バイト文字か判断したいのですが、どのようにやったらいいのかわかりません……

138 ：デフォルトの名無しさん：02/01/16 20:10

LenBとStrConvでどうぞ。

139 ：デフォルトの名無しさん：02/01/16 20:11

>>137
Midとかで1文字ずつ切り出して、Aｓｃでコードを調べるとか

140 ：デフォルトの名無しさん：02/01/16 21:18

英語かどうかはわからないと思いますよ。ローマ字かも
知れないし。

141 ：デフォルトの名無しさん：02/01/16 21:57

エクセルでVBAを昨日まなびはじめたばかりなのですが・・・
エクセルなどからVBAでIEを操作したいのですが、
ＩＥのオブジェクト構造に関する
リファレンスはどこにあるのでしょうか？

142 ：デフォルトの名無しさん：02/01/16 22:04

>141
たしかOffeceのCDのどっかにあった。

143 ：デフォルトの名無しさん：02/01/16 22:08

>>141
http://msdn.microsoft.com/library/default.asp

「Web Development」の辺り。（多分

144 ：デフォルトの名無しさん：02/01/16 22:12

すみません・・・>>115なんですけど・・・
MSDNライブラリ見すぎても、やっぱ無理です・・・
ヒントだけでも、ひとつ。

145 ：141：02/01/16 22:14

>>142
それは、やはりヘルプファイル形式の拡張子でOfficeのＣＤロムを
直接検索して、１個１個見ていけばいいのでしょうか？

>>143
できれば、日本語が・・・（泣）
（でもたどってみたものの、（英語を読み違えてなければ）見つかりませんでした）

根本的な疑問として、同じ立場の場合、ふつうの人はどうしているんでしょう？

146 ：デフォルトの名無しさん：02/01/16 22:26

>>145
オブジェクトブラウザ使ってる

147 ：デフォルトの名無しさん：02/01/16 22:29

VB6のLearning Editionを買ってきたんですけど、
セットアップができません。

CD-ROMルートにあるsetup.exeを実行すると、
vs60wiz.exeのエラーとなってしまいます。
実験的にACMBOOT.exeからセットアップを行おうとしてみたものの、
途中でsetup.exeから実行するようにとの指示が出て終了です。
マイクロソフトのサポートページにあった
http://support.microsoft.com/default.aspx?scid=http%3a%2f%2fwww.microsoft.com%2fJAPAN%2fsupport%2fkb%2farticles%2fj046%2f7%2f41.asp
をやってみましたがセットアップは出来ないままなのです。

OSはWindows XP Professionalです。

148 ：デフォルトの名無しさん：02/01/16 22:48

>>140
>英語かどうかはわからないと思いますよ。ローマ字かも
>知れないし。
もしかして、例えば「age」っていうのが英単語かローマ字日本語か見分けたいの？
そりゃ絶対むり。2chじゃ「上げ」だが普通は英単語で年齢のことだ。
Wordなんかのスペルチェックでも「上げ」とは絶対解釈しない。

149 ：141=145：02/01/16 22:50

>>146
すいません、オブジェクトブラウザ使う場合、
IEでAtt+F11できないから、
やはりエクセルとかのアプリからIEで「参照設定」して、オブジェクトブラウザに
表示させるんですよね・・・？
でも、どれを参照設定すればいいんでしょうか？
「Internet Explorer～」とか「Microsoft Internet Explorer～」を探したものの、
見つからないのですが？
あるいは何か勘違いしてます？

150 ：デフォルトの名無しさん：02/01/16 22:54

>>149
shdocvw.dll
MSHTML.TLB
IE関係いじるときはこの2つを参照設定してる

151 ：デフォルトの名無しさん：02/01/16 23:10

>>144
ADOだけじゃ無理かも。
何のDBに接続してるの? Access? SqlServer?

152 ：デフォルトの名無しさん：02/01/16 23:21

>>144
これでどうや。
ADOXはMicrosoft ADO Ext. ? for DDL and Securityを参照設定やで。

Dim ax As New ADOX.Catalog
Dim tb As ADOX.Table

ax.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= データベース名.mdb;"

For Each tb In ax.Tables
Debug.Print tb.Name
Next

153 ：144：02/01/16 23:52

>>151
ありがとうございます。
Accessに接続してます。いろいろやってみたいっすね。

>>152
やってみたら出来ました！
ちなみに、これってクエリーも釣れてしまうんですね。
うーむ。よく調べてみます。ありがとう。

154 ：困った名無しさん：02/01/16 23:55

教えてくんでスマソ。

仕事先での案件で、ＶＢ使うことになってインストールしたら、
Ｆ１キーで「ヘルプを表示できません」ってメッセージが出るんです。
ＭＳＤＮは単独（プログラムメニューから）見ることができる。

今まで何も考えずにインストールしてて、ヘルプが表示されないなんて
事無かったよ。

因みに、ｗ２ｋ　Ｓｅｒｖｅｒ環境でＶＢ６のエンタープライズ。
ＭＳＤＮはカスタムでフルインストール。
自分の環境（ｗ２ｋ　ｐｒｏ）で同じ構成で問題ないのになぁ。

突っ込まれる前に、googleと過去ログ（初心者質問スレ）は見てみました。
他の過去ログは何故か４０４で見ることができない。

あとＭＳＤＮも目を通した（ｗ

155 ：141=145=149：02/01/16 23:56

>>150
ありがとうございます。無事表示できました。
しかし、ヘルプが表示されないのですが・・・ヘルプは存在しないということでしょうか？
だとしたらどうやって各メンバの意味をみなさん知っているのでしょう？
（まぁ、shdocvw.dllの１部は、説明がオブジェクトブラウザに書いてあるようですが・・・）

156 ：困った名無しさん：02/01/16 23:57

書き忘れ。

んで対応策とか細かくＦＡＱとか有る場所があったら
教えてください。

解決策そのものズバリは特に歓迎（ｗ

157 ：デフォルトの名無しさん：02/01/17 00:38

>>155
http://msdn.microsoft.com/workshop/graphics/IE4Arch.gif
関係ないけどアーキテクチャ

簡単なリファレンス
http://msdn.microsoft.com/library/default.asp?url=/workshop/browser/webbrowser/reference/objects/internetexplorer.asp

158 ：155：02/01/17 02:11

>>157
いやいやありがとうございます。なかなか参考になります。がんばってみます。

159 ：144=153：02/01/17 18:54

>>152
なんだかデータベースに書き込み行おうとすると、
ロックされて書き込めないのですが、カタログ使うと、こうなる仕様ですか？

160 ：デフォルトの名無しさん：02/01/17 22:35

VBのディストリビューションウィザードでSetupを作成したんですが、
インストール対象がWindowsXPの場合、DLLやOCXが正常にインスト
できないようです。直接System32フォルダに放り込んでもダメです。
なにかいい方法があったら教えてください　m(_ _)m

161 ：デフォルトの名無しさん：02/01/17 22:53

COM系なら、regsvr32(または同等機能)を実行してないとか。

162 ：お願いします：02/01/17 22:53

REDIM を使って配列エリアを拡張した場合、使い終わったら
ERASE を使って解放してあげないと、いわゆるメモリリーク
となってしまうのでしょうか？

163 ：デフォルトの名無しさん：02/01/17 22:54

>>162
ならない

164 ：お願いします：02/01/17 23:00

>> 163
ありがとうございます。
C言語の malloc 見たいに、解放してあげないといけないのかと
思ってました。

165 ：演算ベンチ：02/01/17 23:32

ここに VB4.0 と VC6.0 の演算速度比較が載ってますが、
ttp://www.wombat.or.jp/tomoyashuttle/shtml/colum/vbspeed1.htm

バージョンが違うし、整数型だけだし、ＰＣも旧式。＞Pentium133,32MB

VB6.0のネイティブ・コンパイルで、実数型だと、どうなりますか？

166 ：デフォルトの名無しさん：02/01/18 00:03

VBのsendkeyで、windowskeyを押すことはできないのでしょうか？
ttp://www.asahi-net.or.jp/~yy6m-wd/kuma/tip/vb.htm#sendkey
などを見ても、winkeyは載ってない。。。

167 ：デフォルトの名無しさん：02/01/18 00:04

プログラムが横にながくなって見にくいです。
途中で改行させることってできますか？
初歩的な質問ですんません。

168 ：デフォルトの名無しさん：02/01/18 00:07

＞166
たしかwinkeyだけはダメだったと思う。

＞167
半角スペースと半角アンダーバーで改行できる。

169 ：167：02/01/18 00:12

>168
どもありがとうございます。

170 ：１６８：02/01/18 00:20

＞166
Ctrl＋EscでWindowsKeyと同じメニューが出せるけど、
こんなもん出してどうするの？
目的はホットキー？

171 ：デフォルトの名無しさん：02/01/18 00:32

>>167
文末を _にすれば次の行は前の行の続きとされる。
　if (ながーい条件とか) and _
　　　(ながーい条件とか) then

アンダーバーの前に必ずスペース空けること。
何行にもできるけど、限界はある。
っていうかヘルプ見てみ。サンプルとかで一杯でてくるから。

172 ：166：02/01/18 00:32

>>170
そうです。ホットキーです。
Powertoys for Windows XP を入れたら、
バーチャルデスクトップ機能としてWin+1～4でデスクトップを入れ替えられるようになったので、
OS起動後にVBSでその辺の処理を自動処理したいと思って。
「Win+■」＝「Ctrl+Esc+■」だったららくなんですけどね。。。

173 ：デフォルトの名無しさん：02/01/18 00:35

ExcelからVBA使って、IEを動かしてるのですが、
VBAを使ってIEを動かしてウェブサーバのBASIC認証を通ることは可能でしょうか？

174 ：167：02/01/18 01:22

もう一つ質問したいです。
text1.textに２つの数字を入力して、label1.captionにtext1.textの数字の左側の数字を出したいんですが、やりかたがわからないんです。
教えていただけないでしょうか？

175 ：デフォルトの名無しさん：02/01/18 01:26

>>174
数字二文字(="01")ならleft()、mid()
任意数値を区切り文字で入力ならsplit()を
HELPで当たるが良いと思われ。

176 ：デフォルトの名無しさん：02/01/18 13:18

>>160
ターゲットと同じOS、環境でインストール環境を作っては？
VBは普通そうすると思う。

177 ：デフォルトの名無しさん：02/01/18 13:38

1行に1つ数値が書き込まれたテキストファイルがあり、これをソートしたい。
数値は小数部分があるものもあり、また桁もそろっていません。(10.5とか-9849848.1514142など)
誤ったデータはないもとします。(ABCとか、121あ12など)
このテキストファイルは約1GB程あるとします。

もし、このデータをソーティングするとしたらどのようにしますか

178 ：デフォルトの名無しさん：02/01/18 13:45

>>177
少しずつ読み込んで、シェルソートとかしたら？
途中経過はテンポラリファイルに書き出すとかして。
　
前のスレあたりにも、同じような内容の質問があったような・・・

179 ：デフォルトの名無しさん：02/01/18 14:08

前スレを見てみましたが、結論は出てないようですね

180 ：デフォルトの名無しさん：02/01/18 14:30

>>179
アレはファイルにいったん書き出すのがヤダとかいうから
解決してないのでは？

181 ：177：02/01/18 14:39

少しずつ読み込んでソートしていったら、読み込んだ分がソートされてしまうのでは
ないのでしょうか?
結合するときにまたソーとするのですか?

182 ：デフォルトの名無しさん：02/01/18 14:58

>>181
シェル・ソートってそういうときのために
ある方法だったような・・・記憶が曖昧でｽﾏｿ

確か部分数列ごとにソートして収束させていく
というアルゴリズムだと思います。

183 ：182：02/01/18 15:01

やっぱ無理みたい

184 ：182：02/01/18 15:04

遅くても良いならランダムアクセスファイルにして、
レコード番号を配列代わりに使えばできなくはないけど

185 ：デフォルトの名無しさん：02/01/18 16:09

B-treeとして書き出していくとかどうよ？
一種の簡易DBになっちまうが。

186 ：160：02/01/18 16:37

>>176
レスありがとうございます！ XPをサブマシンに導入して、
試してみます。ありがとうございました。

187 ：デフォルトの名無しさん：02/01/18 16:47

>>177
ヲレならDBにぶち込む。

貴方の問題は１GBのデータをソートする事なのか、
そのソートしたデータを使って何かの処理を行う事なのか？
後者なら先ずは動く事、早くするのはそれからの事。

188 ：デフォルトの名無しさん：02/01/18 17:36

>>181
マージソートの要領で結合しながらソートすればいいと思います。

189 ：まちゅ ◆VcvMACHU ：02/01/18 18:17

たぶん、188さんと同じようなことかもしれないけど、
１ＧＢのファイルを分割してバブルソートしてはどうかな？
たとえば１０ＭＢくらいのファイルを１００個作って番号を振っておく。
まずファイル１と２を読み込んでソート。
２０ＭＢくらいならオンメモリでできるでしょう。
ソート後にファイル１と２に半分づつ書き戻す。
次は、ファイル２と３を読み込んでソート・・・てな具合にやれば出来そうな気が。

190 ：177：02/01/18 19:50

色々な考え方があるものですね。
アルゴリズムについてあまり知識がないので勉強になります。

私は>>184さんと>>185さんのやり方は、どういうものなのか
理解できませんでした。すいません。。。

>>187さんの方法はDBに一旦全部格納して、SQL文でソートさせて抽出しそれを
ファイルにまた書き出すということでしょうか。それが最も簡単だと思います。
ただもしも、DBに入れられる限界を超えてしまったとしたら、できなくなってしまいます。

>>188さんと>>189さんの方法ですと、少しずつに分けてソートすることが
私にもできそうな気がしてきました。まだ考え方がうまくまとまらないのですが
もっと勉強しようと思います。

191 ：デフォルトの名無しさん：02/01/18 23:31

単純に分割するのではなく、数値の範囲で分割すれば
再ソートする必要はなくなる。
スワップしまくりのＤＢより速く結果が出る。

192 ：デフォルトの名無しさん：02/01/19 00:42

>>165
>ここに VB4.0 と VC6.0 の演算速度比較が載ってますが、
>ttp://www.wombat.or.jp/tomoyashuttle/shtml/colum/vbspeed1.htm
>
>バージョンが違うし、整数型だけだし、ＰＣも旧式。＞Pentium133,32MB

VB4はP-CODEコンパイルしかないしね。

後、根本的に計測の仕方に違いすぎですね。
・OSがWin95
→計測タイミングでかなり揺らぎがでる。何度か計測した上での平均なのかどうか不明。
・VB側のa,b,AnsがInteger
→VCでintなら、VBではLong。
・VB側の時間計測が精度の低いTimer
→VC側をGetTickCountでやるならVBも同じに。timeGetTimeの方がいいけど。
・終了時間の取得がVCではまず変数に入れてから。
→VB側もt1を宣言して、一旦変数に入れてからに。後、t0、t1共に宣言して。

＞VB6.0のネイティブ・コンパイルで、実数型だと、どうなりますか？
両方持ってて暇な人実験きぼんぬ。

193 ：デフォルトの名無しさん：02/01/19 01:02

でかいファイルのソート方法

(1)入力ファイルをワークファイル０にコピー
　（入力ファイルを残さないなら不要）
(2)ワークファイル１とワークファイル２を書き込みでオープン。
　（中身は消す）ワーク０は読み込みでオープン。
(3)Ｘ＝１とする。
(4)ワーク０から一件読み込む
(5)前回のデータより小さいならＸ＝Ｘ＋１（Ｘ＝3ならＸ＝１）
(6)読み込んだデータをワークＸに出力
(7)ワーク０の最後まで(4)から繰り返す
(8)ワーク２の件数が０なら終了。
(9)全てのワークをクローズして
　　ワーク１ワーク２を読み込みでオープンしなおす。
　　ワーク０は書き込みでオープン。
(10)ワーク１とワーク２から一件づつよみこむ。
(11)読み込んだデータで小さい方をワーク０に出力
　　書き込んだ方は新しいデータを読み込む。
　　もしワークの最後まで来たならデータを最大値(99999999とか）にしておく。
(12)ワーク０以外の全てのワークが空になるまで(11)から繰り返す。
(13)全てのワークをクローズして(2)から繰り返す。

これがファイルソートの基本中の基本のマージソート（２ファイル）。
ワークを増やせば効率がよくなる。
ＨＤＤに元データと同じくらいの余裕(これがなきゃ出力できんわな)と
数件のレコードを保存するメモリがあれば
どんな量でもソートできる。

ちなみにこれは改良の余地がかなりある。
(2)～(7)までを分配フェーズ、(9)～(12)を統合フェーズというが
はじめに大小関係が成り立っているデータの塊を
フィボナッチ数でワークに分配しておき
分配と統合を同時に行えるようにするポリフェーズソートとか。
興味があるならアルゴリズムの書籍を読め（古いやつな）。

ちなみにいまどきこんなソート誰もやらん。
ＤＢにつっこんで終わり。

194 ：デフォルトの名無しさん：02/01/19 10:15

ラベルに縦方向センタリングスタイル(SS_CENTERIMAGE)をつけたいのですが、
hwndプロパティが無いので、SetWindowLongが使えません。
コントロールサイズそのままで、ラベルに縦方向センタリングをつける方法って
何かありませんか？

195 ：デフォルトの名無しさん：02/01/19 10:30

コレクションって内部でどういう実装になってるの？
ハッシュ？ツリー？

For Each ～ Next でコレクションの中身を取り出すと、
ちゃんと入れた時と同じ順番で出てくるのが不思議なんだけど…。

ひょっとして、リスト構造？

196 ：PentiumIII 866MHz：02/01/19 11:24

VisaulBasic6Ent.
-------------------------
Option Explicit

Public Declare Function GetTickCount Lib "kernel32" () As Long

Sub Main()

Dim i As Long
Dim a As Integer, b As Integer
Dim Ans As Integer
Dim t0 As Long

　　a = 16: b = 8
　　t0 = GetTickCount
　　For i = 0 To 10000000
　　　　Ans = a + b
　　　　Ans = a - b
　　　　Ans = a * b
　　　　Ans = a \ b
　　Next i
　　MsgBox ("Time: " & CStr(GetTickCount - t0))

End Sub
-------------------------
平均 220ms

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Delphi6 Personal
-------------------------
program SpdDel;
uses
Windows;

{$APPTYPE CONSOLE}
var
I,A,B,Ans,T0,T1:Integer;
begin
　　A:=16; B:=8;
　　T0 := GetTickCount;
　　for I:=0 to 100000000 do
　　begin
　　　　Ans := a + b;
　　　　Ans := a - b;
　　　　Ans := a * b;
　　　　Ans := a div b;
　　end;
　　T1 := GetTickCount;
　　write('Time:');
　　write(T1-T0);
end.
-------------------------
平均 234ms

197 ：デフォルトの名無しさん：02/01/19 11:46

キーワード："ドキュン"
文章(例)：
ドキュンばっかり珍走団。ケモジャケモジャ。マリオと
オマリー。ドキュンちゃんと食パンマン。VBVBVBVBVBVB

上の文章からキーワードを含む文である、"ドキュンばっかり珍走団。",
"ドキュンちゃんと食パンマン。"を切り取りたいのですが、どうしたら
いいのでしょうか？
キーワードを含む文の長さは不定で複数あります。

198 ：デフォルトの名無しさん：02/01/19 11:50

へー、デルファイって、API宣言せずに使えちゃうんだ。
便利そう。 := はいただけないが。

199 ：デフォルトの名無しさん：02/01/19 11:54

正規表現で、
ドキュン[^。]*。
とか。

200 ：デフォルトの名無しさん：02/01/19 16:47

ユーザーがテキストボックスに数字を入れるようにしました。
それで2バイト文字は入力できないようにしたいんですが、どのようにやるんでしょうか？
マウス右クリック→貼り付け、[CTRL+V]の貼り付けもやれないようにしたいんですが、できるでしょうか？

201 ：でく：02/01/19 17:10

プログラムやる上でアルゴリズムは勉強した方がいいですか？

202 ：デフォルトの名無しさん：02/01/19 17:55

>200
2byte数字は1byte数字に変換するようにすると良いですよ。
2byte文字を弾くのは、1byte文字を弾くのと同じようにやればいいかと。

203 ：デフォルトの名無しさん：02/01/19 18:41

>>201

必要なときに必要なアルゴリズムを勉強すればいい。
何を作るかによるが、必要になることは少ない。
時間を持て余しているならUMLの勉強をお勧めする。

204 ：パン：02/01/19 20:38

スマートと言うか、皆さんのだったらどういった方法を取られるか聞かせて頂けますか？

今からやろうとしてるのが、帳票や伝票の枠内に数値を印字していきたいのですが、
キャラクター？を設定してズレを防ぎながら作っていくのは気が遠くなりそうなので、

フォーム上にTEXTを並べて微調整していこうとしたら、
A4の用紙だとフォームでは狭すぎて印刷が出来ませんでした。

エクセルやワードをかいして印字する方法や、
アクセスにはフォームエディタみたいなウィザードが用意してあると聞いたこともあります。

行間など環境が変わっても左右されにくいのは、どういった方法でしょうか。

地道な作業なので、確実な手段でして行きたいので、みなさんでしたらどういった手段をとられますか？
宜しくお願いします。
-------------------
OS WinMe
VB6.0 Pro
MS Office
スキル　夜鍋の１年間てーど
-------------------

205 ：197：02/01/19 21:44

>>199さん、レスありがとうございました。
早速、参考書片手にやっています。
試しに、Split関数でキーワードを含む文を***で埋めようとしてみたんですが、
"ドキュン[^。]*。"だと、"***ばっかり珍走団。"という風に
文全体で無く、キーワード部分しか埋めてくれません。
Splitじゃなくて他の関数を使わないと無理ですか？

206 ：コピペ厨房：02/01/19 22:50

>>204
> 今からやろうとしてるのが、帳票や伝票の枠内に数値を印字していきたいのですが、
> キャラクター？を設定してズレを防ぎながら作っていくのは気が遠くなりそうなので、

市販品を使ってよければ、ActiveReportとか使うと簡単にできますよ。
Excelを利用可能であれば、それを使うというのもあります。

207 ：デフォルトの名無しさん：02/01/19 23:06

＞197
strIn = 例文
strOut = ""
strWork = Split(strIn, "。")
For Each strLine in strWork
　If InStr(strLine, "ドキュン") Then strOut = strOut & strLine & "。"
Next

199の正規表現を使うなら、コンポーネントを追加しないと。

208 ：デフォルトの名無しさん：02/01/19 23:09

＞204
テキストを並べるのは、DOS時代のやり方。
VBなら印字位置を0.01ミリ単位で指定できるじゃん。

209 ：ごるぁ：02/01/19 23:19

２０４はマルチ

210 ：デフォルトの名無しさん：02/01/19 23:26

はわわー
>>204
帳票、伝票等をお手軽に済ませたいなら
Excel、Accessを活用する事をお勧め。

211 ：VB超初心者厨房：02/01/19 23:49

ユーザーフォーム、ワークシート、モジュールなどを活用した
プログラムを作成したいのですが、超初心者でもできそうな
ものはないですか？

212 ：１６５：02/01/20 01:08

＞192
レスどうも。
よく考えたら、Ｃの場合、ループ内で値が変化しないなら、
コンパイル時に定数を入れてしまう可能性とかもありますね。

＞196
Delphi6も。ありがとうございます。

＃ＶＣのベンチもお願いします。＞持ってる人

213 ：デフォルトの名無しさん：02/01/20 02:31

イントラネット嬢での話なのですが、winsockコントロール、あるいはそれに
相当するAPIを用いるC/Sのプログラムを作成し、サーバプログラムをNTserverに
配置、作成したクライアントプログラムを用いてサーバプログラムと通信する場合、
NT側のクライントライセンスの追加購入の必要はあるのでしょうか？
ちなみにクライアント側へは、ファイル共有等のネットワーククライアント関連
のインストールはしていません。

214 ：デフォルトの名無しさん：02/01/20 02:36

>196
Delphi最適化してると使われてないAnsがらみのコード削除しちゃうよ｡
定数の代入すらやらないはず｡

バブルソートでもやってみたら＞ベンチマーク

215 ：デフォルトの名無しさん：02/01/20 03:23

>>213
＞イントラネット嬢
ちと萌えるな

216 ：173：02/01/20 03:25

以下は、>>173の再掲なのですが
＞ExcelからVBA使って、IEを動かしてるのですが、
＞VBAを使ってIEを動かしてウェブサーバのBASIC認証を通ることは可能でしょうか？
回答がないところを見ると、便利なやり方はないけど、
perlでやるみたいに１つ１つサーバにhttpで話かければいけるのでしょうか？
＃ＶＢやりはじめなのではずしてる可能性大？

217 ：デフォルトの名無しさん：02/01/20 03:33

＞216
Userプロパティ使えばいけると思うけど、VBAにはないの？

もしなければ、http://ユーザ名:パスワード@www.hoge.co.jp/
とかは通らない？

218 ：デフォルトの名無しさん：02/01/20 03:35

＞214
Delphiはそこまで最適化？
そう言えば、昔のCは、使われてない変数に警告出してたな。

219 ：213：02/01/20 03:49

>>215
あはは…本当ですね。
気付かなんだ。会社で隠語で使えそう。
「オッパイ出してるイントラネット嬢」とか
「超難解イントラネット嬢の隠しバイト」とか。

関係ない話ですいません…質問は至ってマジメというか
業者にアホみたいなライセンス数見積もりで出されたので
ちょっと？って感じなんですよ。ご回答お待ちしております。

220 ：デフォルトの名無しさん：02/01/20 04:15

>>218
Delphiは知らんけど、弟分のBCBでもそんな感じに最適化される。
デバッグする時にそういう無意味な変数にbreak point張ると
何事も無かったかのように素通りしてくれるよ。
板違いネタスマソ。

221 ：デフォルトの名無しさん：02/01/20 04:23

>>219
そんなのMSに直接問い合わせれば？
ライセンス料って結構いいかげんというか
運用形態に拠って変わってこないかい？

NT Serverの事は良くしらんけど、
Oracleとかは馬鹿みたいな金額取られるよ＞追加ライセンス

222 ：デフォルトの名無しさん：02/01/20 11:45

>>219
仕事なら221の言う通りMSに聞いて根拠にするのが一番だけど、
ソケット使うだけでライセンス発生するなら
IISでサイト開いてるところは万単位のライセンスが必要になると思うぞ（藁

そのC/Sシステムが何をやっているかによって変わってくる。

223 ：196：02/01/20 13:51

>214
適当にやってみたけど
-------------------------
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Const SAMPLE = 1000

Private Sub Command1_Click()
　　Dim I As Long
　　Dim J As Long
　　Dim sTmp As String
　　Dim lTime As Long
　　
　　Dim A(SAMPLE)
　　
　　For I = 0 To SAMPLE
　　　　A(I) = List1.List(I)
　　Next I
　　
　　lTime = GetTickCount
　　For I = 0 To SAMPLE - 1
　　　　For J = SAMPLE To I + 1 Step -1
　　　　　　If A(J) < A(J - 1) Then
　　　　　　　　sTmp = A(J)
　　　　　　　　A(J) = A(J - 1)
　　　　　　　　A(J - 1) = sTmp
　　　　　　End If
　　Next J, I
　　Caption = CStr(SAMPLE) & "Samples Time:" & CStr(GetTickCount - lTime) & "msec"
　　
　　List2.Clear
　　For I = 0 To SAMPLE
　　　　List2.AddItem A(I)
　　Next I
　　
End Sub

Private Sub Form_Load()
　　Dim I As Long
　　For I = 0 To SAMPLE
　　　　List1.AddItem Format$(Rnd, "0.000000")
　　Next I
End Sub
------------------------------------------------
こんなコードで
VBは330msec, Delは100msec位だった。

224 ：デフォルトの名無しさん：02/01/20 14:34

>>223
Delのコードは？

>Dim A(SAMPLE)
Variant型かい！Singleにしましょう。速さ全然違うから。

>Caption = CStr(SAMPLE) & "Samples Time:" & CStr(GetTickCount - lTime) & "msec"
終了時間もまず一旦変数に入れてから後処理してね。

225 ：50のVB爺：02/01/20 14:54

VB6(SP5)インストールしたら、今まで何ら問題なかったExcel VBA UserForm
上のDataGridが座標が(0,0)で表示されるようになった。UserFormのInitialize
でDataGrid.Visible=Falseにしておくと、この症状が出るようなんだけど、何か解決
方法はないだろうか。

226 ：でく：02/01/20 15:44

VBプログラマーになる上で、何が出来たら一人前といえますか？
プロパティーや関数、メソッドなどは全て覚えなければいけませんか？

227 ：197：02/01/20 16:35

>>207さん
アドバイスのお陰で出来ました！
ありがとうございました。

228 ：196：02/01/20 16:55

>>223
ソースとバイナリをここにUPから適当に遊んでくれぃ。

http://r1.ugfree.to/~angriff/596.lzh

しかし、Delのexeはでかいよぉ（ｗ

229 ：VBer：02/01/20 19:10

ウィンドウに対してAlt+PrintScreenを押すとイメージがクリップボードに入りますが、
これをVBから他ウィンドウへ対して実行したい時は、
どのメッセージを送ればよろしいでしょうか？

Spyを使って調べながら・・・・

ret = PostMessage(hWnd, WM_SYSKEYDOWN, &H12, &H60310001)
ret = PostMessage(hWnd, WM_SYSKEYUP, &H2C, &HE0540001)
ret = PostMessage(hWnd, WM_KEYUP, &H12, &HC0380001)

を送ってみましたが、上手くクリップボードへ入ってくれませんでした・・・・。

230 ：デフォルトの名無しさん：02/01/20 19:27

>>229
keybd_eventでどうぞ。

231 ：デフォルトの名無しさん：02/01/20 21:23

この様な回転の為のサブプロシージャを書いた後、
Private Sub rotateZ(p() As point3D, s As Integer, e As Integer, _
rz As Single)
以下･･･。

その後Callステートメントで呼び出す時、どう書けばいいんですか？
Call rotateZ･･･この後カッコを付けて、p() As･･･と全部書けばいいんですか？

232 ：あじゃぱ：02/01/20 23:05

VBのよい参考書があれば教えてください.

233 ：デフォルトの名無しさん：02/01/20 23:09

MSDN>232

234 ：デフォルトの名無しさん：02/01/20 23:15

>>233
基本ではあるが良いとはお世辞にも以下略。

235 ：デフォルトの名無しさん：02/01/20 23:19

>>226
全部覚える必要はないよ。使わないものも多いから。
でも、AccessやExcelとの連携やSQL操作の仕事が一番多いかな。

>>231
いちおう対応する変数は全部必要。型宣言は不要だけど。

236 ：デフォルトの名無しさん：02/01/20 23:21

>>231
ネタ…？

Dim buff_p() As point3D
Dim s, e, rz As Integer

<初期化、計算処理>

Call rotateZ(buff_p, s, e, rz)

237 ：デフォルトの名無しさん：02/01/20 23:28

>>236
えーっと。サブプロシージャを見つけて、
使おうとしたのですが、どうすればよいのか分かんなかったのです。
説明するのに頭の部分だけで良かったのかどうか分からないのですが、
やってみます。ありがとうございます。

238 ：デフォルトの名無しさん：02/01/20 23:40

>>236
ネタ…？
それじゃ、s と eがバリアントだけど。

239 ：デフォルトの名無しさん：02/01/20 23:42

>>236
rzはSingleだし。

それに、呼び出し側で同じ変数名使うかな。
面倒くさい時は使うか…。

240 ：デフォルトの名無しさん：02/01/20 23:43

>>237
人に聞く前にまずやってみて、ばんばんエラーを出すほうが
覚えていくもんだよ。

241 ：デフォルトの名無しさん：02/01/21 01:44

>>226
>VBプログラマーになる上で、何が出来たら一人前といえますか？

自分で考えること。
自分で調べること。
自分で実験すること。

>プロパティーや関数、メソッドなどは全て覚えなければいけませんか？
そんなの全部覚えてるやつはおらん。
(長いことやってれば、どのコントロールにどんな感じのプロパティやメソッドが
あるのか知ってるし、似たようなコントロールなら予測もできるけど)

・はじめてのコントロールを使うときは、まずヘルプでそのコントロールの
プロパティ、メソッド、イベントに一通り目を通す。
・使ったことのない関数を使うときも、ヘルプで使い方を調べる。
さらに、その関数を使った小さな実験プログラムを作って自分の目で
動作確認をする。

VBに限らずプログラミングの基本中の基本。

242 ：デフォルトの名無しさん：02/01/21 05:47

フォームのBoaderStyleを「可変」に設定しておいて、フォームを小さく
していくと、あるところでListBoxなどが「プロシージャの呼び出し、また
は引数が不正です」なるエラーを出てしまいます。タイトルバーしか表示
されないというところまでフォームを小さくするためには、どうしたらいい
のでしょうか。

243 ：デフォルトの名無しさん：02/01/21 06:22

＞242
そんなこと、今まで誰もやってないと思われ。
ListBoxを不可にするとか、不可視にするとかは？

244 ：デフォルトの名無しさん：02/01/21 06:41

その動作は、「高速ダウンローダー２００１」をおもいだしすな、ぁ。

245 ：242：02/01/21 06:49

>>243さん、レスありがとうございます！
242で書くべきでしたが、フォームのリサイズの際にListBox
のサイズも変更されるように、次のような記述をしています。

List1.Move 120, 120, Me.ScaleWidth - 240, Me.ScaleHeight - 240

これで、List1のHeightが240に達すると先のエラーを吐いて
しまうようです。ご指摘の通り、不可視にすればエラーを回避
できました。次の記述を加えてみました。

If List1.Height < 250 Then
List1.Visible = False

一応の解決を見ました。ありがとうございました！ところで、

> そんなこと、今まで誰もやってないと思われ。

これはどういう意味なのでしょうか。もしかして、他にもっと
いい方法があるのでしょうか。ご指導いただけると助かります。
重ね重ねよろしくお願いします！

246 ：デフォルトの名無しさん：02/01/21 06:52

>>242
もしかして、Form_Resize で、そのリストボックスの高さとか幅を、
フォームサイズに合わせてない？
高さや幅の値が＜０になってエラーになってるだけと思うが。

ちゃんとチェックしてマイナスにしないようにするのが良いが、
手抜きとしてはこんなんもアリ(笑

Private Sub Form_Resize

　On Error Resume Next　'//手抜き

　List1.Height = Me.ScaleHeight - List1.Top

End Sub

247 ：デフォルトの名無しさん：02/01/21 07:56

>>240
お返事ありがとうございます。
昨日は睡魔に負けてしまいました。
わからないことがまだ沢山あるので、その時はお願いします。

248 ：名無しさんです：02/01/21 10:41

枠無しにフォームのサイズを変更してるアプリって
ありますよね？例えば付箋関係なんかが良くやって
ますが、あれって自力で枠周辺を監視して処理して
いるのでしょうか？だとしたら具体的にどういった処理
が必要になるのでしょうか？

249 ：VB使い：02/01/21 10:52

>>248
サブクラス化＋メッセージ監視で出来るよ。
サンプルはWebに山ほどある。

250 ：248：02/01/21 11:01

>>249
サブクラス化しなきゃできないですかね～。
当方開発環境がwin98なのでサブクラス化すると
ステップ実行したりエラー出たら落ちたりするんで
できればサブクラス化はしたくないのです…。
ＮＴ系だとサブクラス化しても問題無いと聞きますが。

251 ：VB使い：02/01/21 11:30

>>250
まあ、サブクラス化はめんどくさいからな。
俺も完成寸前にしか動作させない。

んじゃこれ使ってみれ。
１．フォーム作ってフォームのコードに貼り付ける。
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
ReleaseCapture
SendMessage Form1.hwnd, &hA1, 11, 0
End Sub
２．実行してフォームをドラッグする。

あとはMSDNでWM_NCLBUTTONDOWNとか見れ。

252 ：250：02/01/21 11:45

早速試しました。なるほど、とりあえず右方向だけですが
サイズ変更できました。あとは外周マウス座標をなんとか
すればイケそうですね。MSDNでちとイロイロ調べてみます。
サンクスでした。

253 ：250：02/01/21 11:46

あ、>>251 のVB使いさんへの返信です。

254 ：242：02/01/21 17:17

>>246さん、レスありがとうございます！
自宅に帰ったらさっそく試してみたいと思います。
ありがとうございましたm(_ _)m

255 ：デフォルトの名無しさん：02/01/21 18:09

>>238
C, C++ とかぶってしまった。

>>239
スマソ、宣言よく見てなかった…。

256 ：デフォルトの名無しさん：02/01/21 20:44

VB６、今日から使い始めたんですけど、
SVGA（８００×６００）対応のフォームを作ろうとしたら、
XGA以上のディスプレイで設計しないといけないんですか？

257 ：デフォルトの名無しさん：02/01/21 20:58

>255
マ板で叩かれてた人かい?

http://pc.2ch.net/test/read.cgi/prog/1010916886/

258 ：デフォルトの名無しさん：02/01/21 20:58

いまVB6.0とVC6.0をインストールしています。

VisualStudioのSPですが、最新版だけ当てるのは
駄目なのでしょうか？

よろしくおねがいします。

259 ：デフォルトの名無しさん：02/01/21 20:59

>>256
プロパティウィンドウで設定できるのは画面のサイズまでだったと思うので、
実行時にフォームのサイズを合わせれば一応できますが・・・

でも、実行する度に画面いっぱいいっぱいで開発効率が非常に悪いのは
言うまでもないでしょう。

260 ：デフォルトの名無しさん：02/01/21 21:00

>>258
最新版にはそれまでの修正が全部含まれてます。

261 ：258：02/01/21 21:06

>>260
ということは最新版だけで良いんですね。
ありがとうございました。

262 ：257：02/01/21 21:06

>257ですけど、>256へのレスでした。

263 ：256：02/01/21 21:08

>>259
なるほど、できないことはないんですね。
月末、XGAのノートPCが到着するから、
それまで違う部分を作ることにします。
ありがとうございました。

>>262
ちがいます（ｗ

264 ：デフォルトの名無しさん：02/01/21 21:42

お世話になりますm(_ _)m

現在、ダイアログを作成してるんですが、親のフォームからの
値の取得をどうやるかで悩んでいます。いまは、わざわざLabel
コントロールに値をいったん格納し、それを

　AAA = Form1.Label1.Caption

などといったふうに読み出しています。この方法でも問題なく
処理はできるんですが、今一スマートさにかけるような気がし
ています。コントロールを作ることで余計なメモリも食ってし
まうような気もしますし。。。プロシージャやフォーム単位を
超えた、プロジェクト内で自由に使用できる変数の設定って可
能なんでしょうか。よろしくお願いします。

265 ：デフォルトの名無しさん：02/01/21 22:08

>>264
新たに、「標準」モジュールを作って、そこに

　　Public 変数名　as 型

と宣言すべし。全モジュールより参照できる。
こんな場合なら、構造体を使うのがベターだな。
オブジェクト指向っぽくないが、VBなので気にするな（ｗ

266 ：デフォルトの名無しさん：02/01/21 22:32

>>264
フォームモジュールの先頭に
Public AAA As String
とすれば、外部からはForm1.AAAでそれにアクセスできます。

また、変数自体はPrivateにしておいて、
PublicなPropertyプロシージャを作ればリードオンリーにしたり、
入力チェックをしたり、細かいアクセス制限もできます。
その場合もぷろぱてぃ名がAAAならば、
Form1.AAAでアクセスできます。

267 ：264ではないですが：02/01/21 22:34

>>265
>構造体を使うのがベター

それってもしかしてclassのことですか？
VBのclassがわからなくて、ある人は「C言語の構造体のようなもの」だといってました。
C言語もよく知らないんですが、VBでclassを使うといいのはどんな時ですか？

268 ：あじゃぱ：02/01/21 22:36

これからVBを学ぼうかと思っているのですが、
皆さんはVBを一通りこなせるようになるのにどれくらいの時間がかかりましたか？
さらにプロレベルになるのにどれくらいかかりましたか？

269 ：265じゃない：02/01/21 22:53

>>267
>それってもしかしてclassのことですか？

クラスと構造体は別。構造体にあたるものはVBではユーザ定義型と呼ばれるよ。
クラスはクラスモジュールに記述する。

>VBのclassがわからなくて、ある人は「C言語の構造体のようなもの」だといってました。
>C言語もよく知らないんですが、VBでclassを使うといいのはどんな時ですか？

クラスはあるデータのまとまり(プロパティ)とそれらを操作するメソッドで構成されてる。
クラスはいくらでも量産することができる。標準モジュールだとこうはいかない。
実際に使ってみないと実感わかないと思うよ。

270 ：デフォルトの名無しさん：02/01/21 22:54

>>268
それ聞いてなんかの参考になるん？

271 ：あじゃぱ：02/01/21 23:01

＞270
参考までにとしか言いようがないです.
まあ早く覚えて就職したいと考えているので、参考までに他の人は
どれくらいなのかなと思ったので.

272 ：267：02/01/21 23:24

>>269
ありがとうございます。むずかしいですね・・・。
ある人は「クラスは概念だから説明しづらい」とも言ってました。
参考書なんかにもなかなか載ってないし・・・。
どんな時に必要になるのか、まだよくわかりません。
>>269さんはどうやって勉強しましたか？

273 ：　：02/01/21 23:29

VBランタイムをDLしたいんですがうまくいきません
助けてください

274 ：デフォルトの名無しさん：02/01/21 23:31

＞271
早い人は早いし、遅い人は何年たってもダメ。

たとえば何年勉強すれば、英語しゃべれるようになる？

275 ：デフォルトの名無しさん：02/01/21 23:36

テキストフィールド間をEnterキーで
移動させる方法を教えてください｡
お願いします｡

276 ：269：02/01/21 23:40

VBページでクラスを扱っているところ。
ttp://www.interq.or.jp/www-user/komurak/main.html
ttp://homepage1.nifty.com/CavalierLab/lab/
http://www.gj.il24.net/~nakasima/

とりあえず1番目がお勧め。
3番目はある程度わかるようになってからの方がいいかな。

277 ：デフォルトの名無しさん：02/01/21 23:48

＞275
超ＦＡＱ。
SetFocusで移動。KeyCode=0でBeep音対策。
入力チェックには、Validateなんかおすすめ。

278 ：デフォルトの名無しさん：02/01/22 00:29

>>268
>皆さんはVBを一通りこなせるようになるのにどれくらいの時間がかかりましたか？
サラからでもひと月も毎日使っていれば普通の人なら理解できるよ。
うちの会社にいる茶髪ねーちゃんでも出来たもん。

>さらにプロレベルになるのにどれくらいかかりましたか？
プロっつーてもピンキリあるからなぁ・・・

「ＶＢ」を覚えようとするな「プログラミング」を覚えろ。
「プログラミング」はすぐには身につかん。経験が絶対必要。
本気でプロになるつもりなら、とにかく作れ。なんでもいいから作れ。
プログラムだけでなくソースも他人に見せて叩かれろ。
他人に見せられないようなソースは売り物にならん。

↑は俺の言葉じゃないけど、間違ってないと思うよ。

279 ：デフォルトの名無しさん：02/01/22 00:52

>>277
ありがとうございました｡
text1からtext2に移動させるとしたら、これで良いのでしょうか？
とりあえずはうまくいったのですが.....

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
Text2.SetFocus
End If
End Sub

それと、色々調べてる時にEnterキー移動はあまりお勧めできない
って書いてあったりするのですが、何か問題があるのでしょうか？
もしよろしければ教えていただけませんか？

280 ：デフォルトの名無しさん：02/01/22 00:52

>278
そして、勉強している間は給料の文句は言うな

もお忘れなく。
VBと関係無いんでsage

281 ：デフォルトの名無しさん：02/01/22 01:01

>>279
Windowsの標準はTabでフォーカス移動だから。
標準から外れるからには棘の道を進む覚悟が必要。

282 ：デフォルトの名無しさん：02/01/22 01:02

＞279
KeyPressはキーを押した後なので、それより前のKeyDownに書くほうがベター。
キーイベントの発生順序は、KeyDown → KeyUp → KeyPress なのだ。

さらに、KeyAscii = 0 の後に、
Text1.Enabled = False
Text1.Enabled = True
の２行を入れるのがＭ＄推奨だったりする。

WindowsがTABキーで次項目に移動する仕様になってるから。
操作の統一という意味でお勧めできないというだけ。

Enterで移動するのはDOSの仕様で、これに慣れてる中年クライアントの
希望が実際に多い。ExcelもEnterによるセル移動を捨ててないしね。

283 ：264：02/01/22 01:13

>>265 >>266さん、ご回答ありがとうございます！
さっそく作りかけのプログラムを書き換えます。ありがとう
ございました！

284 ：デフォルトの名無しさん：02/01/22 01:14

>>281
>>282
ありがとうございました｡
TabキーがMS標準なんですね｡
エクセルやアクセスを使っているとEnterキーが
標準のように思ってました｡
色々と勉強になりました｡

285 ：267：02/01/22 03:09

>>276(269)
クラスについてのサイト紹介、ありがとうございました。勉強してみます。

あと>>279さんのご質問に関しての>>282さんのレスについてなんですけど、

>さらに、KeyAscii = 0 の後に、
>Text1.Enabled = False
>Text1.Enabled = True
>の２行を入れるのがＭ＄推奨だったりする。

のところの意味がわからないんです。これはどういうことでしょうか？

286 ：VB使い：02/01/22 04:49

>>285
M$=MicroSoft（ややUG,2ch用語）

287 ：デフォルトの名無しさん：02/01/22 06:31

＞285
Enabled=Falseにすれば、次のコントロールにフォーカスが移る。
その後で、Enabled=Trueに戻せばいいってこと。
これに対しSetFocusだと、フォーカスの順番を無視できてしまう。
ただ、それだけの違い。

作成過程の都合＝コントロールを貼り付けた順番のままで、
フォーカスの順番なんてまったく考慮してないアプリもあるけどね。

288 ：てちゅや：02/01/22 17:20

Public Sub HogeHoge(aryParam() As Long)
For i = LBound(aryParam) To UBound(aryParam)
'aryParamを使った処理
Next
End Sub

動的配列を引数に使った上記のような関数を作成しているのですが
この関数の呼出しもとで以下の

Erase aryData
Call HogeHoge(aryData)

の様に Erase でメモリ開放をおこなってしまうと

LBound(aryParam)　及び　UBound(aryParam)

の所で「実行時ｴﾗｰ'9' インデックスが有効範囲にありません」
が出てしまいます。
これの回避に IsArray() で判定してみたりしたんですが、
Erase をしていても宣言時に Xxxx() としていると配列扱いです。

どうやってメモリが確保してあるか判定すればいいのか分からないです。
もしかして、On Error ステートメントで実行時エラー判定させる
しか方法はないのでしょうか？

よろしくお願いします_(._.)_

289 ：はぢめてのＶＢ６：02/01/22 18:23

高度な質問の中すみません
単純なゲーム形式のプログラムを作りたいのですが

「あっちむいてほい」の逆の形式で、Rnd関数で提示した方向（ﾋﾟｸﾁｬで）に対応して
キーボードの←↑↓→を押す。
正解なら正解の回数をカウントしてもう１度
不正解なら正解するまでそのまま（正解以外の入力を受け付けない）
（できればタイマーで時間制限つき）

KeyDOwnイベントと正解をカウントするってところでつまづいてます。
手元に参考書になるものが少ないので是非皆さんの力を借りて完成させたいのです。

290 ：ﾊﾞｧ：02/01/22 18:44

＞289
ウｐ希望

291 ：デフォルトの名無しさん：02/01/22 19:26

ウｐ？

292 ：VB使い：02/01/22 19:41

>>288
つまり、動的配列の初期化/未初期化の判定をしたいんだよな？
・・・たぶん無理。

一応、On Error～か、Redimの後に必ず初期化するか、ファイルに書き込んで
サイズを調べるとか方法があるけど一番いいのは初期化だと思う。
あとバリアントに入れてメモリをチェックするって方法があるかも。今ちょっと分からんが。
他に知ってる人キボーン。

>>289
もうちょっと具体的に頼む。

293 ：デフォルトの名無しさん：02/01/22 21:19

>>291
それだけじゃ答えようがないから、
今どんなふうにやってるのか示せ(コードをupしろ)ってことだろ。たぶん。

嫌われる質問の仕方の見本みたいな書き方だからな。
「つまづいてる」って言われても289にしか状況がわからん。
「こういうエラーが出る」とか「こうしたいのにこうなってしまう」って具合な
問題点を示してくれないと答える側はいやなもんさ。
せっかく答えても「すいません、質問の仕方がわるかったです～」みたいに
なる場合が多いからな。

294 ：285：02/01/22 22:19

>>286
>>287
ありがとうございます。よくわかりました。
ただあとひとつだけ。
>SetFocusだと、フォーカスの順番を無視できてしまう。

とありますが、それを無視できてしまうことの問題というのがいまいちピンとこないのです。
EnterとTabとを押した場合でフォーカスがうつる順番がちがってしまうということでしょうか。

295 ：VB使い：02/01/22 22:39

>>294
SetFocusを使うとどこでもフォーカス飛ばせるんだけど
それはWindowsの行儀に反してるから順番どおりにフォーカスを
移動するようにしてね。
とMicosoftが主張してるってこと。

296 ：285：02/01/22 22:48

>>295
なあるほど。ありがとうございました。

また疑問ができたのでお願いします。
ひとつのプロシージャの中で、まったく関係のないループ処理が複数ある場合、
ループカウンタとして使用する変数をたとえば Dim i As Integerと宣言したら、
そのiを使い回していいんでしょうか。
それともそのループごとにわかりやすいように別に作るほうがいいんでしょうか。
プロの方はどうされているのか教えてください。

297 ：デフォルトの名無しさん：02/01/22 23:43

>>288
VB使いさんと同じで、バリアントで受けるぐらいしか案がない。

>>289
KeyDownより、←↑↓→をキャプションにしたコマンドボタン４個の
ほうがＶＢらしいかも。まず、そっちで作ってみたら？

＞不正解なら正解するまでそのまま（正解以外の入力を受け付けない）
最悪でも４回押せば正解になっちゃうの？

＞296
変数名とかは好みの問題かも。
使い捨てループには iを使うけど、intLoopとか使ってる人も。
要は、後で見てもわかりやすいほうを選べばオッケー。

298 ：VB使い：02/01/22 23:53

>>296
俺は使い回ししてるな。
For～Nextのネストレベルで変数名を同じものにして。

どっちにしろ一番大事なのは常にそうする、ということ。
（会社でやるなら会社に合わせる。）その時々でいちいち変えると
どんなにいい手法でもデバッグがめんどくさい。

299 ：デフォルトの名無しさん：02/01/23 00:00

>>288
SafeArray～のAPIで調べられるけど、
エラートラップを使ってチェックする関数を自作する方が間違いなく楽でシンプル。

>>296
>ループカウンタとして使用する変数を
>たとえば Dim i As Integerと宣言したら、そのiを使い回していいんでしょうか。

その変数がたいした意味がない場合、あるいは、同じ意味のときは使いまわす。
そうでない場合は、別々の変数にする。

でも、基本的に2つ以上のFor文が出てきたら、機能分割して、
その部分がプロシージャにならないか検討する余地あり。

300 ：299：02/01/23 00:05

>>296
追加。
296>ひとつのプロシージャの中で、まったく関係のないループ処理が複数ある場合、

関係のないループで同じ変数を使いまわす場合は、

299>その変数がたいした意味がない場合、あるいは、同じ意味のときは使いまわす。
の中のその変数にたいした意味がない場合だな。

For文の場合そもそもが単純明快なループのみに絞った方がわかりやすいと思うので、
i,jで十分だと思う。制御変数自体に意味があるなら、意味のある変数名にした上で、
Do～Loopを検討した方がいいかも。

301 ：デフォルトの名無しさん：02/01/23 01:03

以下の３つについてお願いします。m(_ _)m
１）imageでpngファイルを表示することは可能でしょうか？
２）imageでjpgファイルを表示することは可能でしょうか？
３）pictureでpngファイルを表示することは可能でしょうか？
－）pictureでjpgファイルを表示することは可能ですね。

302 ：VB使い：02/01/23 01:11

>>301
1×
2○
3×
-そうですね。

303 ：デフォルトの名無しさん：02/01/23 01:16

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

304 ：デフォルトの名無しさん：02/01/23 01:18

＞301
pngはDLLかOCXを使うと表示できる。

305 ：はぢめてのＶＢ６：02/01/23 01:25

>>290-93
ほんとにすみませんでした。
>>297
画面にはピクチャ以外何も表示したくないのでキー操作専用にしたかったのです。
＞最悪でも４回押せば正解になっちゃうの？
それは数をこなすことでなんとかしたいです。

とりあえず、自力で形になるくらいまではこぎ着けたのですが、

ピクチャが表示されっぱなしだと、切り替わった際に「ピクチャの形の違い」で
判別しやすかったのでピクチャー１回ごとにを消せるようにしたいです。
（正解して次に切り替わる際に若干消えている時間が欲しい）

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

'キーの入力方向に対してaに値を入れる

If KeyCode = vbKeyUp Then a = 1
If KeyCode = vbKeyDown Then a = 2
If KeyCode = vbKeyLeft Then a = 3
If KeyCode = vbKeyRight Then a = 4
If KeyCode = vbKeyZ Then a = 0 'スタートボタンとして設定

'iをランダムに変化させて1～4に対応したピクチャを表示

Select Case i
Case 1
Picture1.Picture = Picture2.Picture
Case 2
Picture1.Picture = Picture3.Picture
Case 3
Picture1.Picture = Picture4.Picture
Case 4
Picture1.Picture = Picture5.Picture
End Select

' a = iを正解とし正解数をxとして設定し、政界した場合にはカウントする

If a = i Then x = x + 1

'正解した場合のみ次のiを決定する

If a = i Then i = Rnd * 3 + 1

'正解数を表示する

Label2.Caption = x

Randomize

If KeyCode = vbKeyX Then End 'ＥＮＤボタンとして設定

End Sub

306 ：はぢめてのＶＢ６：02/01/23 01:31

>>290-293でしたｽﾏｿ
やはりタイマーでしょうか？
手元に教科書やなんかあればいいんですが・・・

307 ：>305：02/01/23 01:52

＞If KeyCode = vbKeyUp Then a = 1
ここは、次のブロックみたいに、Select Case で書いたほうが見やすいし、
キーの連打にも対応できる。

＞Picture1.Picture = Picture2.Picture
ピクチャボックスは配列化しちゃおう。
　Picture1(0).Picture = Picture1(i).Picture

＞Randomize
これはフォームをロードする時に１回だけ実行すればいい。

＞If KeyCode = vbKeyX Then End 'ＥＮＤボタンとして設定
これは上の入力部と同じところに書いたほうがいい。
Endは強制終了だから、使用禁止。Unload Me を使う。

＞（正解して次に切り替わる際に若干消えている時間が欲しい）
３秒待ちは、こんな感じ。
　　Dim Wait As Date
　　Wait = Now
　　While DateDiff("s", Wait, Now) < 3
　　　　DoEvents
　　Wend

308 ：デフォルトの名無しさん：02/01/23 02:01

画像のロードの仕方で以下のやり方で間違っているのはどこでしょうか？
テキストですと同じ方法でロードできるのですが。。。

Dim strBuff_zu As String
Dim intFileNum_zu As Integer
Dim strFullPath_zu As String 'フルパス
Dim strSoutaiPath_zu As String '相対パス

strSoutaiPath_zu = "\tekisei\toi" & i & "\gazou.jpg"
strFullPath_zu = App.Path & strSoutaiPath_zu
intFileNum_zu = FreeFile()
Open strFullPath_zu For Input As #intFileNum_zu
Line Input #intFileNum_zu, strBuff_zu

Close #intFileNum_zu

Image1.Picture = LoadPicture("\strBuff_zu"

309 ：デフォルトの名無しさん：02/01/23 02:09

＞308
画像を読み込むだけなら、LoadPictureの１行だけでいい。
()の中にはパスを入れる。EXEと同じフォルダなら、ファイル名だけでも可。

上のブロックは、テキストファイルを読み込む時のやり方で、画像とは関係ない。

310 ：296：02/01/23 07:37

>>297-300
ありがとうございました。

311 ：デフォルトの名無しさん：02/01/23 12:34

ＶＢでユーザー定義関数同士間でＣでいう関数ポインタみたいにできないですか？
できるならばやり方ご存知の方お願いします！！

312 ：VB使い：02/01/23 12:49

>>311
関数ポインタで関数を呼び出したいってこと？

313 ：デフォルトの名無しさん：02/01/23 15:00

今、exeﾌｧｲﾙのｱｲｺﾝ上に任意のﾌｧｲﾙをﾄﾞﾗｯｸﾞ&ﾄﾞﾛｯﾌﾟして、
そのﾌｧｲﾙのﾊﾟｽを取得したいのです。
でも、command関数を使っても、ﾌｧｲﾙ名が8文字までしか認識されません。
しかも、WinMeだとﾌﾙﾊﾟｽ認識出来るのに、Win98SE以下だと駄目なのです。
APIを使っても、まずﾌｧｲﾙ名をプログラム内で指定しないと駄目ですし、
どうしようか、手詰まりになっています。
わかる方いらっしゃいましたら教えていただけないでしょうか？
以下、コードです。

Dim args1, args2 As String
Dim nn As Integer
args1 = Command()
nn = Len(args1)
args2 = Mid(args1, 1, nn)
Open "C:\My Documents\Doc検索\minami.txt" For Output As #1
Print #1, args2
'Print #1, nn
Close #1
ret = Shell("C:\Program Files\FileMaker\ﾌｧｲﾙﾒｰｶｰPro 5.5\ﾌｧｲﾙﾒｰｶｰPro.exe C:\My Documents\Doc検索\Docu検索01.fp5", 1)
End
End Sub

314 ：311：02/01/23 15:43

>>312
　ｿｳｯｽ（・∀・）！！

315 ：VB最高：02/01/23 16:37

VBをやるのにフローチャートはいりますか？
というよりフローチャートってなんですか？

316 ：VB使い：02/01/23 16:51

>>314
VBはポインタを扱えないので、まぁ基本的に無理ってことで。

ただ、無理やりやるなら
１．アセンブラで関数のポインタに飛ぶコードを書いてVTableを自作し、
VtableにアセンブラコードとポインタをいれてOleaut32のDispCallFuncを
呼び出す
２．クラスを作成しインスタンス化した後Vtableのアドレスを書き換える

とかいう方法があるけどどちらも無理矢理なんでC使えるならDLLを作ることを
お勧めする。

一応１のサンプル。（DispCallFuncについてはまだよく知らないので)

Option Explicit
Private Declare Function DispCallFunc Lib "oleaut32.dll" ( _
ByVal VtblObject As Long, _
ByVal FunctionOffset As Long, _
ByVal CallConv As Long, _
ByVal ReturnType As VBA.VbVarType, _
ByVal ArgsCount As Long, _
ByRef ARefArgsType As Integer, _
ByRef ARefArgs As Long, _
ByRef RefResult As Variant) As Long
Function Func1() As Long
MsgBox ("(・∀・)ｳﾏｸｲｯﾀ!")
End Function
Sub main()
Dim pFunc As Long
pFunc = GetAddress(AddressOf Func1)
MyCall pFunc'ココがポインタ使ってるとこ。
End Sub

Function GetAddress(Functions As Long) As Long
GetAddress = Functions
End Function

Private Function MyCall(ByVal FunctionPointer As Long) As Long
Dim cd(0 To 7) As Byte 'アセンブラコード
Dim pTable As Long
Dim TableOb(0 To 1) As Long

cd(0) = &H59: cd(1) = &H58: cd(2) = &H51: cd(3) = &HFF: cd(4) = &H60: cd(5) = &H4
pTable = VarPtr(cd(0))
TableOb(0) = VarPtr(pTable)
TableOb(1) = FunctionPointer
DispCallFunc VarPtr(TableOb(0)), 0, 4, vbLong, 0, 0, 0, 0
End Function

317 ：VB使い：02/01/23 17:03

>>313
もしかしてMYDOCU~1とかになるってことならDOS名なんで
VBの標準関数ならそのまま使えるぞ。

>>315
フローチャートってのはプログラムの流れを図にしたもの。
昔は機械語直接書いてたんでそういうのが必要だった。
今は・・・まあ書いたほうが分かりやすいがめんどくさい。

316訂正。
（DispCallFuncについてはまだよく知らないので)
↓
（DispCallFuncについてはまだよく知らないのであんまり信用しちゃダメ。)

318 ：デフォルトの名無しさん：02/01/23 17:58

>>317
言葉が足りませんでした。
ﾄﾞﾗｯｸﾞ&ﾄﾞﾛｯﾌﾟしたファイルのパス名をそのままﾌｧｲﾙﾒｰｶｰに新規ﾚｺｰﾄﾞ
として入力させたいのですが、どうしてもそのまま~付のﾌｧｲﾙ名として
入力してしまいます。
これを、そのままのﾌｧｲﾙ名として入力したいのです。

ついでながら、Win98SE以下だと、ﾌｧｲﾙﾒｰｶｰにﾚｺｰﾄﾞとして入力すら
出来ない状態です。
WinMeだと、このコードでもうまく行くんですけど。

319 ：デフォルトの名無しさん：02/01/23 18:03

上記のは313の発言です。
なんか名前を入れると、エラーが出るもんで...

320 ：デフォルトの名無しさん：02/01/23 18:08

ｶｴﾚ！っていわれるだろうけど>>316みたいなのが普通のVBのテクなのか？
VB.NETを待ち望むのも無理は無いと思うよ。ところで実はVBは使った事は
無いんだが、ハックしなくてもCOMのシンクイベントみたいなやり方で
できるんじゃないの？＜関数ポインタ

321 ：Delフサギコ：02/01/23 18:38

VBでASPアプリを作成しているんですが
画像ファイル(JpegとかPNGとか)
を動的に作成したいと思っています。

メモリ上で画像を描画する方法は
ＶＢではあるのでしょうか？

ＶＢで無理ならActiveXDLLをVBと接続して
描画させてやらなきゃいけないのかなと
考えてます。

とりあえず可能か不可能かを知りたいのと
わかりやすいリンク先とかありましたら
教えてクラサイ

￣￣￣∨￣￣￣￣￣
　　　∧,,∧ 　　　ｵｼｴﾃｸﾝﾃﾞｽ
　　ミ,, ﾟДﾟ彡
　　〃　つ旦~~
　～ﾐ,,,ｎ,,ｎ［￣￣￣.］
　　　　　　　￣￣￣

322 ：VB使い：02/01/23 18:38

>>318
Shellの代わりにAPIのShellExecuteを使ってみては？

>>320
もっと簡単に出来るんなら俺も教えて欲しいよ(;´Д｀)

323 ：VB使い：02/01/23 18:42

>>321
メモリの画像を表示したいならSetDIBitsToDeviceで。(Delは違うのか？)

324 ：Delフサギコ：02/01/23 19:00

デルはそういうクラス(TBitmap)があるので…

SetDIBitsToDeviceってAPIかな？

>メモリの画像を表示したいなら
なんか微妙に違うような....
Webアプリでグラフみたいなので
動的に画像ファイルを作成したいの。

￣￣￣∨￣￣￣￣￣
　　　∧,,∧ 　　　ｻﾝｸｽｺ
　　ミ,,ﾟДﾟ彡∬
　　〃　つ旦O
　～ﾐ,,,ｎ,,ｎ［￣￣￣.］
　　　　　　　￣￣￣

325 ：308：02/01/23 19:12

>>308のようなケースで、動画（MPEG）をロードするには
どうすればいいのでしょうか？
どなたかお願いいたします。

326 ：デフォルトの名無しさん：02/01/23 19:31

CreateDIBSectionでつくって、DCに対して描画して、
そのメモリを、PNG、JPGに変換して、出力とか。

327 ：デフォルトの名無しさん：02/01/23 19:35

お助けください(; ;)

func1 op1, op2

Sub func1(r1 as OptionButton, r2 as OptionButton)
r1.value = ...
End Sub

てなことをやりたいのですが、呼び出し時に「型が違います」云われてしまいます……
何が間違っているのでしょう……

328 ：デフォルトの名無しさん：02/01/23 19:50

はじめまして

http://mbs.jp/maji/
ここのHPにある投票フォームをソースで表示してどこかイジって
クリックするとある選択肢に投票されるプログラムを作りたいんですがわかりません。
私は全くそういう知識がなく、この板にくるのも初めてです。
どうかアドバイスお願いします。

329 ：327：02/01/23 20:49

解決しました……関数宣言 Variant にしてみました……
なんか納得いかない……

330 ：VB使い：02/01/23 20:50

>>327
op1の宣言と、Setを使ってるかをチェックしてみれ。

>>324
俺ASPって今知ったんだけど、ASPからVBって使えるの？
VBScriptみたいなもんなんかなあ？

331 ：デフォルトの名無しさん：02/01/23 21:03

>>330
VBでコンポーネントを作って、それをASPから呼び出すんさ。

332 ：デフォルトの名無しさん：02/01/23 21:10

>>320
絶対普通じゃないと思われ（藁
っていうかVBでは関数ポインタなんて使わないように設計する。

333 ：VB使い：02/01/23 22:10

>>331
微妙にｽﾚ違いだけどASPで使うVBコンポーネントって
ActiveXEXEだけ？標準EXEもいけるのかなあ？・・・無理か。

>>332
賛成w
ま、こんなこともできるっつーことで。

334 ：VB使い：02/01/23 22:27

>>328
ネットの基礎知識とJavaScriptとHTMLを勉強しましょう。

335 ：デフォルトの名無しさん：02/01/23 23:21

>どうしてもそのまま~付のファイル名として入力してしまいます。
>これを、そのままのファイル名として入力したいのです。

Win95、98はそういう仕様だったような。

Dir関数にショートファイルネームのパスをかけると
ファイル名がロングファイルネームで返ってくるのを利用して、
パスを階層ごとに変換かけてロングファイルネームのパスに変換しよう。
Webで検索すればそういう関数を公開しているところはいっぱいあるよ。
APIにロングネームに変換する関数もあるけど、IEのバージョン依存だったと思う。

ところで、
＞ret = Shell("C:\Program Files\FileMaker\ﾌｧｲﾙﾒｰｶｰPro 5.5\ﾌｧｲﾙﾒｰｶｰPro.exe C:\My Documents\Doc検索\Docu検索01.fp5", 1)
ret = Shell("""C:\Program Files\FileMaker\ﾌｧｲﾙﾒｰｶｰPro 5.5\ﾌｧｲﾙﾒｰｶｰPro.exe"" ""C:\My Documents\Doc検索\Docu検索01.fp5""", 1)
じゃないとまずくない？
適当なEXEを作って、Program.exeという名前にして、Cドライブ直下に置くと・・・・

>>320
>ｶｴﾚ！っていわれるだろうけど>>316みたいなのが普通のVBのテクなのか？
普通のテクじゃないでしょ。
元質問のVBでポインタを扱いたいっていう発想にそもそも無理があるからね。
そういう無茶ありなら、ポインタ経由でデータを読み出したり、書き出したりも
できなくはない。実用性はないけど。

>>327
>func1 op1, op2

>
>Sub func1(r1 as OptionButton, r2 as OptionButton)
>r1.value = ...
>End Sub
>てなことをやりたいのですが、呼び出し時に「型が違います」云われてしまいます……

op1、op2の型がわからないけど、
両方ともOptionButton型でなければエラーになる。
参照渡しでは厳密に型が一致しなければエラーになるよ。
integerとかLongとかそういうのであれば型変換関数をかませばいいけど、
オブジェクトそれぞれ固有の型への変換関数はVB6以前にはないから正確な型以外渡せない。

Sub func1(ByVal r1 as OptionButton,ByVal r2 as OptionButton)
にしてあれば、op1が例えばOptionButtonの入ったObject型でもControl型でもVarinat型でも
暗黙の型変換で対処してくれる。

336 ：デフォルトの名無しさん：02/01/23 23:44

>>313
＞Dim args1, args2 As String
この書き方だと、args1はバリアントになる。

＞nn = Len(args1)
＞args2 = Mid(args1, 1, nn)
args1 = args2 とまったく同じだけどいいの？

＞ファイル名が8文字までしか認識されません。
ショートネームでもフルパスはフルパスなんだけど。
どうしてもロングネームにしたかったら、APIのGetLongPathName。
FileSystemObjectでも出来るし。

>>325
Microsoft ActiveMovie Contorol を使う。

337 ：デフォルトの名無しさん：02/01/24 00:22

>>311
関数ポインタじゃなくVBらしくオブジェクトを使う。

'Form1
Option Explicit

Private WithEvents m_My1 As clsMy '関数ポインタの代り
Private WithEvents m_My2 As clsMy '関数ポインタの代り

Private Sub Form_Load()
Set m_My1 = New clsMy
Set m_My2 = New clsMy
End Sub

Private Sub Command1_Click()
Call foo(m_My1)
End Sub
Private Sub Command2_Click()
Call foo(m_My2)
End Sub

'関数ポインタ経由で呼び出される関数の代り
Private Sub m_My1_func()
Debug.Print "My1"
End Sub

'関数ポインタ経由で呼び出される関数の代り
Private Sub m_My2_func()
Debug.Print "My2"
End Sub

'関数ポインタ経由で関数呼び出しをする代り
Public Sub foo(ByVal My As clsMy)
My.DoFunc
End Sub

'clsMy
Option Explicit

Public Event func()

Public Sub DoFunc()
RaiseEvent func
End Sub

338 ：デフォルトの名無しさん：02/01/24 03:38

>>321 >>324
ASPでVBSを使っていて、JPGやPNGの画像ファイルを
動的に生成したいということでしょうか?

VBでは、APIが呼べますが、VBSでは無理かと思います。

ActiveXDLLが完成したら、その、DLL僕にもちょうだい。（ｗ
DIBなら作れそうだけど、JPGで保存となると、私にはお手上げ。

339 ：これはどう？：02/01/24 07:09

>>321
Doodle2 VBS用画像描画・変換COMコンポーネント
http://www.vector.co.jp/soft/winnt/prog/se219120.html

VBA/WSH/ASPなどのWindows Scripting環境で、CreateObjectして使用
BMP・JPEG・GIF・PNGファイルの読み込み・書き込み(相互変換)をサポート
直線、丸、四角、ベジエ曲線などの基本的な図形の描画
文字をグラフィックとして表示できます(TrueType可)
簡易的な画像縮小・拡大機能、コントラスト調整、ガンマ補正機能

340 ：デフォルトの名無しさん：02/01/24 08:50

>>337
多態って知ってる？オブジェクト指向勉強せい！

341 ：デフォルトの名無しさん：02/01/24 08:51

>>333
ActiveX-DLLもいける。標準EXEを使いたいなら、EXEファイルを
呼び出すコンポーネントを使えばよい

342 ：Delフサギコ：02/01/24 09:13

　　　　∧,,∧　　　　／￣￣￣￣￣
　　　ミ　　　ミ　　＜とっても・・・
　　　ﾐ　　　　つ　　　＼＿＿＿＿＿
　　　ﾐ　＠　ﾐ
　　　'∪'''∪'

ﾋﾟｷｭｰﾝ　　　　　　+　／￣￣￣￣￣
　+ 　　∧,,∧　　　＜　感謝>>338-339
　　　ミ,ﾟДﾟ ,,ミ　　　　＼＿＿＿＿＿
((　　⊂　.　　つ　　 )）
　+　　ﾐ　　　ﾐ　　　
　　　　''とノ''　　+

ｷｭﾋﾟｨｨｨﾝ　　　+　　／￣￣￣￣￣
　　　　 ∧,,∧　　＜　レスくれた人、ありが㌧
　　　ミ,, ﾟДﾟミ .　　＼＿＿＿＿＿
　　　　ﾐ　つつ　）)
　+　　ﾐ　⊂.ﾐ
　　　　 ''∪''''

343 ：338：02/01/24 09:31

>>339
ThanX 世の中には、太っ腹な人がいるもんですねぇ。

344 ：VB使い：02/01/24 09:51

>>341
なるほど。アリガ㌧

345 ：_：02/01/24 13:57

コレクションで大文字・小文字を区別させたいのですが
どうすればいいのでしょうか？

346 ：３１３：02/01/24 14:48

VB使い様、336様
＞args1 = args2 とまったく同じだけどいいの？
見なおしてみて、気付きました。（汗

＞ファイル名が8文字までしか認識されません。
ショートネームでもフルパスはフルパスなんだけど。
どうしてもロングネームにしたかったら、APIのGetLongPathName。
FileSystemObjectでも出来るし。

なんとか、[GetLongPathName]にて取得できました。
いろいろご指導ありがとうございました。

347 ：デフォルトの名無しさん：02/01/25 00:28

>>345
それ自体できません。

コレクションクラスを作成して、
内部的には前に「_」付けて区別するようにAdd、Item、Removeに細工しよう。

348 ：デフォルトの名無しさん：02/01/25 01:52

今調べたら、
Microsoft Visual Studio 6.0 Enterprise Edition
のアカデミック版を買えば3万5千円で済むらしい。放送大学に入ってこれ買えばいいか。

349 ：デフォルトの名無しさん：02/01/25 01:58

よかったら教えて下さい。
１．ＶＢだけでマルチスレッドアプリケーションを作れるのか？
２．コンパイルした結果できたバイナリはランタイムＤＬＬなしで、ＥＸＥファイルだけで使えるのか？

350 ：デフォルトの名無しさん：02/01/25 02:14

>>349
1.VB5の頃は、APIのCreateThreadで、出来たみたいですが、
私がVB6で試した限りは、IDEが落ちました。
VCで作った方が256倍は楽です。

2.ランタイムは必要です。新規プロジェクトで試してみたら、
ASYCFILT.DLL COMCAT.DLL MSVBVM60.DLL OLEAUT32.DLL
OLEPRO32.DLL VB6JP.DLL VB6STKIT.DLL
がディストリビューションウィザードによって追加されました。
Windows2000以降は、ランタイムが付属らしいので、
他のコンポーネントを使わない限りは、動くらしいです。(未確認)

351 ：　：02/01/25 02:29

>>350さんありがとうございます。
やはりそれならばすべてＶＣでやった方がいいかもしれませんね。

352 ：デフォルトの名無しさん：02/01/25 02:32

>>350
最低限必要なのは MSVBVM60.DLLだけ。
日本語を表示するには、VB6JP.DLLも必要。
あとのDLLはオートメーション用だったり、いろいろ。
ネットで配布されてる標準セットだけでオッケー。

353 ：349：02/01/25 02:34

>>352さん情報ありがとうございます。

354 ：デフォルトの名無しさん：02/01/25 04:15

>>349
>１．ＶＢだけでマルチスレッドアプリケーションを作れるのか？

VB.NETだったら楽勝！

355 ：デフォルトの名無しさん：02/01/25 06:36

テキストファイルのスペース、改行などを全部詰めて、一面文字を
ビッシリ詰めたいのですが、どうしたら良いかさっぱり分かりません。
よろしければ例を交えて教えていただけませんでしょうか。
（お暇であれば、できるだけコメントを入れていただけると嬉しいです。。。）
よろしくお願いいたします。

356 ：デフォルトの名無しさん：02/01/25 06:54

>>355
テキストのサイズにもよるけど、
　
Replace(strBuff, " ", "")
Replace(strBuff, vbCrLf, "")
　・
　・
　・
　
って感じに

357 ：デフォルトの名無しさん：02/01/25 06:54

＞355
意味不明。
スペースを詰めるというのは、行頭・行末のスペースを削除？
改行を詰めるというのは、空行を削除？
それなら、フリーソフト使っときなさい。

358 ：355：02/01/25 08:31

わかりにくくてｽﾐﾏｾﾝ。
空行を詰めると共に、文章の間に挟まったｽﾍﾟｰｽも取り除きたいのです。
--------------
あああ
あああ　　あああああ

あああ　　あ
ああああああ

----↓これをこうしたい----------

あああああああああああああああああああああ

>>356さんのやり方でやってみます。ありがとう。

359 ：あれ？：02/01/25 11:44

>>358じゃないけど、実験がてらExcelで
Worksheets("Sheet1").Range("B2").Replace What:=vbCrLf, Replacement:=""
とかやってみたけど詰まらないな。
識者の方に任せるわ。

360 ：デフォルトの名無しさん：02/01/25 11:55

>359
Excelの改行ってCrのみじゃなかったっけか？

361 ：VB使い：02/01/25 11:56

>>359
セルの中のvbCrLfを置換しようとするからまずいのでは？
っつーか、>>355が言ってるのはVBだろ。たぶん。

362 ：VB使い：02/01/25 11:57

>>360
あああかぶった。

363 ：359：02/01/25 12:32

今Excelしか無くってさー。（実はExcelのことほとんど分からないんだけど…）
>>360
vbCrだけにしても駄目ﾀﾞﾀﾖ。

364 ：VB使い：02/01/25 12:35

>>363
VbLfだーよ。

365 ：359：02/01/25 12:37

でけた。ｻﾝｸth。

366 ：359：02/01/25 12:44

ちなみに大量の文章でやってみようと思ったら、セル内にペーストできないな。
一つのセルに書き込める文字数を超えているってこと？
だったら俺的には役にたたんな、これ。

何か大量の文章でできるすべあるかな？

367 ：VB使い：02/01/25 12:47

>>366
ExcelはReplaceメソッドはあってもReplace関数は無いからな。
（2000以降出来るようになったんだっけ？）

自前で書いたほうが早いと思われ。

368 ：359：02/01/25 12:53

>>367
いちいちまったくだ。がしかし、Excelの勉強もしたくなった。
>>358に感謝。ま、帰ってから考えるとするよ。
暇な人、ヒントでも書いておいてくれるとうれしいな。

369 ：デフォルトの名無しさん：02/01/25 13:18

>>367
2002だけど、Replace関数あるみたい

370 ：VB使い：02/01/25 13:30

>>368
頑張れー。ヽ(´ー｀)ノ

>>369
ｻﾝｸｽｺ。2000からか？使えるの。
今使ってるの97だからなあ。

371 ：デフォルトの名無しさん：02/01/25 13:42

ＶＢでローカルマｽｨ-ンのIPアドレス取得しる方法教えて～

372 ：デフォルトの名無しさん：02/01/25 13:46

あああ

373 ：デフォルトの名無しさん：02/01/25 13:50

>>371
http://www.google.com/search?q=VB+IP+%83%8D%81%5B%83J%83%8B%81@%8E%E6%93%BE&hl=ja&lr=

374 ：デフォルトの名無しさん：02/01/25 13:53

ＶＢでスプレッド３．０を使用している者で、質問なんでが、
例えばスプレッドが１０列あったとして、最初の２列を固定列にして、
残りの８列をスクロールバーでスクロールした時に、
「灰色領域」が出てくるので、その「灰色領域」を出さないようにしたいのですが
出さない方法を知ってる方教えてください。

375 ：デフォルトの名無しさん：02/01/25 19:42

DAOでデータベース開く際、mdb以外のDBも読み込めますよね。
色々試しているんですが、テキスト形式のものだとカンマ区切りはちゃんと読めるのに
スペース区切りでは区切りとみなされず1つになってしまい、ダメでした。

スペース区切りテキストファイルのデータは読み込めないのでしょうか

376 ：　>>375：02/01/25 20:37

Arr()=split(格納文字,space(1))

377 ：息子：02/01/25 21:17

すみませぬ。質問よいですかい？
Text1の内容を自動的にクリップボードに貼っつけるのがやりたいんだけど、
クリップボードの扱い方がさっぱり。どうしたら良いのやら？

378 ：>>377：02/01/25 21:23

Private Sub Command1_Click()
Call VB.Clipboard.SetText(Text1.Text)
End Sub
Private Sub Command2_Click()
MsgBox VB.Clipboard.GetText
End Sub

379 ：デフォルトの名無しさん：02/01/25 21:25

CとPerlはそれなりに使っていて、C++は触った程度です。
(Javaは1.1.3でHelloWorld書いてみただけ)
VBを新たに覚えなければならなくなりそうなんですが、
もし、初心者がはまりそうな注意点が有ったら教えてください。

あと、事務処理の分野ではVBってよく使うものなんでしょうか？

380 ：>>379：02/01/25 21:59

>初心者がはまりそうな注意点
GotFocus
LostFocus
DoEvents

>事務処理の分野ではVBってよく使うものなんでしょうか？
Yes

381 ：379：02/01/25 22:13

>>380
どうもありがとう。

382 ：デフォルトの名無しさん：02/01/25 22:40

>>379
>もし、初心者がはまりそうな注意点が有ったら教えてください。
はまりそうな点というより知っておいた方がいいキーワード

Option Explicit
ByValとByRef

383 ：デフォルトの名無しさん：02/01/25 22:46

DBやるんなら、NullとvbNullとvbNullStringとvbNullCharの違いを
しっておいたほうがいいかも。Null以外使わなきゃいいだけだけど。

384 ：デフォルトの名無しさん：02/01/25 22:50

>379
IsNull関数の存在。

385 ：解説君：02/01/25 22:56

>Option Explicit
変数の宣言を強制する。必須。
>ByRef
参照渡し。値のポインタを投げる。
ポインタは当然スタックに詰まれるので、再帰を繰り返すと
スタックオーバーフローを起こす。

>Null
まんまNull。DBのフィールドなどに多く見られる。

>vbNull
"1"。意味不明。用途不明

>vbNullString
空文字(Nullではない)。Empty。
VB関数の戻りに多く見られる。

>vbNullChar
文字コード0のスペース。
Cで言う\0。
APIの戻りにこれが含まれている場合多し。

386 ：デフォルトの名無しさん：02/01/25 23:20

age

387 ：デフォルトの名無しさん：02/01/25 23:25

>>382-385
ありがとうございます。本当に助かります。

388 ：デフォルトの名無しさん：02/01/25 23:35

>>374
市販ソフトのことは、ベンダーに直接質問したほうがいいです。
かならずメールで返事くれますので。

>>378
送るときは、直前にClearしないと、失敗する時もあります。

>>379
データベースにSQLを投げたり、力業をCで書いたDLLにやらせたり。
事務分野の仕事は多いです。
っていうか、事務分野以外ではあまり出番がない(笑)。

389 ：デフォルトの名無しさん：02/01/26 02:06

>>385
>>ByRef
>参照照渡し。値のポインタを投げる。
内部的なことを言うなら、
「実引数(プロシージャに引数として渡す変数)のアドレスの
　コピーが作成され、そのアドレス経由で実引数の値にアクセスする。
そのため、その値を書き換えると実引数として渡された変数の値が書き換わる。」
が正確かな。

とりあえず、VBをはじめる人はプロシージャの引数はByValで
指定すべしと覚えておいてもらえばOK。

>ポインタは当然スタックに詰まれるので、再帰を繰り返すと
>スタックオーバーフローを起こす。

スタックに積まれるのは、ByRefとは全然関係ないけど(^^;

>>vbNull
>1"。意味不明。用途不明

VarType関数にNullもしくはNullの入った変数を渡したときの戻り値。

>>vbNullString
>文字(Nullではない)。Empty。

Emptyはバリアント型の初期値の値。IsEmpty関数で判定可能。
文字列用のNULLポインタ。API関数の引数に主に使用する。

>VB関数の戻りに多く見られる

俺の知る限りでは、InputBox関数の戻り値くらいなんだけど他にもある？
Debug.Print vbNullString=""はTrueを返すけど、本質的には別物。

特にメリットがあるというほどではないけど、
InputBox関数では次のようなことができる。
Dim s As String
s = InputBox("キャンセルしたのか、空文字列なのかを判断できます。")
If StrPtr(s) = 0 Then
Debug.Print "キャンセル"
ElseIf s = "" Then
Debug.Print "未入力です。"
Else
Debug.Print "入力した文字列は""" & s & """"
End If

>>vbNullChar
>文字コード0のスペース。
スペースじゃなくて、ヌル文字。

390 ：389：02/01/26 02:09

補足。
>文字列用のNULLポインタ。API関数の引数に主に使用する。
これはvbNullStringの説明ね。

391 ：デフォルトの名無しさん：02/01/26 02:23

ヌル関係は、とくに覚えなくてもいいということで(笑)。

392 ：デフォルトの名無しさん：02/01/26 08:50

全くの初心者向けに簡単なゲームを作るチュートリアルが載っているサイトってありませんか？

393 ：デフォルトの名無しさん：02/01/26 08:52

パール厨房です。こんにちは。
この度課題でＶＢでオセロゲームを作るはめになりました。
ＶＢは全く知りません。とりあえず明日の５時までが期限なのですが
出来ますでしょうか？皆さんが無理だと言ったら単位はあきらめます。

394 ：デフォルトの名無しさん：02/01/26 09:00

>>393
何マス？
マス少なきゃ何とかなるとは思うけど。

てきとーに動けばいいなら、それこそオセロのロジックなんて
腐るほど転がってるから、ちょっといじれば直ぐに出来るが。

ソース解説出来なきゃならないならどうかなぁ…

395 ：デフォルトの名無しさん：02/01/26 09:02

>>392
>>393
・・・・
おいおい、板違いだって。
そういう初心者はPC初心者板にでも逝ってくれ。
この板で言う初心者というのは自分一人でもある程度プログラムができて、
どうしてもわからない人のことなんだよ。
というか、そういう質問は自分の力で解決するべきじゃないのか？
最近の高校生や大学生はすぐに本とかネットとかに頼る傾向があるみたいだな・・・
１０年後の日本が心配だよ。全く・・・

396 ：デフォルトの名無しさん：02/01/26 09:14

>>394
マスは現実のオセロと同じマス数です。あとＣＰＵ側の思考ルーチンは
先生のほうで用意してあるみたいです。
>>395
すいません。まあちょっと冗談まじりの質問なんで勘弁です。

さっきＶＢの初心者本見たけど。。
ＶＢﾒﾝｿｸｾｪヽ（｀д´）ノパールのほうが余計なこと書かなくていいし楽だよ。。

397 ：VB使い：02/01/26 09:20

>>392
ほれ。
http://www.google.com/search?hl=ja&q=%8F%89%90S%8E%D2+%83Q%81%5B%83%80+%8D%EC%82%E8%95%FB+VB+or+Basic&lr=
あとせめてどれぐらいの初心者か書いてくれ。

>>393
才能があるか努力がうまい奴なら出来るだろう。

398 ：デフォルトの名無しさん：02/01/26 09:27

>>396
＞ＣＰＵ側の思考ルーチンは先生のほうで用意してあるみたいです。

それを自分で作ったオセロにどう組み込むのか。
ソースで提供されて組み込むのか？クラス化でもされてんのか？

今から勉強しながらコーディングするとして、
人対人のをただひっくり返すのでなければ
明日までには出来ない方に100vbp

399 ：デフォルトの名無しさん：02/01/26 09:31

>>397
ありがとうございます。
一応、全くの初心者と書いたんですが。

>>395
すみませんでした。
次からはPC初心者板に行きます。

400 ：VB使い：02/01/26 09:38

>>399
初心者にもPC初心者、プログラム初心者、VB初心者とかがあるからね。
ま、頑張れ。

401 ：399：02/01/26 09:54

プログラム知識ゼロという意味で書きました。
本当にすみませんでした。以後気を付けます。

402 ：393：02/01/26 10:33

皆さん聞いてください！！！
単位はあきらめました！
ﾋｬｯﾎｰ潔い俺、ｶｺ（・∀・）ｲｲ!

403 ：デフォルトの名無しさん：02/01/26 10:42

努力しないのカコワルイ

404 ：VB使い：02/01/26 10:53

どーでもいいや。腹減ったし。

405 ：デフォルトの名無しさん：02/01/26 10:55

あと一日ってとこまで放って置いて何言ってんだｵﾏｴ。
そんなことしてたら何の言語やっても身につかんぞ。

MSDN引きながら死ぬ気でやってみろ。

406 ：393：02/01/26 11:13

うぅ。。自分が情けない。。
とりあえず就職を有利にする為にパール以外にも言語を覚えたいので
というか高い金出してＶＢ６を買ってしまったので独学でこつこつ
勉強したいと思います。。レポートは無理です。初心者本を読めば読むほど無理です。。

407 ：デフォルトの名無しさん：02/01/26 11:30

VBなんだからとりあえず見た目だけ作ってみれや。
コーディングする必要はないから。
それがVBのいいとこじゃねーか。

それが出来たら、まずどう動かそうか考えろ。
そうして、一番機能の少ないところからコーディングしろ。

初めに４つコマ描写するだけでもいーじゃねーか。
初心者本なんて一から読んでても始まらない。
とりあえず作り始めろ。MSDNで理解できないところが出てきたら
ここに書いて聞け。

明日の５時って17時？もしかしたらできるかもなー。

408 ：VB最高：02/01/26 17:27

初心者なんですが、データコントロールを使ってエクセルのデータを
編集したいのですが、プロパティーのコネクトでエクセル8.0を選び
データベースネームでエクセルのデータを選びそのあとのレコードソースを
選択するところでエラーが出てしまします.これは何故ですか？

409 ：仕様書無しさん：02/01/26 17:47

>>408
Data Environment使え

410 ：VB最高：02/01/26 20:23

Data Environment ってなんですか？
データコントロールのプロパティーにはなかったんですが。

411 ：デフォルトの名無しさん：02/01/26 20:45

>>410

412 ：デフォルトの名無しさん：02/01/26 20:46

>>410
メニューの[プロジェクト]の中にあるっしょ。
後はWebで調べれば一発さ。

413 ：VB最高：02/01/26 21:06

web調べるというのはMSDNで調べるという事ですか？
私はMSDNはインストールしていないのでできません。
他に方法はないのでしょうか？
そもそも「組み込み可能なISAMドライバが見つかりません」というのはどういう意味ですか？

414 ：デフォルトの名無しさん：02/01/26 21:17

メッセージボックスを表示して終わるプログラムってできないでしょうか？

415 ：デフォルトの名無しさん：02/01/26 21:20

>>414
くめう゛ぁいいじゃん。

416 ：デフォルトの名無しさん：02/01/26 21:20

>web調べるというのはMSDNで調べるという事ですか？
>私はMSDNはインストールしていないのでできません。
いやしくも、Windowsプログラマなら、MSDNはインストールしとくべきだし、
msdn.microsoft.com
www.microsoft.com/japan/developer/library/
のくらいはﾌﾞｸﾏｸに入っているべきだ。
そういう意味で、ｱﾝﾀは最低。

417 ：VB使い：02/01/26 21:42

>>413
Webで調べるっつーのはこういうこと。
http://www.google.co.jp/search?q=%91g%82%DD%8D%9E%82%DD%89%C2%94%5C%82%C8ISAM%83h%83%89%83C%83o%82%AA%8C%A9%82%C2%82%A9%82%E8%82%DC%82%B9%82%F1&hl=ja&lr=

あと、マルチはやめれ。

>>414
１．標準モジュールに以下を記述。
Sub Main()
MsgBox("ヽ(´ー`)ﾉ")
End Sub

２．プロジェクトの設定で、スタートアップをSub Mainに変更。

３．実行

418 ：デフォルトの名無しさん：02/01/26 22:34

bmpなどの画像で透明色を使う方法がわかりません。
簡単な方法があれば教えてください。

419 ：デフォルトの名無しさん：02/01/26 22:40

>>418
簡単な方法はありません。

420 ：VB使い：02/01/26 22:44

>>418
好きなやつをどぞ。
1.XORとANDでマスクデータとカラーデータをBiBlt(PaintPicture)で転送。
2.AlphaBlendなどのAPIを使う
3.自前で計算w

421 ：VB最高：02/01/27 16:20

エクセルのデータの取り込みがいまだに出来ません。誰か助けて―。
データコントロールのプロパティーの設定でいくらやってもできねえ。
Recordsourceで▼押したら「組み込み可能なISAMドライバは見つかりません」
とかでるし。マイクロソフトのサポートみてものってねえし。

422 ：デフォルトの名無しさん：02/01/27 17:15

>>421
オートメーションでやれば？ ISAMうんぬんは、Jet周りのインストールが
うまくいってない可能性あり。

423 ：VB最高：02/01/27 18:09

＞422
何度も申し訳ありませんが、オートメーションというのはどういう意味なのですか？
Jet周りのインストールがうまくいってないというのはどういう意味ですか？
質問ばかりで申し訳ありません.

424 ：デフォルトの名無しさん：02/01/27 18:39

visual basic ってワードとかエクセルに付いてますか？

425 ：デフォルトの名無しさん：02/01/27 18:53

>>423
http://www.microsoft.com/JAPAN/support/kb/articles/J052/6/03.asp
見れば大体見当つく。
ヘルプの検索をまともに出来ない奴は身につかない。
開発の質問てのは、～～してみましたがうまくいきません。ってのを言う。
～ってなんですか？って聞かれても、大抵の人間は自分で調べろと言うぞ。
調べて理解できないなら聞け。

>>424
VBAなら使えるべ。

426 ：424：02/01/27 19:23

VBAとVBの違いって何でしょう？

427 ：VB使い：02/01/27 19:26

>>426
VBのいいところ
●ネイティブコンパイルが出来る
●exe単体で配布できる（ランタイムもいるけどたいてい入ってる。）
●速い。
●自由度がVBAに比べると高い。

VBAのいいところ
●Officeのデータをいじりやすい。

てな感じ。

まあ大体一緒だけどねー。

428 ：424：02/01/27 19:33

大変参考になりました！
有難うございます！

429 ：：02/01/27 20:01

>>426
VBAってのは、VB for Application。すなわち、（Excelなどの）アプリケーションに
依存したもの、ってこと。

アプリケーションがなければ、それ単体で動作することはできない。VBは、
それ単体で動作する。

そういう根本的な違いを理解しましょう。

430 ：デフォルトの名無しさん：02/01/27 21:26

タイムスタンプを変更する処理が必要なプログラムを作っているのですが、
肝心の「タイムスタンプ変更」がどうやってやるのかさっぱり見当つきません。
そういうDLLあるいは関数のようなものは存在しませんか？

431 ：：02/01/27 22:29

>>430
APIのSetFileTime()を使え

432 ：デフォルトの名無しさん：02/01/27 23:42

>>431
ありがとう。setfiletimeでgoogle検索したらｻﾝﾌﾟﾙ見付かったよ！

433 ：デフォルトの名無しさん：02/01/28 02:41

次スレ立てるときに１のテンプレートに
　
「宿題・課題は自分でやりましょう」
　
っていれようよ

434 ：デフォルトの名無しさん：02/01/28 02:51

プログラミング言語（Perl）の問題が分かりません！！　　　　
誰か教えてください！！ちなみに問2－4（問題1ページ目）
の（ｃ）と（ｄ）はこう書かれています！！

（ｃ）if /\. \. ./　　　（ｄ）if /[a-zA-Z]+\$/

★問題1ページ目
http://isweb40.infoseek.co.jp/photo/moheaven/perl_1.jpg

★問題2ページ目
http://isweb40.infoseek.co.jp/photo/moheaven/perl_2.jpg

では宜しくお願いします！！明日の夕方5時頃までにお願いします！！

435 ：デフォルトの名無しさん：02/01/28 02:56

BMPの拡張子をjpgにしただけのﾊﾞｶはperlなんて無理だろ。

436 ：デフォルトの名無しさん：02/01/28 03:28

>>434
なぜPerlの問題をここで聞く？
ネタ？
　
この時期になると「明日の5時まで」って言うのが増えるね。

437 ：デフォルトの名無しさん：02/01/28 03:34

>>436
こういうのに限って前日まで何もやってないんだよな

438 ：：02/01/28 04:52

以前 classに関しての質問をさせていただいたものです。
classを理解していないと仕事はできないというようなことを聞いたんですが、
プロとしてやっていくにあたって classのほかに知っておくべきこととかありますか？

439 ：デフォルトの名無しさん：02/01/28 05:24

>>434
プログラミング言語にPerlを採用している学校なんてさっさとやめちまえ。

440 ：：02/01/28 08:23

>>438
「わからないこと」を自分で調べる能力。

441 ：デフォルトの名無しさん：02/01/28 09:12

>438
せめて基本情報に出てくるレベルの会話ができる事。

442 ：名無しさんです：02/01/28 10:51

変数の文字列をshellで立ち上げたアプリ（メモ帳など）
に送る（貼り付け？）様にしたい時、shellの後にctrl+vを
sendkeyしてるのですが、一つ目が立ちあがった時は
うまく行くのですがアプリによっては二つ目以降の
ウインドウがアクティブにならずに貼り付け失敗して
しまいます。

何かウマイ方法（上とは全く別の方法でも可）は
ありませんか？

443 ：デフォルトの名無しさん：02/01/28 10:58

sell FileName,vbNormalFocus
sleep 3000

444 ：442：02/01/28 11:38

>>443
3秒ですか。待ち時間は短くても大丈夫かな？
試してみます。

445 ：デフォルトの名無しさん：02/01/28 12:26

>>379
Cを知ってると90%くらいの確率でこれをやってしまうと思われ
C
　int i, j;
VB
　×Dim i, j As Integer
　○Dim i As Integer, j As Integer
上の宣言だとiはVariant型になってしまう。気を付けてなー

>>374
なんで「灰色領域」が出ては駄目なのか小一時間（略
顧客がそれを直せと言ってるなら仕方ないが、自分で見た目が悪いと
思ってるだけなら、直す必要はないと思うがどうか？
ちなみに、Excelでさえ右端までスクロールさせると「灰色領域」が表示されるぞ
とりあえず出ない様に回避するには、
・右端の列の幅を、Spreadの内部幅 - 固定領域の幅に合わせる
のが確実だと思われ。
他に、表示されている列に合わせてSpread自体の幅を変えるプロパティだったか
メソッドがあった記憶があるけど、漏れは忘れたので調べてくれ。
無かったらｽﾏｿ

446 ：デフォルトの名無しさん：02/01/28 14:10

Split関数を使って文字列を分割する際、スペースでもカンマでもタブであっても
区切りたく、またそれぞれの文字が複数あっても区切りたい場合どうしたらいいでしょうか

447 ：デフォルトの名無しさん：02/01/28 15:04

>>446
split(replace(replase(str,vbtab,","),space(1),","),",")

448 ：446：02/01/28 17:22

>>447
ありがとうございます。
replaseという関数自体はじめて知りました。。。

449 ：デフォルトの名無しさん：02/01/28 18:55

VBのコマンドボタンをクリックするだけで、
・HTMLファイルをNetscapeに関連づけ。
・標準で使うブラウザをNetscapeに。
・デスクトップのIEのアイコンを削除。
・IEのプロキシ設定を空白に。
みたいなことは出来ますか？なにせ、わけあってIEを使わせたくないのです。
バッチファイルみたいなのでやるべきでしょうか（やり方分かりませんが…）？

450 ：デフォルトの名無しさん：02/01/28 19:07

>>449
レジストリを書き換えるだけだと思いますが

451 ：449：02/01/28 19:46

>>450
よろしければ、その方法を教えてもらえませんか？

452 ：：02/01/28 19:55

何でも聞かないで、RegMonでも使って監視してみなよ。

453 ：デフォルトの名無しさん：02/01/28 19:57

>>451
たとえば「IEのプロキシ設定を空白に」という部分は
拡張子がregのファイルを作って以下の内容をコピペ
（Windows2000の場合）

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings]
"ProxyEnable"=dword:00000000
"ProxyServer"=""

↑最後に改行を忘れないように
あとはShellとかで"regedit /S xxxxx.reg"を実行する

454 ：デフォルトの名無しさん：02/01/28 21:08

教えてください

どうしてそんなに知識を無料放出出来るのですか？

455 ：デフォルトの名無しさん：02/01/28 21:09

>>454
些細な知識だから

456 ：VB使い：02/01/28 21:16

>>454
VBだから

関係ないけどAPIMon.exeってXPで使えた人いる？

457 ：デフォルトの名無しさん：02/01/28 22:23

>>101
戻り値の型が違う。

458 ：デフォルトの名無しさん：02/01/29 00:09

>>454
それくらいの知識で金とれるかいｗ
2ch系プログラマのオレらにだってミジンコ並みのプライドはあるぞｗｗ

459 ：デフォルトの名無しさん：02/01/29 02:05

>>454
暇つぶし。

460 ：DOSﾏｿ：02/01/29 05:57

すみません厨房質問です・・・
DOSプロンプトから起動できるVBアプリ作ったんですが（Command関数使って）
メッセージをDOSプロンプト内に表示する方法ってありますか？
普通にMSGBOX使うとDOSで動かしているのにいきなり別のウィンドウがでてきて
うざいんですが・・・

461 ：：02/01/29 07:01

★浜崎あゆみ、ライブで足の不自由なファンを吊るし上げ★

人気歌手・浜崎あゆみが、ファンに暴言を吐いた。
最前列で座っている足の不自由なファンに対し、
「前の方、座らないで下さ～い」「どう思う？座ってたよ今！」
「一番前で観てんのに座ってたよ～？」「感じ悪いね～」
と、そのファンに暴言の雨あられ。会場はあゆ支持の歓声を上げ、
ついにはそのファンはその場で泣き出してしまう。
あゆは気にせず、自分のニューアルバムの話を切り出した。
このファンは熱心なあゆファンで、当日も最前列に座っていた。

★実際の音声
http://www.geocities.co.jp/Milano-Cat/2976/ayu_CDL_MC.mp3（2.28MB）
http://www.geocities.co.jp/Playtown-Dice/5199/ayu_CDL_MC.mp3（78.8KB）

★実際の映像
ttp://isweb40.infoseek.co.jp/computer/imode85/cgi-bin/up/upload/009.mpg
（直リンだと見えないのでコピペして下さい）

詳しくはこちら↓
http://choco.2ch.net/news/
http://tv.2ch.net/ami/

462 ：：02/01/29 08:38

>>460
これ、実は面倒くさい。リンクオプションを変えてConsoleアプリに
しちゃうって方法もあるけど、WSHで作るのが楽かな。

463 ：DOSﾏｿ：02/01/29 10:58

自己レス。
ConsoleWriteを使う方法がわかりました。
DOSﾏﾝｾ（ﾎﾞｿ

464 ：デフォルトの名無しさん：02/01/29 10:58

ある文字列の中に A が含まれているとして、これを B に変換したいです。
A は1文字であっても、 AAAAAA のように複数個連続していても B 1つにしたいです。
どうやったら簡単にできますか

465 ：デフォルトの名無しさん：02/01/29 11:44

do while　Instr(1,str,"AA")>0
str=replace(str,"AA","A")
loop

466 ：続き：02/01/29 11:45

str=replace(str,"A","B")

467 ：464：02/01/29 13:27

本当に簡単にできる方法ですね。
わたしはもっと長々書きました。

468 ：デフォルトの名無しさん：02/01/29 13:37

どんなコードを書いたのか見てみたい

469 ：デフォルトの名無しさん：02/01/29 13:37

VBからoutlookを起動し、添付ファイル付のmailを作成ってどうやればいいですか？

470 ：デフォルトの名無しさん：02/01/29 13:40

VBからoutlook expressを起動し、添付ファイル付のmailを作成する方法を教えてください

471 ：名無しさん：02/01/29 13:57

Outlook なのか OE なのかはっきりせよ（ｗ

472 ：469：02/01/29 14:08

すみません
MS-Outlookです

473 ：デフォルトの名無しさん：02/01/29 14:11

VB6SP5+SQLServer2000SP1で開発する場合は、
MDACのバージョンは2.7で問題無しですか？
MDAC2.5ではいかんですよね？
教えてくん。

474 ：名無しさん：02/01/29 14:14

最新版入れ解きゃ問題ない＞MDAC

475 ：名無しさん：02/01/29 14:15

CDO使えばできる＞Outlook

476 ：デフォルトの名無しさん：02/01/29 14:16

＞474
ありがとうございます。
最新版入れときまっす。

477 ：469：02/01/29 14:35

すみません、CDOってなんですか？
MSDN検索してもわかりませんでした。

478 ：デフォルトの名無しさん：02/01/29 15:07

アクセス2000が入ったマシンで開発したソフトを
アクセス97が入ったマシンで実行できますか

もちろんDBにアクセスを使っています

479 ：デフォルトの名無しさん：02/01/29 15:09

VBでチョンボといったらズバリ何だと思いますか

480 ：デフォルトの名無しさん：02/01/29 15:18

>>479
Option Explicit
を入れない

481 ：デフォルトの名無しさん：02/01/29 15:23

DoEVENTS

魔界の入り口

482 ：デフォルトの名無しさん：02/01/29 15:24

>478
Access2kに「旧バージョンへ変換」ってコマンドがあるから、
それを使用して変換すれば97でもOKだよ

483 ：VB使い：02/01/29 18:26

>>478
VBは簡単だと心から思うこと

484 ：VB使い：02/01/29 19:20

483間違い。>>479です。鬱氏。

485 ：デフォルトの名無しさん：02/01/29 23:15

>>479
FormをFrom

486 ：デフォルトの名無しさん：02/01/29 23:23

>>479
ｐりヴぁて

487 ：475：02/01/30 01:57

このあたりを参考にするとよい。英語ソース中心になっちゃうけど＞CDO
http://www.outlookexchange.com/
http://www.google.com/search?q=CDO+Outlook&hl=ja&lr=

488 ：475：02/01/30 01:58

あ、だけどExchangeつかってなくてOutlook単体だったら
VBでOutlookのオブジェクトモデルつつけばもっと楽にできるはず。
ｽﾏｿ当方Exchange経由での経験しかない＞CDO

489 ：475：02/01/30 01:59

あ、あとメール送信オブジェクトってってセキュリティアップデートでかなり制約
かかってる。まあリサーチしてみ＞CDO

490 ：デフォルトの名無しさん：02/01/30 09:11

参照設定で別のソフトウェアのライブラリを参照してVBから動かしているとき、
呼び出したソフトの処理が終わっていない状態でVBの方のウィンドウをクリック
してりすると
「コンポーネントが応答しないため、この操作を完了できません。
[切り変え]を選択してコンポーネントをアクティブにしてから
問題を解決してください。」
というエラーダイアログがでて来ます。これが出ないようにはできませんか

491 ：デフォルトの名無しさん：02/01/30 10:32

>490
ﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘ
ﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑ
ﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘ
ﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑ
ﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘ
ﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑ
ﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘ
ﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑ

492 ：デフォルトの名無しさん：02/01/30 11:05

>>490
出さないようにはできないが、これでメッセージの内容を変える事は出来るよ

App.OleRequestPendingMsgText = "ちょっと待てや(ﾟДﾟ)ｺﾞﾙｧ"
App.OleRequestPendingMsgTitle = "動かせません（￣ー￣）ﾆﾔﾘ"
App.OleRequestPendingTimeout = 2000

493 ：490：02/01/30 12:17

そんなワザがあったんですか!!
それでも十分OKです。ありがとう

494 ：469：02/01/30 12:43

>475
ありがとうございます。
参考しにしてみます。

495 ：475：02/01/30 12:52

死ぬなよ＞CDO

496 ：デフォルトの名無しさん：02/01/30 22:06

TreeViewコントロールにエクスプローラー風にディレクトリを表示するコードを是非教えてください！
分かる方、よろしくお願いします。

497 ：デフォルトの名無しさん：02/01/30 22:32

FORMがあって、その子FORMがあったとして、
ウインドウの後ろに隠れたりで、子FORMが画面から消えた時に
まだ生きているか知るにはどうしたら良いですか。

498 ：デフォルトの名無しさん：02/01/30 22:33

がいしゅつかもしれませんが、、
コンパイルオプションの”ﾈｲﾃｨﾌﾞｺｰﾄﾞｺﾝﾊﾟｲﾙ”と”P-Codeｺﾝﾊﾟｲﾙ”の違いってなんでしょ？
”P-Codeｺﾝﾊﾟｲﾙ”でｺﾝﾊﾟｲﾙしてたらまずい？

499 ：デフォルトの名無しさん：02/01/30 23:47

>>497
今VBないから自信ないけどformsコレクションでいけるんじゃないかな

500 ：デフォルトの名無しさん：02/01/30 23:49

>>496
海外のサイトにサンプルがある。
検索すれば見つかるけど、ソース長いよ。

>>497
Formsコレクション

>>498
P-Codeは、疑似コード(pseudo-code)のこと。CPUは直接実行できない。
ソースと機械語の中間だから、中間コードとも言われてた。

これに対し、ネイティブコードは直接実行できるから、速い。

VBはバージョン４ぐらいまでP-Codeしか吐けなかったから、
他言語ユーザからずっとバカにされてきた。
ふつうは何も気にしないで、ネイティブのままでオッケー。

現在あえてP-Codeにするメリットがあるとしたら、サイズが小さくなること。
リソースなしでもEXEで1MB越えたら、P-Codeにする余地はあるかもね。

501 ：デフォルトの名無しさん：02/01/31 00:12

VBがネイティブコードで速いなんて思ってるやつは無知
VBは遅いのは外部ライブラリ呼び出しのため。

もちろんあえてP-Codeにすることもないがな。

502 ：デフォルトの名無しさん：02/01/31 00:19

>VBがネイティブコードで速いなんて思ってるやつは無知
そだね。
ネイティブコードにして速くなるのは、主に数値演算処理の部分で
その速度差はほんとに微々たるものだから、相当ヘビーな数値計算でも延々させてないと
他の部分でのオーバーヘッドの影に隠れてほとんど差がでないよ。

>もちろんあえてP-Codeにすることもないがな。

P-Codeにするメリットは開発環境と同じ動作をすること。
ネイティブの場合は、開発環境と動作は同じではないので、
細々としたところで動作の違いがでることがある。
変な動作をするなと思ったら、P-Codeを試してみる価値あり。

503 ：デフォルトの名無しさん：02/01/31 00:21

ぴーコードってなんか語彙が情けないんですが、
ひょっとして放送禁止でしたか？

504 ：デフォルトの名無しさん：02/01/31 00:29

>>503
是。正式名称ティンココード。

505 ：デフォルトの名無しさん：02/01/31 00:29

>>501
P-Codeの質問だったから、しょうがない。
CもVBもネイティブコードなのに、どうして速度が違うの？
って質問されたら、ふれたけど。

>>502
数値演算だけじゃなくて、配列の参照とかもかなり違う。

高速化のためトリッキーなコードを書いて、開発環境で確認。
自信を持ってコンパイルしたら、実際はほとんど効果がなかった(笑)。

506 ：デフォルトの名無しさん：02/01/31 00:37

戻った？

507 ：デフォルトの名無しさん：02/01/31 07:23

>>445

>　×Dim i, j As Integer
>　○Dim i As Integer, j As Integer
>上の宣言だとiはVariant型になってしまう。気を付けてなー

379ではありませんが、このワナにはまってました。
どうもありがとう。

どうりでString型なのにファイルからIPアドレスを読み込むと
192.168で切れてしまうわけだ・・・

508 ：デフォルトの名無しさん：02/01/31 13:34

ApiのGetPrivatePlofileStringとかってByvalで値を渡すじゃないですか・
なんで変数に値が格納されるの？

Byvalって値変わらないんじゃないの？

509 ：：02/01/31 14:56

>>508
ポインタの勉強をしましょう。

510 ：デフォルトの名無しさん：02/01/31 15:38

>>479
>>486ﾜﾗﾀ
俺がよくやるのは　えんぢｆ

511 ：デフォルトの名無しさん：02/01/31 16:00

塩Ｄいｆ

スペースが入るから変換されるのよね

512 ：デフォルトの名無しさん：02/01/31 16:03

>>509
( ﾟДﾟ)ﾊｧ!!
Byvalは値渡しだろ？ポインタ関係ないじゃん。
Byrefなら解るけどさ。

#てめぇが勉強してこい猿

513 ：抵抗Mω ◆rbbbbbbg ：02/01/31 16:03

どうやったらプロジェクトをEXEファイルにできるんですか

514 ：：02/01/31 16:41

>>512
はぁ。Cの文字列ってわかる？文字の配列を指すポインタなんだよ。

515 ：デフォルトの名無しさん：02/01/31 16:50

>>512
MSDNライブラリで、以下の項目を読みませう
「DLL, DLL プロシージャに文字列を渡す」
理解できたら、DLL プロシージャに**を渡す」を全部読んでくれ・・・

>>514
それだけでは512には理解できないと思われ

>>513
[ﾌｧｲﾙ]－［****.exe の作成］をｸﾘｯｸ
# ﾈﾀﾆﾏｼﾞﾚｽｶｺﾜﾙｲｲ

516 ：関係ないが：02/01/31 16:50

＞( ﾟДﾟ)ﾊｧ!!
と( ﾟДﾟ)ﾊｧ!?
些細に見えて実は結構大きな違いなんだな。
つか、上のは違和感ありすぎ。

517 ：デフォルトの名無しさん：02/01/31 17:00

>516
昨日の祭り知らない？ネタ？

518 ：抵抗Mω ◆rbbbbbbg ：02/01/31 17:15

>>515
それが選択不能になってます

519 ：：02/01/31 17:20

>>515
だからポインタの勉強しないとね。一から教えてられんし。

>>518
VB5CCEだったりして・・・

520 ：抵抗Mω ◆rbbbbbbg ：02/01/31 17:22

>>519
ふーん
やっぱり世の中タダは無いのね。

死のう

521 ：デフォルトの名無しさん：02/01/31 17:23

>>518
他に書き忘れたことがあったら今のうちに全部書いときなさい

522 ：512ですが：02/01/31 17:30

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

要するにbyValでもbyRefでもポインタを投げるのですね。
それでByRefで投げるとString型のヘッダ情報まで投げてしまい、
結果としてString型を壊してしまうので文字情報のポインタのみを
投げるByValを使う。というように理解しました。

本当にありがとうございました。

523 ：デフォルトの名無しさん：02/01/31 17:36

>>511
あそっか。
ENDIFって打っても勝手にスペース入れてくれるから
俺はいつもスペース入れないで打ってる。
って人あまりいないよね、やっぱ。

524 ：>>522：02/01/31 18:04

>値渡し
>プロシージャに引数として変数を渡す方法の 1 つ。
>値渡し (値による引き渡し) で変数をプロシージャに渡すと、
>元の変数のコピーが作成され、呼び出されたプロシージャに渡されます。
>したがって、呼び出されたプロシージャ内で渡された変数の値を変更しても、
>呼び出し側のプロシージャが参照する元の変数の値は変更されません。

VB厨はコレだから困る

525 ：：02/01/31 18:09

>>524
API呼び出しのときと、そうでないときでは話が違うのよ。

526 ：デフォルトの名無しさん：02/01/31 19:40

ログ見たんですけど、
Accessのテーブルの存在を確認するのがありましたが、
同様にフィールドの存在を確認する方法を教えてください。
お願いします。

527 ：：02/01/31 20:31

>>526
どんな方法使ってるかわからないけど、DAOならFieldオブジェクトで。
つか、Select * でレコードセットを取得して、レコードセットの中の
フィールドを確認するのが楽かも。

528 ：526：02/01/31 20:55

>>527
どうもです。
こないだ始めたばっかりで、ADOの本見ながらやってます。
AccessにはSQLでレコードセット取得してやって…ると思います（汁
SELECT * FROM tableで全部取得するのは理解出来ますが、
その状態で現在、レコードセットが握ってるフィールドが何と何か
知る術が分かりません…。

529 ：デフォルトの名無しさん：02/01/31 22:30

クラス内にタイマイベント書けないっすか？

530 ：デフォルトの名無しさん：02/01/31 22:41

dim TBLNames() as string
dim i as long
dim Max as long
mAX=Adores.Fields.count-1
redim TBLNames(MAX)
for i=0 to MAX
TBLNames(i)=Adores.Fields(i).Name
next i

531 ：デフォルトの名無しさん：02/01/31 23:00

13は今何処にいるのだろう...
[ﾒｱﾄﾞ必見]
http://pc.2ch.net/test/read.cgi/prog/1012381593/l50

532 ：デフォルトの名無しさん：02/01/31 23:53

ねーねー
今知ったんだけど、VB5CCEってゆーのを使うと、タダでVBの勉強ができるらしいんだ。
これってどうよ？EXEは作れないけど。

533 ：デフォルトの名無しさん：02/02/01 00:01

>>532
SPをダウンロードして、ゴニョゴニョする（した）。

534 ：デフォルトの名無しさん：02/02/01 01:09

アンチMSでない先達の方々限定で質問

フォームを破棄したいんだが、こんなカンジで

unload MyForm
set MyForm = Nothing

コレよくサンプルとかでみかける書き方だと思うのだ。
でもUnloadイベントプロシージャとかQuery_Unloadイベントプロシージャで
Cancel=Trueで返したらUnloadされず、参照だけが解放されちゃうよね。
ミステリーでナンカ危険。
どうしたらアンロードを確実にやれる？

Unloadやってみてformsの中を確認ってのはなし。汚エから。
環境はVB6でいいや。さあ

535 ：デフォルトの名無しさん：02/02/01 02:26

>>522
>要するにbyValでもbyRefでもポインタを投げるのですね。
あくまでByValは値渡し、ByRefは参照渡し。

ByVal指定のときは、型が違っても変換可能な型なら暗黙に変換してくれます。
UNICODEのBSTR型からSJISのLPTSTR型へ変換してくれてるのさ。

536 ：デフォルトの名無しさん：02/02/01 02:27

>>529
>クラス内にタイマイベント書けないっすか？

フォームからTimerコントロールを渡してやる形でよければ、書けるよ。

Private WithEvents m_objTimer as Timer

Public Sub SetTimer(ByRef objTimer As Timer)
Set m_objTimer = objTimer
End Sub

Private Sub m_objTimer_Timer()
'ここに記述
End Sub

>>534
>unload MyForm
>set MyForm = Nothing

この記述はVB4時代の不具合回避への遺物だと思われ。
VB5以降では不要。

>Cancel=Trueで返したらUnloadされず、参照だけが解放されちゃうよね。
set MyForm = Nothing
この記述をUnloadステートメントの直後じゃなく、
Unloadイベントに書けばいいだけかと。

というか古いサンプルで見かけるものも普通そう書かれているはずだが・・・。
要は、そのサンプルが間違いだな。

537 ：デフォルトの名無しさん：02/02/01 17:17

Excelのシートをスクロールさせるには、どうしたらよいのでしょうか？

538 ：デフォルトの名無しさん：02/02/01 17:17

VB組み込みのDrive&Dir&FileListBoxって使えないですよね。
もっと良いコントロール探しているのですが、
皆さん、これ使ってるとかこれオススメとかありませんか？

539 ：デフォルトの名無しさん：02/02/01 17:24

DBコンボの「▼」をクリックしたときに出る
ムダな空白行を取り除くにはどうしたらいいでしょう。
カッコ悪いことこの上ないです。
よろしくお願いします。

540 ：VBマスター：02/02/01 17:44

正直VBなんて製品版買ったってたいしたこと出来ないから
フリーのVB5CCEで十分。
金はもっと有意義なことに使おう。
http://www.microsoft.com/JAPAN/developer/vbasic/Controls/Download.htm

541 ：うぐぅ：02/02/01 19:01

>>538

コモンダイアログｗ

542 ：デフォルトの名無しさん：02/02/01 20:50

>>540
きみがへたれなだけ。

543 ：デフォルトの名無しさん：02/02/01 22:49

なんでVB5なのですか
違いが解らないのですか
それでマスターなのですか
恥を知りませんか
レスは糞でもいいのですか
ネタですか
楽しいですか
何歳ですか
もっと控えめになれませんか
死んでもらえますか
ダメですか
そこをなんとかお願いできませんか

544 ：デフォルトの名無しさん：02/02/01 22:55

>>536
>>Cancel=Trueで返したらUnloadされず、参照だけが解放されちゃうよね。
>set MyForm = Nothing
>この記述をUnloadステートメントの直後じゃなく、
>Unloadイベントに書けばいいだけかと。

残念。ここでいうMyFormはデフォルトのフォームじゃなくて
set MyForm = new MyHome
で生成したものなのだあ。
よってもし、おっしゃるやり方をUnloadイベントプロシージャでやるとなると
set Me = Nothing
となる。やってみると当然だがだめ。
一応ひっかけたつもりはなかったがゴメン
他の回答ないか～。

次の話題
毎度悩むのだが
フォームの中に閉じるとか終了ボタンとかを設けるというのは
業務プログラムのデフォのデフォだと思うのだが、
これらのボタンと同じことをシステムメニューの閉じるでもやりたい。
でもできない。システムメニューの閉じるはUnload Meとでも直結しているかの
振る舞いだからなー？

大抵散々プログラムをこねくり回した挙句に
システムメニューの閉じるを使用不可とかにしている。でもAPIのお世話に
なっている時点で負け決定な上に、カッコー悪い。いかにもブイビーってカンジ。
他の衆ラはどやってんの？

545 ：環境はVB6SP3＠今はJavaの仕事中：02/02/02 00:02

漏れならプロパティ追加して回避する
MsgBoxで「はい」を押したときにTerminateが動いているから大丈夫だと思う
っていうか、Set MyForm = Nothing しなくてもきちんとTerminateは流れるなぁ・・・
まぁ、おまじない程度に考えて、あまり気にしないほうが(・∀･)ｲｲ!
むしろ、Form上の何らかのボタンで画面が閉じられて、MyFormがNothingになったかどうか
IsNothing(MyForm)でﾁﾏﾁﾏ調べるのがﾒﾝﾄﾞｸｾｰと思う

--- Form1.frm ---
Option Explicit
Dim mblnNoExit As Boolean
Public Property Get NoExit() As Boolean
　NoExit = mblnNoExit
End Property
Private Sub Form_Load()
　mblnNoExit = True
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
　If MsgBox("--- 終了 ---", vbYesNo) = vbYes Then
　　mblnNoExit = False
　Else
　　MsgBox "--- 再開 ---", vbCritical
　　Cancel = True
　End If
End Sub
Private Sub Form_Terminate()
　Debug.Print "Terminate"
End Sub

--- Module1.bas ---
Option Explicit
Sub main()
　Dim MyForm As Form1
　Set MyForm = New Form1
　MyForm.Show
　Unload MyForm
　If Not MyForm.NoExit Then
　　Set MyForm = Nothing
　End If
End Sub

546 ：538 ：02/02/02 13:11

>>541
ダイアログ形式ではなくてフォームに組み込みたいんですよ。
Exolorerのような表示ができるocxはフリーソフトで見つけたのですが
もっと機能が充実してる（フォルダの追加等ができたり
特定の拡張子を含むフォルダのみを表示できたり）のは無いかなと思って。

547 ：475：02/02/02 15:56

そそのOCXﾎｼｲ！
どこでﾀﾞｳｿできますか？

548 ：デフォルトの名無しさん：02/02/02 16:05

う～ん。やはりフォームの動きを分かっていない人が多そうだな。
VB初心者質問スレなのでしかたないのか。

本当はちゃんと説明したいとこなんだが、こんな所に書ける量じゃ
ないのでヒントだけ。

フォームはクラスとほぼ同じ動きをする。
本来フォームはSet MyForm = New Form1として作成する。
Form1.Showが動くのは暗黙にPublic Form1 As New Form1という宣言があるため。
フォームはロードされるとFormsコレクションに参照が追加される。
フォームはアンロードされるとFormsコレクションに参照が削除される。
Loadが発生するのはフォームがロードされたとき
Unloadが発生するのはフォームがアンロードされたとき。
Unload Form1はForm1の暗黙のインスタンスをアンロードしている。
Unload MeはForm1のインスタンスである自分をアンロードしている。
Set Form1 = Nothingは暗黙の変数にNothingを代入している。
Set Me = NothingはMeは変数ではないので意味ない。
フォームのプロパティまたはフォームのコントロールを参照するとロードされる。
Initializeが発生するのはインスタンスが作成されたとき。
Terminateが発生するのは参照している変数がすべてなくなったとき。
スコープを抜けた変数は自動的にNothingになる。
Nothingの変数にNothingを代入しても何も起こらない。
変数にNothingを代入しない限り勝手にNothingになることはない。
アンロードと参照の解放は違う。
Formsの中にはForm1が二つ以上入ることがある。

MSDNの「Visual Basic フォームの有効期間」とかFormsコレクションとか
クラスについて調べると良い。

これらを理解すると
unload MyForm
set MyForm = Nothing
がどういう意味なのかわかるよ。

549 ：デフォルトの名無しさん：02/02/02 18:30

>>548
545じゃダメなのか

550 ：548：02/02/02 18:40

ダメとは言わない。
だがNoExitにかかわるコードは意味が無い。
全部なくしても同じように動くし、
If Not MyForm.NoExit Then
　　Set MyForm = Nothing
End If
を
Set MyForm = Nothing
と書き換えても問題ない。

# と思う。
# >>545は>>544の答えとして書いていると思うが、ちょっと
# 理解できなかった。間違って解釈してたらゴメン。

551 ：デフォルトの名無しさん：02/02/02 19:13

つかさ、NoExitってFormのパブリック変数だべ？
なんでFormが解放されてからも参照が続くのか理解できんのだが。

俺は
for Each frmObj In VB.Forms
Unload frmObj
next
Set MyForm=Nothing

ってやるかも。

552 ：548：02/02/02 19:25

>>551
アンロードとNothingを代入するのは意味が違う。
Nothingを代入してもFormが消えるとは限らない。
Formが消えるのは、Formsも含めて、全ての参照がなくなったとき。
アンロードとはFormsから参照を削除すること。
Unload MyFormでアンロードされてもMyFormは生きている。
MyFormアンロードされて、MyFormがNothingになるかスコープから
削除された時点でFormは消える。

553 ：デフォルトの名無しさん：02/02/02 19:48

1000レコードが格納されたリザルトセットが
存在するとして、そのリザルトセットの
内容をそのまま、コレクションオブジェクトに再格納します。
その場合、元となったリザルトセットと１０００レコードが格納されたコレクションは
どちらが、メモリを多く消費しているのでしょうか？
リザルトセットは、内部にヴァリアントを多く抱えているので、
メモリ消費量が大きいような気がしますが。
このような、メモリ使用量を測定するようなAPIもしくは方法を探しています。
DBから取得したレコードはやはりコレクションに格納したほうがいいのでしょうか？
リザルトセットのままでもいいような気がするのですが。
1000レコード中か目標の1レコードを取得するのにかかる
時間は、やっぱりコレクションのほうが早いのでしょうか？
また、コレクションは、JAVAのようにインデックスに
ハッシュテーブルを作成しているのですか？

色々聞いてしまって申し訳ありません。

554 ：デフォルトの名無しさん：02/02/02 20:38

AA～ZZまでの全ての文字列のﾊﾟﾀｰﾝを組み、
それひとつひとつをCSVに追加保存したい。

VBでこれをやるのはムリですか？

555 ：デフォルトの名無しさん：02/02/02 21:32

>>554
2重forで実現可能です。

556 ：デフォルトの名無しさん：02/02/02 21:54

VBでやっても無駄コードが増えるだけ

557 ：質問者っすけど...：02/02/02 22:32

>>548
>MSDNの「Visual Basic フォームの有効期間」とかFormsコレクションとか
>クラスについて調べると良い。
>
>これらを理解すると
>unload MyForm
>set MyForm = Nothing
>がどういう意味なのかわかるよ。

いやMSDNのそれはヒントがないか何度も読みなおしたのだが、
オレ的にはどうしようもないとしか読めなかったよん。
読解力が不足している？

というか548さん的には
>unload MyForm
>set MyForm = Nothing
においてunloadイベントをキャンセルした、させられたときに
その直後のset..Nothingによって、フォーム資源は解放されないまま
制御のためのインスタンスへの参照が解放されてしまう非常事態を回避スル？

ウンチクとか仕組みとか技術解説は模範回答の後希望
つーか、初心者連中とかハッキリ書いちゃうところがドキュソだな。

558 ：デフォルトの名無しさん：02/02/02 22:48

「goo」で全くレスがつかなかった質問です。

入力されたパスワードを暗号化するのに、MD5やSHA-1などの
一方向性ハッシュ関数を使いたいと思っています。

MD5に関してはＣ言語のソースがRFCで公開されているのですが、
正直言って読んでもさっぱり解りませんでした。

VBから利用できるハッシュ関数のサンプル・DLLなど公開されているところは
ありませんか？

559 ：デフォルトの名無しさん：02/02/02 22:49

無い。

560 ：デフォルトの名無しさん：02/02/02 23:09

>>559

　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　|　そんなことゆわずにお願いしまプ～
　　Λ＿Λ　 ∠＿＿＿＿＿＿＿＿＿＿＿
　　（；´Д｀）
　（ ( つ ⊂ ））
　　〉　〉くく
（（＿_）（＿.）） ...ｶﾞｸｶﾞｸ

561 ：デフォルトの名無しさん：02/02/02 23:23

>>558
32文字とかではダメ？
google「VB ハッシュ関数」の１番目。

562 ：デフォルトの名無しさん：02/02/02 23:30

ＲＯＭから吸い出したデーターを画像表示させたいんだが
Ｌｉｎｅ文章で色つき箱を書いたんだがとても遅く
実用に耐えられない・・・。
できれば、ビットマップとして扱いたいんだが・・・。

563 ：デフォルトの名無しさん：02/02/02 23:39

>>562
BoxFullのLineでやった？

それと、裏画面に描いて、オモテに転送するっていうのは常識だと思うけど。
あるいは、描画中リフレッシュをやめるか、回数を間引きする。

564 ：デフォルトの名無しさん：02/02/02 23:49

>>563
その通り！！
裏画面で書いて表に転送するのは常識ですか・・・。
ＶＢやって３週間、奥深いねぇー。
うーん、難しい

565 ：デフォルトの名無しさん：02/02/02 23:53

>>564
業務系じゃなくて、ゲーム系の常識ね。すまそ。

でも、VBのLineBFはそんなに遅くないはずなんだけど。
おかしいなあ。まさかTwips座標系でやってるとかはないよね。
最小限再現できるコードを見せてもらうほうが話は早いんだけど。

566 ：デフォルトの名無しさん：02/02/02 23:53

>>561
ありがとうございます！
blowfishﾓｼﾞｭｰﾙも一緒にもらってきました。

567 ：デフォルトの名無しさん：02/02/03 00:01

>>565

Dim bydata() As Byte
Dim g As Integer

Open "c:\rom\ep-rom.bin" For Binary As #1
ReDim bydata(1 To LOF(1))
Get #1, , bydata()
Close #1
x = x + 3
kosu = kosu + 1
Picture1.Line (75 * kosu + tate, 75 * yoko)-(75 * kosu + tate + 50, 75 * yoko + 50), RGB(bydata(-2 + x), bydata(-1 + x), bydata(0 + x)), BF
If kosu = 16 Then kosu = 0: yoko = yoko + 1
If yoko = 16 Then kosu = 0: tate = tate + 500: yoko = 0

こんな感じ・・・・。

568 ：デフォルトの名無しさん：02/02/03 00:13

>>
右下角の座標は、-Step(50,50)のほうがいいね。
でも、本当に51×51ドットサイズなの？
RGB値は、ユーザ定義型にすれば一気に読めるかなあ。
そんなことで速くはならないけど。

569 ：デフォルトの名無しさん：02/02/03 00:16

>>568
ありがとう！！
うーん、ユーザー定義型ですか？
それってなに？
自分が想像するにｒｏｍには色情報がはいっていると見ているんです。
多分２５６色・・・。

570 ：デフォルトの名無しさん：02/02/03 00:19

＞569
VBのユーザ定義型は、Cで言うと構造体のこと。
一度に3バイト代入できても、見た目がすっきりするだけかな。

上のコードが何回ループするの？
ROMってゲーム機のROM？

571 ：デフォルトの名無しさん：02/02/03 00:21

>>570
ループはそうだな１Ｍビット程度
パチンコの画像ＲＯＭなんだな・・・。

572 ：デフォルトの名無しさん：02/02/03 00:33

>>571
それなら、メモリ上にDIBビットマップ配列を作って、一気に転送すると
速いけど、さすにがVB歴３週間ではちょっと面倒かも。
でも、コンバートは一度やればいい(？)から、時間かかってもいいじゃん。

573 ：デフォルトの名無しさん：02/02/03 00:36

>>572
ちなみにどのようにすればいいのかな？

574 ：デフォルトの名無しさん：02/02/03 00:41

1Mビット＝128Kバイト
RGB各1バイトとすると、3で割るから4500万回ループ？
Refresh回数を1000回に1回とかに減らすと劇的に速くなるよ。

575 ：デフォルトの名無しさん：02/02/03 00:43

>>573
このページを参考に。
ttp://www.surveytec.com/prog/vb/kouza2/chap2.html

576 ：デフォルトの名無しさん：02/02/03 00:43

>>574
分からないけど、ありがとう！！
そろそろ寝ます。

577 ：デフォルトの名無しさん：02/02/03 00:44

パチンコの画面は小さいはずだから、やっぱりVBのスケールモードが
PixelじゃなくてTwipsになってるんじゃないのかな？

578 ：デフォルトの名無しさん：02/02/03 00:49

>>576
BMPの内部格納はふつうと逆で、右下から左上の順だからね。

579 ：デフォルトの名無しさん：02/02/03 01:08

よく分からんけど、Formもプロセス終了時には開放されるんでしょ。
Endってかいとくのは、ダメ?

580 ：デフォルトの名無しさん：02/02/03 01:15

>>553
実際に情報を格納しておくのは、
コレクションじゃなくて、クラスのインスタンスでは?
コレクションは、インスタンスへの参照を保持しているだけ。

メモリーの使われ方は、インスタンスの配列を作って、
そのアドレスを表示させれば分かると思うけど、VarPtrでできるかなあ。
あとは、パフォーマンスモニタで、Process - Private Bytes - そのExeのプロセス
で多少はメモリーの使われ具合が把握できる。

コレクションのキーの実装は、たぶんハッシュだと思うが、
速いかどうかは、自分でテストしてみるのが一番良い。

581 ：580：02/02/03 01:30

VarPtr（オブジェクト型)をやっても、参照のポインタがとれるだけでした。
つまり、4バイトずつ、ずれていくだけ。

582 ：oyj：02/02/03 01:37

このたび独自のブラウザを作成したいと思い
ネットのさまざまな場所で調べましたが、
IEの文字のサイズを変更する方法と
お気に入りを操作する方法がわかりませんでした。

IEの文字のサイズを変更する方法ですが
ExecWBを使って変更しようとしましたが
現在のサイズを取得することしかできませんでした。

お気に入りの操作は[Favorites]フォルダを見つけることで
独自ででも作れるのですが何かもっとスマートな方法があれば
知りたいと思っています。

知っている方がいましたら教えてください。

開発環境
Win98SE
VB6LE
IE5.00

583 ：デフォルトの名無しさん：02/02/03 02:02

IEのコンポーネントを使うだけで、独自のブラウザーか、おめでてーな

584 ：oyj：02/02/03 02:30

あくまでも「目的ができたらそれで良し」なもんで。

585 ：デフォルトの名無しさん：02/02/03 08:19

1.23456789012346E+19という数値を"12345678901234567890"という文字列に
変換するにはどうすればよいのでしょうか。

586 ：585：02/02/03 09:54

すいません、頭の悪いことを口走りました。ごめんなさい。

587 ：デフォルトの名無しさん：02/02/03 10:12

>>558
md5 dll vb でGoogle検索しる。
手っ取り早く言うとココだな。
http://userpages.umbc.edu/~mabzug1/cs/md5/md5.html

588 ：デフォルトの名無しさん：02/02/03 12:13

>このたび独自のブラウザを作成したいと思い
> ネットのさまざまな場所で調べましたが、
> IEの文字のサイズを変更する方法と
> お気に入りを操作する方法がわかりませんでした。
donutのソース嫁。

589 ：oyj：02/02/03 14:03

DonutはVC++で作られていますが
それがVBででも生かせすのですね。
アドバイスありがとうございます。

590 ：デフォルトの名無しさん：02/02/03 14:40

>>587
どうもありがとうございました！
早速使用してみましたが・・・
>>561のモジュールと結果が違うのはどうしてなんでしょう？

591 ：デフォルトの名無しさん：02/02/03 18:25

>>590
561のやつにはバグがある予感。
とゆーか、10進数で出てくるな…。DLLの方は16進数だ。
MD5って16進数表現だったような気が。

592 ：デフォルトの名無しさん：02/02/03 19:25

>>591
作者氏は「忠実に移植」したと言ってますが。。。

＞MD5って16進数表現だったような気が。
なるほど、DLLの方が信頼性高いかな？
ｼｽﾃﾑﾌｫﾙﾀﾞにコピーする必要があるのが残念ですが

593 ：デフォルトの名無しさん：02/02/03 21:09

msgboxを表示させるときにbeep音がなりますけど、あれって鳴らさないようにすることって
できますか？

594 ：デフォルトの名無しさん：02/02/03 22:30

VCCE5を勉強したいのですが、これってVB５の本でいいのですか？
それと、VB.NETはまだ無料でダウンロードできますか？

595 ：デフォルトの名無しさん：02/02/03 22:38

>>593
耳せんをする

596 ：デフォルトの名無しさん：02/02/03 22:44

レジストリいじればなんとかなった気が。

597 ：デフォルトの名無しさん：02/02/03 22:57

>>592
いま簡単に検証してみたけど、処理そのものはあってるよ。
ただ、出力が10進数になってるだけで。
451行目を
strMD5 = strMD5 & Right("0" & LCase(CStr(Hex(bytRV(j)))), 2)
にとすれば、RFC1321の奴と同じ出力が得られるよ。
＃　HexとLCaseかませただけね

>>591
MD5の出力は本来は「128bit長の整数」で、
一般的に見る形式はそれを16バイトの配列と解釈し、
個々のバイトを16進数表記にした文字列をして表現してるだけ。
だから、10進数で表現してもそれはそれで間違いじゃないので念のため。

598 ：デフォルトの名無しさん：02/02/03 23:07

>>582
IE の shdocvw.dll にある DoAddToFavDlg と DoOrganizeFavDlg

599 ：デフォルトの名無しさん：02/02/03 23:43

>>597
> にとすれば、RFC1321の奴と同じ出力が得られるよ。

おお、確かに！ではこちらを使わせていただこう。
勉強になりました。

600 ：デフォルトの名無しさん：02/02/04 02:02

>>593
よくある方法として、MsgBox を改造したい場合
Form で自作する。

601 ：593：02/02/04 02:13

>>600
やっぱり素ではできないんですね。
自作することにします。
ありがとうございました。

602 ：デフォルトの名無しさん：02/02/04 05:29

友達のVB（プロフェッショナル版・ライセンス取得）でソフトを作成して、
友人の名前ではなく自分の名前でフリーソフトとして公開したら違法ですか。
（あくまで、私の名前で）
その場合、私、友人、両方、誰が悪人になりますか？
開発した環境は友人のパソコンです。友人に許可も取っています。
そのソフトからVBのIDやライセンス保持者の名前はわかるんでしょうか。
友人は、俺が許可しているんだから大丈夫といっていますが怪しいです？
知りたいのは、IDが作成ソフトから確認できるのかということです。

603 ：デフォルトの名無しさん：02/02/04 05:55

>>602
例えば他人のパソコンを借りて作成しても
著作権は作った人のもの。だから別に関係無いんじゃね？

604 ：デフォルトの名無しさん：02/02/04 06:07

>602
たしかIDで同定することは可能だったと思う。
ただし、フリーソフトのIDをいちいち調べて、登録ユーザかどうか
チェックすることはしない。ウィルスとかでない限り。

まあ、使用許諾違反であることは間違いないから、
実名ではなく、ハンドルで公開したら？

605 ：ミタカ：02/02/04 09:21

Function abc(i as integer) as String
　　　　　　Select Case i
　　　　　　Case 1 　abc = “いし”
　　　　　　Case 2 　abc = “はさみ”
　　　　　　Case 3 　abc = “かみ”
　　　　　　Case Else 　abc = “???”
　　　　　　 End Select
End Functionの時、
abc(0),abc(1),abc(2),abc(3),abc(4),abc(5),abc(6),abc(7),abc(8),abc(9)
のように値を設定した時の関数の値を教えてください。

606 ：デフォルトの名無しさん：02/02/04 09:25

>>605
あちこちにおんなじこと書くなよ。
自分さえ答えがよければそれでいいのか?
一回質問したら、何時間か待ってろよ。

607 ：デフォルトの名無しさん：02/02/04 09:29

VB6.0を使って人達へ、
VB.NETになって泣くなよ。

言語そのものじゃなくて、プログラミングとその概念を学習しとけよ。

608 ：デフォルトの名無しさん：02/02/04 09:50

>>605
自分でやってみれば？

609 ：デフォルトの名無しさん：02/02/04 09:53

>607
.NETになって泣く人はVB6.0を使えてない人だし。
ってか初心者スレなんで煽りはご勘弁願いたい

610 ：デフォルトの名無しさん：02/02/04 10:33

>>607
VBとVC++を使ってる俺はどうしたらいいですか?

611 ：デフォルトの名無しさん：02/02/04 10:45

>>602
それが違法だってんなら友達の家でゲームやるのも違法になるのでは。
ＶＢを入れてるパソが一台だけなら２人同時には使えないわけじゃん。
俺は問題無いと思うけど？
そのＶＢを自分のパソに入れて使ったら間違いなく違法だけど。

所有する全てのマシンにソフト入れてるけど
同時使用数を調べてその数だけライセンス買ってるって会社もあるよ。

612 ：デフォルトの名無しさん：02/02/04 10:54

>>547　ここです。
SHTree エクスプローラと同じツリー表示を得るためのActiveXコントロール
http://www.vector.co.jp/soft/win95/prog/se112351.html

で、>>538に答えてくれる人！だれかいませんか・・・？

613 ：デフォルトの名無しさん：02/02/04 14:38

VBを覚えたらバイナリエディタなどで表示される内容を
理解できますかいな？

614 ：デフォルトの名無しさん：02/02/04 14:48

>>613
？？？
VBとは関係ないんじゃない？

615 ：デフォルトの名無しさん：02/02/04 15:05

>>613
EXEやDLLなら86系の機械語を勉強せれ
JPG,GIFとかなら規格書を読め
XLSやPDFならソフト作ったメーカーに聞け

616 ：デフォルトの名無しさん：02/02/04 16:03

>>615
＞XLSやPDFならソフト作ったメーカーに聞け
本当に教えてくれるの？

617 ：：02/02/04 19:38

Excelのフォーマットなら過去に公開されてるし、PDFもSDKがある。

618 ：デフォルトの名無しさん：02/02/04 20:58

>>616
615は無料で教えてくれるとは言ってないｗ
ＭＳを買い取ればマンツーマンで教えてもらえるんじゃない？ｗｗ

619 ：デフォルトの名無しさん：02/02/04 22:37

>>611
>それが違法だってんなら友達の家でゲームやるのも違法になるのでは。

使用許諾契約書(LICENSE.TXT)を読みなさい。
このライセンスはMSと客の間の契約だから、他のソフトウェアはまったく無関係。

>ＶＢを入れてるパソが一台だけなら２人同時には使えないわけじゃん。

ちなみに、普通に市販されているVBのライセンス形態は１人の人に対して
ライセンスを許諾している。だから、何台にでもインストールしてよいが、
使用できるのはただ一人。同時だとか同時じゃないとかは関係なし。

>俺は問題無いと思うけど？
(藁)

>所有する全てのマシンにソフト入れてるけど
>同時使用数を調べてその数だけライセンス買ってるって会社もあるよ。

当然、ライセンス形態が違えば、また話は違ってくる。

620 ：611：02/02/05 09:25

使用許諾契約書(LICENSE.TXT)を読みなさい。

　読みたくない（Ｗ
　わかりやすく要約してくれてありがと。
　そっかー、何台にでもインストールしていいんだ。
　いい事聞いた。

621 ：助けて＠女性社員：02/02/05 10:53

VB６でリンカに送られてるコマンドラインを
「/SUBSYSTEM:windows,4.0」からこれを「/SUBSYSTEM:CONSOLE」にしろといわれたのですが
これってどうやるのでしょうか？

622 ：：02/02/05 11:28

>>621
Link.exe とかって名前の実行ファイルを作って、それから真のリンカ
を呼び出せばいいんじゃない？

623 ：顔：02/02/05 11:34

はじめまして。
今、ＤＯＳプロンプトから起動するプログラムを作っているのですが、
ＶＢからＤＯＳプロンプトへエラーメッセージなどの文字を出力する
方法がわかりません。
どなたか教えていただけないでしょうか？

624 ：デフォルトの名無しさん：02/02/05 11:40

>>621
API使ってる？WirteConsoleとか。
WriteConsoleだったら、lpBufferに格納してるのが出力されてると
思うんですが。

的はずれだったらｽﾏﾝ。

625 ：顔：02/02/05 12:12

どうもーつかってますー
だけど新しいコンソールウィンドウが開いちゃうんですよ・・・

今使っているDOS窓でメッセージ表示させたいのですが

626 ：：02/02/05 12:19

>>623 >>621の方法を使うか、VBSでも使え。

627 ：デフォルトの名無しさん：02/02/05 13:46

何の雑誌だったかわすれたけど
ＶＢのアカデミックパックを自分の子供（幼稚園児）名義で買えるか？
って企画があった。
結論から言うとＭＳのライセンスは幼稚園生でもかまわないが
電話を含むサポートは本人からしか受け付けないというオチだった。

628 ：名無しさん：02/02/05 13:51

621の方法がDOSと関係あるの？

629 ：デフォルトの名無しさん：02/02/05 13:59

電話で、どうやって本人だと確認するんだ？

630 ：デフォルトの名無しさん：02/02/05 14:19

>>627
サポートが受けられる受けられない以前に、子供以外は使っちゃいかんとおもうが。

631 ：デフォルトの名無しさん：02/02/05 14:28

MSのサポートなんかイラネぇよ！
ってやつは幼稚園児に買わせてもいいってことか

632 ：名無しさん：02/02/05 14:55

ｽﾏｿ便乗。＞＞621ってコンソールに文字列表示するのと関係あるの？
というかコンパイルとかビルドってIDE以外でやったことないが・・・

633 ：デフォルトの名無しさん：02/02/05 15:06

visual basicでsocksについて解説してるサイトないですか？

634 ：VBは久しぶり：02/02/05 15:36

TrueDBGridの7.0を使っています。このバージョンは初めてです。

設計時のプロパティ画面ンから、列の幅を数値で指定しようと思ったのですが、
Columnのプロパティにwidthがありません。7.0になって動作が変わったのでしょうか？

635 ：デフォルトの名無しさん：02/02/05 15:38

VBで作ったバイナリって、IDが埋め込まれてるの？
どのマシンで作ったか、ってわかっちゃうの？
じゃーゲーツをバカにするソフトとか作ると、ヤクザが家にきちゃう？

636 ：デフォルトの名無しさん：02/02/05 16:02

今まで知らなかったのかよ。そんなの常識

637 ：デフォルトの名無しさん：02/02/05 16:31

某社のGridコントロールを使った独自ライブラリを使っているんですが、、
今回画面を出さないバックエンド処理なので
Gridコントロールをダミーのクラスに置き換えてコンパイルしようとしました。

そしたら※印んところでコンパイルエラーになるじゃないですか。
GridコントロールはControlを継承してやればいいとあたりを付けて
Helpや検索してみたんですがVBじゃ「継承はできない」って、、、

もともとのGridコントロールってどうやって作ったんでしょう？（謎）
Gridコントロール使ってる個所全部＃IFで囲むのは
数が多くて避けたいのですが。

Function Hoge_NewGrid&( grd As Grid)

　　Fuga_NewGrid& = Core_NewGrid(grd)　'←※

End Function

Function Fuga_NewGrid&( grd As Control)
'略
End Function

638 ：：02/02/05 16:36

>>637
なぜにLongを返そうとしてるの？つか、何がやりたいのかぜんぜんわからん。

639 ：デフォルトの名無しさん：02/02/05 16:51

Excel VBAについて質問なんですが、

Sheet2のA50のセルに値があるか？
　あれば、(次の行)A51のセルに値があるか？
　　あれば、(次の行)A52のセルに値があるか？
　　　あれば、・・・・
なければ、終了。

で、A50-E50から値のあった行までをコピーする。
（A53まで値があれば、A53-E53まで）

そしたらSheet1のA50を選択してペーストする

という動作をやりたいのですが。。

640 ：デフォルトの名無しさん：02/02/05 16:51

>>637
いや、Gridをダミーに入れ替えてコンパイルを通したいだけなんですけど、、
何をしているのかは私も不明、、

っていうか今回上の関数二つとも使わないので
「＃IF」で囲んで殺してしまってもいいんですが
似たような関数がたくさんあるので手動でたくさんの個所をいじると
バグ作り込みそうで恐いのです。

641 ：637 640：02/02/05 16:53

>>640 の>637へのリンクは>>638へ読み替えてください

642 ：デフォルトの名無しさん：02/02/05 19:04

VBで作ったバイナリに、個別のIDが組み込まれていて、誰が作ったか追跡できるって本当なの？
ソースはある？

643 ：：02/02/05 19:07

>>640
コンパイルエラーが出る理由は、関数に値を設定しようとしてるからでは？
Control型の代わりに使うんだったら、Object型だね。

644 ：：02/02/05 19:08

>>642
うそに決まってんじゃん

645 ：デフォルトの名無しさん：02/02/05 19:12

>642
それどころか、遺伝子情報が埋め込まれるから作った人間も追跡できるよ。

646 ：デフォルトの名無しさん：02/02/05 19:21

ＤＮＡ、とか…

647 ：デフォルトの名無しさん：02/02/05 20:18

>>625
VBで作られたウィルスがニュースにならないのはそのIDを元にして
簡単に犯人を特定できるから。
広まる前にﾀｲｰﾎされちゃうんだよ。裏では有名な話。

648 ：633：02/02/05 21:28

socks…

649 ：デフォルトの名無しさん：02/02/05 21:51

VB製のウイルスってランタイムいるんですか？

650 ：デフォルトの名無しさん：02/02/05 22:05

>>637
よー分からんのですが、クラスにControlのインターフェイス持たせたいなら
Implements Control
ってやるよろし

651 ：デフォルトの名無しさん：02/02/05 22:09

>>637
言ってることがさっぱりわからん。
コントロール作りたいならコントロールのプロジェクトを選べばいいと思うが。

652 ：デフォルトの名無しさん：02/02/05 22:09

>>649
いる

653 ：VBA初心者：02/02/05 22:49

>>639
Sub main()
Dim lngI As Long
Dim varTmp As Variant
Dim strSel As String

lngI = 50
varTmp = Worksheets("Sheet2").Cells(lngI, 1).Value

Do Until varTmp = ""
lngI = lngI + 1
varTmp = Worksheets("Sheet2").Cells(lngI, 1).Value
Loop

Worksheets("Sheet2").Select
strSel = "E" & CStr(lngI - 1)
Range("A50:" & strSel).Select
Selection.Copy

Worksheets("Sheet1").Activate
Range("A50").Select
ActiveSheet.Paste
End Sub

654 ：デフォルトの名無しさん：02/02/05 23:09

＞625
標準ウィンドウハンドルの取得を間違えてるだけでは？

＞635,642
同定(＝identify)できるだけって書いたろ？！
ほかで何かを公開してなかったら、どこの誰かまではわからない。

＞649
Win98以降、ランタイムは最初から入ってる。

655 ：デフォルトの名無しさん：02/02/05 23:25

>>654
>Win98以降、ランタイムは最初から入ってる。
それはVB5までの(標準)ランタイムね。

Win95,NT4.0時ではVB2ランタイム。
WinMe以降はVB6ランタイムまで入っている。

656 ：デフォルトの名無しさん：02/02/05 23:32

ちなみにSPは当たってないからウィルス作るときはSPのバージョンにも気をつけよう。
ﾀﾏｰﾆ動かないことあります．
最新はSP5ね。

657 ：仕様書無しさん：02/02/06 01:56

VBって何ビットなんですか？

658 ：名無しさん：02/02/06 02:06

ｽﾏｿ便乗。＞＞621ってコンソールに文字列表示するのと関係あるの？
というかコンパイルとかビルドってIDE以外でやったことないが・・・

659 ：デフォルトの名無しさん：02/02/06 02:25

>>621 >>658
リンカにSUBSYSTEMの指定をするのは、Cでの話。
多分、Cができる人にからかわれただけだと思う。

APIのWriteConsoleが正解。

660 ：デフォルトの名無しさん：02/02/06 02:30

MSDNがなぜか開けなくなってしまったんですが・・・
分かる人いたらお願いします。

VB6
WindowsXP

661 ：顔：02/02/06 02:35

しかしAPIのWriteConsoleを使うと新しいコンソールウィンドウがひらいちゃうんですよ。。。
今使っているコンソール内にメッセージを表示させたいんです。。。

662 ：デフォルトの名無しさん：02/02/06 02:46

>>660
XPの再インストールとかしてみた？

663 ：デフォルトの名無しさん：02/02/06 02:50

>>660
昔同じ問題にあったことがある････
あー････。。教えてあげたいが解決方法が思いだせん。。
直接MSDNは開けるのかな？
関連付け設定みたいなの見直せればいいけどね。

664 ：660：02/02/06 02:51

>>662
やっぱりそれしかないんですかね？

665 ：デフォルトの七誌さん：02/02/06 02:55

VBでコンソールを制御する方法はあるが
どれも新規ウィンドウを開く方法だな

http://tokyo.cool.ne.jp/masapico/api_CreateConsoleScreenBuffer.html
http://tokyo.cool.ne.jp/masapico/api_sample_con02_vb.html
http://www.microsoft.com/japan/support/kb/articles/J046/4/70.asp
http://www.alpha-net.ne.jp/users2/kone/index.html

666 ：660：02/02/06 02:56

うーん。
ていうか、VBからMSDNを開こうとすると、[応答なし]になります。

667 ：デフォルトの名無しさん：02/02/06 03:03

PCを再起動してみてMSDNだけを起動してみては？

668 ：：02/02/06 03:04

>>659
おいおい。VB Magazineにも紹介された、伝統的な技だぞ

669 ：660：02/02/06 03:09

>>667
MSDNフォルダ開いてみたんですが、
どれを起動すればいいのか分からないんですが・・・

670 ：デフォルトの名無しさん：02/02/06 03:15

>>669
ん？スタートメニューからいけるとおもうけど｡｡
どうもVBとMSDN再インストールしたほうがよさそうかなぁ

671 ：660：02/02/06 03:23

>>662,>>663,>>667,>>670

みなさんありがとうございました。
一度MSDNを単独で開き、
VBからもう一度開いてみたら問題なく開けました。
これで、安心してプログラム書けます。

672 ：565：02/02/06 03:26

>>668 さん
すみませんどうやってやるのでしょうか？

673 ：565：02/02/06 03:44

すみませんどうやってやるのでしょうか？その設定の変え方？

674 ：デフォルトの名無しさん：02/02/06 07:02

>>661
どうやってるのかわからんが、ハンドルを取得できてないだけでは？
DOS窓の設定をいじれるなら、クリップボード経由で送るのが厨房向き。

675 ：デフォルトの名無しさん：02/02/06 08:47

VB6 Enterprise +SP5ですが、
ここに参照設定でExcelのLibraryを組み込んで、
オブジェクトブラウザでExcelのクラスとかをどんなのがあるのかな～、
ってヘルプを見ようとするとヘルプがありません、となります。
MSDNはちゃんと組み込んでるつもりなんですが、
あ、Excel2002だからかな？誰か分かる人います？

676 ：659：02/02/06 09:34

むむ、リンカにオプションを指定する方法があるの?
調べたけど、
http://www.alpha-net.ne.jp/users2/kone/back/nikkib2.html
[99/11/20 VBでCGI編 ]
> どうやらリンカに「/SUBSYSTEM:CONSOLE」が送られてることが
> 原因らしいのでVBでリンカに送られてるコマンドラインを調べてみると・・・
> やっぱり「/SUBSYSTEM:windows,4.0」になってた・・・
> これを「/SUBSYSTEM:CONSOLE」にし、さらにコンソールウインドウを
> 作成する必要がないんでAllocConsoleおよびFreeConsoleを外す。

>>622
> Link.exe とかって名前の実行ファイルを作って、それから真のリンカ
> を呼び出せばいいんじゃない？

この組み合わせでできるのか?

677 ：659：02/02/06 09:37

>>621
> 621 名前：助けて＠女性社員投稿日：02/02/05 10:53
> VB６でリンカに送られてるコマンドラインを
> 「/SUBSYSTEM:windows,4.0」からこれを「/SUBSYSTEM:CONSOLE」にしろといわれたのですが
> これってどうやるのでしょうか

そもそも、これを教えてくれた人は、
なぜ、詳しいやり方を教えてくれなかったんだろ?

678 ：：02/02/06 10:22

>>676
IDEだから、オプションを変更する方法はありません。面倒だから、VB7使えば？

679 ：デフォルトの名無しさん：02/02/06 10:22

editbinでsubsystemを書き換えればいいのでわ？

680 ：ななし：02/02/06 10:23

http://www.alpha-net.ne.jp/users2/kone/back/nikkib2.html
このサイトみてやり方わからなかったんじゃないの？
検索するとこのサイトしかひっかからんぞ

681 ：ななし：02/02/06 10:24

それにしてもやりかたわからないな
システムの環境変数いじればいいのか？

682 ：ななし：02/02/06 10:24

このサイトの掲示板で質問してみるか…？

683 ：デフォルトの名無しさん：02/02/06 10:42

Ｗｅｂでいろいろ探して見たのですが、よくわからないので質問があります。
他のアプリケーションのＩＭＥ入力を制御することは出来ますか？
例えば、自作のＶＢアプリケーションからWindowsのメモ帳のＩＭＥ入力のＯＮ，ＯＦＦ切り替えを行うなどしたいのですが、どうも上手くできません。
どなかたお力を貸して欲しいです。

684 ：名無しさん：02/02/06 12:10

すみません誰か621さんのやりかたを詳しく教えてください！
どうやってSUBSYSTEM:CONSOLEにするのでｓか？

685 ：デフォルトの名無しさん：02/02/06 13:11

>>653さんへ
見事に出来ました。どうもありがとございました。

686 ：659：02/02/06 14:00

お、とりあえず　Link.exeを置き換えたら、こんなのが取れた。
"C:\_VB\LinkDummy\LinkDummy.OBJ"
"C:\_VB\LinkDummy\Link.OBJ"
"C:\Program Files\Microsoft Visual Studio\VB98\VBAEXE6.LIB"
/ENTRY:__vbaS
/OUT:"
C:\_VB\LinkDummy\Link.exe"
/BASE:0x400000
/SUBSYSTEM:WINDOWS,4.0
/VERSION:1.0
/INCREMENTAL:NO
/OPT:REF
/MERGE:.rdata=.text /IGNORE:4078

Link.Exeのダミープロは、入れ替えが面倒だからVBで作らんほうがいいな。失敗。

687 ：名無しさん：02/02/06 14:03

入れ替えってどうやるのですか？お願いします！

688 ：：02/02/06 14:12

Link.exeってのがあるだろ？それを別の名前で保存すればいい。
で、

Sub Main()
　　msgbox Command
End Sub

とかってすれば、何が渡されてるかわかる。で、そのコマンドラインを引数に、
Shellで起動してやればいいんじゃないか？

Shell "Link.exe" & Replace(Command, "WINDOWS､4.0", "CONSOLE")

689 ：デフォルトの名無しさん：02/02/06 15:12

無視されてるし...
コマンド打つのは嫌い？
>editbin /subsystem:console foo.exe

690 ：デフォルトの名無しさん：02/02/06 15:29

>>684
ファイル→exeの作成→オプション→実行可能ファイルの作成→コマンドライン引数で、
/SUBSYSTEM:CONSOLE
かな。

引数の種類は、VB本体と同じフォルダでDOS窓を開き「LINK /?」を実行すればわかる。

691 ：デフォルトの名無しさん：02/02/06 15:30

>>683
メモ帳のIMEをONにするにはハンドルを取得し、APIのImmSetOpenStatus等を使う。
しかし、どうしてメモ帳？　　自作の入力用フォームならIME制御が簡単なのに。

692 ：659：02/02/06 15:37

>>689
そんなコマンドがあったのか、DummyLink.exe作っちゃったよ。

1.VBのC:\Program Files\Microsoft Visual Studio\VB98\Link.exeをLINKORIG.EXE にリネーム
2.下のやつLink.cで保存し、をコンパイルして、Link.exeを作る。(cl Link.c)
3.コンパイルしたLink.exe　をC:\Program Files\Microsoft Visual Studio\VB98\　にコピー
4.VBのプロジェクトを開き、メジャーバージョンを999に変更する。
5.コンパイルしてEXEを作る。
6.俺はまだテストしてないよ。

＜Link.cで保存しる＞

#include <stdio.h>
#include <process.h>
#include <string.h>

/**
* Link.exe(VbLinkDummy)
* メジャーバージョンが999の時だけSUBSYSTEMをCONSOLEにする。
**/
int main(int argc, char ** argv)
{
　　char szCommand[8192];
　　int n;
　　int isConsole = 0;
　　FILE * fp;

　　for (n = 0; n < argc; n++){
　　　　if (0 == _strnicmp(argv[n], "/VERSION:999", 12)){
　　　　　　isConsole = 1;
　　　　}
　　}
　　
　　strcpy(szCommand, "LINKORIG.EXE");
　　for (n = 1; n < argc; n++){
　　　　printf("argv[%d]=%s\n", n, argv[n]);
　　　　strcat(szCommand, " ");
　　　　if ((0 == _strnicmp(argv[n], "/SUBSYSTEM:", 11)) &&
　　　　　　(isConsole == 1)){
　　　　　　strcat(szCommand, "/SUBSYSTEM:CONSOLE");
　　　　}else{
　　　　　　strcat(szCommand, argv[n]);
　　　　}
　　　　
　　}
　　fp = fopen("VbLinkDummy.log", "a");
　　fprintf(fp, "szCommand=%s\n", szCommand);
　　fclose(fp);
　　
　　system(szCommand);
　　return 0;
}

693 ：名無しさん：02/02/06 15:51

SUBSYSTEMの件、できました！皆さんありがとう！
EDITBINってこのマシンにはないですが探して見ます！

694 ：659：02/02/06 16:06

成功したらやり方ぐらい書けや、ボケ!

695 ：デフォルトの名無しさん：02/02/06 18:22

Excel VBAで質問です。
xslファイルと同じディレクトリにある固定のファイルをいつも
外部データの取り込みから開きたいのですがうまくいきません。
何故でしょうか。
ﾃﾞｽｸﾄｯﾌﾟで二つをファイルを操作している時は正常ですが
他のフォルダへ二つを移動してやると
「ファイルが移動または名前が変更されていないことを確認し、
再度実行してください。」と出ます。

696 ：695：02/02/06 18:24

With Selection.QueryTable
.Connection = "TEXT;aiueo.csv"　　←（.\aiueo.csv　でもダメでした）
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.Refresh BackgroundQuery:=False ←（エラーはこの行と言われます）
End With

697 ：デフォルトの名無しさん：02/02/06 18:34

ActiveWorkbook.Path を使うんじゃダメ？

698 ：デフォルトの名無しさん：02/02/06 19:24

http://cgi.members.interq.or.jp/hokkaido/asato/upload/jam3ddr/OB000988.jpg

699 ：デフォルトの名無しさん：02/02/06 19:53

>>695
EXCELでマクロを記録して、それを参考にVBへ移植しる

700 ：デフォルトの名無しさん：02/02/06 19:53

>691さん、ありがとうございました。
しかし、InputContextがうまく取得できていないようでＩＭＥを切り替えることが
できません。

lgHWnd = FindWindow("Notepad", vbNullString)
lgIMEHandle = ImmGetContext(lgHWnd)
Call ImmSetOpenStatus(lngIMEHandle, 1)

と、やっているのですがどこがマズイのでしょうか

701 ：デフォルトの名無しさん：02/02/06 20:08

エクセルでデータを入力してるのですが、
　　　　A 　B　 C
1列目　a 　b　　c
2列目　d 　e　　ｆ
3列目　g 　h　　i
）以下続く。

と書いてある内容の1つのファイルから
a_b_c.txt　d_e_f.txt　g_h_i.txt・・・　というように列ごとに
テキストファイルを書き出すことはできますか？
マクロを組んだことがないのでよく分からんのです。
教えて君でｽﾏｿ

702 ：：02/02/06 20:23

>>700
たしか、自アプリ以外のコンテキストハンドルはとれないはず。
AttachInputThread()してもダメかな？

>>701
Range("A1").Value で、A1の値が取得できる。ということで、順番に
取得しながら連結していけばおっけー。

703 ：：02/02/06 20:52

>>702
AttachThreadInput()だった。鬱死

704 ：デフォルトの名無しさん：02/02/06 21:23

>>701
エクセルＶＢＡ質問＆研究板
http://pc.2ch.net/test/read.cgi/bsoft/1008219498/l50

705 ：デフォルトの名無しさん：02/02/06 21:29

API関数ReadFileでバイト配列にテキストファイルを読み込み、
それをテキストボックスに表示したいんですが、どうすればいいのでしょうか。
えーと、バイト配列にテキストファイルを読み込むまでは出来てます。
バイト配列に入ってるデータをテキストとして、テキストボックスに表示したいです。

706 ：：02/02/06 21:52

>>705
バイト配列は、そのままString型の文字列に設定できます。つまり、
Text1.Text = b() という感じで。

Unicode変換する必要があるかもしれないけど。

707 ：705：02/02/06 22:02

うーん、Text1.Text = b()ってやってみましたが駄目でした。
Unicode変換って、StrConv関数でいいんですか？

708 ：：02/02/06 22:03

>>707
どうダメだった？文字化けしてるなら、StrConvでUnicode変換でいけるかと。

709 ：705：02/02/06 22:08

なーんも表示されません。
Text1.Text = StrConv(b(), vbUnicode)
ってやっても何も表示されません。
b()はウォッチウィンドウで見て確かにデータ入ってますし、
WriteFileで書き込んでみたらちゃんと目的のテキストが保存されてるので、
b()が実は空っぽとか、そういうことはないと思います。

710 ：700：02/02/06 22:46

>>702
AttachInputThreadの使い方がわからん。
サンプル希望です。
情けないっす。

711 ：705：02/02/06 22:52

すみません、よくわかりませんがちゃんと表示されるようになりました。
どこも弄ったつもりないんだけど・・・今まで何が悪かったのか分からない・・・。
ま、動いてるから良しとします。
ありがとうございました。

712 ：701：02/02/06 22:54

>>704　向こうに移動しました。自分は全くわからないからなぁ・・・

713 ：：02/02/06 23:08

>>710
自スレッドは、GetCurrentThread()、相手スレッドはGetWindowThreadProcessId()
で取得できる。で、3番目の引数にアタッチすることを示す1を指定すればおっけー。

つか、検索すればサンプル見つかるだろ。アクティブウィンドウ変更では
基本的な処理だし。

714 ：デフォルトの名無しさん：02/02/06 23:13

すみません、テキストボックスの右揃えとか左揃えとかを指定するのはAlignmentプロパティではないのですか？
右揃えにならないんですが・・・。

715 ：デフォルトの名無しさん：02/02/06 23:31

>>714
確か環境によってなったりならなかったりするはず。
（ＶＢバージョンかＯＳバージョンによる）
「古いのを使ってるせいです。仕様です」と言いきるか（諦めるか）、
MultiLine=Trueでやるのが定説。

716 ：714：02/02/06 23:38

>>715
おおっ、MultiLine = Trueでやったらできましたあ！ありがとうございます！
しかし複数行入力できることで別の問題も起きてきますね・・・。まあなんとか対処法を
考えてみます。
ちなみに環境ですが、OS:Win95/VB:6.0（Enterprise Edition）です。

717 ：：02/02/06 23:39

>>714
OSバージョン。Windows95と、WindowsNT4.0SP2以前はそうなる。

718 ：714：02/02/06 23:42

>>717
ああ、やはりそうなんですか・・・。Win95・・・。
なんかこれ以外にも制限うけたりしますか？

719 ：デフォルトの名無しさん：02/02/06 23:49

>>675
>ここに参照設定でExcelのLibraryを組み込んで、
>オブジェクトブラウザでExcelのクラスとかをどんなのがあるのかな～、
>ってヘルプを見ようとするとヘルプがありません、となります。

Excelインストールするときに、Excel VBAのヘルプもインストールした？
デフォルトはインストールされんと思う。
＃Excel2002でもそうだったかどうかは知らんけど。

720 ：デフォルトの名無しさん：02/02/07 01:10

ＶＢＡで以下の構文を実行すると、オブジョクトが設定されてません
と4行目がエラーになるんですけど、どこを
どう直したら良いでしょうか？
シートの選択までは、出来ているんですけど。

Kinou_No = "1-01"
Worksheets(1).Activate
Worksheets(1).Range("a1").Activate
Cells.Find(What:=Kinou_No).Activate

721 ：デフォルトの名無しさん：02/02/07 01:31

>>720

Findメソッドのヘルプに
||検索の条件にあてはまるセルが見つからなかった場合は、Nothing を返します。
って書いてあるから、検索結果なしなんじゃないの。

722 ：名無しさんです：02/02/07 01:34

良くあるメジャーなタブブラウザなどはセキュリティレベルや
画像音楽ON/OFFなどと言った機能をソフト側で切り替えら
れるようになってますが、あれはどうやってるのでしょうか？

723 ：Ｄ店長：02/02/07 05:01

あるサイトを見て以来、ＰＣを起動すると
「エラーが発生したのでExplorer.exeを終了します」
ってなって、デスクトップが表示されなくなったんですけど。
これってウィルスですか?
マジ困ってます。
（このカキコは友人のＰＣ借りて書いてます）

724 ：デフォルトの名無しさん：02/02/07 05:05

なんでVBの質問スレで聞くねん。

725 ：DOSﾏｿ：02/02/07 07:54

おかげさまでVBでコンソールアプリができました。
ありがとうございます。

726 ：675：02/02/07 09:48

>>719
ありが㌧！おっしゃる通りでした！

727 ：DOSﾏｿ：02/02/07 09:51

あとVB6ではいろいろ面倒なことが多いから
VB.NETに移行することにしました。
皆さんもそうしましょうよ（無責任

728 ：デフォルトの名無しさん：02/02/07 10:40

FORMを含まないモジュールのみでEXEを作る場合
そのEXEのICONって変えられないんですか？

729 ：：02/02/07 10:42

>>728
変えられる。リソースでアイコンを追加して、ID_APPICONにするんだったけかな。

730 ：728：02/02/07 10:53

>>729
ありがとうございます。
すいません、もうちょっと詳しく教えてください。
リソースファイルの追加までは、やってるんですけど
>>ID_APPICONにするんだったけかな。
ここの部分がいまいち分かりません。

リソースの定義を
1 ID_APPICON "aaaaa.ico"
とかかな？と思ってやってみたんですけど、駄目だったし...
プロジェクトのプロパティにID_APPICONと設定するとこもなさそうだし...

へんな事言ってたらごめんなさい。

731 ：ＭＳＣｏｍｍとｕｎｉｃｏｄｅ：02/02/07 11:32

ＶＢ５で３９文字の半角文字列をＭＳＣｃｏｍｍで送信するのですが、
ＭＳＣｏｍｍに渡す直前にｌｅｎＢで実際の長さを調べると倍の７８バイト、
（これはＵＮＩｃｏｄｅの為だと思うのですが）
この文字列を実際に相手側が受信すると３９バイトで受信されているようなのですが
どうしてでしょうか？Ｗｉｎｓｏｃｋを使用しても同じ現象です。
ＵｎｉｃｏｄｅからＡＮＳＩに勝手に変換されているのでしょうか？
結果ＯＫではあるのですが、理由が知りたいのでわかる人、教えて！

732 ：２重引用符：02/02/07 12:09

すんません、VBで文字列の中に”を入れたい場合は
"を""で表して、
Msg = " 彼はいった。 ""こんにちは"" "
って書けますよね？　この事ってHelpの何処かに
記述ありますか？　改めて探してみると見つからない。

733 ：名無しさん：02/02/07 12:14

使わないフォーム追加して、フォームのアイコン設定して
そのアイコンつかえばいいじゃん

734 ：デフォルトの名無しさん：02/02/07 12:23

嗚呼ＶＢ

735 ：デフォルトの名無しさん：02/02/07 12:50

>>732
わかってるならヘルプ見る必要ないじゃん

736 ：：02/02/07 13:06

>>730
http://www3.plala.or.jp/sardonyx/smart/vb/code/2.html#L5

IDが間違ってた。ｽﾏｿ

737 ：デフォルトの名無しさん：02/02/07 13:26

VBでFTPを使うのってWININETってのを使えばいいんですか？
他にもっと簡単な方法とかってありますか？

738 ：：02/02/07 13:53

>>737
Inetコントロールでどう？

739 ：デフォルトの名無しさん：02/02/07 13:59

文字列の中からカンマの位置を取得したいのですが

strLine = "1999,2000,2001"
intBasyo = InStr(0, ",", strLine)

じゃダメでした。
何か方法はありませんか？お願いします。

740 ：デフォルトの名無しさん：02/02/07 14:07

>>739
こうか？
MsgBox InStr("1999,2000,2001", ",")

741 ：ＭＳＣｏｍｍとｕｎｉｃｏｄｅ：02/02/07 14:08

>>739
strLine = "1999,2000,2001"
intBasyo = InStr(1, strLine, ",")

だと思うけど

742 ：737：02/02/07 14:19

>738
どうも、MSDNみてみます

743 ：デフォルトの名無しさん：02/02/07 14:28

>>740
>>741

どうもすみませんでした。。。

744 ：デフォルトの名無しさん：02/02/07 15:07

エクセルのマクロでエクセルを開くと自動実行するようにしました。
ですが、エクセルを開いた時に毎回、
「このファイルはマクロを含んでいます。マクロを有効にしますか？」
というダイアログが出て、OKを押すと実行されます。
有無を言わさず、自動実行したいのですがどうすれば良いでしょうか。

745 ：デフォルトの名無しさん：02/02/07 15:15

>>744
エクセルの設定変えれ。

746 ：デフォルトの名無しさん：02/02/07 15:16

クイズを作りたいので
サンプルｷﾎﾞﾝﾇ

747 ：デフォルトの名無しさん：02/02/07 15:18

>>745
すいません、どのようにですか？
あと他の人が別のパソコンで開いてもダイアログが出ないようにしたいので
マクロに記述できたら一番良いのですが。

748 ：デフォルトの名無しさん：02/02/07 15:20

すいません、わかりました。
セキュリティのとこですね。
これをマクロに記述は出来ないでしょうか。
・・・でも良く考えたらセキュリティの為に自分で設定出来るのだから
マクロで設定出来たらウイルスとか間単に実行出来ちゃいますよね。
それ考えたら無理っぽいか。。

749 ：710：02/02/07 15:42

>>713さん返答感謝です。
おかげでスレッドのアタッチは出来るようになりましたが
元々の目的である、ＶＢアプリから他のアプリのＩＭＥを切り替える事は
スレッドをアタッチしても出来ませんでした。

マクロソフトを作っているのですが、他のアプリに"abcde"と送りたいとき
そのアプリのＩＭＥがＯＮだと"あｂｃでｆ"となってしまうので困っています。
なにかいい知恵はないでしょうか？

750 ：デフォルトの名無しさん：02/02/07 16:11

直接WM_CHARとかで送るとか。

751 ：：02/02/07 16:27

WM_SETTEXTで送るとか。

752 ：745：02/02/07 16:40

>>748
そゆこと。

753 ：737：02/02/07 16:58

>738さん
ファイル転送できました。ありがとうございました。

754 ：デフォルトの名無しさん：02/02/07 16:59

ThisWorkbookのPrivate Sub Workbook_Open()にある変数を
標準モジュールのModule1にある、Sub あいうえお()の
中で使いたいのですが、引数のやり方が解りません。御願いします。

755 ：754：02/02/07 17:00

Excel VBAです

756 ：デフォルトの名無しさん：02/02/07 17:00

>>748
少し主旨から外れますが、こんな感じのウィルスがあった
ということで、参考になるかもしれません。
　
・VBSでレジストリの書き換えとEXCELの立ち上げを行う。
　そのあとVBSが自分自身を消す。
・バッチファイルでREGファイルを実行してレジストリを書き換え、
　EXCELを立ち上げる。そのあとVBSが自分自身を消す。

757 ：デフォルトの名無しさん：02/02/07 17:02

>>756　の訂正

・バッチファイルでREGファイルを実行してレジストリを書き換え、
　EXCELを立ち上げる。そのあとバッチファイルがREGファイルと
　自分自身を消す。

758 ：デフォルトの名無しさん：02/02/07 17:19

>>440禿同

759 ：デフォルトの名無しさん：02/02/07 17:53

>>752
いや、そのやりかたも判らないです。
SendMessageで送るんだろうとやってみたが、
上手くいかなかったし、スレッドアタッチしてもダメだった。
検索しても見つからないのは探し方がマズイのだろうか……。鬱。

760 ：Ｗｉｎｓｏｃｋ：02/02/07 18:23

ＭＳｃｏｍｍを使ってテキストモードで送信するとＵＮＩＣＯＤＥから
ＡＮＳＩ（ＡＳＣＩＩ）に変換され送信されるのは
わかったのですが、Ｗｉｎｓｏｃｋもそうなのでしょうか？教えてください

761 ：デフォルトの名無しさん：02/02/07 18:33

質問なのです。
MSDNのサンプルについてた「Taborder」に、
「複数項目を選択、それを一番上or下まで移動」
ってな機能をつけたいのです。
複数選択はMultiSelect=1or2でいいとして、移動部分がイマイチなのです。

とりあえずコマンドボタンを１コ追加して

Private Sub cmdTop_Click()
Dim i As Integer
Dim iCount As Integer

iCount = 0
With lstTabIndex
For i = (.ListCount - 1) To 0 Step -1
If (.Selected(i) = True) Then
.AddItem .List(i), 0
.RemoveItem i + 1
iCount = iCount + 1
End If
Next i
For i = 0 To (iCount - 1)
.Selected(i) = True
Next i
End With
End Sub

とかやってみたんですが、選択項目が連続していると
順番が入れ替わったりするのです。

どうか教えてほしいのです。

762 ：デフォルトの名無しさん：02/02/07 18:42

>>761
内部でソートして、全部きれいに入れ直すのが吉
頑張ればできるかもしれないが、誰にもメンテできない難解なソースに
なるのが関の山。

763 ：デフォルトの名無しさん：02/02/07 20:00

>>735
いや、この書き方が正式にサポートされているのか、裏技なのか
知りたいのですが。
昔は c$=chr$(&h22) っていうのをくっつけたもんだが。

764 ：761：02/02/07 21:15

>>762
それもそうですね。
なんとかエレガントなコードを、とか考えてたですが、
少々野暮ったくても確実に動く方がいいですね。

ありがとうです。

765 ：デフォルトの名無しさん：02/02/07 21:48

質問です
クリスタルレポートで帳票を出力するプログラムをやっているのですが
普通に出す分にはできたのですが、以下の２点ができないものかと悩
んでいます。

１、フォームにコントロールを貼り付けてレポートのプレビューを出して
　　いるが、プレビューを閉じるまでＶＢの方の処理を止めていたい。

２、クリスタルレポートのＤＢ（ｍｄｂ使用）の参照先パスを変更したい。

１はステータス、２はレコードソースを何とかすればいいのではとは
思っているんですが・・・・
ちなみにＶＢ６、クリスタルレポート６使用です。

766 ：名無しさん：02/02/07 23:14

エクセルＶＢＡを再度勉強しようと、
「かんたんプログラミングエクセル２０００ＶＢＡ基礎編(他にコントロール．関数編、応用編)、大村あつし著」技術評論社
を購入したんですが、アクセス(アクセスでのマクロ)でこの程度の本はありますか？

767 ：デフォルトの名無しさん：02/02/07 23:47

ActiveXコントロールのListviewコントロールを貼り付け、
ファイルリスト代わりに使っています。

主項目にファイル名、副項目にファイルサイズと更新日付を表示しています(以下のように)
　　　　' p(As String)はファイル名が入っている
　　　　Set lv = ListView1.ListItems.Add(, , p)
　　　　lv.SubItems(1) = (FileLen(p) / 1023) & "KB" 'ファイルサイズ
　　　　lv.SubItems(2) = Format(FileDateTime(p), "yyyy/mm/dd h:mm") '更新日付

つぎにカラムヘッダがクリックされるとソートされるように設定しました。

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)
　　　　ListView1.SortKey = ColumnHeader.Index - 1

　　　　' Sorted プロパティを真 (True) に設定してリストを並べ替えます。
　　　　ListView1.Sorted = True
End Sub

問題はファイルサイズで、SubItems(index)がString型のためソートすると以下のようになってしまいます。
（昇順）
100KB
150KB
1KB
55KB

なんとか数値型と見なしてソートしたいのですが、良い方法はないでしょうか？

768 ：デフォルトの名無しさん：02/02/07 23:57

1KB->0001KBとするとか。

769 ：デフォルトの名無しさん：02/02/08 00:00

>>767
ListViewのSort機能にやってもらおうと思ってたら無理。
場合によってはソートキーの前にスペース入れて
長さをそろえることによって済ませられるかもしれんが。
あるいは隠しカラムにソートできるデータを入れる。

770 ：デフォルトの名無しさん：02/02/08 00:22

>>768
それは真っ先に考えたのですが、やはりあまりにも見づらいかと思い断念しました。

>>769
＞場合によってはソートキーの前にスペース入れて
なるほど。試してみます。

＞あるいは隠しカラムにソートできるデータを入れる
これもよさげな案ですね。
隠しカラムとはどうすれば出来るのでしょう

771 ：７７０：02/02/08 00:42

とりあえずやってみました。

まず隠しカラム（width=0のカラム）を作る

　　　　Dim x As ColumnHeader
　　　　Set x = ListView1.ColumnHeaders.Add(, , "ファイル名", ListView1.Width / 3)
　　　　Set x = ListView1.ColumnHeaders.Add(, , "サイズ", ListView1.Width / 5, 1)
　　　　Set x = ListView1.ColumnHeaders.Add(, , "サイズ", 0, 1) '隠しカラム
　　　　Set x = ListView1.ColumnHeaders.Add(, , "更新日時", ListView1.Width / 4, 1)
　　　　ListView1.View = lvwReport

クリックされたColumnHeaderがファイルサイズの場合、SortKeyに2を代入

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As ColumnHeader)
　　　　If ColumnHeader.Index = 2 Then
　　　　　　　　ListView1.SortKey = 2
　　　　Else
　　　　　　　　ListView1.SortKey = ColumnHeader.Index - 1
　　　　End If
End Sub

実行してみたところ上手く動作しました・・・が、隠しカラムが列境界線ダブルクリックで
簡単に開いてしまうところが難点・・・

772 ：：02/02/08 00:50

>>771
ソートロジックを置き換えるメッセージがあるから、それを使って
独自のソートを行えばおっけー。日付型のソートを行うサンプルが
MSDNライブラリにあったはず。

773 ：７７０：02/02/08 00:55

>>772
ListviewのSortedプロパティを使わずにソートする、ということですか？
具体的にどうすればよいのでしょう？

774 ：デフォルトの名無しさん：02/02/08 01:30

>>761
' 拡張選択可で、選択項目を上に移動

Private Sub cmdTop_Click()
　　Dim i As Integer
　　Dim iCount As Integer
　　iCount = 0
　　With lstTabIndex
　　　　i = .ListCount - 1
　　　　Do While i > 0
　　　　　　If .Selected(i) = True Then
　　　　　　　　.AddItem .List(i), 0
　　　　　　　　.Selected(0) = True
　　　　　　　　.RemoveItem i + 1
　　　　　　　　iCount = iCount + 1
　　　　　　Else
　　　　　　　　i = i - 1
　　　　　　End If
　　　　　　If i = iCount - 1 Then Exit Do
　　　　Loop
　　End With
End Sub

775 ：デフォルトの名無しさん：02/02/08 02:32

ListBoxのチェックを、
デフォルトでチェックしている状態にするには、どうしたらいいんでしょうか。
初歩的なことかもしれませんが、
知っている人がいたら教えてください。

776 ：デフォルトの名無しさん：02/02/08 02:42

>>775
上にヒントがある。
っていうか、ヘルプでリストボックスのプロパティ全部見れ！

777 ：775：02/02/08 02:52

補足。
Styleプロパティ？で、
チェック項目の表示の仕方はわかったんですが・・・

778 ：デフォルトの名無しさん：02/02/08 06:30

チョー基本的な質問で大変申し訳ないが……

VB6って、フレームの中にラベル貼り付けられないの？(^^;
今、ラベルとコンボボックスを一緒にカット＆ペーストしたら、コンボボックスは中に入ってラベルは下に隠れるっつー奇怪な動作をした。
VB4や5はこんな動作しなかったよーな記憶があるんですが、なんか設定、見落としてますかね？(^^;

779 ：775：02/02/08 07:39

>>776
分かりません。
どのプロパティーを使うかだけでもいいんで、
教えてください。
教えて君でｽﾏｿ。

780 ：：02/02/08 08:29

>>773
だから、MSDNライブラリ見ろ、って言ってんのに。Knowledge Baseで
↓のトピックだよ。

HOWTO: Sort a ListView Control by Date
Q170884

781 ：775：02/02/08 08:31

解決しました。
知識ある方々、迷惑をおかけして申し訳ありませんでした。
これからは、なるべく自分で解決するように努力します。
というわけで、sage。

782 ：デフォルトの名無しさん：02/02/08 09:13

始めて一ヶ月程度の者ですが
クラス、コレクションの使い方を覚えるのに良い本はありますか？

783 ：：02/02/08 10:20

>>782
ヘルプ見てサンプル作れ。で、わかんなかったら、再度質問。

784 ：778：02/02/08 10:50

……ダメだ、どーしてもラベルコントロールがフレームの中に入らない。下に隠れてしまう。

なんで？　どうしてこんな動作するんだ？(^^;　どこぞプロパティ設定し忘れてるのか？　でもデフォルトのまんまだぞ(T_T)

785 ：超初心者：02/02/08 10:59

ある関数において、コントロール名とプロパティを引数にしたいのですが
型指定はどのように指定すればよいのでしょうか？

#テキストボックスならば TXT**.Text 、ラベルなら LBL**.Caption と
#いうように使い分けたいのです

786 ：Midnight：02/02/08 11:06

>784
新規プロジェクト作成→
　フレーム、ラベル、コンボを作成→
　　ラベルとコンボを切り取り→
　　　フレームをクリックし、貼り付け

ってやってみたが、普通にフレームに載ったよ。
当方VB6SP5。

787 ：778：02/02/08 11:09

>>786
……ねぇ(^^;　
VB6は初めてだけど、VB4でも5でもこーやって作ってきたのに……
何が原因なんだろ？

788 ：デフォルトの名無しさん：02/02/08 11:13

>787　OSから再インストールを推奨（ｗ

789 ：778：02/02/08 11:14

>>788
……おひ(^^;

790 ：：02/02/08 11:15

>>785
無理。Object型で渡して、関数側で型判断するしかない。

791 ：778：02/02/08 11:19

……もしかして、ユーザーコントロールの編集してることに関係してるのかな？
もはや、そのくらいしか原因が思いつかない……。

792 ：デフォルトの名無しさん：02/02/08 11:26

>791
フレームをクリックで選択してから貼り付けてるか？
繰り返すが「フレームをクリックで選択してから」貼り付けてるか？

793 ：超初心者：02/02/08 11:31

>790
そうなんですか。ありがとうございます。

794 ：778：02/02/08 11:34

>>792
……もちろん……と、思い立って、ラベルを一枚だけカット＆ペーストしてみたら……ちゃんと入った。

<Font Size="+5">なんだこの動作は！！</Font>

795 ：デフォルトの名無しさん：02/02/08 11:43

漏れもｺﾋﾟﾍﾟすると裏に回るときがよくある
それ以来ｺﾋﾟﾍﾟやめた

796 ：デフォルトの名無しさん：02/02/08 11:53

すいません。厨房質問ですがお願いします

半角全角の混じったファイルをgetで読んでいます
space(5)を放り込んだ可変長文字列に読み込んでいるんですが、
5文字分読み込まれてしまいます。
getのHelpには
「文字列変数の持つ値の文字数と同じバイト数を読み込みます。」
とあるんですが、何かを勘違いしているんでしょうか？
VB5です

797 ：761：02/02/08 13:28

>>774
おお、動いた。
ありが㌧です。

798 ：778：02/02/08 13:30

>>795
しかし、コンボボックスだけ張り付く（しかも複数）っつーのがよくわからん(^^;

799 ：デフォルトの名無しさん：02/02/08 14:40

MSFlexGrid内の項目をテキストボックスの用に入力できるようにすることはできますか？
プロパティで探したのですが､分かりませんでした。
SPREADではできるのですが､FlexGridはできないのでしょうか？

800 ：デフォルトの名無しさん：02/02/08 14:44

>796
単に、私がDQNなだけなのか、質問の意味がよく理解できないです。
GETでどうしたいわけ？
space(5)の部分は読み込ませたくないの？

801 ：デフォルトの名無しさん：02/02/08 14:50

>>796
5文字分のスペースが入ってるから5文字分読まれてる・・・正しいと思うけど。

802 ：800：02/02/08 14:50

>>799
MSFlexGridは、表示機能だけでセルに入力できなかったはず。
よって、MSFlexGridだけではセルに入力することは無理。
でも、入力は、TEXTコントロールなどを利用すればできるよ。

803 ：774：02/02/08 14:59

>>761
こっちのほうが可読性がいいかも。

Private Sub cmdTop_Click()
　　Dim i As Integer
　　Dim iCount As Integer
　　iCount = 0
　　With lstTabIndex
　　　　For i = 0 To .ListCount - 1
　　　　　　If .Selected(i) = True And i <> iCount Then
　　　　　　　　.AddItem .List(i), iCount
　　　　　　　　.Selected(iCount) = True
　　　　　　　　.RemoveItem i + 1
　　　　　　　　iCount = iCount + 1
　　　　　　End If
　　　　Next
　　End With
End Sub

＃　i <> iCount 条件が無くても結果は同じだけど、
わざわざ同じ位置に挿入して削除するのはムダだから。

804 ：796：02/02/08 16:29

すいません。Binaryでopenしていることを書き忘れていました

>>800さん
可変長文字列でバイト指定で読みこみたいのです

>>801さん
5文字のスペースが入っていると5バイト分読みこんでくれる、と思ったのです
Helpを
「文字列変数の持つ値の文字数と同じバイト数を読み込みます。」
でなくて、
「文字列変数の持つ値の文字数と同じ文字数を読み込みます。」
と読めばいいのでしょうか？

Byteの動的配列をRedimして使えば良いのはわかったんですが、Helpが気になったもので……

805 ：ぐち：02/02/08 16:32

IsDateに年無しで秒までの日時("2/8 16:30:30")渡したら実行時エラー起こした。
チェックする為の関数のエラーで落ちる悲しさって...

ｽﾚ違いｽﾏｿ下げ

806 ：799：02/02/08 16:47

>802さん
やっぱり表示のみですか､ありがとうございました。

807 ：vberr ◆P/ECE33A ：02/02/08 17:34

>>804
素直にバイト配列使えー。

Dim ff%,txt$
Dim stemp() as byte

redim stemp(5)

ff=freefile
Open "hogehoge.txt" for binary access read as #ff
get #ff,,stemp
close #ff

txt=strconv(stemp,vbunicode)

動作チェックしてねーけど多分動くハズ
syntax error あったら自分で修正して(w

ただこれだと全角文字は半分で切れちまうがいいのか?

808 ：vberr ◆P/ECE33A ：02/02/08 17:48

>>807
って、>>804
> Byteの動的配列をRedimして使えば良いのはわかったんですが
解ってたのね. …早とちり(ﾟдﾟ)ﾏｽﾞｰ

VB5以降は内部的に文字列をUnicodeで扱っちゃうから基本的に文字列の
カウント関する挙動は「バイト数」じゃなくて「文字数」だぁね.
LenB("A") とかしても2バイトが帰ってくる.

なので、その挙動は仕様です :-

809 ：796：02/02/08 18:07

>>808
どもです
Helpのバイト数とあったのを見て勝手に変換してバイト数の計算でもしてくれるのかと妄想してました

やっぱりVB嫌い固定長も嫌い……
#ひたすらtimeout、、多重投稿になってたらすいません

810 ：デフォルトの名無しさん：02/02/08 18:20

スレ違いかもしれませんが88ベーシックのフロッピーの
フォーマットのコマンドを知っている方いませんか？
ネタじゃないです・・・まじで・・・

811 ：デフォルトの名無しさん：02/02/08 21:28

三角形を描いて、その中を塗りつぶすにはどうしたらよいのでしょうか？
Lineを使って三角を書くことはできるのですけど塗りつぶす方法が分かりません。

単純な質問で申し訳ないです。

812 ：デフォルトの名無しさん：02/02/08 21:33

マルチでごめんなさい、急いでるんです～

アクティブレポートの改ページについて教えてチャンです。
改ページの条件をIF文で指定することはできますか？
改ページのキーをどこに設定するかもわからないんですが、
よろしくお願いします

813 ：デフォルトの名無しさん：02/02/08 21:36

>>811
http://www.google.com/search?q=vb+%93h%82%E8%82%C2%82%D4%82%B5&hl=ja&lr=

814 ：813：02/02/08 21:38

>>811 こっちも
http://www.google.com/search?num=100&hl=ja&q=vb+%93h%82%E8%82%C2%82%D4%82%B5%81@floodfill&lr=

815 ：デフォルトの名無しさん：02/02/08 22:00

>>813
ありがとうございます。
FloodFillを使って塗りつぶしできました。
FillStyleとFillColorに値を設定しなければいけなかったとは。

816 ：デフォルトの名無しさん：02/02/08 23:11

>>804
バイト数を指定云々は英文ヘルプからの直訳というだけであって、
1バイト文字文化圏では、内部Unicode化による混乱とは無縁。
日本語化にともなってこういう食い違いが起きることは仕方がない。

817 ：今更Basic：02/02/08 23:25

あのさ、VBって由緒正しいMS-Basicの流派だよね？
なんで
n=10 : print Format(n , "Value = [#####] )
が Value=[ 10]
じゃなくてValue=[10]ってなるの？　Helpには確かにケタが足りない時には#には何も
入らないってなっているが、それじゃ####の意味が無かろう。

そもそも
print " A B C"
print using "### ### ###" , a , b , c
ってケタを揃えられるっていうのがBasicのいい所だったのにぃ。

818 ：デフォルトの名無しさん：02/02/08 23:34

＞817
スペースでケタ揃えは、こうすればできる。
Print Format(n , "Value = [@@@@@] )

基本的には同感。

819 ：デフォルトの名無しさん：02/02/09 01:12

VBAでファルダを作成したいのですが？
８００ページも有る本にも載ってませんでした。。

820 ：Delフサギコ：02/02/09 01:22

　 ∧,,∧　　　／すみません...
　ミ,,ﾟДﾟ彡　＜　ASPのVBScriptで
　 U　 U　　　　＼DLLかActiveXDLLかを
～ﾐ　　ﾐ　呼び出す方法についてくわしい書籍か
　 ∪∪　　サイト、教えてもらえんでしょうか…

DLL側はC++でもVBでもなんでもいいので
ごくごく簡単なｻﾝﾌﾟﾙプログラムを動作させたいっす。

よろしくお願いします。

って、スレ違いかもしれないのですが、VBScriptスレ
ないみたいなので。

821 ：デフォルトの名無しさん：02/02/09 01:43

特定のウィンドウを非表示にしたり表示したりする機能のあるツールを作りたいんですが、
現在そのウィンドウがが表示中か非表示中なのかを取得する方法がわかりません。

えーと、今はFindWindowで消したいウインドウのハンドル取得して、
ShowWindowで消したり表示したりしてるんですが、
今はこれが表示ボタンと非表示ボタンがある状態です。

これを、非表示なら「表示」ボタンにして、表示されてるなら「非表示」ボタンにして、
ボタン一個ですませたいんです。

というわけで、ウインドウが表示されてるか非表示なのかを取得したいんですが、
どうすればいいのでしょうか。

822 ：デフォルトの名無しさん：02/02/09 02:22

GetWindowPlacement

823 ：デフォルトの名無しさん：02/02/09 02:37

>821
最小化されてるか知りたいん？

824 ：デフォルトの名無しさん：02/02/09 03:16

>>820
Server.CreateObjectを使ってActiveXDLLを使うYO
VC+ATLで作った物を使うときは、IDispatchインターフェイスを持たせたものを作らないといけないらしいYO
VCかVBで普通にActiveXDLLを作れば問題無いYO

http://www.zdnet.co.jp/help/howto/win/win2000/0007complus_vb/chap08/28.html

825 ：デフォルトの名無しさん：02/02/09 03:57

>>823
「ShowWindowで消したり表示したりしてるんですが」って言ってるんだから、
最小化とか関係ないのでは？

826 ：デフォルトの名無しさん：02/02/09 04:27

>>821
APIのそのものすばり、IsWindowVisible

827 ：デフォルトの名無しさん：02/02/09 04:56

>>819
VBA にも MkDir が、あるはずだけど。

828 ：VB大好き教えて：02/02/09 08:11

http://game.2ch.net/test/read.cgi/fly/1013090043/l50
こんなのどう？

829 ：デフォルトの名無しさん：02/02/09 13:16

>>828
結構まともに進行しているスレでそういったジョークは寒いな

830 ：デフォルトの名無しさん：02/02/09 13:34

最近はやってるなぁ。
いっつも思うんだが、「騙されて見に行く」んじゃなくて、
「本当かどうか確かめに行く」だけなんだから、
騙されてるわけじゃねえよって感じだ。

831 ：名無しさん：02/02/09 14:45

反応してる時点でどうかと

832 ：デフォルトの名無しさん：02/02/09 15:51

見られなかった。＞282

833 ：Delフサギコ：02/02/09 16:19

　　 ∧,,∧ 　　　　／￣
　　ミ*ﾟ∀ﾟ彡　　＜　>>824さん
　　ﾐつ且~~　　　＼＿ありがとうございます。
～ﾐ,,,,,,　,,ﾐ　URLまでわざわざ。サンクスコ

来週頭にでも、会社にいって試してみます。
VBScriptでは機能が足りないので
VBでIISアプリしようと思っていましたが
どうも、ﾃﾞｨｽﾄﾘﾋﾞｭｰｼｮﾝが難しくて
使いづらいので、VBScriptでやってみようかと
思うてるです。

834 ：821：02/02/09 18:41

>>826
思い通りに動きました。
どもありがとうございました。

835 ：デフォルトの名無しさん：02/02/09 19:23

どうやったらVBマスターできますか？

836 ：ﾅﾅｼｻｿ：02/02/09 19:29

プログラム始めようと思うのですが、
VisualBasicでいいのか迷っています。
ネットワーク関連の操作等はVBでいいのでしょうか？
お願いします。

837 ：Ｍ ◆6ucuH7Ng ：02/02/09 19:38

すいませんちょっと教えてください。
ただ今VBでチャットの様なプログラムを作っているのですが、Winsock.ocx
を使ってリモートに接続し、リモート側をwinsock.closeで切断しても、ソケットがすぐに破棄されず、
TIME_WAITで残ってしまいます。このため、切断してすぐに同じポートに接続しようとするとソケットエ
ラーではじかれてしまいます。これは仕様なんでしょうか？

838 ：デフォルトの名無しさん：02/02/09 19:56

前もネットワーク～の方で説明したが、TIME_WAITに限らず、
ソケット扱うなら、一通りよんどけ。
http://www.kt.rim.or.jp/~ksk/sock-faq/unix-socket-faq-ja-2.html#ss2.7

＞切断してすぐに同じポートに接続しようとするとソケットエラーでは
クライアントのソケットをポート指定で作っていないかぎり、こんな
エラーは起こらないはずだが。

839 ：デフォルトの名無しさん：02/02/09 20:43

>836マルチやめれ

840 ：Ｍ ◆6ucuH7Ng ：02/02/09 20:49

>>838
＞クライアントのソケットをポート指定で作っていないかぎり、こんな
＞エラーは起こらないはずだが。

どうやらこれのせいっぽいです。P2Pプログラムを作っているのですが、
自分がサーバーからクライアントに変わる時にlocalportを0にするのを
忘れてました。（汗；）

841 ：デフォルトの名無しさん：02/02/10 02:35

ageるぞｺﾞﾙｧ

842 ：デフォルトの名無しさん：02/02/10 03:00

.NET Frameworkってどこで手に入れるんですか？
パッケージで売っているの見たことがないんですけど、
雑誌とかでは大々的に取り上げてますよね？
どこで買えばいいのでしょうか？

843 ：デフォルトの名無しさん：02/02/10 03:04

>.NET Frameworkってどこで手に入れるんですか？
MSサイトで無料でダウンロードできるよ。でかいけど。
製品版の日本語版はまだ出てません。
雑誌等で取り上げてたのは、Beta版

844 ：デフォルトの名無しさん：02/02/10 03:32

下のようなコードで、TEXT1に入力したテキストを、Enterキーを
押下した際にTEXT2にそのまま貼り付けるようにしています。この
時、TEXT1の内容は ”” でクリアすることにしているんですが、
なぜか最上段にカーソルが来ません（必ず2段目に来ます）。
クリアの際に、常に最上段にカーソルが来るようにするためには、
どうすればいいのでしょうか。よろしくご指導ください。よろしくお願い
します。

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = vbKeyReturn Then

Text2.Text = Text2.Text + Text1.Text
Text1.Text = ""

End If

End Sub

845 ：デフォルトの名無しさん：02/02/10 03:42

ユーザフォームを表示した時、エクセルシートを操作出来ませんが、
モードレスは、エクセル９７では、指定出来ないのでしょうか？

846 ：デフォルトの名無しさん：02/02/10 03:55

>>843
そうなんですか、ありがとうございました。

847 ：デフォルトの名無しさん：02/02/10 04:03

>>844
Text1.Text = ""
の直後に
KeyAscii = 0
を入れるべし。

今の状態だとText1を空にした後、Enterキーの入力がText1に入るので、
改行された状態になる。

848 ：844：02/02/10 13:09

>>847

レスありがとうございます！多謝です。さっそく試してみましたが、見事
うまくいきました。

助かりました。ありがとうございました m(_ _)m

849 ：ぱるぷんて：02/02/11 23:02

レベルの低い事聞いて申し訳ないのですが,フォームの右端にきたら、左方向へ移動。
フォームの左端にきたら右方向へ移動しなさいという問題なのですが,
Dim ax As Integer

Private Sub Form_Load()
ax = 100
End Sub

Private Sub Timer1_Timer()
Image1.Left = Image1.Left + ax
If Image1.Left >= Form1.ScaleWidth - Image1.Width Or Image1.Left <=0 Then
ax = -ax
End If
End Sub
では、うまくいくのですが、

Private Sub Timer1_Timer()
dim ax as integer
ax = 100
Image1.Left = Image1.Left + ax
If Image1.Left >= Form1.ScaleWidth - Image1.Width Or Image1.Left < 0 Then
ax = -ax
End If
End Sub
だとうまくいきません。これはなぜですか？タイマーイベントだと宣言はgeneral declarationsでしなければならい
とか、この場合axなどの初期値はform loadに書かなければならないという決まりがあるのでしょうか？

850 ：：02/02/11 23:06

>>849
あのさ、axを毎回100で初期化しちゃだめでしょ？そゆこと。

851 ：デフォルトの名無しさん：02/02/11 23:07

>>849
タイマーイベントが呼び出されるたびにaxに100が代入されてるので
ax=-axというのが意味なしおちゃんになります。

852 ：ヤン：02/02/11 23:26

>>850さん、851さんすみません、ありがとうございます。
さらにしつもんなのですが、axの宣言はgeneral declarationsでないといけないのですか？
form loadやtimerに宣言するとなぜ駄目なのですか？
なんどもレベルの低い質問ばかりで申し訳ありません.

853 ：デフォルトの名無しさん：02/02/11 23:35

>>852
Form_Load で宣言すると、Timerで使えない。逆もしかり。
が、冒頭＝外で宣言すると、どのプロシージャからも使える。

854 ：デフォルトの名無しさん：02/02/11 23:44

VBでｳｲ○ｽを作ったのですが、自分のマシンでﾃｽﾄ実行してみたら
感染しました！どうやったら取り除けますかっっ！

855 ：デフォルトの名無しさん：02/02/11 23:56

＞854
駆除ソフトをVBで作れ！

856 ：デフォルトの名無しさん：02/02/12 00:02

>>855
駆除ソフトの作り方がわかりません。
ｳｲﾙｽがなんか異常な動きを見せていますっっ！！！

857 ：デフォルトの名無しさん：02/02/12 00:08

＞856
「VB用のDLLを削除しろ！」と言わせたいわけ？(笑)

858 ：デフォルトの名無しさん：02/02/12 00:15

いま削除しました。ふぅ～っｳｲﾙｽ作っても自機で試すなって
ことですね。ﾌﾑﾌﾑ
あ、>>857氏ありがとうございました。
みなさん以後お気をつけくだｓ

859 ：反省：02/02/12 00:28

オチが予想できたわりには、ツッコミが平凡だった。

860 ：名無しさんです：02/02/12 01:01

>>859
いや、君はかまってあげただけやさしいヨ

861 ：デフォルトの名無しさん：02/02/12 01:25

なんてハートフルなスレなんだ…。
目頭が熱くなってコーディング出来ないヨ

862 ：デフォルトの名無しさん：02/02/12 09:31

テキストボックスを貼り付けたユーザコントロールを、コントロール配列にしています。
そのテキストボックスに行数・桁数での制限を設けたいのですがうまくいきません。
・1行の文字数（桁数）を超えた行には自動で改行を入れて次の行へ
・半角は1バイト・全角は2バイトとする
・折り返す行数・桁数は任意に指定できる
・行数の制限を超えた場合は制限を越えたテキストを引数に入れたイベントを出す（次のテキストボックスにそれを入れる）

ここで一番問題なのは、半角は1バイト・全角は2バイトとして計算したいことです。
内部的にUnicodeなのでEM_LINEINDEXやEM_LINEFROMCHARがうまいように値を返しません。
InStr(0,Text1.text,vbcrlf,vbTextCompare)とかやれば改行の数=行数はわかるのですが・・・

863 ：デフォルトの名無しさん：02/02/12 09:34

みなさん、初めまして

PictureBoxに APIのCreateFont,CreateFontIndirectなどを使用して
フォントを出力（表示）させているのですが、
その際に、背景色を透過にできないでしょうか？

よろしくお願いします　m（＿＿）m ペコリ

864 ：デフォルトの名無しさん：02/02/12 11:04

Crystal Reportsについて教えて下さい。

詳細行の繰り返しで５０行出力しているのですが、
１０行毎に罫線の太さを変えたいです。
データには連番を持っているのですが、
どのようにやったらよいのでしょうか？

どなたか教えて下さい。

865 ：超初心者：02/02/12 11:37

ラベルとラベルのキャプションの間隔が狭くて見苦しいのですが。
あれ、どうにかならないのでしょうか？
しょうもない質問ですみません。

866 ：デフォルトの名無しさん：02/02/12 12:25

>>862
＞1行の文字数（桁数）を超えた行には自動で改行を入れて次の行へ
フォントを固定幅にして、テキストボックスのサイズを桁数に合わせ、
物理改行させてしまう案はどう？

＞折り返す行数・桁数は任意に指定できる
スクロールバーさえ付けなければ楽なんだけど。

＞半角は1バイト・全角は2バイトとして計算したい
定番だけど　　　LenB(StrConv(strBuf, vbFromUnicode))
これから改行コードのバイト数　Len(strBuf) - Len(Replace(strBuf, vbCrLf, ""))
を引き算するとか。これを2で割って、1を足せば論理行数になる。
それに桁数を越える行の数を足せば、物理行数になる。

＃半角2バイト文字は、入力時に拒否または自動変換するのかな。

867 ：デフォルトの名無しさん：02/02/12 12:26

>>863
もしFontTransparentな設定とかが出来ないなら、シコシコやるしかない。
不可視の作業用PictureBoxにフォントを描いて、GetPixel→PutPixelする。

表示範囲が大きい時はマスク合成するほうが高速。作業用PictureBoxに白地に黒で描き
vbSrcAndでPaintPictureした後、黒地に希望色で描きvbSrcInvertでPaintPicture。
もちろん、BitBltでもオッケー。

868 ：デフォルトの名無しさん：02/02/12 12:28

>>865
前にスペースを入れたら？
または、中央寄せにするとか。

869 ：デフォルトの名無しさん：02/02/12 12:53

>>863
SetBkModeでTRANSPARENT、かな。

870 ：865：02/02/12 13:24

>868
それくらいしかないんでしょうか。
垂直の配置もせめて上、中、下と変えられればいいんですが...。

とりあえず、下だけ空いてるよりは上も下も空いてない方がマシなんで、
その方向で対処します。
お返事ありがとうございました。

871 ：デフォルトの名無しさん：02/02/12 13:59

FTPソフトを作っているのですが、
接続した時に、サーバー上のファイルの更新日時を表示したいのですが、
全ての時間が1980-01-01で表示されてしまいます。
何が原因なのでしょうか？

' リモートファイルの日付を格納
FileTimeToSystemTime FileInfo.ftLastWriteTime, SysTime

RemoteFile.FileDate = CDate(SysTime.wYear & "/" & SysTime.wMonth & "/" &
SysTime.wDay & " " & _
SysTime.wHour & ":" & SysTime.wMinute & ":" &
SysTime.wSecond)

あと、漢字コードを取得時に変更したいのですが、
変更するための方法を教えてください。

872 ：ももまん：02/02/12 17:04

ＶＢＡで、ダイアログボックスを表示して、【名前を付けて保存】する命令があるんでしょうか？
お願いしますっ！！！　誰か答えてぇっ！！　m(^^;)m

873 ：デフォルトの名無しさん：02/02/12 17:26

>872　コモンダイアログコントロールを使う。

874 ：ももまん：02/02/12 17:30

返事ありがとうございます。。。が、もう少し詳しく教えてくださいませんか？

875 ：デフォルトの名無しさん：02/02/12 18:53

DBのデータを固定長のTEXTファイルに書き出したいのですが簡単な方法ってありますか？
例
　　　　AA　　 bbbbbb　 ccccd　123456
　　　AAAA　　 bbbb　ｃ 1234567

876 ：875：02/02/12 18:55

↑例　がずれました気にしないで下さい

877 ：デフォルトの名無しさん：02/02/12 18:56

>875
Print # を使う(詳細はヘルプ見て)。

878 ：デフォルトの名無しさん：02/02/12 19:11

>875
DB自体に固定長ファイルへの出力機能が備わっているケースも多々あり

879 ：デフォルトの名無しさん：02/02/12 20:59

>>874
ヘルプみたら一発だと思うよん。
あと、検索かけてみても引っかかったよ。
http://www.google.co.jp/search?hl=ja&ie=utf8&oe=utf8&q=VB%E3%80%80%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E5%90%8D%E3%82%92%E4%BB%98%E3%81%91%E3%81%A6%E4%BF%9D%E5%AD%98&btnG=Google+%E6%A4%9C%E7%B4%A2&lr=

880 ：デフォルトの名無しさん：02/02/12 21:51

>>870
ラベルを２つ使う。
枠だけのと枠なし背景透過のと２つ。

881 ：デフォルトの名無しさん：02/02/12 22:21

PHPで作ったWEBサイトをVBで呼び出したいのですが、
どうしたらいいのでしょうか。
ていうか、VBのボタンコントロールをクリックしたら、
IEが立ち上がって特定のサイトが開くだけでいいのですが・・。

882 ：デフォルトの名無しさん：02/02/12 22:40

>>881
shell "IEのフルパス" & " " & "開きたいＵＲＬ"

883 ：デフォルトの名無しさん：02/02/12 22:44

>>881
Googleで「VB IE 起動」
http://www.google.co.jp/search?hl=ja&q=VB+IE+%8BN%93%AE&btnG=Google+%8C%9F%8D%F5&lr=

上から３番目か・・・

884 ：デフォルトの名無しさん：02/02/12 23:07

>587>883　君さりげなくいい人（ｗ

885 ：862：02/02/12 23:18

MultiLine=TrueのテキストボックスText1を置いて
Private Sub Text1_Change()
Debug.Print (LenB(StrConv(Text1.Text, vbFromUnicode)) - _
(Len(Text1.Text) - Len(Replace(Text1.Text, vbCrLf, ""))))
End Sub
と記述したのですがこれで得られるのは改行を抜いたANSI換算での文字数ですよね？

ちなみにlstrlenってAPI使えば全角2バイト、半角1バイトでの文字数を返せるのがわかりま
した。

＞スクロールバーさえ付けなければ楽なんだけど。
横スクロールバーは付けなくていいので見かけ上折り返すことはできるんですよ。
ただ、物理改行ができないので・・・

＞フォントを固定幅にして、テキストボックスのサイズを桁数に合わせ、物理改行させてし
まう案はどう？
これですが、テキストボックスのサイズを桁数に合わせて物理改行するやり方がよく分かり
ません。
フォントを固定幅にするのはOKです。

本当に申し訳ありませんがもう少しヒントをお願いします・・・

＞865
Printを使ってテキストを自前で描画するラベルコントロールもどきをユーザコントロールで
作ってみるのはどうでしょう。
UserControl.CurrentYを外部から設定可能できるようにして。

886 ：デフォルトの名無しさん：02/02/13 00:00

>>870
３行分の高さにして、先頭にvbCrを付けるのは簡単に出来る。
さらに凝って微調整したい人はラベルonラベル、PictureBoxを使う。

>>871
いったんLocalTimeに変換してから、SystemTimeに変換する。
漢字コードの変換は、nkf32.dllを使うのが超定番。

887 ：デフォルトの名無しさん：02/02/13 00:04

>>885
＞改行を抜いたANSI換算での文字数ですよね？
文字数じゃなくて、ずばりバイト数ですよ。
改行を引かなければ、lstrlenと同じになるはず。

＞ただ、物理改行ができないので・・・
見かけ上の折り返しを物理行と言います。
逆に使ってる人もけっこういるらしい
http://www.ht.sakura.ne.jp/~delmonta/emacs/16.txt

888 ：881：02/02/13 00:19

>>882-883
神

889 ：デフォルトの名無しさん：02/02/13 00:28

Windows98なんですけど
スタンバイモードに一度入ってから復帰すると
起動中だったVBのアプリでBitBltなどの描画が著しくスピード落ちるんですけど
これは、どうにかならないかしら？
画面のプロパティでスクリーンの解像度変更したら元に戻ること知ったので
ChangeDisplaySettingsExで実際には解像度変更しないでリフレッシュしたら
うまくいったんだけど
なんか納得しない
ビデオのドライバ固有の問題かしら？

890 ：デフォルトの名無しさん：02/02/13 00:30

>ビデオのドライバ固有の問題かしら？
とか言いながら、ビデオカードが何だか言ってないじゃん。

891 ：862：02/02/13 00:33

>>887
あ、ほんとですね(苦笑)
よく分かっていませんでした(^^;

＞見かけ上の折り返しを物理行と言います。
＞逆に使ってる人もけっこういるらしい
これも逆に使ってました(^^;
メモリ上の物理的な配置に由来するから「物理」行なんですね・・・

inStr関数でvbcrlfの位置を検索して、見かけ上の1行の取得はなんとかできました。
ただ、それの途中で文字を区切る処理がうまくいかないんです。
たとえば
aaaあ
を（半角換算で）4桁で区切るとします。4バイトとは言っても実用上
aaa
あ
となって欲しいのですが（こういう処理なんて言うんでしたっけ？）
バイト配列にテキストを放り込んでMidB関数で分けちゃうと、「あ」という2バイトの文字を強引に分割してしまうためにaaaの後の文字が文字化けします。
これを回避するにはどうすれば良いのでしょうか・・・
本当に何も分かっていなくて申し訳ありません。

892 ：デフォルトの名無しさん：02/02/13 00:47

MSProjectでＶＢＡ組んでいるのですが・・・
「固有ＩＤが「n」（注：ＩＤではない）のタスクを選択する」というのを
実現させるコード、わからないでしょうか？
（フィルタ使わないで。。。）
＃MSProjectでVBAなんて人いないかな・・・

893 ：デフォルトの名無しさん：02/02/13 00:50

チャットソフトを作っています。そこで、2つ分からない点について質問
させてください　m(_ _)m

1）MSNメッセンジャーのように、メッセージを追加するたびに、最下段
　を表示するにはどうしたらいいのでしょうか。

2）ユーザーごとに、メッセージの色分けをするにはどうしたらいいの
　でしょうか。リッチテキストボックスを使えばいいのではと思っている
　のですが、.selcolorでもうまくいきません・・・・・。また、HTMLでやれ
　ばできてしまうと思うんですが、こちらは一つのセリフを追加するた
　びに全部を読み込みなおさなければならないので、今ひとつスマー
　トさに欠けるように思います。

以上、よろしくお願いします。

894 ：デフォルトの名無しさん：02/02/13 00:55

特定のフォントのある文字の幅を取得する方法はないですか？
たとえば、今私が書いたこの文章は多くの人がIEを使って、
MS Pゴシックの12ポイントで見てると思いますが、
この環境で「あ」という文字は11ドットで、「,」だと3ドットで、「」（半角スペース）だと5ドットですよね。
こういうのを取得する方法が知りたいです。
ラベルコントロールのautosizeをtrueにして調べたいフォントに設定してcaptionに調べたい文字、
そしてwidthプロパティ見れば取得はできるんですが、
なんだかとってもカッチョわるいんで、コードだけで取得したいです。

895 ：デフォルトの名無しさん：02/02/13 01:00

すいません。
サンプルをコピーしただけなのですが、
上手く動きません。
よろしくお願いします。
http://www.geocities.co.jp/SiliconValley-Cupertino/4003/

896 ：デフォルトの名無しさん：02/02/13 01:01

>>893
1）は
txtLog.SelStart = Len(txtLog.Text)
txtLog.SelLength = 0
txtLog.SelText = "追加したい文字" & vbCrLf

ってな感じでいけると思う。
ただ、これだといつかオーバーフローするので、
一定文字数になったら昔のは破棄するようにしないとだめ。
If Len(txtLog.Text) > 10000 Then txtLog.Text = Right(txtLog.Text, 9000)
こんな感じかな。

897 ：デフォルトの名無しさん：02/02/13 01:13

>>891
指定バイト位置を見て、シフトJISの第１バイトだったら、改行を挿入。

>>893
２はPictureBoxでPrint使えば？　色変えられるから。
１はメッセンジャー使ってないので、意味がわからない。

>>894
TextWidthプロパティ

898 ：デフォルトの名無しさん：02/02/13 01:13

FormやPictureBoxのTextWidth、TextHeightメソッドでわかりますよ。

899 ：897：02/02/13 01:18

あ、メソッドだったのね。

900 ：デフォルトの名無しさん：02/02/13 01:28

ふつー、GetTextExtentPoint32 APIつかわないかね？

901 ：898：02/02/13 01:54

>>900
VB的には別にふつーってこともない。

このAPIも挙げようかと思ったけど、
GetとExtentの部分しか思い出せずに検索したけど関数名がわからんかったよ(恥

902 ：894：02/02/13 02:23

>>897-901
どもありがとうございます。
思い通りに動きました。
感謝。

903 ：893：02/02/13 02:47

>>896さん、>>897さんレスありがとうございました！
さっそく試してみたいと思います。勉強になりました。
多謝m(_ _)m

904 ：名無しさんです：02/02/13 03:47

らるち～のような、デスクトップやマイドキュメントのアイコンを
クリックしたら、DirListBoxが自動でそのパスに移動する、
ってのはどうやってやってるのでしょう？

905 ：デフォルトの名無しさん：02/02/13 04:13

>>889
>>890
だって～んドライバまでいくと
ＶＢではどうしようもないでしょ～
RIVA128ZX 8MBね～古ッ
開発環境はこれでいいのだヽ(^。^)丿

906 ：デフォルトの名無しさん：02/02/13 04:39

>>904
Pathプロパティにデスクトップのパスとか突っ込んでるだけでしょ。

907 ：デフォルトの名無しさん：02/02/13 05:54

こんにちわ。
もしよろしければ教えて頂きたいことがあります。
MoveToEx～LiniToまたはMoveToEx～PolylineToで描いた一本の直線
をキーボードのボタンを押す事で、右回転、左回転させたいと思っています。
（時計の針みたいに）
簡単に作れるようでしたら、迷惑でなければ、プログラムの書き方を
教えて頂きたいと思います。お願いします。

908 ：lookman ◆xLhiVh/Y ：02/02/13 06:00

申し訳ありません
>>895の発言は別スレで公開した私のソフトをはなっから疑ってかかった方の
発言ですので無視して下さい

909 ：lookman ◆xLhiVh/Y ：02/02/13 06:40

>>908の続き
別スレというのは↓です
http://pc.2ch.net/test/read.cgi/tech/1013527404/l50

910 ：デフォルトの名無しさん：02/02/13 09:01

863です。

>>867さん　>>869さん
早速、試してみます、ありがとうございました。

911 ：デフォルトの名無しさん：02/02/13 11:09

VB6を使用しています。
ＰＣからRS232C経由で外部の機器へキャラクタコードを送信したいのですが、
特定のコードで送信データが NULL となってしまい、思ったように送信できません。
例えば
Mscomm1.Output=chr(244)
が送信できません。

244のほかに、129～159 と 224～252 で NULL になってしますようですが、
回避はできるのでしょうか？

912 ：デフォルトの名無しさん：02/02/13 11:17

893さんに便乗して質問してしまいます。

リッチテキストでURL（らしき文字列）を認識して自動的に
下線を付し、リンクとしての機能を持たせるのはコーディング
によるものでしょうか？
それともそういうコントロールがあるのでしょうか？
コーディングしたいのですがちとやっかいそうですので質問してみました。

回答よろしくおながいします

913 ：904：02/02/13 12:08

>>906
すいません、うまく行かない原因がわかりました。指定するドライブ
が大文字だとダメみたいです。APIで特殊フォルダのパスを取得
したときの返り値が「C:\なんたら」だったのを小文字に変換したら
行けました。

914 ：デフォルトの名無しさん：02/02/13 13:21

オフィスシリーズでVBプログラミングが出来るって聞いたんですが本当ですか？

915 ：デフォルトの名無しさん：02/02/13 14:20

>914
VBAの事を指しているのなら本当だ。

916 ：デフォルトの名無しさん：02/02/13 16:26

>>893
1)に関しては、>>896さんのでok。
補足すると、.SelStartはテキストより大きい値を設定するとテキスト末尾に
設定され、また.SelStartを設定したタイミングで.SelLengthは0になるので、

txtLog.SelStart = 65535
txtLog.SelText = "追加したい文字" & vbCrLf

こんなんでokかと。

オーバーフロー予防には、
If txtLog.SelStart > 30000 Then
　　txtLog.SelStart = 0
　　txtLog.SelLength = 10000
　　txtLog.SelText = ""
　　txtLog.SelStart = 65535
End If
とかいう手もある。(Rightで削った方がいいかもしれないが。)

2)のRichTextBoxに関しては、コントロールのバグっぽい挙動に悩まされること
うけあい。長時間稼働させてアプリが落ちたら、RichTextBox周りを疑ってみる
と良いかも。

　　RichTextBox1.SelColor = &hFFCC00&
　　RichTextBox1.SelText = "Hoge"

とりあえず、こんなふうにすると色がつくはず。

ただ、私の経験では、これを繰り返すといずれアプリが落ちる。
RichTextのコード(\f0\fs20\'90\'c0とかいうやつ)にゴリゴリ変換して、
.SelRTFにつっこんで解決したけど、Win2kと9xとの非互換とかあって困ったよ。

917 ：とも：02/02/13 17:21

誰か教えてください！！
ＶＢ6.0でMediaPlayerをコンポートして、自作ゲームの効果音を再生してましたが、
MediaPlayer自体をバージョンアップして、6.4から→7.1に変えたら、vbpを開こうと
したら、｢不正な処理をおこなったため｣と出てきて、vbpが閉じられてしまいます！
お願いです！誰か教えてください！！

918 ：デフォルトの名無しさん：02/02/13 18:39

vbpを直接エディタで開いてWMPコンポーネントのぶぶん消しちゃうとか。

ってか、ゲームの効果音をWMPコンポーネントで再生しようとしてる事自体ちょっと変だよ。

919 ：教えて君ＬＶ１：02/02/13 19:01

Ｎ８８ＢＡＳＩＣでいうところの
「ＧＥＴ＠」と「ＰＵＴ＠」はピクチャボックスであれこれやるのですか？
教えて下さい

920 ：デフォルトの名無しさん：02/02/13 19:03

N88>>>>>>>>>>VB>HTML

921 ：教えて君ＬＶ１：02/02/13 19:11

>>920

え？どういうことでしょうか？

922 ：デフォルトの名無しさん：02/02/13 19:22

>>911
＞244のほかに、129～159 と 224～252 で NULL になってしますようですが、
バイト型で送ればＯＫ。
日本語版VB5/6での使用が保証されてるASCIIコードは、32～126。(ヘルプ参照)

>>912
よく見る、リッチテキスト中のURLリンクはコーディングによるものです。

>>914
VBとVBAは言語的にはほとんど同じ。
ただし、VBAはオフィスのどれかと一緒でないと動かせない。

>>919
PaintPicture

923 ：教えて君ＬＶ2：02/02/13 19:32

PaintPictureというのですか？
どのように使うのでしょうか？お願いします

924 ：デフォルトの名無しさん：02/02/13 19:36

912です
>>922さん
ありがとうございました！
ﾔﾊﾟｰﾘそうですよねぇ・・・＜コーディング
結構めんどくさそうですが。。。

925 ：デフォルトの名無しさん：02/02/13 19:51

うそこけ >>922

>>924 www.vbvbvb.com で探すと、ハイパーリンクのやり方が出てるよ。

926 ：デフォルトの名無しさん：02/02/13 21:49

MSGBOXの背景の色や文字の大きさって変更できないんですかね？
自作でMSGBOXをつけるしかないんですかね？

927 ：デフォルトの名無しさん：02/02/13 21:59

>>926
あきらめてください。

928 ：デフォルトの名無しさん：02/02/13 22:07

ていうかそんな気持ち悪いインターフェース勘弁してください。

929 ：デフォルトの名無しさん：02/02/13 22:15

>>926
俺のラッキーカラーは青だ。だからコンパネで青にしてる
あんたの趣味で勝手に変えんな。

それに世の中、色覚障害者もいるんだぞ。
曲がりなりにもWindowsはユーザー補助で障害者に対応しているんだぞ。
それを台無しにするきか。

930 ：とも：02/02/13 22:16

>>918
遅れてすみません。なにぶん、初心者なものでもう少し詳しく教えていただけませんか？

931 ：デフォルトの名無しさん：02/02/13 22:29

>>907
時計のようにだったら、円の公式を角度を媒介変数として表した以下の式が基本。
x = r * cos(t)
y = r * sin(t)

回転の公式とかも高校の教科書で見るとよいかも。

932 ：デフォルトの名無しさん：02/02/13 23:09

>>923
Picture2.PaintPicture Picture1.Image, x1, y1, w1, h1, x2, y2, w2, h2

>>925
0505　リッチテキストボックスにハイパーリンク機能を実装する
APIのSetWindowLongを使うか。
自分で書くより面倒かも(笑)。

933 ：デフォルトの名無しさん：02/02/13 23:17

>>930
ソースファイルの中に拡張子がvdpとfrmというファイルがあるだろ？
それをメモ帳とかで開いてみな、その中に「Object=」の行があるはずだ。
その中からWMPの行を削除しちまいな。
WMP以外のOCXを使ってたら一つじゃないかもしれないけど
どれがWMPのかぐらいは調べられるよな？
で、削除したらVBで開くとエラーになるけど気にするな。
削除したコントロールはPictureBoxに化けてるから、それを削除して
再度コンポーネントを追加してコントロールを再配置しな。

もう一つ教えてやろう。
＞なにぶん、初心者なものでもう少し詳しく教えていただけませんか？
なんて文は、嫌われることはあっても歓迎されることはない。２ｃｈに限らずな。
あと文末の「！」もバカまるだしにしか見えない。ネタじゃないならやめとけ。

934 ：933じゃないが：02/02/13 23:29

933に補足。
言うまでもないとは思うが念のため。
vbpやfrmは編集前にバックアップとっとけよ。

935 ：デフォルトの名無しさん：02/02/14 17:39

そろそろ新スレの予感…

936 ：デフォルトの名無しさん：02/02/14 17:45

VB6（comctl32.ocx）で、ToolBarの幅を実行時に動的に変えるにはどうしたらいいのでしょうか？

VB5までは素直に「ToolBar.width」に幅を入れてやれば変わりましたが、VB6ではそれではダメな模様。
ButtomをPlaceHolderにしてWidthを指定してやったがそれでも×。何か情報をお持ちの方がいらっしゃればアドバイスをお願いします。

937 ：デフォルトの名無しさん：02/02/14 19:45

フレーム内に入れたテキストボックスをコピーして、
オブジェクト配列をたくさん作りたいのですが、
ペーストすると、フレームの外に貼り付けられちゃって鬱です。
フレーム内にペースト出来ないもんですか？

938 ：デフォルトの名無しさん：02/02/14 20:08

>937
フレームをクリックして、選択状態になっていることを確認してからペースト。

939 ：デフォルトの名無しさん：02/02/14 20:09

>>937
テキストボックスをコピーした直後はFormにフォーカス移ってるから
フレーム選択して張り付けしるっ！

940 ：937：02/02/14 21:18

僕が天然でした。

941 ：デフォルトの名無しさん：02/02/14 21:40

>>931
ありがとうございます。
高校の教科書ですか。何だか難しそう。

942 ：デフォルトの名無しさん：02/02/14 23:12

>937
テキストでfrm開いて、Frameクラスの中に入れたれ

943 ：デフォルトの名無しさん：02/02/14 23:59

Randomize ?
この?の部分が同じならどんなパソコンでも毎回発生する乱数は変わらないのですか？

あとテキストボックスで
ブブブビブ
毛毛毛毛毛
と複数行に出力されているとき
ブブブビブをA(0)に、毛毛毛毛毛をA(1)にと入れるにはどうすればいいでしょうか。

944 ：デフォルトの名無しさん：02/02/15 00:07

＞943
同じになるかどうかやってみそ！

下のは、
A = Split(Text1.Text, vbCrLf)

945 ：943：02/02/15 00:26

>>944
Randomizeは一応二つのパソコンで調べたら結果が同じでした。
「N88互換BASIC for Windows95」でも同じ結果だったので
恐らくどれでも同じ…なのかな？

>A = Split(Text1.Text, vbCrLf)
おぉ、これは凄いです！
ありがとうございます。まじでビビリました。

946 ：傍観者：02/02/15 00:28

引退しました。

947 ：デフォルトの名無しさん：02/02/15 00:37

>>945
Seedが同じなら、同じ乱数を出すというのがMS乱数の仕様。
同じ乱数を再現する必要があるケースも世の中にはあるから。
で、引数無しの場合は、タイマーからSeedを拾ってくるのね。
これはN88-BASICより進歩してる。

948 ：943：02/02/15 00:48

>>947
＞同じ乱数を再現する必要があるケースも世の中にはあるから。
おぉ、今の状態はまさしくそれです。
ありがとうございました。安心しました。

949 ：デフォルトの名無しさん：02/02/15 01:55

JPGファイルを読み込んで、その画像を任意の大きさ(縦横の比率は同じ)に変更できて、JPG保存できるツールをつくりたいのですが、簡単ですか？
VBはほとんどやったことがありません。
初心者でもちょっと勉強すればつくれそうですか？

950 ：デフォルトの名無しさん：02/02/15 02:32

>949
JPG保存は簡単にやろうと思ったら、外部OCXやDLLを使わないとできません。
ま、自力保存するコードを実験的に書いた人もいるが。

他はまぁ簡単だ。
君にとって簡単かどうかは俺にはわからんが。

951 ：デフォルトの名無しさん：02/02/15 03:06

http://www.vector.co.jp/soft/win95/prog/se093621.html
これを使わせてもらおう。

952 ：デフォルトの名無しさん：02/02/15 03:36

Intelのライブラリもメジャーだ。

953 ：デフォルトの名無しさん：02/02/15 13:25

クラスモジュールの使用方法について参考になるもの
何か教えてください！

954 ：デフォルトの名無しさん：02/02/15 14:02

文字の検索で変数aaaからダブルクオーテーションを検索したいのですが
instr(,aaa,""")じゃだめなようですのでだれか助けてください･･･。

955 ：デフォルトの名無しさん：02/02/15 14:04

>954
うまくいくまで " の数を増やしてみれ（乱暴）

956 ：デフォルトの名無しさん：02/02/15 15:47

マイドキュメントやデスクトップのフルパスを取ってくる関数ってありますか？

957 ：デフォルトの名無しさん：02/02/15 16:46

>956 SHGetSpecialFolderLocation API

958 ：956：02/02/15 17:07

>>957
サンクス! サンプル発見できました

959 ：デフォルトの名無しさん：02/02/15 17:22

VB5を使っています。
VBからアウトラインフォントで印刷するにはどうすればいいのでしょうか？

960 ：デフォルトの名無しさん：02/02/15 18:37

>>954
instr(aaa , """ ) じゃないの？

961 ：２重引用符：02/02/15 18:40

>>960
dc = """
a = "ab" & dc "def"
i = instr( a ,dc )
debug.print i

962 ：２重引用符：02/02/15 18:41

>>961
あ、間違い。

dc = """
a = "ab" & dc & "def"
i = instr( a ,dc )
debug.print i

963 ： ◆tmkzRAXY ：02/02/15 18:46

>962
InStr(aaa, Chr(34))
これでもいいよね？

964 ：スガ：02/02/15 19:20

XPで印刷するときに、
printer.port = "....."
とかってやると、ウインドウズ９８、９５なら
ちゃんと出来るのに
XPだとエラー帰ってくるのはナゼだ？

965 ：デフォルトの名無しさん：02/02/15 22:39

>>954
「"あいう""えお"」は「あいう"えお」という中身を意味する。
要は２回重ねるのだよ。

966 ：デフォルトの名無しさん：02/02/15 22:41

数字の0～9だけテキストボックスに入れたい場合は

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
KeyAscii = 0
End If
End Sub

でいいのでしょうか？

967 ：デフォルトの名無しさん：02/02/15 23:04

>>964
Ｖ友ＱＡ板とマルチポスト。

968 ：傍観者：02/02/15 23:07

>>967
傍観しとけ。
こっちのは投稿がやや手抜きになってるんだから。

969 ：デフォルトの名無しさん：02/02/15 23:18

>>966
そのコードだと、数字の0～9だけ無視。
っていうか、それくらい何でまずやってみないの？

970 ：デフォルトの名無しさん：02/02/15 23:20

>>968
946の引退宣言は撤回？(笑)

971 ：おせっかいさん：02/02/15 23:27

>>949
デジタル画像を拡大・縮小すれば、画質は確実に落ちるのに
やりたがるヤツが多いなあ。
Photoshopとかで高度な演算をすれば、画質の劣化はマシだけど。

972 ：ランダム名無しさん：02/02/15 23:30

>>953
前スレの900番台に、クラスの参考になるサンプルコードがある。

973 ：デフォルトの名無しさん：02/02/15 23:44

　　　　　　♪
　　♪
♪ 　∩ ∧_∧　　　
　　　ヽ ( ´Ａ`)　　なんじゃこりゃあああ！
　　　　ヽ ⊂ ヽ　　　
　　　　Ｏ-､　）～　　
　　　　　　　U
http://www.puchiwara.com/hacking/
　　　　　　♪
　　♪
♪ 　∩ ∧_∧　　　
　　　ヽ ( ﾟーﾟ)　　えろいニャー！
　　　　ヽ ⊂ ヽ　　　
　　　　Ｏ-､　）～　　
　　　　　　　U

974 ：デフォルトの名無しさん：02/02/16 00:25

Ｖ友って土日休日のカキコが激減するのね。
趣味グラマとしては、ちとさみしい。

975 ：デフォルトの名無しさん：02/02/16 00:44

はじめまして。
フォームを開いて1秒後に「Ａ」と表示して2秒後に「Ｂ］と
表示してＡＢＣＤＥ・・・と順に表示したいんですがどうすれ
ばいいんでしょうか？

976 ：デフォルトの名無しさん：02/02/16 00:52

タイマーを使うなら
Private mlngCount As Long
Private Sub Form_Load()
Timer1.Interval=1000
Timer1.Enabled=True
End Sub
Private Sub Timer1_Timer()
mlngCount=mlngCount+1
if mlngCount >= 26 Then Exit Sub
Debug.Print Chr$(64+mlngCount)
End Sub

977 ：デフォルトの名無しさん：02/02/16 00:58

＞975
１秒ごとにカウントアップする例がここにある。まずはこれから。
ttp://www18.tok2.com/home/mixtea/vg_2.htm

978 ：デフォルトの名無しさん：02/02/16 01:02

>976
>977ありがとうございます。
見てからちょっと考えます。

979 ：デフォルトの名無しさん：02/02/16 01:03

>>976
フォームに表示するなら、Debug.Print → Print
その場合は、３行目あたりに Form1.AutoRedraw = True が必要。

980 ：デフォルトの名無しさん：02/02/16 01:11

>>979
ﾌｫﾛｰども。
下から三行目はExit SubでなくTimer1.Enabled=Falseのがベターでした。ｽﾏｿ

981 ：デフォルトの名無しさん：02/02/16 01:24

>>980
それも書こうと思ったけど、タイマーは動き続けてもいいかなと。
そのために、Integerじゃなくて、Longにしたのかと(笑)。

982 ：959：02/02/16 01:29

959です。何度もすみません。
解説ページのURLなどでも構いませんのでどなたかご教示
願えませんでしょうか？
印刷してもフォントがつぶれるので困っています。

983 ：９７５：02/02/16 01:32

みなさまありがとうございます。
書いて頂いたソースを元に（ほとんど完成品ですが）
なんとかやれそうです。

984 ：デフォルトの名無しさん：02/02/16 01:35

>>982
いまどうやってるのか、最低限の再現コードを書かないと、
回答しようがない。

985 ：959：02/02/16 01:41

>>984
すみません。ありがとうございます。

フォームにLineやShape＋テキストボックスで簡単な表を書いて、
Form1.PrintForm
で印刷しようとしています。これ以外の印刷方法はよく知りません。
テキストボックスのフォントサイズは8で、印刷するとつぶれてしまい
ました。同じサイズのフォントをWordから印刷すると普通にきれいでした。
それで調べてみてアウトラインフォントとビットマップフォントがあると
いうことまでは分かりましたが、そこからどうすればいいのかが全く
分かりません。
よろしくお願いいたします。

986 ：デフォルトの名無しさん：02/02/16 01:49

>>985
PrintFormメソッドは無理やり拡大してるから、印刷が汚いの。
フォントサイズを上げて、Printerオブジェクトに印刷するといい。
印字品位を最高に設定して。

フォントも、TrueTypeのフォントを選択すればいい。

959の質問だと、API使って、超拡大文字の輪郭線を抽出するんだと思った。

987 ：959：02/02/16 01:57

>>986
Printerオブジェクトというものを知りませんでした。
本当にどうもありがとうございます！
長々とすみませんでした。

988 ：デフォルトの名無しさん：02/02/16 02:36

labelに計算した結果を表示させたいのですが、

答え：○○
となっているのを

答え：
○○

というふうにしたいのです。
labelの途中で改行させることって出来ますか？

989 ：デフォルトの名無しさん：02/02/16 02:41

>>988
Label1.Caption = "答え：" & vbCrLf & "○○"

990 ：デフォルトの名無しさん：02/02/16 02:44

>>989
即レス感謝です。　出来ました！！　ありがとうございます。

991 ：デフォルトの名無しさん：02/02/16 03:10

>>988
聞くようなことか？
HELPないんかい
調べんのおっくうかい

992 ：引っ越します：02/02/16 16:29

http://pc.2ch.net/test/read.cgi/tech/1013844542/

993 ：デフォルトの名無しさん：02/02/18 14:35

>>991
HELPに載ってるんかい？

994 ：デフォルトの名無しさん：02/02/18 21:23

vbでGIF画像をjpgに変換できるDLLってあります？
できればフリーのがいいです

995 ：8484：02/02/18 21:24

『ハッキングのわざが手に取るようにわかるサイト』または
『ハッキングのわざが手に取るようにわかる本』に書かれている内容を
実践・計画をした場合、以下の罪・違反・侵害に問われる可能性アリ。
どうかご注意して頂きたい。
http://www.puchiwara.com/hacking/