995コメント368KB

◆VB初心者質問スレ Part5

レス数が950を超えています。1000を超えると書き込みができなくなります。

0001引越しました

NGNG

前スレはこちら。
　　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 もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。

0002Part4 の 959 さんの解決されていない？質問

NGNG

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

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

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

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

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

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

0003Part4 の 965 さんの解決されていない質問

NGNG

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

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

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

よろしくお願いします。

0004デフォルトの名無しさん

NGNG

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

0005デフォルトの名無しさん

NGNG

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

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

0006デフォルトの名無しさん

NGNG

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

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

00072

NGNG

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

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

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

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

ありがとうございます。

0008デフォルトの名無しさん

NGNG

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

0009デフォルトの名無しさん

NGNG

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

0010デフォルトの名無しさん

NGNG

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

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

0011デフォルトの名無しさん

NGNG

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

00128

NGNG

>9　>10
サンクスっす。

0013デフォルトの名無しさん

NGNG

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

00143

NGNG

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

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

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

0015Part4 の 960

NGNG

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

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

これでどうよ？

0016デフォルトの名無しさん

NGNG

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

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

001716

NGNG

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

0018デフォルトの名無しさん

NGNG

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

0019デフォルトの名無しさん

NGNG

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

0020デフォルトの名無しさん

NGNG

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

0021デフォルトの名無しさん

NGNG

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

0022デフォルトの名無しさん

NGNG

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

002338

NGNG

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

0024デフォルトの名無しさん

NGNG

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

0025デフォルトの名無しさん

NGNG

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

0026デフォルトの名無しさん

NGNG

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

0027デフォルトの名無しさん

NGNG

21は高卒

0028デフォルトの名無しさん

NGNG

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

0029デフォルトの名無しさん

NGNG

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

0030デフォルトの名無しさん

NGNG

＞3
NetWkstaUserEnumか、NetUserEnum。

0031デフォルトの名無しさん

NGNG

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

0032デフォルトの名無しさん

NGNG

21=31

00333

NGNG

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

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

0034デフォルトの名無しさん

NGNG

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

0035デフォルトの名無しさん

NGNG

>>33
翻訳してみれば？

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

0036uja

NGNG

スレ違ってたらごめんなさい。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には書いてあるのですが、それに従ってやっても
定期的な予定は、周期の一番最初の予定しかみることができません。
なにか知ってる方がいらっしゃいましたらアドバイスをお願いします。

0037デフォルトの名無しさん

NGNG

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

0038デフォルトの名無しさん

NGNG

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

0039デフォルトの名無しさん

NGNG

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

0040デフォルトの名無しさん

NGNG

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

0041デフォルトの名無しさん

NGNG

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

004239

NGNG

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

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

0043デフォルトの名無しさん

NGNG

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

0044デフォルトの名無しさん

NGNG

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

004539

NGNG

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

0046デフォルトの名無しさん

NGNG

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

0047デフォルトの名無しさん

NGNG

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

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

0048デフォルトの名無しさん

NGNG

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

0049デフォルトの名無しさん

NGNG

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

0050デフォルトの名無しさん

NGNG

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

005139(45)

NGNG

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

0052デフォルトの名無しさん

NGNG

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

0053デフォルトの名無しさん

NGNG

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

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

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

0054デフォルトの名無しさん

NGNG

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

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

0055デフォルトの名無しさん

NGNG

>>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

0056デフォルトの名無しさん

NGNG

>>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         'テンプレート

0057デフォルトの名無しさん

NGNG

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

0058デフォルトの名無しさん

NGNG

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

0059デフォルトの名無しさん

NGNG

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

006058

NGNG

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

0061デフォルトの名無しさん

NGNG

>>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

0062デフォルトの名無しさん

NGNG

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

0063デフォルトの名無しさん

NGNG

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

0064デフォルトの名無しさん

NGNG

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

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

0065デフォルトの名無しさん

NGNG

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

0066デフォルトの名無しさん

NGNG

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

0067デフォルトの名無しさん

NGNG

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

0068デフォルトの名無しさん

NGNG

>>67
いってきまーす。

0069デフォルトの名無しさん

NGNG

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

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

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

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

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

よろしくお願いします。

0070デフォルトの名無しさん

NGNG

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

プログラムが"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

0071デフォルトの名無しさん

NGNG

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

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

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

0072デフォルトの名無しさん

NGNG

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

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

0073強引

NGNG

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

0074デフォルトの名無しさん

NGNG

さらに強引

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

007572

NGNG

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

thanx!!

0076デフォルトの名無しさん

NGNG

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

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

0077７１

NGNG

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

0078デフォルトの名無しさん

NGNG

>>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

0079デフォルトの名無しさん

NGNG

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

0080ＳＴＲＣＡＴ

NGNG

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｣が増えないのはどうして？

0081デフォルトの名無しさん

NGNG

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

0082ＳＴＲＣＡＴ

NGNG

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

0083ＳＴＲＣＡＴ

NGNG

#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プログラムではなぜかうまくいってない。

0084ＳＴＲＣＡＴ

NGNG

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回しか実行されない？

0085デフォルトの名無しさん

NGNG

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

0086ＳＴＲＣＡＴ

NGNG

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

0087ＳＴＲＣＡＴ

NGNG

#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;

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

0088デフォルトの名無しさん

NGNG

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

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

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

0089デフォルトの名無しさん

NGNG

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

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

0090デフォルトの名無しさん

NGNG

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

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

0091デフォルトの名無しさん

NGNG

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

0092デフォルトの名無しさん

NGNG

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

0093名無しさんです

NGNG

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

0094意外と初心者（ｗ

NGNG

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

009594

NGNG

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

0096デフォルトの名無しさん

NGNG

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

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

0097デフォルトの名無しさん

NGNG

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

0098デフォルトの名無しさん

NGNG

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

0099デフォルトの名無しさん

NGNG

>>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

0100デフォルトの名無しさん

NGNG

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

0101デフォルトの名無しさん

NGNG

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

0102デフォルトの名無しさん

NGNG

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

call S_test(me.form)

sub S_test(A_frmname as form)
～
end sub

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

01038

NGNG

>101
戻り値の型。

0104デフォルトの名無しさん

NGNG

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

0105102

NGNG

修正

call S_test(me.name)

sub S_test(A_frmname as form)
～
end sub

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

0106デフォルトの名無しさん

NGNG

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

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

0107106

NGNG

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

0108名無しさん ◆MZ2000oY

NGNG

>>105
Call S_test(me)

Sub S_test(A_frmname as form)

だとなんかマズイのか?

0109デフォルトの名無しさん

NGNG

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

0110デフォルトの名無しさん

NGNG

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

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

0111デフォルトの名無しさん

NGNG

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

0112デフォルトの名無しさん

NGNG

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

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

0113109

NGNG

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

0114名無し

NGNG

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

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

0115デフォルトの名無しさん

NGNG

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

0116デフォルトの名無しさん

NGNG

>>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。

0117デフォルトの名無しさん

NGNG

あげっぱなしだ

0118デフォルトの名無しさん

NGNG

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

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

0119デフォルトの名無しさん

NGNG

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

0120デフォルトの名無しさん

NGNG

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

0121デフォルトの名無しさん

NGNG

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

012293

NGNG

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

0123１２０

NGNG

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

0124１２０

NGNG

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

0125１２０

NGNG

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

012694

NGNG

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

0127105

NGNG

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

0128こまねずみ

NGNG

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

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

0129こまねずみ

NGNG

↑
自己解決しました。

0130デフォルトの名無しさん

NGNG

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

0131130

NGNG

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

0132デフォルトの名無しさん

NGNG

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

0133132

NGNG

あとこのあたり

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

0134130

NGNG

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

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

0135デフォルトの名無しさん

NGNG

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

0136デフォルトの名無しさん

NGNG

>>135
mod　？

0137デフォルトの名無しさん

NGNG

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

0138デフォルトの名無しさん

NGNG

LenBとStrConvでどうぞ。

0139デフォルトの名無しさん

NGNG

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

0140デフォルトの名無しさん

NGNG

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

0141デフォルトの名無しさん

NGNG

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

0142デフォルトの名無しさん

NGNG

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

0143デフォルトの名無しさん

NGNG

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

「Web Development」の辺り。（多分

0144デフォルトの名無しさん

NGNG

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

0145141

NGNG

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

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

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

0146デフォルトの名無しさん

NGNG

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

0147デフォルトの名無しさん

NGNG

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です。

0148デフォルトの名無しさん

NGNG

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

0149141=145

NGNG

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

0150デフォルトの名無しさん

NGNG

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

0151デフォルトの名無しさん

NGNG

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

0152デフォルトの名無しさん

NGNG

>>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

0153144

NGNG

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

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

0154困った名無しさん

NGNG

教えてくんでスマソ。

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

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

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

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

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

0155141=145=149

NGNG

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

0156困った名無しさん

NGNG

書き忘れ。

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

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

0157デフォルトの名無しさん

NGNG

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

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

0158155

NGNG

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

0159144=153

NGNG

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

0160デフォルトの名無しさん

NGNG

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

0161デフォルトの名無しさん

NGNG

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

0162お願いします

NGNG

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

0163デフォルトの名無しさん

NGNG

>>162
ならない

0164お願いします

NGNG

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

0165演算ベンチ

NGNG

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

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

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

0166デフォルトの名無しさん

NGNG

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

0167デフォルトの名無しさん

NGNG

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

0168デフォルトの名無しさん

NGNG

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

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

0169167

NGNG

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

0170１６８

NGNG

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

0171デフォルトの名無しさん

NGNG

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

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

0172166

NGNG

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

0173デフォルトの名無しさん

NGNG

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

0174167

NGNG

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

0175デフォルトの名無しさん

NGNG

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

0176デフォルトの名無しさん

NGNG

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

0177デフォルトの名無しさん

NGNG

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

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

0178デフォルトの名無しさん

NGNG

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

0179デフォルトの名無しさん

NGNG

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

0180デフォルトの名無しさん

NGNG

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

0181177

NGNG

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

0182デフォルトの名無しさん

NGNG

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

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

0183182

NGNG

やっぱ無理みたい

0184182

NGNG

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

0185デフォルトの名無しさん

NGNG

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

0186160

NGNG

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

0187デフォルトの名無しさん

NGNG

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

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

0188デフォルトの名無しさん

NGNG

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

0189まちゅ ◆VcvMACHU

NGNG

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

0190177

NGNG

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

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

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

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

0191デフォルトの名無しさん

NGNG

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

0192デフォルトの名無しさん

NGNG

>>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のネイティブ・コンパイルで、実数型だと、どうなりますか？
両方持ってて暇な人実験きぼんぬ。

0193デフォルトの名無しさん

NGNG

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

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

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

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

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

0194デフォルトの名無しさん

NGNG

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

0195デフォルトの名無しさん

NGNG

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

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

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

0196PentiumIII 866MHz

NGNG

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

0197デフォルトの名無しさん

NGNG

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

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

0198デフォルトの名無しさん

NGNG

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

0199デフォルトの名無しさん

NGNG

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

0200デフォルトの名無しさん

NGNG

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

0201でく

NGNG

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

0202デフォルトの名無しさん

NGNG

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

0203デフォルトの名無しさん

NGNG

>>201

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

0204パン

NGNG

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

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

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

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

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

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

0205197

NGNG

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

0206コピペ厨房

NGNG

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

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

0207デフォルトの名無しさん

NGNG

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

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

0208デフォルトの名無しさん

NGNG

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

0209ごるぁ

NGNG

２０４はマルチ

0210デフォルトの名無しさん

NGNG

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

0211VB超初心者厨房

NGNG

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

0212１６５

NGNG

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

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

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

0213デフォルトの名無しさん

NGNG

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

0214デフォルトの名無しさん

NGNG

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

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

0215デフォルトの名無しさん

NGNG

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

0216173

NGNG

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

0217デフォルトの名無しさん

NGNG

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

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

0218デフォルトの名無しさん

NGNG

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

0219213

NGNG

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

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

0220デフォルトの名無しさん

NGNG

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

0221デフォルトの名無しさん

NGNG

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

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

0222デフォルトの名無しさん

NGNG

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

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

0223196

NGNG

>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位だった。

0224デフォルトの名無しさん

NGNG

>>223
Delのコードは？

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

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

022550のVB爺

NGNG

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

0226でく

NGNG

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

0227197

NGNG

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

0228196

NGNG

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

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

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

0229VBer

NGNG

ウィンドウに対して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)

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

0230デフォルトの名無しさん

NGNG

>>229
keybd_eventでどうぞ。

0231デフォルトの名無しさん

NGNG

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

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

0232あじゃぱ

NGNG

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

0233デフォルトの名無しさん

NGNG

MSDN>232

0234デフォルトの名無しさん

NGNG

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

0235デフォルトの名無しさん

NGNG

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

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

0236デフォルトの名無しさん

NGNG

>>231
ネタ…？

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

<初期化、計算処理>

Call rotateZ(buff_p, s, e, rz)

0237デフォルトの名無しさん

NGNG

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

0238デフォルトの名無しさん

NGNG

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

0239デフォルトの名無しさん

NGNG

>>236
rzはSingleだし。

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

0240デフォルトの名無しさん

NGNG

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

0241デフォルトの名無しさん

NGNG

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

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

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

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

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

0242デフォルトの名無しさん

NGNG

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

0243デフォルトの名無しさん

NGNG

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

0244デフォルトの名無しさん

NGNG

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

0245242

NGNG

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

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

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

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

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

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

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

0246デフォルトの名無しさん

NGNG

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

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

Private Sub Form_Resize

　On Error Resume Next　'//手抜き

　List1.Height = Me.ScaleHeight - List1.Top

End Sub

0247デフォルトの名無しさん

NGNG

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

0248名無しさんです

NGNG

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

0249VB使い

NGNG

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

0250248

NGNG

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

0251VB使い

NGNG

>>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とか見れ。

0252250

NGNG

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

0253250

NGNG

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

0254242

NGNG

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

0255デフォルトの名無しさん

NGNG

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

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

0256デフォルトの名無しさん

NGNG

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

0257デフォルトの名無しさん

NGNG

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

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

0258デフォルトの名無しさん

NGNG

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

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

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

0259デフォルトの名無しさん

NGNG

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

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

0260デフォルトの名無しさん

NGNG

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

0261258

NGNG

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

0262257

NGNG

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

0263256

NGNG

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

>>262
ちがいます（ｗ

0264デフォルトの名無しさん

NGNG

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

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

　AAA = Form1.Label1.Caption

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

0265デフォルトの名無しさん

NGNG

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

　　Public 変数名　as 型

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

0266デフォルトの名無しさん

NGNG

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

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

0267264ではないですが

NGNG

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

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

0268あじゃぱ

NGNG

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

0269265じゃない

NGNG

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

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

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

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

0270デフォルトの名無しさん

NGNG

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

0271あじゃぱ

NGNG

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

0272267

NGNG

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

0273　

NGNG

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

0274デフォルトの名無しさん

NGNG

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

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

0275デフォルトの名無しさん

NGNG

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

0276269

NGNG

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番目はある程度わかるようになってからの方がいいかな。

0277デフォルトの名無しさん

NGNG

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

0278デフォルトの名無しさん

NGNG

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

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

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

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

0279デフォルトの名無しさん

NGNG

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

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

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

0280デフォルトの名無しさん

NGNG

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

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

0281デフォルトの名無しさん

NGNG

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

0282デフォルトの名無しさん

NGNG

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

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

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

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

0283264

NGNG

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

0284デフォルトの名無しさん

NGNG

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

0285267

NGNG

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

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

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

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

0286VB使い

NGNG

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

0287デフォルトの名無しさん

NGNG

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

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

0288てちゅや

NGNG

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 ステートメントで実行時エラー判定させる
しか方法はないのでしょうか？

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

0289はぢめてのＶＢ６

NGNG

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

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

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

0290ﾊﾞｧ

NGNG

＞289
ウｐ希望

0291デフォルトの名無しさん

NGNG

ウｐ？

0292VB使い

NGNG

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

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

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

0293デフォルトの名無しさん

NGNG

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

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

0294285

NGNG

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

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

0295VB使い

NGNG

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

0296285

NGNG

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

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

0297デフォルトの名無しさん

NGNG

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

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

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

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

0298VB使い

NGNG

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

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

0299デフォルトの名無しさん

NGNG

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

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

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

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

0300299

NGNG

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

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

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

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

0301デフォルトの名無しさん

NGNG

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

0302VB使い

NGNG

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

0303デフォルトの名無しさん

NGNG

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

0304デフォルトの名無しさん

NGNG

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

0305はぢめてのＶＢ６

NGNG

>>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

0306はぢめてのＶＢ６

NGNG

>>290-293でしたｽﾏｿ
やはりタイマーでしょうか？
手元に教科書やなんかあればいいんですが・・・

0307>305

NGNG

＞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

0308デフォルトの名無しさん

NGNG

画像のロードの仕方で以下のやり方で間違っているのはどこでしょうか？
テキストですと同じ方法でロードできるのですが。。。

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"

0309デフォルトの名無しさん

NGNG

＞308
画像を読み込むだけなら、LoadPictureの１行だけでいい。
()の中にはパスを入れる。EXEと同じフォルダなら、ファイル名だけでも可。

上のブロックは、テキストファイルを読み込む時のやり方で、画像とは関係ない。

0310296

NGNG

>>297-300
ありがとうございました。

0311デフォルトの名無しさん

NGNG

ＶＢでユーザー定義関数同士間でＣでいう関数ポインタみたいにできないですか？
できるならばやり方ご存知の方お願いします！！

0312VB使い

NGNG

>>311
関数ポインタで関数を呼び出したいってこと？

0313デフォルトの名無しさん

NGNG

今、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

0314311

NGNG

>>312
　ｿｳｯｽ（・∀・）！！

0315VB最高

NGNG

VBをやるのにフローチャートはいりますか？
というよりフローチャートってなんですか？

0316VB使い

NGNG

>>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

0317VB使い

NGNG

>>313
もしかしてMYDOCU~1とかになるってことならDOS名なんで
VBの標準関数ならそのまま使えるぞ。

>>315
フローチャートってのはプログラムの流れを図にしたもの。
昔は機械語直接書いてたんでそういうのが必要だった。
今は・・・まあ書いたほうが分かりやすいがめんどくさい。

316訂正。
（DispCallFuncについてはまだよく知らないので)
↓
（DispCallFuncについてはまだよく知らないのであんまり信用しちゃダメ。)

0318デフォルトの名無しさん

NGNG

>>317
言葉が足りませんでした。
ﾄﾞﾗｯｸﾞ&ﾄﾞﾛｯﾌﾟしたファイルのパス名をそのままﾌｧｲﾙﾒｰｶｰに新規ﾚｺｰﾄﾞ
として入力させたいのですが、どうしてもそのまま~付のﾌｧｲﾙ名として
入力してしまいます。
これを、そのままのﾌｧｲﾙ名として入力したいのです。

ついでながら、Win98SE以下だと、ﾌｧｲﾙﾒｰｶｰにﾚｺｰﾄﾞとして入力すら
出来ない状態です。
WinMeだと、このコードでもうまく行くんですけど。

0319デフォルトの名無しさん

NGNG

上記のは313の発言です。
なんか名前を入れると、エラーが出るもんで...

0320デフォルトの名無しさん

NGNG

ｶｴﾚ！っていわれるだろうけど>>316みたいなのが普通のVBのテクなのか？
VB.NETを待ち望むのも無理は無いと思うよ。ところで実はVBは使った事は
無いんだが、ハックしなくてもCOMのシンクイベントみたいなやり方で
できるんじゃないの？＜関数ポインタ

0321Delフサギコ

NGNG

VBでASPアプリを作成しているんですが
画像ファイル(JpegとかPNGとか)
を動的に作成したいと思っています。

メモリ上で画像を描画する方法は
ＶＢではあるのでしょうか？

ＶＢで無理ならActiveXDLLをVBと接続して
描画させてやらなきゃいけないのかなと
考えてます。

とりあえず可能か不可能かを知りたいのと
わかりやすいリンク先とかありましたら
教えてクラサイ

￣￣￣∨￣￣￣￣￣
　　　∧,,∧ 　　　ｵｼｴﾃｸﾝﾃﾞｽ
　　ミ,, ﾟДﾟ彡
　　〃　つ旦~~
　～ﾐ,,,ｎ,,ｎ［￣￣￣.］
　　　　　　　￣￣￣

0322VB使い

NGNG

>>318
Shellの代わりにAPIのShellExecuteを使ってみては？

>>320
もっと簡単に出来るんなら俺も教えて欲しいよ(;´Д｀)

0323VB使い

NGNG

>>321
メモリの画像を表示したいならSetDIBitsToDeviceで。(Delは違うのか？)

0324Delフサギコ

NGNG

デルはそういうクラス(TBitmap)があるので…

SetDIBitsToDeviceってAPIかな？

>メモリの画像を表示したいなら
なんか微妙に違うような....
Webアプリでグラフみたいなので
動的に画像ファイルを作成したいの。

￣￣￣∨￣￣￣￣￣
　　　∧,,∧ 　　　ｻﾝｸｽｺ
　　ミ,,ﾟДﾟ彡∬
　　〃　つ旦O
　～ﾐ,,,ｎ,,ｎ［￣￣￣.］
　　　　　　　￣￣￣

0325308

NGNG

>>308のようなケースで、動画（MPEG）をロードするには
どうすればいいのでしょうか？
どなたかお願いいたします。

0326デフォルトの名無しさん

NGNG

CreateDIBSectionでつくって、DCに対して描画して、
そのメモリを、PNG、JPGに変換して、出力とか。

0327デフォルトの名無しさん

NGNG

お助けください(; ;)

func1 op1, op2

Sub func1(r1 as OptionButton, r2 as OptionButton)
r1.value = ...
End Sub

てなことをやりたいのですが、呼び出し時に「型が違います」云われてしまいます……
何が間違っているのでしょう……

0328デフォルトの名無しさん

NGNG

はじめまして

http://mbs.jp/maji/
ここのHPにある投票フォームをソースで表示してどこかイジって
クリックするとある選択肢に投票されるプログラムを作りたいんですがわかりません。
私は全くそういう知識がなく、この板にくるのも初めてです。
どうかアドバイスお願いします。

0329327

NGNG

解決しました……関数宣言 Variant にしてみました……
なんか納得いかない……

0330VB使い

NGNG

>>327
op1の宣言と、Setを使ってるかをチェックしてみれ。

>>324
俺ASPって今知ったんだけど、ASPからVBって使えるの？
VBScriptみたいなもんなんかなあ？

0331デフォルトの名無しさん

NGNG

>>330
VBでコンポーネントを作って、それをASPから呼び出すんさ。

0332デフォルトの名無しさん

NGNG

>>320
絶対普通じゃないと思われ（藁
っていうかVBでは関数ポインタなんて使わないように設計する。

0333VB使い

NGNG

>>331
微妙にｽﾚ違いだけどASPで使うVBコンポーネントって
ActiveXEXEだけ？標準EXEもいけるのかなあ？・・・無理か。

>>332
賛成w
ま、こんなこともできるっつーことで。

0334VB使い

NGNG

>>328
ネットの基礎知識とJavaScriptとHTMLを勉強しましょう。

0335デフォルトの名無しさん

NGNG

>どうしてもそのまま~付のファイル名として入力してしまいます。
>これを、そのままのファイル名として入力したいのです。

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型でも
暗黙の型変換で対処してくれる。

0336デフォルトの名無しさん

NGNG

>>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 を使う。

0337デフォルトの名無しさん

NGNG

>>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

0338デフォルトの名無しさん

NGNG

>>321 >>324
ASPでVBSを使っていて、JPGやPNGの画像ファイルを
動的に生成したいということでしょうか?

VBでは、APIが呼べますが、VBSでは無理かと思います。

ActiveXDLLが完成したら、その、DLL僕にもちょうだい。（ｗ
DIBなら作れそうだけど、JPGで保存となると、私にはお手上げ。

0339これはどう？

NGNG

>>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可)
簡易的な画像縮小・拡大機能、コントラスト調整、ガンマ補正機能

0340デフォルトの名無しさん

NGNG

>>337
多態って知ってる？オブジェクト指向勉強せい！

0341デフォルトの名無しさん

NGNG

>>333
ActiveX-DLLもいける。標準EXEを使いたいなら、EXEファイルを
呼び出すコンポーネントを使えばよい

0342Delフサギコ

NGNG

　　　　∧,,∧　　　　／￣￣￣￣￣
　　　ミ　　　ミ　　＜とっても・・・
　　　ﾐ　　　　つ　　　＼＿＿＿＿＿
　　　ﾐ　＠　ﾐ
　　　'∪'''∪'

ﾋﾟｷｭｰﾝ　　　　　　+　／￣￣￣￣￣
　+ 　　∧,,∧　　　＜　感謝>>338-339
　　　ミ,ﾟДﾟ ,,ミ　　　　＼＿＿＿＿＿
((　　⊂　.　　つ　　 )）
　+　　ﾐ　　　ﾐ　　　
　　　　''とノ''　　+

ｷｭﾋﾟｨｨｨﾝ　　　+　　／￣￣￣￣￣
　　　　 ∧,,∧　　＜　レスくれた人、ありが㌧
　　　ミ,, ﾟДﾟミ .　　＼＿＿＿＿＿
　　　　ﾐ　つつ　）)
　+　　ﾐ　⊂.ﾐ
　　　　 ''∪''''

0343338

NGNG

>>339
ThanX 世の中には、太っ腹な人がいるもんですねぇ。

0344VB使い

NGNG

>>341
なるほど。アリガ㌧

0345_

NGNG

コレクションで大文字・小文字を区別させたいのですが
どうすればいいのでしょうか？

0346３１３

NGNG

VB使い様、336様
＞args1 = args2 とまったく同じだけどいいの？
見なおしてみて、気付きました。（汗

＞ファイル名が8文字までしか認識されません。
ショートネームでもフルパスはフルパスなんだけど。
どうしてもロングネームにしたかったら、APIのGetLongPathName。
FileSystemObjectでも出来るし。

なんとか、[GetLongPathName]にて取得できました。
いろいろご指導ありがとうございました。

0347デフォルトの名無しさん

NGNG

>>345
それ自体できません。

コレクションクラスを作成して、
内部的には前に「_」付けて区別するようにAdd、Item、Removeに細工しよう。

0348デフォルトの名無しさん

NGNG

今調べたら、
Microsoft Visual Studio 6.0 Enterprise Edition
のアカデミック版を買えば3万5千円で済むらしい。放送大学に入ってこれ買えばいいか。

0349デフォルトの名無しさん

NGNG

よかったら教えて下さい。
１．ＶＢだけでマルチスレッドアプリケーションを作れるのか？
２．コンパイルした結果できたバイナリはランタイムＤＬＬなしで、ＥＸＥファイルだけで使えるのか？

0350デフォルトの名無しさん

NGNG

>>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以降は、ランタイムが付属らしいので、
他のコンポーネントを使わない限りは、動くらしいです。(未確認)

0351　

NGNG

>>350さんありがとうございます。
やはりそれならばすべてＶＣでやった方がいいかもしれませんね。

0352デフォルトの名無しさん

NGNG

>>350
最低限必要なのは MSVBVM60.DLLだけ。
日本語を表示するには、VB6JP.DLLも必要。
あとのDLLはオートメーション用だったり、いろいろ。
ネットで配布されてる標準セットだけでオッケー。

0353349

NGNG

>>352さん情報ありがとうございます。

0354デフォルトの名無しさん

NGNG

>>349
>１．ＶＢだけでマルチスレッドアプリケーションを作れるのか？

VB.NETだったら楽勝！

0355デフォルトの名無しさん

NGNG

テキストファイルのスペース、改行などを全部詰めて、一面文字を
ビッシリ詰めたいのですが、どうしたら良いかさっぱり分かりません。
よろしければ例を交えて教えていただけませんでしょうか。
（お暇であれば、できるだけコメントを入れていただけると嬉しいです。。。）
よろしくお願いいたします。

0356デフォルトの名無しさん

NGNG

>>355
テキストのサイズにもよるけど、
　
Replace(strBuff, " ", "")
Replace(strBuff, vbCrLf, "")
　・
　・
　・
　
って感じに

0357デフォルトの名無しさん

NGNG

＞355
意味不明。
スペースを詰めるというのは、行頭・行末のスペースを削除？
改行を詰めるというのは、空行を削除？
それなら、フリーソフト使っときなさい。

0358355

NGNG

わかりにくくてｽﾐﾏｾﾝ。
空行を詰めると共に、文章の間に挟まったｽﾍﾟｰｽも取り除きたいのです。
--------------
あああ
あああ　　あああああ

あああ　　あ
ああああああ

----↓これをこうしたい----------

あああああああああああああああああああああ

>>356さんのやり方でやってみます。ありがとう。

0359あれ？

NGNG

>>358じゃないけど、実験がてらExcelで
Worksheets("Sheet1").Range("B2").Replace What:=vbCrLf, Replacement:=""
とかやってみたけど詰まらないな。
識者の方に任せるわ。

0360デフォルトの名無しさん

NGNG

>359
Excelの改行ってCrのみじゃなかったっけか？

0361VB使い

NGNG

>>359
セルの中のvbCrLfを置換しようとするからまずいのでは？
っつーか、>>355が言ってるのはVBだろ。たぶん。

0362VB使い

NGNG

>>360
あああかぶった。

0363359

NGNG

今Excelしか無くってさー。（実はExcelのことほとんど分からないんだけど…）
>>360
vbCrだけにしても駄目ﾀﾞﾀﾖ。

0364VB使い

NGNG

>>363
VbLfだーよ。

0365359

NGNG

でけた。ｻﾝｸth。

0366359

NGNG

ちなみに大量の文章でやってみようと思ったら、セル内にペーストできないな。
一つのセルに書き込める文字数を超えているってこと？
だったら俺的には役にたたんな、これ。

何か大量の文章でできるすべあるかな？

0367VB使い

NGNG

>>366
ExcelはReplaceメソッドはあってもReplace関数は無いからな。
（2000以降出来るようになったんだっけ？）

自前で書いたほうが早いと思われ。

0368359

NGNG

>>367
いちいちまったくだ。がしかし、Excelの勉強もしたくなった。
>>358に感謝。ま、帰ってから考えるとするよ。
暇な人、ヒントでも書いておいてくれるとうれしいな。

0369デフォルトの名無しさん

NGNG

>>367
2002だけど、Replace関数あるみたい

0370VB使い

NGNG

>>368
頑張れー。ヽ(´ー｀)ノ

>>369
ｻﾝｸｽｺ。2000からか？使えるの。
今使ってるの97だからなあ。

0371デフォルトの名無しさん

NGNG

ＶＢでローカルマｽｨ-ンのIPアドレス取得しる方法教えて～

0372デフォルトの名無しさん

NGNG

あああ

0373デフォルトの名無しさん

NGNG

>>371
http://www.google.com/search?q=VB+IP+%83%8D%81%5B%83J%83%8B%81@%8E%E6%93%BE&hl=ja&lr=

0374デフォルトの名無しさん

NGNG

ＶＢでスプレッド３．０を使用している者で、質問なんでが、
例えばスプレッドが１０列あったとして、最初の２列を固定列にして、
残りの８列をスクロールバーでスクロールした時に、
「灰色領域」が出てくるので、その「灰色領域」を出さないようにしたいのですが
出さない方法を知ってる方教えてください。

0375デフォルトの名無しさん

NGNG

DAOでデータベース開く際、mdb以外のDBも読み込めますよね。
色々試しているんですが、テキスト形式のものだとカンマ区切りはちゃんと読めるのに
スペース区切りでは区切りとみなされず1つになってしまい、ダメでした。

スペース区切りテキストファイルのデータは読み込めないのでしょうか

0376　>>375

NGNG

Arr()=split(格納文字,space(1))

0377息子

NGNG

すみませぬ。質問よいですかい？
Text1の内容を自動的にクリップボードに貼っつけるのがやりたいんだけど、
クリップボードの扱い方がさっぱり。どうしたら良いのやら？

0378>>377

NGNG

Private Sub Command1_Click()
Call VB.Clipboard.SetText(Text1.Text)
End Sub
Private Sub Command2_Click()
MsgBox VB.Clipboard.GetText
End Sub

0379デフォルトの名無しさん

NGNG

CとPerlはそれなりに使っていて、C++は触った程度です。
(Javaは1.1.3でHelloWorld書いてみただけ)
VBを新たに覚えなければならなくなりそうなんですが、
もし、初心者がはまりそうな注意点が有ったら教えてください。

あと、事務処理の分野ではVBってよく使うものなんでしょうか？

0380>>379

NGNG

>初心者がはまりそうな注意点
GotFocus
LostFocus
DoEvents

>事務処理の分野ではVBってよく使うものなんでしょうか？
Yes

0381379

NGNG

>>380
どうもありがとう。

0382デフォルトの名無しさん

NGNG

>>379
>もし、初心者がはまりそうな注意点が有ったら教えてください。
はまりそうな点というより知っておいた方がいいキーワード

Option Explicit
ByValとByRef

0383デフォルトの名無しさん

NGNG

DBやるんなら、NullとvbNullとvbNullStringとvbNullCharの違いを
しっておいたほうがいいかも。Null以外使わなきゃいいだけだけど。

0384デフォルトの名無しさん

NGNG

>379
IsNull関数の存在。

0385解説君

NGNG

>Option Explicit
変数の宣言を強制する。必須。
>ByRef
参照渡し。値のポインタを投げる。
ポインタは当然スタックに詰まれるので、再帰を繰り返すと
スタックオーバーフローを起こす。

>Null
まんまNull。DBのフィールドなどに多く見られる。

>vbNull
"1"。意味不明。用途不明

>vbNullString
空文字(Nullではない)。Empty。
VB関数の戻りに多く見られる。

>vbNullChar
文字コード0のスペース。
Cで言う\0。
APIの戻りにこれが含まれている場合多し。

0386デフォルトの名無しさん

NGNG

age

0387デフォルトの名無しさん

NGNG

>>382-385
ありがとうございます。本当に助かります。

0388デフォルトの名無しさん

NGNG

>>374
市販ソフトのことは、ベンダーに直接質問したほうがいいです。
かならずメールで返事くれますので。

>>378
送るときは、直前にClearしないと、失敗する時もあります。

>>379
データベースにSQLを投げたり、力業をCで書いたDLLにやらせたり。
事務分野の仕事は多いです。
っていうか、事務分野以外ではあまり出番がない(笑)。

0389デフォルトの名無しさん

NGNG

>>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のスペース。
スペースじゃなくて、ヌル文字。

0390389

NGNG

補足。
>文字列用のNULLポインタ。API関数の引数に主に使用する。
これはvbNullStringの説明ね。

0391デフォルトの名無しさん

NGNG

ヌル関係は、とくに覚えなくてもいいということで(笑)。

0392デフォルトの名無しさん

NGNG

全くの初心者向けに簡単なゲームを作るチュートリアルが載っているサイトってありませんか？

0393デフォルトの名無しさん

NGNG

パール厨房です。こんにちは。
この度課題でＶＢでオセロゲームを作るはめになりました。
ＶＢは全く知りません。とりあえず明日の５時までが期限なのですが
出来ますでしょうか？皆さんが無理だと言ったら単位はあきらめます。

0394デフォルトの名無しさん

NGNG

>>393
何マス？
マス少なきゃ何とかなるとは思うけど。

てきとーに動けばいいなら、それこそオセロのロジックなんて
腐るほど転がってるから、ちょっといじれば直ぐに出来るが。

ソース解説出来なきゃならないならどうかなぁ…

0395デフォルトの名無しさん

NGNG

>>392
>>393
・・・・
おいおい、板違いだって。
そういう初心者はPC初心者板にでも逝ってくれ。
この板で言う初心者というのは自分一人でもある程度プログラムができて、
どうしてもわからない人のことなんだよ。
というか、そういう質問は自分の力で解決するべきじゃないのか？
最近の高校生や大学生はすぐに本とかネットとかに頼る傾向があるみたいだな・・・
１０年後の日本が心配だよ。全く・・・

0396デフォルトの名無しさん

NGNG

>>394
マスは現実のオセロと同じマス数です。あとＣＰＵ側の思考ルーチンは
先生のほうで用意してあるみたいです。
>>395
すいません。まあちょっと冗談まじりの質問なんで勘弁です。

さっきＶＢの初心者本見たけど。。
ＶＢﾒﾝｿｸｾｪヽ（｀д´）ノパールのほうが余計なこと書かなくていいし楽だよ。。

0397VB使い

NGNG

>>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
才能があるか努力がうまい奴なら出来るだろう。

0398デフォルトの名無しさん

NGNG

>>396
＞ＣＰＵ側の思考ルーチンは先生のほうで用意してあるみたいです。

それを自分で作ったオセロにどう組み込むのか。
ソースで提供されて組み込むのか？クラス化でもされてんのか？

今から勉強しながらコーディングするとして、
人対人のをただひっくり返すのでなければ
明日までには出来ない方に100vbp

0399デフォルトの名無しさん

NGNG

>>397
ありがとうございます。
一応、全くの初心者と書いたんですが。

>>395
すみませんでした。
次からはPC初心者板に行きます。

0400VB使い

NGNG

>>399
初心者にもPC初心者、プログラム初心者、VB初心者とかがあるからね。
ま、頑張れ。

0401399

NGNG

プログラム知識ゼロという意味で書きました。
本当にすみませんでした。以後気を付けます。

0402393

NGNG

皆さん聞いてください！！！
単位はあきらめました！
ﾋｬｯﾎｰ潔い俺、ｶｺ（・∀・）ｲｲ!

0403デフォルトの名無しさん

NGNG

努力しないのカコワルイ

0404VB使い

NGNG

どーでもいいや。腹減ったし。

0405デフォルトの名無しさん

NGNG

あと一日ってとこまで放って置いて何言ってんだｵﾏｴ。
そんなことしてたら何の言語やっても身につかんぞ。

MSDN引きながら死ぬ気でやってみろ。

0406393

NGNG

うぅ。。自分が情けない。。
とりあえず就職を有利にする為にパール以外にも言語を覚えたいので
というか高い金出してＶＢ６を買ってしまったので独学でこつこつ
勉強したいと思います。。レポートは無理です。初心者本を読めば読むほど無理です。。

0407デフォルトの名無しさん

NGNG

VBなんだからとりあえず見た目だけ作ってみれや。
コーディングする必要はないから。
それがVBのいいとこじゃねーか。

それが出来たら、まずどう動かそうか考えろ。
そうして、一番機能の少ないところからコーディングしろ。

初めに４つコマ描写するだけでもいーじゃねーか。
初心者本なんて一から読んでても始まらない。
とりあえず作り始めろ。MSDNで理解できないところが出てきたら
ここに書いて聞け。

明日の５時って17時？もしかしたらできるかもなー。

0408VB最高

NGNG

初心者なんですが、データコントロールを使ってエクセルのデータを
編集したいのですが、プロパティーのコネクトでエクセル8.0を選び
データベースネームでエクセルのデータを選びそのあとのレコードソースを
選択するところでエラーが出てしまします.これは何故ですか？

0409仕様書無しさん

NGNG

>>408
Data Environment使え

0410VB最高

NGNG

Data Environment ってなんですか？
データコントロールのプロパティーにはなかったんですが。

0411デフォルトの名無しさん

NGNG

>>410

0412デフォルトの名無しさん

NGNG

>>410
メニューの[プロジェクト]の中にあるっしょ。
後はWebで調べれば一発さ。

0413VB最高

NGNG

web調べるというのはMSDNで調べるという事ですか？
私はMSDNはインストールしていないのでできません。
他に方法はないのでしょうか？
そもそも「組み込み可能なISAMドライバが見つかりません」というのはどういう意味ですか？

0414デフォルトの名無しさん

NGNG

メッセージボックスを表示して終わるプログラムってできないでしょうか？

0415デフォルトの名無しさん

NGNG

>>414
くめう゛ぁいいじゃん。

0416デフォルトの名無しさん

NGNG

>web調べるというのはMSDNで調べるという事ですか？
>私はMSDNはインストールしていないのでできません。
いやしくも、Windowsプログラマなら、MSDNはインストールしとくべきだし、
msdn.microsoft.com
www.microsoft.com/japan/developer/library/
のくらいはﾌﾞｸﾏｸに入っているべきだ。
そういう意味で、ｱﾝﾀは最低。

0417VB使い

NGNG

>>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に変更。

３．実行

0418デフォルトの名無しさん

NGNG

bmpなどの画像で透明色を使う方法がわかりません。
簡単な方法があれば教えてください。

0419デフォルトの名無しさん

NGNG

>>418
簡単な方法はありません。

0420VB使い

NGNG

>>418
好きなやつをどぞ。
1.XORとANDでマスクデータとカラーデータをBiBlt(PaintPicture)で転送。
2.AlphaBlendなどのAPIを使う
3.自前で計算w

0421VB最高

NGNG

エクセルのデータの取り込みがいまだに出来ません。誰か助けて―。
データコントロールのプロパティーの設定でいくらやってもできねえ。
Recordsourceで▼押したら「組み込み可能なISAMドライバは見つかりません」
とかでるし。マイクロソフトのサポートみてものってねえし。

0422デフォルトの名無しさん

NGNG

>>421
オートメーションでやれば？ ISAMうんぬんは、Jet周りのインストールが
うまくいってない可能性あり。

0423VB最高

NGNG

＞422
何度も申し訳ありませんが、オートメーションというのはどういう意味なのですか？
Jet周りのインストールがうまくいってないというのはどういう意味ですか？
質問ばかりで申し訳ありません.

0424デフォルトの名無しさん

NGNG

visual basic ってワードとかエクセルに付いてますか？

0425デフォルトの名無しさん

NGNG

>>423
http://www.microsoft.com/JAPAN/support/kb/articles/J052/6/03.asp
見れば大体見当つく。
ヘルプの検索をまともに出来ない奴は身につかない。
開発の質問てのは、～～してみましたがうまくいきません。ってのを言う。
～ってなんですか？って聞かれても、大抵の人間は自分で調べろと言うぞ。
調べて理解できないなら聞け。

>>424
VBAなら使えるべ。

0426424

NGNG

VBAとVBの違いって何でしょう？

0427VB使い

NGNG

>>426
VBのいいところ
●ネイティブコンパイルが出来る
●exe単体で配布できる（ランタイムもいるけどたいてい入ってる。）
●速い。
●自由度がVBAに比べると高い。

VBAのいいところ
●Officeのデータをいじりやすい。

てな感じ。

まあ大体一緒だけどねー。

0428424

NGNG

大変参考になりました！
有難うございます！

0429

NGNG

>>426
VBAってのは、VB for Application。すなわち、（Excelなどの）アプリケーションに
依存したもの、ってこと。

アプリケーションがなければ、それ単体で動作することはできない。VBは、
それ単体で動作する。

そういう根本的な違いを理解しましょう。

0430デフォルトの名無しさん

NGNG

タイムスタンプを変更する処理が必要なプログラムを作っているのですが、
肝心の「タイムスタンプ変更」がどうやってやるのかさっぱり見当つきません。
そういうDLLあるいは関数のようなものは存在しませんか？

0431

NGNG

>>430
APIのSetFileTime()を使え

0432デフォルトの名無しさん

NGNG

>>431
ありがとう。setfiletimeでgoogle検索したらｻﾝﾌﾟﾙ見付かったよ！

0433デフォルトの名無しさん

NGNG

次スレ立てるときに１のテンプレートに
　
「宿題・課題は自分でやりましょう」
　
っていれようよ

0434デフォルトの名無しさん

NGNG

プログラミング言語（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時頃までにお願いします！！

0435デフォルトの名無しさん

NGNG

BMPの拡張子をjpgにしただけのﾊﾞｶはperlなんて無理だろ。

0436デフォルトの名無しさん

NGNG

>>434
なぜPerlの問題をここで聞く？
ネタ？
　
この時期になると「明日の5時まで」って言うのが増えるね。

0437デフォルトの名無しさん

NGNG

>>436
こういうのに限って前日まで何もやってないんだよな

0438

NGNG

以前 classに関しての質問をさせていただいたものです。
classを理解していないと仕事はできないというようなことを聞いたんですが、
プロとしてやっていくにあたって classのほかに知っておくべきこととかありますか？

0439デフォルトの名無しさん

NGNG

>>434
プログラミング言語にPerlを採用している学校なんてさっさとやめちまえ。

0440

NGNG

>>438
「わからないこと」を自分で調べる能力。

0441デフォルトの名無しさん

NGNG

>438
せめて基本情報に出てくるレベルの会話ができる事。

0442名無しさんです

NGNG

変数の文字列をshellで立ち上げたアプリ（メモ帳など）
に送る（貼り付け？）様にしたい時、shellの後にctrl+vを
sendkeyしてるのですが、一つ目が立ちあがった時は
うまく行くのですがアプリによっては二つ目以降の
ウインドウがアクティブにならずに貼り付け失敗して
しまいます。

何かウマイ方法（上とは全く別の方法でも可）は
ありませんか？

0443デフォルトの名無しさん

NGNG

sell FileName,vbNormalFocus
sleep 3000

0444442

NGNG

>>443
3秒ですか。待ち時間は短くても大丈夫かな？
試してみます。

0445デフォルトの名無しさん

NGNG

>>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自体の幅を変えるプロパティだったか
メソッドがあった記憶があるけど、漏れは忘れたので調べてくれ。
無かったらｽﾏｿ

0446デフォルトの名無しさん

NGNG

Split関数を使って文字列を分割する際、スペースでもカンマでもタブであっても
区切りたく、またそれぞれの文字が複数あっても区切りたい場合どうしたらいいでしょうか

0447デフォルトの名無しさん

NGNG

>>446
split(replace(replase(str,vbtab,","),space(1),","),",")

0448446

NGNG

>>447
ありがとうございます。
replaseという関数自体はじめて知りました。。。

0449デフォルトの名無しさん

NGNG

VBのコマンドボタンをクリックするだけで、
・HTMLファイルをNetscapeに関連づけ。
・標準で使うブラウザをNetscapeに。
・デスクトップのIEのアイコンを削除。
・IEのプロキシ設定を空白に。
みたいなことは出来ますか？なにせ、わけあってIEを使わせたくないのです。
バッチファイルみたいなのでやるべきでしょうか（やり方分かりませんが…）？

0450デフォルトの名無しさん

NGNG

>>449
レジストリを書き換えるだけだと思いますが

0451449

NGNG

>>450
よろしければ、その方法を教えてもらえませんか？

0452

NGNG

何でも聞かないで、RegMonでも使って監視してみなよ。

0453デフォルトの名無しさん

NGNG

>>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"を実行する

0454デフォルトの名無しさん

NGNG

教えてください

どうしてそんなに知識を無料放出出来るのですか？

0455デフォルトの名無しさん

NGNG

>>454
些細な知識だから

0456VB使い

NGNG

>>454
VBだから

関係ないけどAPIMon.exeってXPで使えた人いる？

0457デフォルトの名無しさん

NGNG

>>101
戻り値の型が違う。

0458デフォルトの名無しさん

NGNG

>>454
それくらいの知識で金とれるかいｗ
2ch系プログラマのオレらにだってミジンコ並みのプライドはあるぞｗｗ

0459デフォルトの名無しさん

NGNG

>>454
暇つぶし。

0460DOSﾏｿ

NGNG

すみません厨房質問です・・・
DOSプロンプトから起動できるVBアプリ作ったんですが（Command関数使って）
メッセージをDOSプロンプト内に表示する方法ってありますか？
普通にMSGBOX使うとDOSで動かしているのにいきなり別のウィンドウがでてきて
うざいんですが・・・

0461

NGNG

★浜崎あゆみ、ライブで足の不自由なファンを吊るし上げ★

人気歌手・浜崎あゆみが、ファンに暴言を吐いた。
最前列で座っている足の不自由なファンに対し、
「前の方、座らないで下さ～い」「どう思う？座ってたよ今！」
「一番前で観てんのに座ってたよ～？」「感じ悪いね～」
と、そのファンに暴言の雨あられ。会場はあゆ支持の歓声を上げ、
ついにはそのファンはその場で泣き出してしまう。
あゆは気にせず、自分のニューアルバムの話を切り出した。
このファンは熱心なあゆファンで、当日も最前列に座っていた。

★実際の音声
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/

0462

NGNG

>>460
これ、実は面倒くさい。リンクオプションを変えてConsoleアプリに
しちゃうって方法もあるけど、WSHで作るのが楽かな。

0463DOSﾏｿ

NGNG

自己レス。
ConsoleWriteを使う方法がわかりました。
DOSﾏﾝｾ（ﾎﾞｿ

0464デフォルトの名無しさん

NGNG

ある文字列の中に A が含まれているとして、これを B に変換したいです。
A は1文字であっても、 AAAAAA のように複数個連続していても B 1つにしたいです。
どうやったら簡単にできますか

0465デフォルトの名無しさん

NGNG

do while　Instr(1,str,"AA")>0
str=replace(str,"AA","A")
loop

0466続き

NGNG

str=replace(str,"A","B")

0467464

NGNG

本当に簡単にできる方法ですね。
わたしはもっと長々書きました。

0468デフォルトの名無しさん

NGNG

どんなコードを書いたのか見てみたい

0469デフォルトの名無しさん

NGNG

VBからoutlookを起動し、添付ファイル付のmailを作成ってどうやればいいですか？

0470デフォルトの名無しさん

NGNG

VBからoutlook expressを起動し、添付ファイル付のmailを作成する方法を教えてください

0471名無しさん

NGNG

Outlook なのか OE なのかはっきりせよ（ｗ

0472469

NGNG

すみません
MS-Outlookです

0473デフォルトの名無しさん

NGNG

VB6SP5+SQLServer2000SP1で開発する場合は、
MDACのバージョンは2.7で問題無しですか？
MDAC2.5ではいかんですよね？
教えてくん。

0474名無しさん

NGNG

最新版入れ解きゃ問題ない＞MDAC

0475名無しさん

NGNG

CDO使えばできる＞Outlook

0476デフォルトの名無しさん

NGNG

＞474
ありがとうございます。
最新版入れときまっす。

0477469

NGNG

すみません、CDOってなんですか？
MSDN検索してもわかりませんでした。

0478デフォルトの名無しさん

NGNG

アクセス2000が入ったマシンで開発したソフトを
アクセス97が入ったマシンで実行できますか

もちろんDBにアクセスを使っています

0479デフォルトの名無しさん

NGNG

VBでチョンボといったらズバリ何だと思いますか

0480デフォルトの名無しさん

NGNG

>>479
Option Explicit
を入れない

0481デフォルトの名無しさん

NGNG

DoEVENTS

魔界の入り口

0482デフォルトの名無しさん

NGNG

>478
Access2kに「旧バージョンへ変換」ってコマンドがあるから、
それを使用して変換すれば97でもOKだよ

0483VB使い

NGNG

>>478
VBは簡単だと心から思うこと

0484VB使い

NGNG

483間違い。>>479です。鬱氏。

0485デフォルトの名無しさん

NGNG

>>479
FormをFrom

0486デフォルトの名無しさん

NGNG

>>479
ｐりヴぁて

0487475

NGNG

このあたりを参考にするとよい。英語ソース中心になっちゃうけど＞CDO
http://www.outlookexchange.com/
http://www.google.com/search?q=CDO+Outlook&hl=ja&lr=

0488475

NGNG

あ、だけどExchangeつかってなくてOutlook単体だったら
VBでOutlookのオブジェクトモデルつつけばもっと楽にできるはず。
ｽﾏｿ当方Exchange経由での経験しかない＞CDO

0489475

NGNG

あ、あとメール送信オブジェクトってってセキュリティアップデートでかなり制約
かかってる。まあリサーチしてみ＞CDO

0490デフォルトの名無しさん

NGNG

参照設定で別のソフトウェアのライブラリを参照してVBから動かしているとき、
呼び出したソフトの処理が終わっていない状態でVBの方のウィンドウをクリック
してりすると
「コンポーネントが応答しないため、この操作を完了できません。
[切り変え]を選択してコンポーネントをアクティブにしてから
問題を解決してください。」
というエラーダイアログがでて来ます。これが出ないようにはできませんか

0491デフォルトの名無しさん

NGNG

>490
ﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘ
ﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑ
ﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘ
ﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑ
ﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘ
ﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑ
ﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘ
ﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑﾘﾑ

0492デフォルトの名無しさん

NGNG

>>490
出さないようにはできないが、これでメッセージの内容を変える事は出来るよ

App.OleRequestPendingMsgText = "ちょっと待てや(ﾟДﾟ)ｺﾞﾙｧ"
App.OleRequestPendingMsgTitle = "動かせません（￣ー￣）ﾆﾔﾘ"
App.OleRequestPendingTimeout = 2000

0493490

NGNG

そんなワザがあったんですか!!
それでも十分OKです。ありがとう

0494469

NGNG

>475
ありがとうございます。
参考しにしてみます。

0495475

NGNG

死ぬなよ＞CDO

0496デフォルトの名無しさん

NGNG

TreeViewコントロールにエクスプローラー風にディレクトリを表示するコードを是非教えてください！
分かる方、よろしくお願いします。

0497デフォルトの名無しさん

NGNG

FORMがあって、その子FORMがあったとして、
ウインドウの後ろに隠れたりで、子FORMが画面から消えた時に
まだ生きているか知るにはどうしたら良いですか。

0498デフォルトの名無しさん

NGNG

がいしゅつかもしれませんが、、
コンパイルオプションの”ﾈｲﾃｨﾌﾞｺｰﾄﾞｺﾝﾊﾟｲﾙ”と”P-Codeｺﾝﾊﾟｲﾙ”の違いってなんでしょ？
”P-Codeｺﾝﾊﾟｲﾙ”でｺﾝﾊﾟｲﾙしてたらまずい？

0499デフォルトの名無しさん

NGNG

>>497
今VBないから自信ないけどformsコレクションでいけるんじゃないかな

0500デフォルトの名無しさん

NGNG

>>496
海外のサイトにサンプルがある。
検索すれば見つかるけど、ソース長いよ。

>>497
Formsコレクション

>>498
P-Codeは、疑似コード(pseudo-code)のこと。CPUは直接実行できない。
ソースと機械語の中間だから、中間コードとも言われてた。

これに対し、ネイティブコードは直接実行できるから、速い。

VBはバージョン４ぐらいまでP-Codeしか吐けなかったから、
他言語ユーザからずっとバカにされてきた。
ふつうは何も気にしないで、ネイティブのままでオッケー。

現在あえてP-Codeにするメリットがあるとしたら、サイズが小さくなること。
リソースなしでもEXEで1MB越えたら、P-Codeにする余地はあるかもね。

0501デフォルトの名無しさん

NGNG

VBがネイティブコードで速いなんて思ってるやつは無知
VBは遅いのは外部ライブラリ呼び出しのため。

もちろんあえてP-Codeにすることもないがな。

0502デフォルトの名無しさん

NGNG

>VBがネイティブコードで速いなんて思ってるやつは無知
そだね。
ネイティブコードにして速くなるのは、主に数値演算処理の部分で
その速度差はほんとに微々たるものだから、相当ヘビーな数値計算でも延々させてないと
他の部分でのオーバーヘッドの影に隠れてほとんど差がでないよ。

>もちろんあえてP-Codeにすることもないがな。

P-Codeにするメリットは開発環境と同じ動作をすること。
ネイティブの場合は、開発環境と動作は同じではないので、
細々としたところで動作の違いがでることがある。
変な動作をするなと思ったら、P-Codeを試してみる価値あり。

0503デフォルトの名無しさん

NGNG

ぴーコードってなんか語彙が情けないんですが、
ひょっとして放送禁止でしたか？

0504デフォルトの名無しさん

NGNG

>>503
是。正式名称ティンココード。

0505デフォルトの名無しさん

NGNG

>>501
P-Codeの質問だったから、しょうがない。
CもVBもネイティブコードなのに、どうして速度が違うの？
って質問されたら、ふれたけど。

>>502
数値演算だけじゃなくて、配列の参照とかもかなり違う。

高速化のためトリッキーなコードを書いて、開発環境で確認。
自信を持ってコンパイルしたら、実際はほとんど効果がなかった(笑)。

0506デフォルトの名無しさん

NGNG

戻った？

0507デフォルトの名無しさん

NGNG

>>445

>　×Dim i, j As Integer
>　○Dim i As Integer, j As Integer
>上の宣言だとiはVariant型になってしまう。気を付けてなー

379ではありませんが、このワナにはまってました。
どうもありがとう。

どうりでString型なのにファイルからIPアドレスを読み込むと
192.168で切れてしまうわけだ・・・

0508デフォルトの名無しさん

NGNG

ApiのGetPrivatePlofileStringとかってByvalで値を渡すじゃないですか・
なんで変数に値が格納されるの？

Byvalって値変わらないんじゃないの？

0509

NGNG

>>508
ポインタの勉強をしましょう。

0510デフォルトの名無しさん

NGNG

>>479
>>486ﾜﾗﾀ
俺がよくやるのは　えんぢｆ

0511デフォルトの名無しさん

NGNG

塩Ｄいｆ

スペースが入るから変換されるのよね

0512デフォルトの名無しさん

NGNG

>>509
( ﾟДﾟ)ﾊｧ!!
Byvalは値渡しだろ？ポインタ関係ないじゃん。
Byrefなら解るけどさ。

#てめぇが勉強してこい猿

0513抵抗Mω ◆rbbbbbbg

NGNG

どうやったらプロジェクトをEXEファイルにできるんですか

0514

NGNG

>>512
はぁ。Cの文字列ってわかる？文字の配列を指すポインタなんだよ。

0515デフォルトの名無しさん

NGNG

>>512
MSDNライブラリで、以下の項目を読みませう
「DLL, DLL プロシージャに文字列を渡す」
理解できたら、DLL プロシージャに**を渡す」を全部読んでくれ・・・

>>514
それだけでは512には理解できないと思われ

>>513
[ﾌｧｲﾙ]－［****.exe の作成］をｸﾘｯｸ
# ﾈﾀﾆﾏｼﾞﾚｽｶｺﾜﾙｲｲ

0516関係ないが

NGNG

＞( ﾟДﾟ)ﾊｧ!!
と( ﾟДﾟ)ﾊｧ!?
些細に見えて実は結構大きな違いなんだな。
つか、上のは違和感ありすぎ。

0517デフォルトの名無しさん

NGNG

>516
昨日の祭り知らない？ネタ？

0518抵抗Mω ◆rbbbbbbg

NGNG

>>515
それが選択不能になってます

0519

NGNG

>>515
だからポインタの勉強しないとね。一から教えてられんし。

>>518
VB5CCEだったりして・・・

0520抵抗Mω ◆rbbbbbbg

NGNG

>>519
ふーん
やっぱり世の中タダは無いのね。

死のう

0521デフォルトの名無しさん

NGNG

>>518
他に書き忘れたことがあったら今のうちに全部書いときなさい

0522512ですが

NGNG

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

要するにbyValでもbyRefでもポインタを投げるのですね。
それでByRefで投げるとString型のヘッダ情報まで投げてしまい、
結果としてString型を壊してしまうので文字情報のポインタのみを
投げるByValを使う。というように理解しました。

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

0523デフォルトの名無しさん

NGNG

>>511
あそっか。
ENDIFって打っても勝手にスペース入れてくれるから
俺はいつもスペース入れないで打ってる。
って人あまりいないよね、やっぱ。

0524>>522

NGNG

>値渡し
>プロシージャに引数として変数を渡す方法の 1 つ。
>値渡し (値による引き渡し) で変数をプロシージャに渡すと、
>元の変数のコピーが作成され、呼び出されたプロシージャに渡されます。
>したがって、呼び出されたプロシージャ内で渡された変数の値を変更しても、
>呼び出し側のプロシージャが参照する元の変数の値は変更されません。

VB厨はコレだから困る

0525

NGNG

>>524
API呼び出しのときと、そうでないときでは話が違うのよ。

0526デフォルトの名無しさん

NGNG

ログ見たんですけど、
Accessのテーブルの存在を確認するのがありましたが、
同様にフィールドの存在を確認する方法を教えてください。
お願いします。

0527

NGNG

>>526
どんな方法使ってるかわからないけど、DAOならFieldオブジェクトで。
つか、Select * でレコードセットを取得して、レコードセットの中の
フィールドを確認するのが楽かも。

0528526

NGNG

>>527
どうもです。
こないだ始めたばっかりで、ADOの本見ながらやってます。
AccessにはSQLでレコードセット取得してやって…ると思います（汁
SELECT * FROM tableで全部取得するのは理解出来ますが、
その状態で現在、レコードセットが握ってるフィールドが何と何か
知る術が分かりません…。

0529デフォルトの名無しさん

NGNG

クラス内にタイマイベント書けないっすか？

0530デフォルトの名無しさん

NGNG

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

0531デフォルトの名無しさん

NGNG

13は今何処にいるのだろう...
[ﾒｱﾄﾞ必見]
http://pc.2ch.net/test/read.cgi/prog/1012381593/l50

0532デフォルトの名無しさん

NGNG

ねーねー
今知ったんだけど、VB5CCEってゆーのを使うと、タダでVBの勉強ができるらしいんだ。
これってどうよ？EXEは作れないけど。

0533デフォルトの名無しさん

NGNG

>>532
SPをダウンロードして、ゴニョゴニョする（した）。

0534デフォルトの名無しさん

NGNG

アンチMSでない先達の方々限定で質問

フォームを破棄したいんだが、こんなカンジで

unload MyForm
set MyForm = Nothing

コレよくサンプルとかでみかける書き方だと思うのだ。
でもUnloadイベントプロシージャとかQuery_Unloadイベントプロシージャで
Cancel=Trueで返したらUnloadされず、参照だけが解放されちゃうよね。
ミステリーでナンカ危険。
どうしたらアンロードを確実にやれる？

Unloadやってみてformsの中を確認ってのはなし。汚エから。
環境はVB6でいいや。さあ

0535デフォルトの名無しさん

NGNG

>>522
>要するにbyValでもbyRefでもポインタを投げるのですね。
あくまでByValは値渡し、ByRefは参照渡し。

ByVal指定のときは、型が違っても変換可能な型なら暗黙に変換してくれます。
UNICODEのBSTR型からSJISのLPTSTR型へ変換してくれてるのさ。

0536デフォルトの名無しさん

NGNG

>>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イベントに書けばいいだけかと。

というか古いサンプルで見かけるものも普通そう書かれているはずだが・・・。
要は、そのサンプルが間違いだな。

0537デフォルトの名無しさん

NGNG

Excelのシートをスクロールさせるには、どうしたらよいのでしょうか？

0538デフォルトの名無しさん

NGNG

VB組み込みのDrive&Dir&FileListBoxって使えないですよね。
もっと良いコントロール探しているのですが、
皆さん、これ使ってるとかこれオススメとかありませんか？

0539デフォルトの名無しさん

NGNG

DBコンボの「▼」をクリックしたときに出る
ムダな空白行を取り除くにはどうしたらいいでしょう。
カッコ悪いことこの上ないです。
よろしくお願いします。

0540VBマスター

NGNG

正直VBなんて製品版買ったってたいしたこと出来ないから
フリーのVB5CCEで十分。
金はもっと有意義なことに使おう。
http://www.microsoft.com/JAPAN/developer/vbasic/Controls/Download.htm

0541うぐぅ

NGNG

>>538

コモンダイアログｗ

0542デフォルトの名無しさん

NGNG

>>540
きみがへたれなだけ。

0543デフォルトの名無しさん

NGNG

なんでVB5なのですか
違いが解らないのですか
それでマスターなのですか
恥を知りませんか
レスは糞でもいいのですか
ネタですか
楽しいですか
何歳ですか
もっと控えめになれませんか
死んでもらえますか
ダメですか
そこをなんとかお願いできませんか

0544デフォルトの名無しさん

NGNG

>>536
>>Cancel=Trueで返したらUnloadされず、参照だけが解放されちゃうよね。
>set MyForm = Nothing
>この記述をUnloadステートメントの直後じゃなく、
>Unloadイベントに書けばいいだけかと。

残念。ここでいうMyFormはデフォルトのフォームじゃなくて
set MyForm = new MyHome
で生成したものなのだあ。
よってもし、おっしゃるやり方をUnloadイベントプロシージャでやるとなると
set Me = Nothing
となる。やってみると当然だがだめ。
一応ひっかけたつもりはなかったがゴメン
他の回答ないか～。

次の話題
毎度悩むのだが
フォームの中に閉じるとか終了ボタンとかを設けるというのは
業務プログラムのデフォのデフォだと思うのだが、
これらのボタンと同じことをシステムメニューの閉じるでもやりたい。
でもできない。システムメニューの閉じるはUnload Meとでも直結しているかの
振る舞いだからなー？

大抵散々プログラムをこねくり回した挙句に
システムメニューの閉じるを使用不可とかにしている。でもAPIのお世話に
なっている時点で負け決定な上に、カッコー悪い。いかにもブイビーってカンジ。
他の衆ラはどやってんの？

0545環境はVB6SP3＠今はJavaの仕事中

NGNG

漏れならプロパティ追加して回避する
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

0546538

NGNG

>>541
ダイアログ形式ではなくてフォームに組み込みたいんですよ。
Exolorerのような表示ができるocxはフリーソフトで見つけたのですが
もっと機能が充実してる（フォルダの追加等ができたり
特定の拡張子を含むフォルダのみを表示できたり）のは無いかなと思って。

0547475

NGNG

そそのOCXﾎｼｲ！
どこでﾀﾞｳｿできますか？

0548デフォルトの名無しさん

NGNG

う～ん。やはりフォームの動きを分かっていない人が多そうだな。
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
がどういう意味なのかわかるよ。

0549デフォルトの名無しさん

NGNG

>>548
545じゃダメなのか

0550548

NGNG

ダメとは言わない。
だがNoExitにかかわるコードは意味が無い。
全部なくしても同じように動くし、
If Not MyForm.NoExit Then
　　Set MyForm = Nothing
End If
を
Set MyForm = Nothing
と書き換えても問題ない。

# と思う。
# >>545は>>544の答えとして書いていると思うが、ちょっと
# 理解できなかった。間違って解釈してたらゴメン。

0551デフォルトの名無しさん

NGNG

つかさ、NoExitってFormのパブリック変数だべ？
なんでFormが解放されてからも参照が続くのか理解できんのだが。

俺は
for Each frmObj In VB.Forms
Unload frmObj
next
Set MyForm=Nothing

ってやるかも。

0552548

NGNG

>>551
アンロードとNothingを代入するのは意味が違う。
Nothingを代入してもFormが消えるとは限らない。
Formが消えるのは、Formsも含めて、全ての参照がなくなったとき。
アンロードとはFormsから参照を削除すること。
Unload MyFormでアンロードされてもMyFormは生きている。
MyFormアンロードされて、MyFormがNothingになるかスコープから
削除された時点でFormは消える。

0553デフォルトの名無しさん

NGNG

1000レコードが格納されたリザルトセットが
存在するとして、そのリザルトセットの
内容をそのまま、コレクションオブジェクトに再格納します。
その場合、元となったリザルトセットと１０００レコードが格納されたコレクションは
どちらが、メモリを多く消費しているのでしょうか？
リザルトセットは、内部にヴァリアントを多く抱えているので、
メモリ消費量が大きいような気がしますが。
このような、メモリ使用量を測定するようなAPIもしくは方法を探しています。
DBから取得したレコードはやはりコレクションに格納したほうがいいのでしょうか？
リザルトセットのままでもいいような気がするのですが。
1000レコード中か目標の1レコードを取得するのにかかる
時間は、やっぱりコレクションのほうが早いのでしょうか？
また、コレクションは、JAVAのようにインデックスに
ハッシュテーブルを作成しているのですか？

色々聞いてしまって申し訳ありません。

0554デフォルトの名無しさん

NGNG

AA～ZZまでの全ての文字列のﾊﾟﾀｰﾝを組み、
それひとつひとつをCSVに追加保存したい。

VBでこれをやるのはムリですか？

0555デフォルトの名無しさん

NGNG

>>554
2重forで実現可能です。

0556デフォルトの名無しさん

NGNG

VBでやっても無駄コードが増えるだけ

0557質問者っすけど...

NGNG

>>548
>MSDNの「Visual Basic フォームの有効期間」とかFormsコレクションとか
>クラスについて調べると良い。
>
>これらを理解すると
>unload MyForm
>set MyForm = Nothing
>がどういう意味なのかわかるよ。

いやMSDNのそれはヒントがないか何度も読みなおしたのだが、
オレ的にはどうしようもないとしか読めなかったよん。
読解力が不足している？

というか548さん的には
>unload MyForm
>set MyForm = Nothing
においてunloadイベントをキャンセルした、させられたときに
その直後のset..Nothingによって、フォーム資源は解放されないまま
制御のためのインスタンスへの参照が解放されてしまう非常事態を回避スル？

ウンチクとか仕組みとか技術解説は模範回答の後希望
つーか、初心者連中とかハッキリ書いちゃうところがドキュソだな。

0558デフォルトの名無しさん

NGNG

「goo」で全くレスがつかなかった質問です。

入力されたパスワードを暗号化するのに、MD5やSHA-1などの
一方向性ハッシュ関数を使いたいと思っています。

MD5に関してはＣ言語のソースがRFCで公開されているのですが、
正直言って読んでもさっぱり解りませんでした。

VBから利用できるハッシュ関数のサンプル・DLLなど公開されているところは
ありませんか？

0559デフォルトの名無しさん

NGNG

無い。

0560デフォルトの名無しさん

NGNG

>>559

　　　　　　　　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　|　そんなことゆわずにお願いしまプ～
　　Λ＿Λ　 ∠＿＿＿＿＿＿＿＿＿＿＿
　　（；´Д｀）
　（ ( つ ⊂ ））
　　〉　〉くく
（（＿_）（＿.）） ...ｶﾞｸｶﾞｸ

0561デフォルトの名無しさん

NGNG

>>558
32文字とかではダメ？
google「VB ハッシュ関数」の１番目。

0562デフォルトの名無しさん

NGNG

ＲＯＭから吸い出したデーターを画像表示させたいんだが
Ｌｉｎｅ文章で色つき箱を書いたんだがとても遅く
実用に耐えられない・・・。
できれば、ビットマップとして扱いたいんだが・・・。

0563デフォルトの名無しさん

NGNG

>>562
BoxFullのLineでやった？

それと、裏画面に描いて、オモテに転送するっていうのは常識だと思うけど。
あるいは、描画中リフレッシュをやめるか、回数を間引きする。

0564デフォルトの名無しさん

NGNG

>>563
その通り！！
裏画面で書いて表に転送するのは常識ですか・・・。
ＶＢやって３週間、奥深いねぇー。
うーん、難しい

0565デフォルトの名無しさん

NGNG

>>564
業務系じゃなくて、ゲーム系の常識ね。すまそ。

でも、VBのLineBFはそんなに遅くないはずなんだけど。
おかしいなあ。まさかTwips座標系でやってるとかはないよね。
最小限再現できるコードを見せてもらうほうが話は早いんだけど。

0566デフォルトの名無しさん

NGNG

>>561
ありがとうございます！
blowfishﾓｼﾞｭｰﾙも一緒にもらってきました。

0567デフォルトの名無しさん

NGNG

>>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

こんな感じ・・・・。

0568デフォルトの名無しさん

NGNG

>>
右下角の座標は、-Step(50,50)のほうがいいね。
でも、本当に51×51ドットサイズなの？
RGB値は、ユーザ定義型にすれば一気に読めるかなあ。
そんなことで速くはならないけど。

0569デフォルトの名無しさん

NGNG

>>568
ありがとう！！
うーん、ユーザー定義型ですか？
それってなに？
自分が想像するにｒｏｍには色情報がはいっていると見ているんです。
多分２５６色・・・。

0570デフォルトの名無しさん

NGNG

＞569
VBのユーザ定義型は、Cで言うと構造体のこと。
一度に3バイト代入できても、見た目がすっきりするだけかな。

上のコードが何回ループするの？
ROMってゲーム機のROM？

0571デフォルトの名無しさん

NGNG

>>570
ループはそうだな１Ｍビット程度
パチンコの画像ＲＯＭなんだな・・・。

0572デフォルトの名無しさん

NGNG

>>571
それなら、メモリ上にDIBビットマップ配列を作って、一気に転送すると
速いけど、さすにがVB歴３週間ではちょっと面倒かも。
でも、コンバートは一度やればいい(？)から、時間かかってもいいじゃん。

0573デフォルトの名無しさん

NGNG

>>572
ちなみにどのようにすればいいのかな？

0574デフォルトの名無しさん

NGNG

1Mビット＝128Kバイト
RGB各1バイトとすると、3で割るから4500万回ループ？
Refresh回数を1000回に1回とかに減らすと劇的に速くなるよ。

0575デフォルトの名無しさん

NGNG

>>573
このページを参考に。
ttp://www.surveytec.com/prog/vb/kouza2/chap2.html

0576デフォルトの名無しさん

NGNG

>>574
分からないけど、ありがとう！！
そろそろ寝ます。

0577デフォルトの名無しさん

NGNG

パチンコの画面は小さいはずだから、やっぱりVBのスケールモードが
PixelじゃなくてTwipsになってるんじゃないのかな？

0578デフォルトの名無しさん

NGNG

>>576
BMPの内部格納はふつうと逆で、右下から左上の順だからね。

0579デフォルトの名無しさん

NGNG

よく分からんけど、Formもプロセス終了時には開放されるんでしょ。
Endってかいとくのは、ダメ?

0580デフォルトの名無しさん

NGNG

>>553
実際に情報を格納しておくのは、
コレクションじゃなくて、クラスのインスタンスでは?
コレクションは、インスタンスへの参照を保持しているだけ。

メモリーの使われ方は、インスタンスの配列を作って、
そのアドレスを表示させれば分かると思うけど、VarPtrでできるかなあ。
あとは、パフォーマンスモニタで、Process - Private Bytes - そのExeのプロセス
で多少はメモリーの使われ具合が把握できる。

コレクションのキーの実装は、たぶんハッシュだと思うが、
速いかどうかは、自分でテストしてみるのが一番良い。

0581580

NGNG

VarPtr（オブジェクト型)をやっても、参照のポインタがとれるだけでした。
つまり、4バイトずつ、ずれていくだけ。

0582oyj

NGNG

このたび独自のブラウザを作成したいと思い
ネットのさまざまな場所で調べましたが、
IEの文字のサイズを変更する方法と
お気に入りを操作する方法がわかりませんでした。

IEの文字のサイズを変更する方法ですが
ExecWBを使って変更しようとしましたが
現在のサイズを取得することしかできませんでした。

お気に入りの操作は[Favorites]フォルダを見つけることで
独自ででも作れるのですが何かもっとスマートな方法があれば
知りたいと思っています。

知っている方がいましたら教えてください。

開発環境
Win98SE
VB6LE
IE5.00

0583デフォルトの名無しさん

NGNG

IEのコンポーネントを使うだけで、独自のブラウザーか、おめでてーな

0584oyj

NGNG

あくまでも「目的ができたらそれで良し」なもんで。

0585デフォルトの名無しさん

NGNG

1.23456789012346E+19という数値を"12345678901234567890"という文字列に
変換するにはどうすればよいのでしょうか。

0586585

NGNG

すいません、頭の悪いことを口走りました。ごめんなさい。

0587デフォルトの名無しさん

NGNG

>>558
md5 dll vb でGoogle検索しる。
手っ取り早く言うとココだな。
http://userpages.umbc.edu/~mabzug1/cs/md5/md5.html

0588デフォルトの名無しさん

NGNG

>このたび独自のブラウザを作成したいと思い
> ネットのさまざまな場所で調べましたが、
> IEの文字のサイズを変更する方法と
> お気に入りを操作する方法がわかりませんでした。
donutのソース嫁。

0589oyj

NGNG

DonutはVC++で作られていますが
それがVBででも生かせすのですね。
アドバイスありがとうございます。

0590デフォルトの名無しさん

NGNG

>>587
どうもありがとうございました！
早速使用してみましたが・・・
>>561のモジュールと結果が違うのはどうしてなんでしょう？

0591デフォルトの名無しさん

NGNG

>>590
561のやつにはバグがある予感。
とゆーか、10進数で出てくるな…。DLLの方は16進数だ。
MD5って16進数表現だったような気が。

0592デフォルトの名無しさん

NGNG

>>591
作者氏は「忠実に移植」したと言ってますが。。。

＞MD5って16進数表現だったような気が。
なるほど、DLLの方が信頼性高いかな？
ｼｽﾃﾑﾌｫﾙﾀﾞにコピーする必要があるのが残念ですが

0593デフォルトの名無しさん

NGNG

msgboxを表示させるときにbeep音がなりますけど、あれって鳴らさないようにすることって
できますか？

0594デフォルトの名無しさん

NGNG

VCCE5を勉強したいのですが、これってVB５の本でいいのですか？
それと、VB.NETはまだ無料でダウンロードできますか？

0595デフォルトの名無しさん

NGNG

>>593
耳せんをする

0596デフォルトの名無しさん

NGNG

レジストリいじればなんとかなった気が。

0597デフォルトの名無しさん

NGNG

>>592
いま簡単に検証してみたけど、処理そのものはあってるよ。
ただ、出力が10進数になってるだけで。
451行目を
strMD5 = strMD5 & Right("0" & LCase(CStr(Hex(bytRV(j)))), 2)
にとすれば、RFC1321の奴と同じ出力が得られるよ。
＃　HexとLCaseかませただけね

>>591
MD5の出力は本来は「128bit長の整数」で、
一般的に見る形式はそれを16バイトの配列と解釈し、
個々のバイトを16進数表記にした文字列をして表現してるだけ。
だから、10進数で表現してもそれはそれで間違いじゃないので念のため。

0598デフォルトの名無しさん

NGNG

>>582
IE の shdocvw.dll にある DoAddToFavDlg と DoOrganizeFavDlg

0599デフォルトの名無しさん

NGNG

>>597
> にとすれば、RFC1321の奴と同じ出力が得られるよ。

おお、確かに！ではこちらを使わせていただこう。
勉強になりました。

0600デフォルトの名無しさん

NGNG

>>593
よくある方法として、MsgBox を改造したい場合
Form で自作する。

0601593

NGNG

>>600
やっぱり素ではできないんですね。
自作することにします。
ありがとうございました。

0602デフォルトの名無しさん

NGNG

友達のVB（プロフェッショナル版・ライセンス取得）でソフトを作成して、
友人の名前ではなく自分の名前でフリーソフトとして公開したら違法ですか。
（あくまで、私の名前で）
その場合、私、友人、両方、誰が悪人になりますか？
開発した環境は友人のパソコンです。友人に許可も取っています。
そのソフトからVBのIDやライセンス保持者の名前はわかるんでしょうか。
友人は、俺が許可しているんだから大丈夫といっていますが怪しいです？
知りたいのは、IDが作成ソフトから確認できるのかということです。

0603デフォルトの名無しさん

NGNG

>>602
例えば他人のパソコンを借りて作成しても
著作権は作った人のもの。だから別に関係無いんじゃね？

0604デフォルトの名無しさん

NGNG

>602
たしかIDで同定することは可能だったと思う。
ただし、フリーソフトのIDをいちいち調べて、登録ユーザかどうか
チェックすることはしない。ウィルスとかでない限り。

まあ、使用許諾違反であることは間違いないから、
実名ではなく、ハンドルで公開したら？

0605ミタカ

NGNG

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)
のように値を設定した時の関数の値を教えてください。

0606デフォルトの名無しさん

NGNG

>>605
あちこちにおんなじこと書くなよ。
自分さえ答えがよければそれでいいのか?
一回質問したら、何時間か待ってろよ。

0607デフォルトの名無しさん

NGNG

VB6.0を使って人達へ、
VB.NETになって泣くなよ。

言語そのものじゃなくて、プログラミングとその概念を学習しとけよ。

0608デフォルトの名無しさん

NGNG

>>605
自分でやってみれば？

0609デフォルトの名無しさん

NGNG

>607
.NETになって泣く人はVB6.0を使えてない人だし。
ってか初心者スレなんで煽りはご勘弁願いたい

0610デフォルトの名無しさん

NGNG

>>607
VBとVC++を使ってる俺はどうしたらいいですか?

0611デフォルトの名無しさん

NGNG

>>602
それが違法だってんなら友達の家でゲームやるのも違法になるのでは。
ＶＢを入れてるパソが一台だけなら２人同時には使えないわけじゃん。
俺は問題無いと思うけど？
そのＶＢを自分のパソに入れて使ったら間違いなく違法だけど。

所有する全てのマシンにソフト入れてるけど
同時使用数を調べてその数だけライセンス買ってるって会社もあるよ。

0612デフォルトの名無しさん

NGNG

>>547　ここです。
SHTree エクスプローラと同じツリー表示を得るためのActiveXコントロール
http://www.vector.co.jp/soft/win95/prog/se112351.html

で、>>538に答えてくれる人！だれかいませんか・・・？

0613デフォルトの名無しさん

NGNG

VBを覚えたらバイナリエディタなどで表示される内容を
理解できますかいな？

0614デフォルトの名無しさん

NGNG

>>613
？？？
VBとは関係ないんじゃない？

0615デフォルトの名無しさん

NGNG

>>613
EXEやDLLなら86系の機械語を勉強せれ
JPG,GIFとかなら規格書を読め
XLSやPDFならソフト作ったメーカーに聞け

0616デフォルトの名無しさん

NGNG

>>615
＞XLSやPDFならソフト作ったメーカーに聞け
本当に教えてくれるの？

0617

NGNG

Excelのフォーマットなら過去に公開されてるし、PDFもSDKがある。

0618デフォルトの名無しさん

NGNG

>>616
615は無料で教えてくれるとは言ってないｗ
ＭＳを買い取ればマンツーマンで教えてもらえるんじゃない？ｗｗ

0619デフォルトの名無しさん

NGNG

>>611
>それが違法だってんなら友達の家でゲームやるのも違法になるのでは。

使用許諾契約書(LICENSE.TXT)を読みなさい。
このライセンスはMSと客の間の契約だから、他のソフトウェアはまったく無関係。

>ＶＢを入れてるパソが一台だけなら２人同時には使えないわけじゃん。

ちなみに、普通に市販されているVBのライセンス形態は１人の人に対して
ライセンスを許諾している。だから、何台にでもインストールしてよいが、
使用できるのはただ一人。同時だとか同時じゃないとかは関係なし。

>俺は問題無いと思うけど？
(藁)

>所有する全てのマシンにソフト入れてるけど
>同時使用数を調べてその数だけライセンス買ってるって会社もあるよ。

当然、ライセンス形態が違えば、また話は違ってくる。

0620611

NGNG

使用許諾契約書(LICENSE.TXT)を読みなさい。

　読みたくない（Ｗ
　わかりやすく要約してくれてありがと。
　そっかー、何台にでもインストールしていいんだ。
　いい事聞いた。

0621助けて＠女性社員

NGNG

VB６でリンカに送られてるコマンドラインを
「/SUBSYSTEM:windows,4.0」からこれを「/SUBSYSTEM:CONSOLE」にしろといわれたのですが
これってどうやるのでしょうか？

0622

NGNG

>>621
Link.exe とかって名前の実行ファイルを作って、それから真のリンカ
を呼び出せばいいんじゃない？

0623顔

NGNG

はじめまして。
今、ＤＯＳプロンプトから起動するプログラムを作っているのですが、
ＶＢからＤＯＳプロンプトへエラーメッセージなどの文字を出力する
方法がわかりません。
どなたか教えていただけないでしょうか？

0624デフォルトの名無しさん

NGNG

>>621
API使ってる？WirteConsoleとか。
WriteConsoleだったら、lpBufferに格納してるのが出力されてると
思うんですが。

的はずれだったらｽﾏﾝ。

0625顔

NGNG

どうもーつかってますー
だけど新しいコンソールウィンドウが開いちゃうんですよ・・・

今使っているDOS窓でメッセージ表示させたいのですが

0626

NGNG

>>623 >>621の方法を使うか、VBSでも使え。

0627デフォルトの名無しさん

NGNG

何の雑誌だったかわすれたけど
ＶＢのアカデミックパックを自分の子供（幼稚園児）名義で買えるか？
って企画があった。
結論から言うとＭＳのライセンスは幼稚園生でもかまわないが
電話を含むサポートは本人からしか受け付けないというオチだった。

0628名無しさん

NGNG

621の方法がDOSと関係あるの？

0629デフォルトの名無しさん

NGNG

電話で、どうやって本人だと確認するんだ？

0630デフォルトの名無しさん

NGNG

>>627
サポートが受けられる受けられない以前に、子供以外は使っちゃいかんとおもうが。

0631デフォルトの名無しさん

NGNG

MSのサポートなんかイラネぇよ！
ってやつは幼稚園児に買わせてもいいってことか

0632名無しさん

NGNG

ｽﾏｿ便乗。＞＞621ってコンソールに文字列表示するのと関係あるの？
というかコンパイルとかビルドってIDE以外でやったことないが・・・

0633デフォルトの名無しさん

NGNG

visual basicでsocksについて解説してるサイトないですか？

0634VBは久しぶり

NGNG

TrueDBGridの7.0を使っています。このバージョンは初めてです。

設計時のプロパティ画面ンから、列の幅を数値で指定しようと思ったのですが、
Columnのプロパティにwidthがありません。7.0になって動作が変わったのでしょうか？

0635デフォルトの名無しさん

NGNG

VBで作ったバイナリって、IDが埋め込まれてるの？
どのマシンで作ったか、ってわかっちゃうの？
じゃーゲーツをバカにするソフトとか作ると、ヤクザが家にきちゃう？

0636デフォルトの名無しさん

NGNG

今まで知らなかったのかよ。そんなの常識

0637デフォルトの名無しさん

NGNG

某社の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

0638

NGNG

>>637
なぜにLongを返そうとしてるの？つか、何がやりたいのかぜんぜんわからん。

0639デフォルトの名無しさん

NGNG

Excel VBAについて質問なんですが、

Sheet2のA50のセルに値があるか？
　あれば、(次の行)A51のセルに値があるか？
　　あれば、(次の行)A52のセルに値があるか？
　　　あれば、・・・・
なければ、終了。

で、A50-E50から値のあった行までをコピーする。
（A53まで値があれば、A53-E53まで）

そしたらSheet1のA50を選択してペーストする

という動作をやりたいのですが。。

0640デフォルトの名無しさん

NGNG

>>637
いや、Gridをダミーに入れ替えてコンパイルを通したいだけなんですけど、、
何をしているのかは私も不明、、

っていうか今回上の関数二つとも使わないので
「＃IF」で囲んで殺してしまってもいいんですが
似たような関数がたくさんあるので手動でたくさんの個所をいじると
バグ作り込みそうで恐いのです。

0641637 640

NGNG

>>640 の>637へのリンクは>>638へ読み替えてください

0642デフォルトの名無しさん

NGNG

VBで作ったバイナリに、個別のIDが組み込まれていて、誰が作ったか追跡できるって本当なの？
ソースはある？

0643

NGNG

>>640
コンパイルエラーが出る理由は、関数に値を設定しようとしてるからでは？
Control型の代わりに使うんだったら、Object型だね。

0644

NGNG

>>642
うそに決まってんじゃん

0645デフォルトの名無しさん

NGNG

>642
それどころか、遺伝子情報が埋め込まれるから作った人間も追跡できるよ。

0646デフォルトの名無しさん

NGNG

ＤＮＡ、とか…

0647デフォルトの名無しさん

NGNG

>>625
VBで作られたウィルスがニュースにならないのはそのIDを元にして
簡単に犯人を特定できるから。
広まる前にﾀｲｰﾎされちゃうんだよ。裏では有名な話。

0648633

NGNG

socks…

0649デフォルトの名無しさん

NGNG

VB製のウイルスってランタイムいるんですか？

0650デフォルトの名無しさん

NGNG

>>637
よー分からんのですが、クラスにControlのインターフェイス持たせたいなら
Implements Control
ってやるよろし

0651デフォルトの名無しさん

NGNG

>>637
言ってることがさっぱりわからん。
コントロール作りたいならコントロールのプロジェクトを選べばいいと思うが。

0652デフォルトの名無しさん

NGNG

>>649
いる

0653VBA初心者

NGNG

>>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

0654デフォルトの名無しさん

NGNG

＞625
標準ウィンドウハンドルの取得を間違えてるだけでは？

＞635,642
同定(＝identify)できるだけって書いたろ？！
ほかで何かを公開してなかったら、どこの誰かまではわからない。

＞649
Win98以降、ランタイムは最初から入ってる。

0655デフォルトの名無しさん

NGNG

>>654
>Win98以降、ランタイムは最初から入ってる。
それはVB5までの(標準)ランタイムね。

Win95,NT4.0時ではVB2ランタイム。
WinMe以降はVB6ランタイムまで入っている。

0656デフォルトの名無しさん

NGNG

ちなみにSPは当たってないからウィルス作るときはSPのバージョンにも気をつけよう。
ﾀﾏｰﾆ動かないことあります．
最新はSP5ね。

0657仕様書無しさん

NGNG

VBって何ビットなんですか？

0658名無しさん

NGNG

ｽﾏｿ便乗。＞＞621ってコンソールに文字列表示するのと関係あるの？
というかコンパイルとかビルドってIDE以外でやったことないが・・・

0659デフォルトの名無しさん

NGNG

>>621 >>658
リンカにSUBSYSTEMの指定をするのは、Cでの話。
多分、Cができる人にからかわれただけだと思う。

APIのWriteConsoleが正解。

0660デフォルトの名無しさん

NGNG

MSDNがなぜか開けなくなってしまったんですが・・・
分かる人いたらお願いします。

VB6
WindowsXP

0661顔

NGNG

しかしAPIのWriteConsoleを使うと新しいコンソールウィンドウがひらいちゃうんですよ。。。
今使っているコンソール内にメッセージを表示させたいんです。。。

0662デフォルトの名無しさん

NGNG

>>660
XPの再インストールとかしてみた？

0663デフォルトの名無しさん

NGNG

>>660
昔同じ問題にあったことがある････
あー････。。教えてあげたいが解決方法が思いだせん。。
直接MSDNは開けるのかな？
関連付け設定みたいなの見直せればいいけどね。

0664660

NGNG

>>662
やっぱりそれしかないんですかね？

0665デフォルトの七誌さん

NGNG

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

0666660

NGNG

うーん。
ていうか、VBからMSDNを開こうとすると、[応答なし]になります。

0667デフォルトの名無しさん

NGNG

PCを再起動してみてMSDNだけを起動してみては？

0668

NGNG

>>659
おいおい。VB Magazineにも紹介された、伝統的な技だぞ

0669660

NGNG

>>667
MSDNフォルダ開いてみたんですが、
どれを起動すればいいのか分からないんですが・・・

0670デフォルトの名無しさん

NGNG

>>669
ん？スタートメニューからいけるとおもうけど｡｡
どうもVBとMSDN再インストールしたほうがよさそうかなぁ

0671660

NGNG

>>662,>>663,>>667,>>670

みなさんありがとうございました。
一度MSDNを単独で開き、
VBからもう一度開いてみたら問題なく開けました。
これで、安心してプログラム書けます。

0672565

NGNG

>>668 さん
すみませんどうやってやるのでしょうか？

0673565

NGNG

すみませんどうやってやるのでしょうか？その設定の変え方？

0674デフォルトの名無しさん

NGNG

>>661
どうやってるのかわからんが、ハンドルを取得できてないだけでは？
DOS窓の設定をいじれるなら、クリップボード経由で送るのが厨房向き。

0675デフォルトの名無しさん

NGNG

VB6 Enterprise +SP5ですが、
ここに参照設定でExcelのLibraryを組み込んで、
オブジェクトブラウザでExcelのクラスとかをどんなのがあるのかな～、
ってヘルプを見ようとするとヘルプがありません、となります。
MSDNはちゃんと組み込んでるつもりなんですが、
あ、Excel2002だからかな？誰か分かる人います？

0676659

NGNG

むむ、リンカにオプションを指定する方法があるの?
調べたけど、
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 とかって名前の実行ファイルを作って、それから真のリンカ
> を呼び出せばいいんじゃない？

この組み合わせでできるのか?

0677659

NGNG

>>621
> 621 名前：助けて＠女性社員投稿日：02/02/05 10:53
> VB６でリンカに送られてるコマンドラインを
> 「/SUBSYSTEM:windows,4.0」からこれを「/SUBSYSTEM:CONSOLE」にしろといわれたのですが
> これってどうやるのでしょうか

そもそも、これを教えてくれた人は、
なぜ、詳しいやり方を教えてくれなかったんだろ?

0678

NGNG

>>676
IDEだから、オプションを変更する方法はありません。面倒だから、VB7使えば？

0679デフォルトの名無しさん

NGNG

editbinでsubsystemを書き換えればいいのでわ？

0680ななし

NGNG

http://www.alpha-net.ne.jp/users2/kone/back/nikkib2.html
このサイトみてやり方わからなかったんじゃないの？
検索するとこのサイトしかひっかからんぞ

0681ななし

NGNG

それにしてもやりかたわからないな
システムの環境変数いじればいいのか？

0682ななし

NGNG

このサイトの掲示板で質問してみるか…？

0683デフォルトの名無しさん

NGNG

Ｗｅｂでいろいろ探して見たのですが、よくわからないので質問があります。
他のアプリケーションのＩＭＥ入力を制御することは出来ますか？
例えば、自作のＶＢアプリケーションからWindowsのメモ帳のＩＭＥ入力のＯＮ，ＯＦＦ切り替えを行うなどしたいのですが、どうも上手くできません。
どなかたお力を貸して欲しいです。

0684名無しさん

NGNG

すみません誰か621さんのやりかたを詳しく教えてください！
どうやってSUBSYSTEM:CONSOLEにするのでｓか？

0685デフォルトの名無しさん

NGNG

>>653さんへ
見事に出来ました。どうもありがとございました。

0686659

NGNG

お、とりあえず　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で作らんほうがいいな。失敗。

0687名無しさん

NGNG

入れ替えってどうやるのですか？お願いします！

0688

NGNG

Link.exeってのがあるだろ？それを別の名前で保存すればいい。
で、

Sub Main()
　　msgbox Command
End Sub

とかってすれば、何が渡されてるかわかる。で、そのコマンドラインを引数に、
Shellで起動してやればいいんじゃないか？

Shell "Link.exe" & Replace(Command, "WINDOWS､4.0", "CONSOLE")

0689デフォルトの名無しさん

NGNG

無視されてるし...
コマンド打つのは嫌い？
>editbin /subsystem:console foo.exe

0690デフォルトの名無しさん

NGNG

>>684
ファイル→exeの作成→オプション→実行可能ファイルの作成→コマンドライン引数で、
/SUBSYSTEM:CONSOLE
かな。

引数の種類は、VB本体と同じフォルダでDOS窓を開き「LINK /?」を実行すればわかる。

0691デフォルトの名無しさん

NGNG

>>683
メモ帳のIMEをONにするにはハンドルを取得し、APIのImmSetOpenStatus等を使う。
しかし、どうしてメモ帳？　　自作の入力用フォームならIME制御が簡単なのに。

0692659

NGNG

>>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;
}

0693名無しさん

NGNG

SUBSYSTEMの件、できました！皆さんありがとう！
EDITBINってこのマシンにはないですが探して見ます！

0694659

NGNG

成功したらやり方ぐらい書けや、ボケ!

0695デフォルトの名無しさん

NGNG

Excel VBAで質問です。
xslファイルと同じディレクトリにある固定のファイルをいつも
外部データの取り込みから開きたいのですがうまくいきません。
何故でしょうか。
ﾃﾞｽｸﾄｯﾌﾟで二つをファイルを操作している時は正常ですが
他のフォルダへ二つを移動してやると
「ファイルが移動または名前が変更されていないことを確認し、
再度実行してください。」と出ます。

0696695

NGNG

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

0697デフォルトの名無しさん

NGNG

ActiveWorkbook.Path を使うんじゃダメ？

0698デフォルトの名無しさん

NGNG

http://cgi.members.interq.or.jp/hokkaido/asato/upload/jam3ddr/OB000988.jpg

0699デフォルトの名無しさん

NGNG

>>695
EXCELでマクロを記録して、それを参考にVBへ移植しる

0700デフォルトの名無しさん

NGNG

>691さん、ありがとうございました。
しかし、InputContextがうまく取得できていないようでＩＭＥを切り替えることが
できません。

lgHWnd = FindWindow("Notepad", vbNullString)
lgIMEHandle = ImmGetContext(lgHWnd)
Call ImmSetOpenStatus(lngIMEHandle, 1)

と、やっているのですがどこがマズイのでしょうか

0701デフォルトの名無しさん

NGNG

エクセルでデータを入力してるのですが、
　　　　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・・・　というように列ごとに
テキストファイルを書き出すことはできますか？
マクロを組んだことがないのでよく分からんのです。
教えて君でｽﾏｿ

0702

NGNG

>>700
たしか、自アプリ以外のコンテキストハンドルはとれないはず。
AttachInputThread()してもダメかな？

>>701
Range("A1").Value で、A1の値が取得できる。ということで、順番に
取得しながら連結していけばおっけー。

0703

NGNG

>>702
AttachThreadInput()だった。鬱死

0704デフォルトの名無しさん

NGNG

>>701
エクセルＶＢＡ質問＆研究板
http://pc.2ch.net/test/read.cgi/bsoft/1008219498/l50

0705デフォルトの名無しさん

NGNG

API関数ReadFileでバイト配列にテキストファイルを読み込み、
それをテキストボックスに表示したいんですが、どうすればいいのでしょうか。
えーと、バイト配列にテキストファイルを読み込むまでは出来てます。
バイト配列に入ってるデータをテキストとして、テキストボックスに表示したいです。

0706

NGNG

>>705
バイト配列は、そのままString型の文字列に設定できます。つまり、
Text1.Text = b() という感じで。

Unicode変換する必要があるかもしれないけど。

0707705

NGNG

うーん、Text1.Text = b()ってやってみましたが駄目でした。
Unicode変換って、StrConv関数でいいんですか？

0708

NGNG

>>707
どうダメだった？文字化けしてるなら、StrConvでUnicode変換でいけるかと。

0709705

NGNG

なーんも表示されません。
Text1.Text = StrConv(b(), vbUnicode)
ってやっても何も表示されません。
b()はウォッチウィンドウで見て確かにデータ入ってますし、
WriteFileで書き込んでみたらちゃんと目的のテキストが保存されてるので、
b()が実は空っぽとか、そういうことはないと思います。

0710700

NGNG

>>702
AttachInputThreadの使い方がわからん。
サンプル希望です。
情けないっす。

0711705

NGNG

すみません、よくわかりませんがちゃんと表示されるようになりました。
どこも弄ったつもりないんだけど・・・今まで何が悪かったのか分からない・・・。
ま、動いてるから良しとします。
ありがとうございました。

0712701

NGNG

>>704　向こうに移動しました。自分は全くわからないからなぁ・・・

0713

NGNG

>>710
自スレッドは、GetCurrentThread()、相手スレッドはGetWindowThreadProcessId()
で取得できる。で、3番目の引数にアタッチすることを示す1を指定すればおっけー。

つか、検索すればサンプル見つかるだろ。アクティブウィンドウ変更では
基本的な処理だし。

0714デフォルトの名無しさん

NGNG

すみません、テキストボックスの右揃えとか左揃えとかを指定するのはAlignmentプロパティではないのですか？
右揃えにならないんですが・・・。

0715デフォルトの名無しさん

NGNG

>>714
確か環境によってなったりならなかったりするはず。
（ＶＢバージョンかＯＳバージョンによる）
「古いのを使ってるせいです。仕様です」と言いきるか（諦めるか）、
MultiLine=Trueでやるのが定説。

0716714

NGNG

>>715
おおっ、MultiLine = Trueでやったらできましたあ！ありがとうございます！
しかし複数行入力できることで別の問題も起きてきますね・・・。まあなんとか対処法を
考えてみます。
ちなみに環境ですが、OS:Win95/VB:6.0（Enterprise Edition）です。

0717

NGNG

>>714
OSバージョン。Windows95と、WindowsNT4.0SP2以前はそうなる。

0718714

NGNG

>>717
ああ、やはりそうなんですか・・・。Win95・・・。
なんかこれ以外にも制限うけたりしますか？

0719デフォルトの名無しさん

NGNG

>>675
>ここに参照設定でExcelのLibraryを組み込んで、
>オブジェクトブラウザでExcelのクラスとかをどんなのがあるのかな～、
>ってヘルプを見ようとするとヘルプがありません、となります。

Excelインストールするときに、Excel VBAのヘルプもインストールした？
デフォルトはインストールされんと思う。
＃Excel2002でもそうだったかどうかは知らんけど。

0720デフォルトの名無しさん

NGNG

ＶＢＡで以下の構文を実行すると、オブジョクトが設定されてません
と4行目がエラーになるんですけど、どこを
どう直したら良いでしょうか？
シートの選択までは、出来ているんですけど。

Kinou_No = "1-01"
Worksheets(1).Activate
Worksheets(1).Range("a1").Activate
Cells.Find(What:=Kinou_No).Activate

0721デフォルトの名無しさん

NGNG

>>720

Findメソッドのヘルプに
||検索の条件にあてはまるセルが見つからなかった場合は、Nothing を返します。
って書いてあるから、検索結果なしなんじゃないの。

0722名無しさんです

NGNG

良くあるメジャーなタブブラウザなどはセキュリティレベルや
画像音楽ON/OFFなどと言った機能をソフト側で切り替えら
れるようになってますが、あれはどうやってるのでしょうか？

0723Ｄ店長

NGNG

あるサイトを見て以来、ＰＣを起動すると
「エラーが発生したのでExplorer.exeを終了します」
ってなって、デスクトップが表示されなくなったんですけど。
これってウィルスですか?
マジ困ってます。
（このカキコは友人のＰＣ借りて書いてます）

0724デフォルトの名無しさん

NGNG

なんでVBの質問スレで聞くねん。

0725DOSﾏｿ

NGNG

おかげさまでVBでコンソールアプリができました。
ありがとうございます。

0726675

NGNG

>>719
ありが㌧！おっしゃる通りでした！

0727DOSﾏｿ

NGNG

あとVB6ではいろいろ面倒なことが多いから
VB.NETに移行することにしました。
皆さんもそうしましょうよ（無責任

0728デフォルトの名無しさん

NGNG

FORMを含まないモジュールのみでEXEを作る場合
そのEXEのICONって変えられないんですか？

0729

NGNG

>>728
変えられる。リソースでアイコンを追加して、ID_APPICONにするんだったけかな。

0730728

NGNG

>>729
ありがとうございます。
すいません、もうちょっと詳しく教えてください。
リソースファイルの追加までは、やってるんですけど
>>ID_APPICONにするんだったけかな。
ここの部分がいまいち分かりません。

リソースの定義を
1 ID_APPICON "aaaaa.ico"
とかかな？と思ってやってみたんですけど、駄目だったし...
プロジェクトのプロパティにID_APPICONと設定するとこもなさそうだし...

へんな事言ってたらごめんなさい。

0731ＭＳＣｏｍｍとｕｎｉｃｏｄｅ

NGNG

ＶＢ５で３９文字の半角文字列をＭＳＣｃｏｍｍで送信するのですが、
ＭＳＣｏｍｍに渡す直前にｌｅｎＢで実際の長さを調べると倍の７８バイト、
（これはＵＮＩｃｏｄｅの為だと思うのですが）
この文字列を実際に相手側が受信すると３９バイトで受信されているようなのですが
どうしてでしょうか？Ｗｉｎｓｏｃｋを使用しても同じ現象です。
ＵｎｉｃｏｄｅからＡＮＳＩに勝手に変換されているのでしょうか？
結果ＯＫではあるのですが、理由が知りたいのでわかる人、教えて！

0732２重引用符

NGNG

すんません、VBで文字列の中に”を入れたい場合は
"を""で表して、
Msg = " 彼はいった。 ""こんにちは"" "
って書けますよね？　この事ってHelpの何処かに
記述ありますか？　改めて探してみると見つからない。

0733名無しさん

NGNG

使わないフォーム追加して、フォームのアイコン設定して
そのアイコンつかえばいいじゃん

0734デフォルトの名無しさん

NGNG

嗚呼ＶＢ

0735デフォルトの名無しさん

NGNG

>>732
わかってるならヘルプ見る必要ないじゃん

0736

NGNG

>>730
http://www3.plala.or.jp/sardonyx/smart/vb/code/2.html#L5

IDが間違ってた。ｽﾏｿ

0737デフォルトの名無しさん

NGNG

VBでFTPを使うのってWININETってのを使えばいいんですか？
他にもっと簡単な方法とかってありますか？

0738

NGNG

>>737
Inetコントロールでどう？

0739デフォルトの名無しさん

NGNG

文字列の中からカンマの位置を取得したいのですが

strLine = "1999,2000,2001"
intBasyo = InStr(0, ",", strLine)

じゃダメでした。
何か方法はありませんか？お願いします。

0740デフォルトの名無しさん

NGNG

>>739
こうか？
MsgBox InStr("1999,2000,2001", ",")

0741ＭＳＣｏｍｍとｕｎｉｃｏｄｅ

NGNG

>>739
strLine = "1999,2000,2001"
intBasyo = InStr(1, strLine, ",")

だと思うけど

0742737

NGNG

>738
どうも、MSDNみてみます

0743デフォルトの名無しさん

NGNG

>>740
>>741

どうもすみませんでした。。。

0744デフォルトの名無しさん

NGNG

エクセルのマクロでエクセルを開くと自動実行するようにしました。
ですが、エクセルを開いた時に毎回、
「このファイルはマクロを含んでいます。マクロを有効にしますか？」
というダイアログが出て、OKを押すと実行されます。
有無を言わさず、自動実行したいのですがどうすれば良いでしょうか。

0745デフォルトの名無しさん

NGNG

>>744
エクセルの設定変えれ。

0746デフォルトの名無しさん

NGNG

クイズを作りたいので
サンプルｷﾎﾞﾝﾇ

0747デフォルトの名無しさん

NGNG

>>745
すいません、どのようにですか？
あと他の人が別のパソコンで開いてもダイアログが出ないようにしたいので
マクロに記述できたら一番良いのですが。

0748デフォルトの名無しさん

NGNG

すいません、わかりました。
セキュリティのとこですね。
これをマクロに記述は出来ないでしょうか。
・・・でも良く考えたらセキュリティの為に自分で設定出来るのだから
マクロで設定出来たらウイルスとか間単に実行出来ちゃいますよね。
それ考えたら無理っぽいか。。

0749710

NGNG

>>713さん返答感謝です。
おかげでスレッドのアタッチは出来るようになりましたが
元々の目的である、ＶＢアプリから他のアプリのＩＭＥを切り替える事は
スレッドをアタッチしても出来ませんでした。

マクロソフトを作っているのですが、他のアプリに"abcde"と送りたいとき
そのアプリのＩＭＥがＯＮだと"あｂｃでｆ"となってしまうので困っています。
なにかいい知恵はないでしょうか？

0750デフォルトの名無しさん

NGNG

直接WM_CHARとかで送るとか。

0751

NGNG

WM_SETTEXTで送るとか。

0752745

NGNG

>>748
そゆこと。

0753737

NGNG

>738さん
ファイル転送できました。ありがとうございました。

0754デフォルトの名無しさん

NGNG

ThisWorkbookのPrivate Sub Workbook_Open()にある変数を
標準モジュールのModule1にある、Sub あいうえお()の
中で使いたいのですが、引数のやり方が解りません。御願いします。

0755754

NGNG

Excel VBAです

0756デフォルトの名無しさん

NGNG

>>748
少し主旨から外れますが、こんな感じのウィルスがあった
ということで、参考になるかもしれません。
　
・VBSでレジストリの書き換えとEXCELの立ち上げを行う。
　そのあとVBSが自分自身を消す。
・バッチファイルでREGファイルを実行してレジストリを書き換え、
　EXCELを立ち上げる。そのあとVBSが自分自身を消す。

0757デフォルトの名無しさん

NGNG

>>756　の訂正

・バッチファイルでREGファイルを実行してレジストリを書き換え、
　EXCELを立ち上げる。そのあとバッチファイルがREGファイルと
　自分自身を消す。

0758デフォルトの名無しさん

NGNG

>>440禿同

0759デフォルトの名無しさん

NGNG

>>752
いや、そのやりかたも判らないです。
SendMessageで送るんだろうとやってみたが、
上手くいかなかったし、スレッドアタッチしてもダメだった。
検索しても見つからないのは探し方がマズイのだろうか……。鬱。

0760Ｗｉｎｓｏｃｋ

NGNG

ＭＳｃｏｍｍを使ってテキストモードで送信するとＵＮＩＣＯＤＥから
ＡＮＳＩ（ＡＳＣＩＩ）に変換され送信されるのは
わかったのですが、Ｗｉｎｓｏｃｋもそうなのでしょうか？教えてください

0761デフォルトの名無しさん

NGNG

質問なのです。
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

とかやってみたんですが、選択項目が連続していると
順番が入れ替わったりするのです。

どうか教えてほしいのです。

0762デフォルトの名無しさん

NGNG

>>761
内部でソートして、全部きれいに入れ直すのが吉
頑張ればできるかもしれないが、誰にもメンテできない難解なソースに
なるのが関の山。

0763デフォルトの名無しさん

NGNG

>>735
いや、この書き方が正式にサポートされているのか、裏技なのか
知りたいのですが。
昔は c$=chr$(&h22) っていうのをくっつけたもんだが。

0764761

NGNG

>>762
それもそうですね。
なんとかエレガントなコードを、とか考えてたですが、
少々野暮ったくても確実に動く方がいいですね。

ありがとうです。

0765デフォルトの名無しさん

NGNG

質問です
クリスタルレポートで帳票を出力するプログラムをやっているのですが
普通に出す分にはできたのですが、以下の２点ができないものかと悩
んでいます。

１、フォームにコントロールを貼り付けてレポートのプレビューを出して
　　いるが、プレビューを閉じるまでＶＢの方の処理を止めていたい。

２、クリスタルレポートのＤＢ（ｍｄｂ使用）の参照先パスを変更したい。

１はステータス、２はレコードソースを何とかすればいいのではとは
思っているんですが・・・・
ちなみにＶＢ６、クリスタルレポート６使用です。

0766名無しさん

NGNG

エクセルＶＢＡを再度勉強しようと、
「かんたんプログラミングエクセル２０００ＶＢＡ基礎編(他にコントロール．関数編、応用編)、大村あつし著」技術評論社
を購入したんですが、アクセス(アクセスでのマクロ)でこの程度の本はありますか？

0767デフォルトの名無しさん

NGNG

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

なんとか数値型と見なしてソートしたいのですが、良い方法はないでしょうか？

0768デフォルトの名無しさん

NGNG

1KB->0001KBとするとか。

0769デフォルトの名無しさん

NGNG

>>767
ListViewのSort機能にやってもらおうと思ってたら無理。
場合によってはソートキーの前にスペース入れて
長さをそろえることによって済ませられるかもしれんが。
あるいは隠しカラムにソートできるデータを入れる。

0770デフォルトの名無しさん

NGNG

>>768
それは真っ先に考えたのですが、やはりあまりにも見づらいかと思い断念しました。

>>769
＞場合によってはソートキーの前にスペース入れて
なるほど。試してみます。

＞あるいは隠しカラムにソートできるデータを入れる
これもよさげな案ですね。
隠しカラムとはどうすれば出来るのでしょう

0771７７０

NGNG

とりあえずやってみました。

まず隠しカラム（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

実行してみたところ上手く動作しました・・・が、隠しカラムが列境界線ダブルクリックで
簡単に開いてしまうところが難点・・・

0772

NGNG

>>771
ソートロジックを置き換えるメッセージがあるから、それを使って
独自のソートを行えばおっけー。日付型のソートを行うサンプルが
MSDNライブラリにあったはず。

0773７７０

NGNG

>>772
ListviewのSortedプロパティを使わずにソートする、ということですか？
具体的にどうすればよいのでしょう？

0774デフォルトの名無しさん

NGNG

>>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

0775デフォルトの名無しさん

NGNG

ListBoxのチェックを、
デフォルトでチェックしている状態にするには、どうしたらいいんでしょうか。
初歩的なことかもしれませんが、
知っている人がいたら教えてください。

0776デフォルトの名無しさん

NGNG

>>775
上にヒントがある。
っていうか、ヘルプでリストボックスのプロパティ全部見れ！

0777775

NGNG

補足。
Styleプロパティ？で、
チェック項目の表示の仕方はわかったんですが・・・

0778デフォルトの名無しさん

NGNG

チョー基本的な質問で大変申し訳ないが……

VB6って、フレームの中にラベル貼り付けられないの？(^^;
今、ラベルとコンボボックスを一緒にカット＆ペーストしたら、コンボボックスは中に入ってラベルは下に隠れるっつー奇怪な動作をした。
VB4や5はこんな動作しなかったよーな記憶があるんですが、なんか設定、見落としてますかね？(^^;

0779775

NGNG

>>776
分かりません。
どのプロパティーを使うかだけでもいいんで、
教えてください。
教えて君でｽﾏｿ。

0780

NGNG

>>773
だから、MSDNライブラリ見ろ、って言ってんのに。Knowledge Baseで
↓のトピックだよ。

HOWTO: Sort a ListView Control by Date
Q170884

0781775

NGNG

解決しました。
知識ある方々、迷惑をおかけして申し訳ありませんでした。
これからは、なるべく自分で解決するように努力します。
というわけで、sage。

0782デフォルトの名無しさん

NGNG

始めて一ヶ月程度の者ですが
クラス、コレクションの使い方を覚えるのに良い本はありますか？

0783

NGNG

>>782
ヘルプ見てサンプル作れ。で、わかんなかったら、再度質問。

0784778

NGNG

……ダメだ、どーしてもラベルコントロールがフレームの中に入らない。下に隠れてしまう。

なんで？　どうしてこんな動作するんだ？(^^;　どこぞプロパティ設定し忘れてるのか？　でもデフォルトのまんまだぞ(T_T)

0785超初心者

NGNG

ある関数において、コントロール名とプロパティを引数にしたいのですが
型指定はどのように指定すればよいのでしょうか？

#テキストボックスならば TXT**.Text 、ラベルなら LBL**.Caption と
#いうように使い分けたいのです

0786Midnight

NGNG

>784
新規プロジェクト作成→
　フレーム、ラベル、コンボを作成→
　　ラベルとコンボを切り取り→
　　　フレームをクリックし、貼り付け

ってやってみたが、普通にフレームに載ったよ。
当方VB6SP5。

0787778

NGNG

>>786
……ねぇ(^^;　
VB6は初めてだけど、VB4でも5でもこーやって作ってきたのに……
何が原因なんだろ？

0788デフォルトの名無しさん

NGNG

>787　OSから再インストールを推奨（ｗ

0789778

NGNG

>>788
……おひ(^^;

0790

NGNG

>>785
無理。Object型で渡して、関数側で型判断するしかない。

0791778

NGNG

……もしかして、ユーザーコントロールの編集してることに関係してるのかな？
もはや、そのくらいしか原因が思いつかない……。

0792デフォルトの名無しさん

NGNG

>791
フレームをクリックで選択してから貼り付けてるか？
繰り返すが「フレームをクリックで選択してから」貼り付けてるか？

0793超初心者

NGNG

>790
そうなんですか。ありがとうございます。

0794778

NGNG

>>792
……もちろん……と、思い立って、ラベルを一枚だけカット＆ペーストしてみたら……ちゃんと入った。

<Font Size="+5">なんだこの動作は！！</Font>

0795デフォルトの名無しさん

NGNG

漏れもｺﾋﾟﾍﾟすると裏に回るときがよくある
それ以来ｺﾋﾟﾍﾟやめた

0796デフォルトの名無しさん

NGNG

すいません。厨房質問ですがお願いします

半角全角の混じったファイルをgetで読んでいます
space(5)を放り込んだ可変長文字列に読み込んでいるんですが、
5文字分読み込まれてしまいます。
getのHelpには
「文字列変数の持つ値の文字数と同じバイト数を読み込みます。」
とあるんですが、何かを勘違いしているんでしょうか？
VB5です

0797761

NGNG

>>774
おお、動いた。
ありが㌧です。

0798778

NGNG

>>795
しかし、コンボボックスだけ張り付く（しかも複数）っつーのがよくわからん(^^;

0799デフォルトの名無しさん

NGNG

MSFlexGrid内の項目をテキストボックスの用に入力できるようにすることはできますか？
プロパティで探したのですが､分かりませんでした。
SPREADではできるのですが､FlexGridはできないのでしょうか？

0800デフォルトの名無しさん

NGNG

>796
単に、私がDQNなだけなのか、質問の意味がよく理解できないです。
GETでどうしたいわけ？
space(5)の部分は読み込ませたくないの？

0801デフォルトの名無しさん

NGNG

>>796
5文字分のスペースが入ってるから5文字分読まれてる・・・正しいと思うけど。

0802800

NGNG

>>799
MSFlexGridは、表示機能だけでセルに入力できなかったはず。
よって、MSFlexGridだけではセルに入力することは無理。
でも、入力は、TEXTコントロールなどを利用すればできるよ。

0803774

NGNG

>>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 条件が無くても結果は同じだけど、
わざわざ同じ位置に挿入して削除するのはムダだから。

0804796

NGNG

すいません。Binaryでopenしていることを書き忘れていました

>>800さん
可変長文字列でバイト指定で読みこみたいのです

>>801さん
5文字のスペースが入っていると5バイト分読みこんでくれる、と思ったのです
Helpを
「文字列変数の持つ値の文字数と同じバイト数を読み込みます。」
でなくて、
「文字列変数の持つ値の文字数と同じ文字数を読み込みます。」
と読めばいいのでしょうか？

Byteの動的配列をRedimして使えば良いのはわかったんですが、Helpが気になったもので……

0805ぐち

NGNG

IsDateに年無しで秒までの日時("2/8 16:30:30")渡したら実行時エラー起こした。
チェックする為の関数のエラーで落ちる悲しさって...

ｽﾚ違いｽﾏｿ下げ

0806799

NGNG

>802さん
やっぱり表示のみですか､ありがとうございました。

0807vberr ◆P/ECE33A

NGNG

>>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

ただこれだと全角文字は半分で切れちまうがいいのか?

0808vberr ◆P/ECE33A

NGNG

>>807
って、>>804
> Byteの動的配列をRedimして使えば良いのはわかったんですが
解ってたのね. …早とちり(ﾟдﾟ)ﾏｽﾞｰ

VB5以降は内部的に文字列をUnicodeで扱っちゃうから基本的に文字列の
カウント関する挙動は「バイト数」じゃなくて「文字数」だぁね.
LenB("A") とかしても2バイトが帰ってくる.

なので、その挙動は仕様です :-

0809796

NGNG

>>808
どもです
Helpのバイト数とあったのを見て勝手に変換してバイト数の計算でもしてくれるのかと妄想してました

やっぱりVB嫌い固定長も嫌い……
#ひたすらtimeout、、多重投稿になってたらすいません

0810デフォルトの名無しさん

NGNG

スレ違いかもしれませんが88ベーシックのフロッピーの
フォーマットのコマンドを知っている方いませんか？
ネタじゃないです・・・まじで・・・

0811デフォルトの名無しさん

NGNG

三角形を描いて、その中を塗りつぶすにはどうしたらよいのでしょうか？
Lineを使って三角を書くことはできるのですけど塗りつぶす方法が分かりません。

単純な質問で申し訳ないです。

0812デフォルトの名無しさん

NGNG

マルチでごめんなさい、急いでるんです～

アクティブレポートの改ページについて教えてチャンです。
改ページの条件をIF文で指定することはできますか？
改ページのキーをどこに設定するかもわからないんですが、
よろしくお願いします

0813デフォルトの名無しさん

NGNG

>>811
http://www.google.com/search?q=vb+%93h%82%E8%82%C2%82%D4%82%B5&hl=ja&lr=

0814813

NGNG

>>811 こっちも
http://www.google.com/search?num=100&hl=ja&q=vb+%93h%82%E8%82%C2%82%D4%82%B5%81@floodfill&lr=

0815デフォルトの名無しさん

NGNG

>>813
ありがとうございます。
FloodFillを使って塗りつぶしできました。
FillStyleとFillColorに値を設定しなければいけなかったとは。

0816デフォルトの名無しさん

NGNG

>>804
バイト数を指定云々は英文ヘルプからの直訳というだけであって、
1バイト文字文化圏では、内部Unicode化による混乱とは無縁。
日本語化にともなってこういう食い違いが起きることは仕方がない。

0817今更Basic

NGNG

あのさ、VBって由緒正しいMS-Basicの流派だよね？
なんで
n=10 : print Format(n , "Value = [#####] )
が Value=[ 10]
じゃなくてValue=[10]ってなるの？　Helpには確かにケタが足りない時には#には何も
入らないってなっているが、それじゃ####の意味が無かろう。

そもそも
print " A B C"
print using "### ### ###" , a , b , c
ってケタを揃えられるっていうのがBasicのいい所だったのにぃ。

0818デフォルトの名無しさん

NGNG

＞817
スペースでケタ揃えは、こうすればできる。
Print Format(n , "Value = [@@@@@] )

基本的には同感。

0819デフォルトの名無しさん

NGNG

VBAでファルダを作成したいのですが？
８００ページも有る本にも載ってませんでした。。

0820Delフサギコ

NGNG

　 ∧,,∧　　　／すみません...
　ミ,,ﾟДﾟ彡　＜　ASPのVBScriptで
　 U　 U　　　　＼DLLかActiveXDLLかを
～ﾐ　　ﾐ　呼び出す方法についてくわしい書籍か
　 ∪∪　　サイト、教えてもらえんでしょうか…

DLL側はC++でもVBでもなんでもいいので
ごくごく簡単なｻﾝﾌﾟﾙプログラムを動作させたいっす。

よろしくお願いします。

って、スレ違いかもしれないのですが、VBScriptスレ
ないみたいなので。

0821デフォルトの名無しさん

NGNG

特定のウィンドウを非表示にしたり表示したりする機能のあるツールを作りたいんですが、
現在そのウィンドウがが表示中か非表示中なのかを取得する方法がわかりません。

えーと、今はFindWindowで消したいウインドウのハンドル取得して、
ShowWindowで消したり表示したりしてるんですが、
今はこれが表示ボタンと非表示ボタンがある状態です。

これを、非表示なら「表示」ボタンにして、表示されてるなら「非表示」ボタンにして、
ボタン一個ですませたいんです。

というわけで、ウインドウが表示されてるか非表示なのかを取得したいんですが、
どうすればいいのでしょうか。

0822デフォルトの名無しさん

NGNG

GetWindowPlacement

0823デフォルトの名無しさん

NGNG

>821
最小化されてるか知りたいん？

0824デフォルトの名無しさん

NGNG

>>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

0825デフォルトの名無しさん

NGNG

>>823
「ShowWindowで消したり表示したりしてるんですが」って言ってるんだから、
最小化とか関係ないのでは？

0826デフォルトの名無しさん

NGNG

>>821
APIのそのものすばり、IsWindowVisible

0827デフォルトの名無しさん

NGNG

>>819
VBA にも MkDir が、あるはずだけど。

0828VB大好き教えて

NGNG

http://game.2ch.net/test/read.cgi/fly/1013090043/l50
こんなのどう？

0829デフォルトの名無しさん

NGNG

>>828
結構まともに進行しているスレでそういったジョークは寒いな

0830デフォルトの名無しさん

NGNG

最近はやってるなぁ。
いっつも思うんだが、「騙されて見に行く」んじゃなくて、
「本当かどうか確かめに行く」だけなんだから、
騙されてるわけじゃねえよって感じだ。

0831名無しさん

NGNG

反応してる時点でどうかと

0832デフォルトの名無しさん

NGNG

見られなかった。＞282

0833Delフサギコ

NGNG

　　 ∧,,∧ 　　　　／￣
　　ミ*ﾟ∀ﾟ彡　　＜　>>824さん
　　ﾐつ且~~　　　＼＿ありがとうございます。
～ﾐ,,,,,,　,,ﾐ　URLまでわざわざ。サンクスコ

来週頭にでも、会社にいって試してみます。
VBScriptでは機能が足りないので
VBでIISアプリしようと思っていましたが
どうも、ﾃﾞｨｽﾄﾘﾋﾞｭｰｼｮﾝが難しくて
使いづらいので、VBScriptでやってみようかと
思うてるです。

0834821

NGNG

>>826
思い通りに動きました。
どもありがとうございました。

0835デフォルトの名無しさん

NGNG

どうやったらVBマスターできますか？

0836ﾅﾅｼｻｿ

NGNG

プログラム始めようと思うのですが、
VisualBasicでいいのか迷っています。
ネットワーク関連の操作等はVBでいいのでしょうか？
お願いします。

0837Ｍ ◆6ucuH7Ng

NGNG

すいませんちょっと教えてください。
ただ今VBでチャットの様なプログラムを作っているのですが、Winsock.ocx
を使ってリモートに接続し、リモート側をwinsock.closeで切断しても、ソケットがすぐに破棄されず、
TIME_WAITで残ってしまいます。このため、切断してすぐに同じポートに接続しようとするとソケットエ
ラーではじかれてしまいます。これは仕様なんでしょうか？

0838デフォルトの名無しさん

NGNG

前もネットワーク～の方で説明したが、TIME_WAITに限らず、
ソケット扱うなら、一通りよんどけ。
http://www.kt.rim.or.jp/~ksk/sock-faq/unix-socket-faq-ja-2.html#ss2.7

＞切断してすぐに同じポートに接続しようとするとソケットエラーでは
クライアントのソケットをポート指定で作っていないかぎり、こんな
エラーは起こらないはずだが。

0839デフォルトの名無しさん

NGNG

>836マルチやめれ

0840Ｍ ◆6ucuH7Ng

NGNG

>>838
＞クライアントのソケットをポート指定で作っていないかぎり、こんな
＞エラーは起こらないはずだが。

どうやらこれのせいっぽいです。P2Pプログラムを作っているのですが、
自分がサーバーからクライアントに変わる時にlocalportを0にするのを
忘れてました。（汗；）

0841デフォルトの名無しさん

NGNG

ageるぞｺﾞﾙｧ

0842デフォルトの名無しさん

NGNG

.NET Frameworkってどこで手に入れるんですか？
パッケージで売っているの見たことがないんですけど、
雑誌とかでは大々的に取り上げてますよね？
どこで買えばいいのでしょうか？

0843デフォルトの名無しさん

NGNG

>.NET Frameworkってどこで手に入れるんですか？
MSサイトで無料でダウンロードできるよ。でかいけど。
製品版の日本語版はまだ出てません。
雑誌等で取り上げてたのは、Beta版

0844デフォルトの名無しさん

NGNG

下のようなコードで、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

0845デフォルトの名無しさん

NGNG

ユーザフォームを表示した時、エクセルシートを操作出来ませんが、
モードレスは、エクセル９７では、指定出来ないのでしょうか？

0846デフォルトの名無しさん

NGNG

>>843
そうなんですか、ありがとうございました。

0847デフォルトの名無しさん

NGNG

>>844
Text1.Text = ""
の直後に
KeyAscii = 0
を入れるべし。

今の状態だとText1を空にした後、Enterキーの入力がText1に入るので、
改行された状態になる。

0848844

NGNG

>>847

レスありがとうございます！多謝です。さっそく試してみましたが、見事
うまくいきました。

助かりました。ありがとうございました m(_ _)m

0849ぱるぷんて

NGNG

レベルの低い事聞いて申し訳ないのですが,フォームの右端にきたら、左方向へ移動。
フォームの左端にきたら右方向へ移動しなさいという問題なのですが,
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に書かなければならないという決まりがあるのでしょうか？

0850

NGNG

>>849
あのさ、axを毎回100で初期化しちゃだめでしょ？そゆこと。

0851デフォルトの名無しさん

NGNG

>>849
タイマーイベントが呼び出されるたびにaxに100が代入されてるので
ax=-axというのが意味なしおちゃんになります。

0852ヤン

NGNG

>>850さん、851さんすみません、ありがとうございます。
さらにしつもんなのですが、axの宣言はgeneral declarationsでないといけないのですか？
form loadやtimerに宣言するとなぜ駄目なのですか？
なんどもレベルの低い質問ばかりで申し訳ありません.

0853デフォルトの名無しさん

NGNG

>>852
Form_Load で宣言すると、Timerで使えない。逆もしかり。
が、冒頭＝外で宣言すると、どのプロシージャからも使える。

0854デフォルトの名無しさん

NGNG

VBでｳｲ○ｽを作ったのですが、自分のマシンでﾃｽﾄ実行してみたら
感染しました！どうやったら取り除けますかっっ！

0855デフォルトの名無しさん

NGNG

＞854
駆除ソフトをVBで作れ！

0856デフォルトの名無しさん

NGNG

>>855
駆除ソフトの作り方がわかりません。
ｳｲﾙｽがなんか異常な動きを見せていますっっ！！！

0857デフォルトの名無しさん

NGNG

＞856
「VB用のDLLを削除しろ！」と言わせたいわけ？(笑)

0858デフォルトの名無しさん

NGNG

いま削除しました。ふぅ～っｳｲﾙｽ作っても自機で試すなって
ことですね。ﾌﾑﾌﾑ
あ、>>857氏ありがとうございました。
みなさん以後お気をつけくだｓ

0859反省

NGNG

オチが予想できたわりには、ツッコミが平凡だった。

0860名無しさんです

NGNG

>>859
いや、君はかまってあげただけやさしいヨ

0861デフォルトの名無しさん

NGNG

なんてハートフルなスレなんだ…。
目頭が熱くなってコーディング出来ないヨ

0862デフォルトの名無しさん

NGNG

テキストボックスを貼り付けたユーザコントロールを、コントロール配列にしています。
そのテキストボックスに行数・桁数での制限を設けたいのですがうまくいきません。
・1行の文字数（桁数）を超えた行には自動で改行を入れて次の行へ
・半角は1バイト・全角は2バイトとする
・折り返す行数・桁数は任意に指定できる
・行数の制限を超えた場合は制限を越えたテキストを引数に入れたイベントを出す（次のテキストボックスにそれを入れる）

ここで一番問題なのは、半角は1バイト・全角は2バイトとして計算したいことです。
内部的にUnicodeなのでEM_LINEINDEXやEM_LINEFROMCHARがうまいように値を返しません。
InStr(0,Text1.text,vbcrlf,vbTextCompare)とかやれば改行の数=行数はわかるのですが・・・

0863デフォルトの名無しさん

NGNG

みなさん、初めまして

PictureBoxに APIのCreateFont,CreateFontIndirectなどを使用して
フォントを出力（表示）させているのですが、
その際に、背景色を透過にできないでしょうか？

よろしくお願いします　m（＿＿）m ペコリ

0864デフォルトの名無しさん

NGNG

Crystal Reportsについて教えて下さい。

詳細行の繰り返しで５０行出力しているのですが、
１０行毎に罫線の太さを変えたいです。
データには連番を持っているのですが、
どのようにやったらよいのでしょうか？

どなたか教えて下さい。

0865超初心者

NGNG

ラベルとラベルのキャプションの間隔が狭くて見苦しいのですが。
あれ、どうにかならないのでしょうか？
しょうもない質問ですみません。

0866デフォルトの名無しさん

NGNG

>>862
＞1行の文字数（桁数）を超えた行には自動で改行を入れて次の行へ
フォントを固定幅にして、テキストボックスのサイズを桁数に合わせ、
物理改行させてしまう案はどう？

＞折り返す行数・桁数は任意に指定できる
スクロールバーさえ付けなければ楽なんだけど。

＞半角は1バイト・全角は2バイトとして計算したい
定番だけど　　　LenB(StrConv(strBuf, vbFromUnicode))
これから改行コードのバイト数　Len(strBuf) - Len(Replace(strBuf, vbCrLf, ""))
を引き算するとか。これを2で割って、1を足せば論理行数になる。
それに桁数を越える行の数を足せば、物理行数になる。

＃半角2バイト文字は、入力時に拒否または自動変換するのかな。

0867デフォルトの名無しさん

NGNG

>>863
もしFontTransparentな設定とかが出来ないなら、シコシコやるしかない。
不可視の作業用PictureBoxにフォントを描いて、GetPixel→PutPixelする。

表示範囲が大きい時はマスク合成するほうが高速。作業用PictureBoxに白地に黒で描き
vbSrcAndでPaintPictureした後、黒地に希望色で描きvbSrcInvertでPaintPicture。
もちろん、BitBltでもオッケー。

0868デフォルトの名無しさん

NGNG

>>865
前にスペースを入れたら？
または、中央寄せにするとか。

0869デフォルトの名無しさん

NGNG

>>863
SetBkModeでTRANSPARENT、かな。

0870865

NGNG

>868
それくらいしかないんでしょうか。
垂直の配置もせめて上、中、下と変えられればいいんですが...。

とりあえず、下だけ空いてるよりは上も下も空いてない方がマシなんで、
その方向で対処します。
お返事ありがとうございました。

0871デフォルトの名無しさん

NGNG

FTPソフトを作っているのですが、
接続した時に、サーバー上のファイルの更新日時を表示したいのですが、
全ての時間が1980-01-01で表示されてしまいます。
何が原因なのでしょうか？

' リモートファイルの日付を格納
FileTimeToSystemTime FileInfo.ftLastWriteTime, SysTime

RemoteFile.FileDate = CDate(SysTime.wYear & "/" & SysTime.wMonth & "/" &
SysTime.wDay & " " & _
SysTime.wHour & ":" & SysTime.wMinute & ":" &
SysTime.wSecond)

あと、漢字コードを取得時に変更したいのですが、
変更するための方法を教えてください。

0872ももまん

NGNG

ＶＢＡで、ダイアログボックスを表示して、【名前を付けて保存】する命令があるんでしょうか？
お願いしますっ！！！　誰か答えてぇっ！！　m(^^;)m

0873デフォルトの名無しさん

NGNG

>872　コモンダイアログコントロールを使う。

0874ももまん

NGNG

返事ありがとうございます。。。が、もう少し詳しく教えてくださいませんか？

0875デフォルトの名無しさん

NGNG

DBのデータを固定長のTEXTファイルに書き出したいのですが簡単な方法ってありますか？
例
　　　　AA　　 bbbbbb　 ccccd　123456
　　　AAAA　　 bbbb　ｃ 1234567

0876875

NGNG

↑例　がずれました気にしないで下さい

0877デフォルトの名無しさん

NGNG

>875
Print # を使う(詳細はヘルプ見て)。

0878デフォルトの名無しさん

NGNG

>875
DB自体に固定長ファイルへの出力機能が備わっているケースも多々あり

0879デフォルトの名無しさん

NGNG

>>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=

0880デフォルトの名無しさん

NGNG

>>870
ラベルを２つ使う。
枠だけのと枠なし背景透過のと２つ。

0881デフォルトの名無しさん

NGNG

PHPで作ったWEBサイトをVBで呼び出したいのですが、
どうしたらいいのでしょうか。
ていうか、VBのボタンコントロールをクリックしたら、
IEが立ち上がって特定のサイトが開くだけでいいのですが・・。

0882デフォルトの名無しさん

NGNG

>>881
shell "IEのフルパス" & " " & "開きたいＵＲＬ"

0883デフォルトの名無しさん

NGNG

>>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=

上から３番目か・・・

0884デフォルトの名無しさん

NGNG

>587>883　君さりげなくいい人（ｗ

0885862

NGNG

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を外部から設定可能できるようにして。

0886デフォルトの名無しさん

NGNG

>>870
３行分の高さにして、先頭にvbCrを付けるのは簡単に出来る。
さらに凝って微調整したい人はラベルonラベル、PictureBoxを使う。

>>871
いったんLocalTimeに変換してから、SystemTimeに変換する。
漢字コードの変換は、nkf32.dllを使うのが超定番。

0887デフォルトの名無しさん

NGNG

>>885
＞改行を抜いたANSI換算での文字数ですよね？
文字数じゃなくて、ずばりバイト数ですよ。
改行を引かなければ、lstrlenと同じになるはず。

＞ただ、物理改行ができないので・・・
見かけ上の折り返しを物理行と言います。
逆に使ってる人もけっこういるらしい
http://www.ht.sakura.ne.jp/~delmonta/emacs/16.txt

0888881

NGNG

>>882-883
神

0889デフォルトの名無しさん

NGNG

Windows98なんですけど
スタンバイモードに一度入ってから復帰すると
起動中だったVBのアプリでBitBltなどの描画が著しくスピード落ちるんですけど
これは、どうにかならないかしら？
画面のプロパティでスクリーンの解像度変更したら元に戻ること知ったので
ChangeDisplaySettingsExで実際には解像度変更しないでリフレッシュしたら
うまくいったんだけど
なんか納得しない
ビデオのドライバ固有の問題かしら？

0890デフォルトの名無しさん

NGNG

>ビデオのドライバ固有の問題かしら？
とか言いながら、ビデオカードが何だか言ってないじゃん。

0891862

NGNG

>>887
あ、ほんとですね(苦笑)
よく分かっていませんでした(^^;

＞見かけ上の折り返しを物理行と言います。
＞逆に使ってる人もけっこういるらしい
これも逆に使ってました(^^;
メモリ上の物理的な配置に由来するから「物理」行なんですね・・・

inStr関数でvbcrlfの位置を検索して、見かけ上の1行の取得はなんとかできました。
ただ、それの途中で文字を区切る処理がうまくいかないんです。
たとえば
aaaあ
を（半角換算で）4桁で区切るとします。4バイトとは言っても実用上
aaa
あ
となって欲しいのですが（こういう処理なんて言うんでしたっけ？）
バイト配列にテキストを放り込んでMidB関数で分けちゃうと、「あ」という2バイトの文字を強引に分割してしまうためにaaaの後の文字が文字化けします。
これを回避するにはどうすれば良いのでしょうか・・・
本当に何も分かっていなくて申し訳ありません。

0892デフォルトの名無しさん

NGNG

MSProjectでＶＢＡ組んでいるのですが・・・
「固有ＩＤが「n」（注：ＩＤではない）のタスクを選択する」というのを
実現させるコード、わからないでしょうか？
（フィルタ使わないで。。。）
＃MSProjectでVBAなんて人いないかな・・・

0893デフォルトの名無しさん

NGNG

チャットソフトを作っています。そこで、2つ分からない点について質問
させてください　m(_ _)m

1）MSNメッセンジャーのように、メッセージを追加するたびに、最下段
　を表示するにはどうしたらいいのでしょうか。

2）ユーザーごとに、メッセージの色分けをするにはどうしたらいいの
　でしょうか。リッチテキストボックスを使えばいいのではと思っている
　のですが、.selcolorでもうまくいきません・・・・・。また、HTMLでやれ
　ばできてしまうと思うんですが、こちらは一つのセリフを追加するた
　びに全部を読み込みなおさなければならないので、今ひとつスマー
　トさに欠けるように思います。

以上、よろしくお願いします。

0894デフォルトの名無しさん

NGNG

特定のフォントのある文字の幅を取得する方法はないですか？
たとえば、今私が書いたこの文章は多くの人がIEを使って、
MS Pゴシックの12ポイントで見てると思いますが、
この環境で「あ」という文字は11ドットで、「,」だと3ドットで、「」（半角スペース）だと5ドットですよね。
こういうのを取得する方法が知りたいです。
ラベルコントロールのautosizeをtrueにして調べたいフォントに設定してcaptionに調べたい文字、
そしてwidthプロパティ見れば取得はできるんですが、
なんだかとってもカッチョわるいんで、コードだけで取得したいです。

0895デフォルトの名無しさん

NGNG

すいません。
サンプルをコピーしただけなのですが、
上手く動きません。
よろしくお願いします。
http://www.geocities.co.jp/SiliconValley-Cupertino/4003/

0896デフォルトの名無しさん

NGNG

>>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)
こんな感じかな。

0897デフォルトの名無しさん

NGNG

>>891
指定バイト位置を見て、シフトJISの第１バイトだったら、改行を挿入。

>>893
２はPictureBoxでPrint使えば？　色変えられるから。
１はメッセンジャー使ってないので、意味がわからない。

>>894
TextWidthプロパティ

0898デフォルトの名無しさん

NGNG

FormやPictureBoxのTextWidth、TextHeightメソッドでわかりますよ。

0899897

NGNG

あ、メソッドだったのね。

0900デフォルトの名無しさん

NGNG

ふつー、GetTextExtentPoint32 APIつかわないかね？

0901898

NGNG

>>900
VB的には別にふつーってこともない。

このAPIも挙げようかと思ったけど、
GetとExtentの部分しか思い出せずに検索したけど関数名がわからんかったよ(恥

0902894

NGNG

>>897-901
どもありがとうございます。
思い通りに動きました。
感謝。

0903893

NGNG

>>896さん、>>897さんレスありがとうございました！
さっそく試してみたいと思います。勉強になりました。
多謝m(_ _)m

0904名無しさんです

NGNG

らるち～のような、デスクトップやマイドキュメントのアイコンを
クリックしたら、DirListBoxが自動でそのパスに移動する、
ってのはどうやってやってるのでしょう？

0905デフォルトの名無しさん

NGNG

>>889
>>890
だって～んドライバまでいくと
ＶＢではどうしようもないでしょ～
RIVA128ZX 8MBね～古ッ
開発環境はこれでいいのだヽ(^。^)丿

0906デフォルトの名無しさん

NGNG

>>904
Pathプロパティにデスクトップのパスとか突っ込んでるだけでしょ。

0907デフォルトの名無しさん

NGNG

こんにちわ。
もしよろしければ教えて頂きたいことがあります。
MoveToEx～LiniToまたはMoveToEx～PolylineToで描いた一本の直線
をキーボードのボタンを押す事で、右回転、左回転させたいと思っています。
（時計の針みたいに）
簡単に作れるようでしたら、迷惑でなければ、プログラムの書き方を
教えて頂きたいと思います。お願いします。

0908lookman ◆xLhiVh/Y

NGNG

申し訳ありません
>>895の発言は別スレで公開した私のソフトをはなっから疑ってかかった方の
発言ですので無視して下さい

0909lookman ◆xLhiVh/Y

NGNG

>>908の続き
別スレというのは↓です
http://pc.2ch.net/test/read.cgi/tech/1013527404/l50

0910デフォルトの名無しさん

NGNG

863です。

>>867さん　>>869さん
早速、試してみます、ありがとうございました。

0911デフォルトの名無しさん

NGNG

VB6を使用しています。
ＰＣからRS232C経由で外部の機器へキャラクタコードを送信したいのですが、
特定のコードで送信データが NULL となってしまい、思ったように送信できません。
例えば
Mscomm1.Output=chr(244)
が送信できません。

244のほかに、129～159 と 224～252 で NULL になってしますようですが、
回避はできるのでしょうか？

0912デフォルトの名無しさん

NGNG

893さんに便乗して質問してしまいます。

リッチテキストでURL（らしき文字列）を認識して自動的に
下線を付し、リンクとしての機能を持たせるのはコーディング
によるものでしょうか？
それともそういうコントロールがあるのでしょうか？
コーディングしたいのですがちとやっかいそうですので質問してみました。

回答よろしくおながいします

0913904

NGNG

>>906
すいません、うまく行かない原因がわかりました。指定するドライブ
が大文字だとダメみたいです。APIで特殊フォルダのパスを取得
したときの返り値が「C:\なんたら」だったのを小文字に変換したら
行けました。

0914デフォルトの名無しさん

NGNG

オフィスシリーズでVBプログラミングが出来るって聞いたんですが本当ですか？

0915デフォルトの名無しさん

NGNG

>914
VBAの事を指しているのなら本当だ。

0916デフォルトの名無しさん

NGNG

>>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との非互換とかあって困ったよ。

0917とも

NGNG

誰か教えてください！！
ＶＢ6.0でMediaPlayerをコンポートして、自作ゲームの効果音を再生してましたが、
MediaPlayer自体をバージョンアップして、6.4から→7.1に変えたら、vbpを開こうと
したら、｢不正な処理をおこなったため｣と出てきて、vbpが閉じられてしまいます！
お願いです！誰か教えてください！！

0918デフォルトの名無しさん

NGNG

vbpを直接エディタで開いてWMPコンポーネントのぶぶん消しちゃうとか。

ってか、ゲームの効果音をWMPコンポーネントで再生しようとしてる事自体ちょっと変だよ。

0919教えて君ＬＶ１

NGNG

Ｎ８８ＢＡＳＩＣでいうところの
「ＧＥＴ＠」と「ＰＵＴ＠」はピクチャボックスであれこれやるのですか？
教えて下さい

0920デフォルトの名無しさん

NGNG

N88>>>>>>>>>>VB>HTML

0921教えて君ＬＶ１

NGNG

>>920

え？どういうことでしょうか？

0922デフォルトの名無しさん

NGNG

>>911
＞244のほかに、129～159 と 224～252 で NULL になってしますようですが、
バイト型で送ればＯＫ。
日本語版VB5/6での使用が保証されてるASCIIコードは、32～126。(ヘルプ参照)

>>912
よく見る、リッチテキスト中のURLリンクはコーディングによるものです。

>>914
VBとVBAは言語的にはほとんど同じ。
ただし、VBAはオフィスのどれかと一緒でないと動かせない。

>>919
PaintPicture

0923教えて君ＬＶ2

NGNG

PaintPictureというのですか？
どのように使うのでしょうか？お願いします

0924デフォルトの名無しさん

NGNG

912です
>>922さん
ありがとうございました！
ﾔﾊﾟｰﾘそうですよねぇ・・・＜コーディング
結構めんどくさそうですが。。。

0925デフォルトの名無しさん

NGNG

うそこけ >>922

>>924 www.vbvbvb.com で探すと、ハイパーリンクのやり方が出てるよ。

0926デフォルトの名無しさん

NGNG

MSGBOXの背景の色や文字の大きさって変更できないんですかね？
自作でMSGBOXをつけるしかないんですかね？

0927デフォルトの名無しさん

NGNG

>>926
あきらめてください。

0928デフォルトの名無しさん

NGNG

ていうかそんな気持ち悪いインターフェース勘弁してください。

0929デフォルトの名無しさん

NGNG

>>926
俺のラッキーカラーは青だ。だからコンパネで青にしてる
あんたの趣味で勝手に変えんな。

それに世の中、色覚障害者もいるんだぞ。
曲がりなりにもWindowsはユーザー補助で障害者に対応しているんだぞ。
それを台無しにするきか。

0930とも

NGNG

>>918
遅れてすみません。なにぶん、初心者なものでもう少し詳しく教えていただけませんか？

0931デフォルトの名無しさん

NGNG

>>907
時計のようにだったら、円の公式を角度を媒介変数として表した以下の式が基本。
x = r * cos(t)
y = r * sin(t)

回転の公式とかも高校の教科書で見るとよいかも。

0932デフォルトの名無しさん

NGNG

>>923
Picture2.PaintPicture Picture1.Image, x1, y1, w1, h1, x2, y2, w2, h2

>>925
0505　リッチテキストボックスにハイパーリンク機能を実装する
APIのSetWindowLongを使うか。
自分で書くより面倒かも(笑)。

0933デフォルトの名無しさん

NGNG

>>930
ソースファイルの中に拡張子がvdpとfrmというファイルがあるだろ？
それをメモ帳とかで開いてみな、その中に「Object=」の行があるはずだ。
その中からWMPの行を削除しちまいな。
WMP以外のOCXを使ってたら一つじゃないかもしれないけど
どれがWMPのかぐらいは調べられるよな？
で、削除したらVBで開くとエラーになるけど気にするな。
削除したコントロールはPictureBoxに化けてるから、それを削除して
再度コンポーネントを追加してコントロールを再配置しな。

もう一つ教えてやろう。
＞なにぶん、初心者なものでもう少し詳しく教えていただけませんか？
なんて文は、嫌われることはあっても歓迎されることはない。２ｃｈに限らずな。
あと文末の「！」もバカまるだしにしか見えない。ネタじゃないならやめとけ。

0934933じゃないが

NGNG

933に補足。
言うまでもないとは思うが念のため。
vbpやfrmは編集前にバックアップとっとけよ。

0935デフォルトの名無しさん

NGNG

そろそろ新スレの予感…

0936デフォルトの名無しさん

NGNG

VB6（comctl32.ocx）で、ToolBarの幅を実行時に動的に変えるにはどうしたらいいのでしょうか？

VB5までは素直に「ToolBar.width」に幅を入れてやれば変わりましたが、VB6ではそれではダメな模様。
ButtomをPlaceHolderにしてWidthを指定してやったがそれでも×。何か情報をお持ちの方がいらっしゃればアドバイスをお願いします。

0937デフォルトの名無しさん

NGNG

フレーム内に入れたテキストボックスをコピーして、
オブジェクト配列をたくさん作りたいのですが、
ペーストすると、フレームの外に貼り付けられちゃって鬱です。
フレーム内にペースト出来ないもんですか？

0938デフォルトの名無しさん

NGNG

>937
フレームをクリックして、選択状態になっていることを確認してからペースト。

0939デフォルトの名無しさん

NGNG

>>937
テキストボックスをコピーした直後はFormにフォーカス移ってるから
フレーム選択して張り付けしるっ！

0940937

NGNG

僕が天然でした。

0941デフォルトの名無しさん

NGNG

>>931
ありがとうございます。
高校の教科書ですか。何だか難しそう。

0942デフォルトの名無しさん

NGNG

>937
テキストでfrm開いて、Frameクラスの中に入れたれ

0943デフォルトの名無しさん

NGNG

Randomize ?
この?の部分が同じならどんなパソコンでも毎回発生する乱数は変わらないのですか？

あとテキストボックスで
ブブブビブ
毛毛毛毛毛
と複数行に出力されているとき
ブブブビブをA(0)に、毛毛毛毛毛をA(1)にと入れるにはどうすればいいでしょうか。

0944デフォルトの名無しさん

NGNG

＞943
同じになるかどうかやってみそ！

下のは、
A = Split(Text1.Text, vbCrLf)

0945943

NGNG

>>944
Randomizeは一応二つのパソコンで調べたら結果が同じでした。
「N88互換BASIC for Windows95」でも同じ結果だったので
恐らくどれでも同じ…なのかな？

>A = Split(Text1.Text, vbCrLf)
おぉ、これは凄いです！
ありがとうございます。まじでビビリました。

0946傍観者

NGNG

引退しました。

0947デフォルトの名無しさん

NGNG

>>945
Seedが同じなら、同じ乱数を出すというのがMS乱数の仕様。
同じ乱数を再現する必要があるケースも世の中にはあるから。
で、引数無しの場合は、タイマーからSeedを拾ってくるのね。
これはN88-BASICより進歩してる。

0948943

NGNG

>>947
＞同じ乱数を再現する必要があるケースも世の中にはあるから。
おぉ、今の状態はまさしくそれです。
ありがとうございました。安心しました。

0949デフォルトの名無しさん

NGNG

JPGファイルを読み込んで、その画像を任意の大きさ(縦横の比率は同じ)に変更できて、JPG保存できるツールをつくりたいのですが、簡単ですか？
VBはほとんどやったことがありません。
初心者でもちょっと勉強すればつくれそうですか？

0950デフォルトの名無しさん

NGNG

>949
JPG保存は簡単にやろうと思ったら、外部OCXやDLLを使わないとできません。
ま、自力保存するコードを実験的に書いた人もいるが。

他はまぁ簡単だ。
君にとって簡単かどうかは俺にはわからんが。

0951デフォルトの名無しさん

NGNG

http://www.vector.co.jp/soft/win95/prog/se093621.html
これを使わせてもらおう。

0952デフォルトの名無しさん

NGNG

Intelのライブラリもメジャーだ。

0953デフォルトの名無しさん

NGNG

クラスモジュールの使用方法について参考になるもの
何か教えてください！

0954デフォルトの名無しさん

NGNG

文字の検索で変数aaaからダブルクオーテーションを検索したいのですが
instr(,aaa,""")じゃだめなようですのでだれか助けてください･･･。

0955デフォルトの名無しさん

NGNG

>954
うまくいくまで " の数を増やしてみれ（乱暴）

0956デフォルトの名無しさん

NGNG

マイドキュメントやデスクトップのフルパスを取ってくる関数ってありますか？

0957デフォルトの名無しさん

NGNG

>956 SHGetSpecialFolderLocation API

0958956

NGNG

>>957
サンクス! サンプル発見できました

0959デフォルトの名無しさん

NGNG

VB5を使っています。
VBからアウトラインフォントで印刷するにはどうすればいいのでしょうか？

0960デフォルトの名無しさん

NGNG

>>954
instr(aaa , """ ) じゃないの？

0961２重引用符

NGNG

>>960
dc = """
a = "ab" & dc "def"
i = instr( a ,dc )
debug.print i

0962２重引用符

NGNG

>>961
あ、間違い。

dc = """
a = "ab" & dc & "def"
i = instr( a ,dc )
debug.print i

0963 ◆tmkzRAXY

NGNG

>962
InStr(aaa, Chr(34))
これでもいいよね？

0964スガ

NGNG

XPで印刷するときに、
printer.port = "....."
とかってやると、ウインドウズ９８、９５なら
ちゃんと出来るのに
XPだとエラー帰ってくるのはナゼだ？

0965デフォルトの名無しさん

NGNG

>>954
「"あいう""えお"」は「あいう"えお」という中身を意味する。
要は２回重ねるのだよ。

0966デフォルトの名無しさん

NGNG

数字の0～9だけテキストボックスに入れたい場合は

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii <= 57 Then
KeyAscii = 0
End If
End Sub

でいいのでしょうか？

0967デフォルトの名無しさん

NGNG

>>964
Ｖ友ＱＡ板とマルチポスト。

0968傍観者

NGNG

>>967
傍観しとけ。
こっちのは投稿がやや手抜きになってるんだから。

0969デフォルトの名無しさん

NGNG

>>966
そのコードだと、数字の0～9だけ無視。
っていうか、それくらい何でまずやってみないの？

0970デフォルトの名無しさん

NGNG

>>968
946の引退宣言は撤回？(笑)

0971おせっかいさん

NGNG

>>949
デジタル画像を拡大・縮小すれば、画質は確実に落ちるのに
やりたがるヤツが多いなあ。
Photoshopとかで高度な演算をすれば、画質の劣化はマシだけど。

0972ランダム名無しさん

NGNG

>>953
前スレの900番台に、クラスの参考になるサンプルコードがある。

0973デフォルトの名無しさん

NGNG

　　　　　　♪
　　♪
♪ 　∩ ∧_∧　　　
　　　ヽ ( ´Ａ`)　　なんじゃこりゃあああ！
　　　　ヽ ⊂ ヽ　　　
　　　　Ｏ-､　）～　　
　　　　　　　U
http://www.puchiwara.com/hacking/
　　　　　　♪
　　♪
♪ 　∩ ∧_∧　　　
　　　ヽ ( ﾟーﾟ)　　えろいニャー！
　　　　ヽ ⊂ ヽ　　　
　　　　Ｏ-､　）～　　
　　　　　　　U

0974デフォルトの名無しさん

NGNG

Ｖ友って土日休日のカキコが激減するのね。
趣味グラマとしては、ちとさみしい。

0975デフォルトの名無しさん

NGNG

はじめまして。
フォームを開いて1秒後に「Ａ」と表示して2秒後に「Ｂ］と
表示してＡＢＣＤＥ・・・と順に表示したいんですがどうすれ
ばいいんでしょうか？

0976デフォルトの名無しさん

NGNG

タイマーを使うなら
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

0977デフォルトの名無しさん

NGNG

＞975
１秒ごとにカウントアップする例がここにある。まずはこれから。
ttp://www18.tok2.com/home/mixtea/vg_2.htm

0978デフォルトの名無しさん

NGNG

>976
>977ありがとうございます。
見てからちょっと考えます。

0979デフォルトの名無しさん

NGNG

>>976
フォームに表示するなら、Debug.Print → Print
その場合は、３行目あたりに Form1.AutoRedraw = True が必要。

0980デフォルトの名無しさん

NGNG

>>979
ﾌｫﾛｰども。
下から三行目はExit SubでなくTimer1.Enabled=Falseのがベターでした。ｽﾏｿ

0981デフォルトの名無しさん

NGNG

>>980
それも書こうと思ったけど、タイマーは動き続けてもいいかなと。
そのために、Integerじゃなくて、Longにしたのかと(笑)。

0982959

NGNG

959です。何度もすみません。
解説ページのURLなどでも構いませんのでどなたかご教示
願えませんでしょうか？
印刷してもフォントがつぶれるので困っています。

0983９７５

NGNG

みなさまありがとうございます。
書いて頂いたソースを元に（ほとんど完成品ですが）
なんとかやれそうです。

0984デフォルトの名無しさん

NGNG

>>982
いまどうやってるのか、最低限の再現コードを書かないと、
回答しようがない。

0985959

NGNG

>>984
すみません。ありがとうございます。

フォームにLineやShape＋テキストボックスで簡単な表を書いて、
Form1.PrintForm
で印刷しようとしています。これ以外の印刷方法はよく知りません。
テキストボックスのフォントサイズは8で、印刷するとつぶれてしまい
ました。同じサイズのフォントをWordから印刷すると普通にきれいでした。
それで調べてみてアウトラインフォントとビットマップフォントがあると
いうことまでは分かりましたが、そこからどうすればいいのかが全く
分かりません。
よろしくお願いいたします。

0986デフォルトの名無しさん

NGNG

>>985
PrintFormメソッドは無理やり拡大してるから、印刷が汚いの。
フォントサイズを上げて、Printerオブジェクトに印刷するといい。
印字品位を最高に設定して。

フォントも、TrueTypeのフォントを選択すればいい。

959の質問だと、API使って、超拡大文字の輪郭線を抽出するんだと思った。

0987959

NGNG

>>986
Printerオブジェクトというものを知りませんでした。
本当にどうもありがとうございます！
長々とすみませんでした。

0988デフォルトの名無しさん

NGNG

labelに計算した結果を表示させたいのですが、

答え：○○
となっているのを

答え：
○○

というふうにしたいのです。
labelの途中で改行させることって出来ますか？

0989デフォルトの名無しさん

NGNG

>>988
Label1.Caption = "答え：" & vbCrLf & "○○"

0990デフォルトの名無しさん

NGNG

>>989
即レス感謝です。　出来ました！！　ありがとうございます。

0991デフォルトの名無しさん

NGNG

>>988
聞くようなことか？
HELPないんかい
調べんのおっくうかい

0992引っ越します

NGNG

http://pc.2ch.net/test/read.cgi/tech/1013844542/

0993デフォルトの名無しさん

NGNG

>>991
HELPに載ってるんかい？

0994デフォルトの名無しさん

NGNG

vbでGIF画像をjpgに変換できるDLLってあります？
できればフリーのがいいです

09958484

NGNG

『ハッキングのわざが手に取るようにわかるサイト』または
『ハッキングのわざが手に取るようにわかる本』に書かれている内容を
実践・計画をした場合、以下の罪・違反・侵害に問われる可能性アリ。
どうかご注意して頂きたい。
http://www.puchiwara.com/hacking/

レス数が950を超えています。1000を超えると書き込みができなくなります。