VB初心者質問スレPart2

最近単発スレが目立ってきたので取りあえず作っときます。
前スレ：
http://piza.2ch.net/test/read.cgi?bbs=tech&key=968328471&ls=50

VBのCollectionって
ガーベッジコレクションだと
思っちゃってよいのでしょうか？

そのとおりです（ウゾ)

うむ、そのとおり（う゛ぞ）

>>2
そうであるとも言えるし、そうではないとも言える。
つまりガベージコレクトそのものではないが
ガベージコレクトの対象にはなる。

失礼します。
ListViewなんですけど、リスト内でDblClickしてクリックした場所の
値を取得して、別フォームのTextBoxに格納するには
どうすればいいんでしょうか？
何か使うコマンド等がありましたら、教えてください。お願いします。
(実は初心者なのでソースコード付ならとてもありがたいです。)

すいません。テキストボックスの中身の文字列を
iniファイルに保存したり読み込みしたりしたいのですが、
どのようにすればよいのでしょうか。

よろしくお願いします。

>>7
これ見れ
ttp://www-haradalb.ise.aoyama.ac.jp/stu98/hiroyuki/vb/other/file/file06.html

よろしくお願いします。

複数のプロジェクトから参照できる共通モジュールを作りたいのですが
どうしたらよいのでしょう？

同じフォルダにプロジェクトを二つ作りました。
プロジェクトグループで二つのプロジェクトを開きました
共通モジュールをどちらのプロジェクトからも
開きますと、
ファイルが更新されている可能性が、、、
と表示されます。
どうしたらよいでしょうか？

作っています。
プリンターを選ぶには、for文とprintersコレクションの組み合わせで
実に簡単にできることがわかりました。

ところが、adobe acrobatを出力先に選択したとき、
printer.print "なになに" を実行させると、ファイルの保存先選択ダイアログが現れます。
ここでキャンセルボタンを押すと、エラーが出てしまいます。

このエラーを回避させる方法はないでしょうか？
手段は問いません。

>>10
そのエラーを回避したければ
今すぐにそのプログラムを破棄しなさい。

>11
Acrobat　SDK　に書いてますよ。確か、レジストリをいじるんだったと
思いますが（もちろんAPIからいじってね）。
昔やったけど忘れた。

>>10
on error ハンドラでそのエラー番号のみ
何も表示しなければいい。

>>13

ありがとうございまーす。
コーディングは自力でやってみます！

>14
すまん、SDKのはファイルの保存先選択ダイアログを出現させない方法だった。

眠れない。。。
>>6
Private Sub ListView1_DblClick()
　　Text1.Text = ListView1.SelectedItem
End Sub

>>9
？。同時に開くな

ど初心者ですんません（汗

フォームにテキストボックスを１つ作って、
テキストボックスに適当なファイルとＤ＆Ｄすると、
テキストボックス内にＤ＆Ｄしたファイルのパスを表示する
というものを作りたいのですが、
どうすればいいのかどうにもこうにも（Ｔ−Ｔ

Private Sub Text1_OLEDragDrop(Data As DataObject,（中略）
Text1.Text = Data.Files(1)
End Sub
OLEDropModeを1 - 手動にしませうね

>>18
ありがとうございますできました。
こういう風に使うのかぁ（納得

　教えてください！
データ元がAccessで番号か何か(Ｎｏ等)で一致するデータを引っ張ってくる際に
SQLを発行します。
そのときに、どのようにSQLをセットするのでしょうか？
Set 〜 を使うだろうということはわかるのですが、具体的にわかりません。
(AccessとVBはADOでつないでいます。ADOでSQLをセットするコマンド?
があるのでしょうか?）

SQL="SELECT 〜 FROM 〜 WHERE 〜 = '" & xx & "'"
このSQLで一致したデータを次にどうセットするのかで困っています。

よろしくお願いします。

>>20
教えてください！
Recordsetって調べた？

よろしくお願いします。

VBは継承が出来ない（のでオブジェクト指向じゃない）
ってよく聞く気がするのですけれどImplementsって
オブジェクト指向における継承とはまた違うのでしょうか？

VBで関数電卓何行くらいで作れますか？

先日自由課題で私が作った電卓は124行みたい
四則演算 乗数 階乗 sin cos tan log ln メモリを４つ実装
真面目に例外処理いれたらもっともっとステップ増えそうだけど

>>24
Windowsのアクセサリにある二進法や十六進法などもあるやつだとどれくらいでしょうか？

>>22
Implementsはインターフェースの実装です。
VB.NETでは継承にInheritsというキーワードを使います。

進数表示は単に入出力の問題だからプラス数十ステップ程度では>25

>>22
クラスや継承はオブジェクト指向の根本とは関係ない。
継承が無くとも委譲で十分補える。

文字列のなかのある特定部分からを表示したいのですが、
どうすればよいのですか。配列にばらさないとだめでしょうか。

substring>29

VBを始めようと思うのですが
どこからダウンロードすればいいですか？

マイクロソフトのサイトにあります。>31

わかったからもういい
Mid

32>
ＶＢって売り物だと思うのですが、それを無料ダウンロードできるのですか？
当たり前だと思うのですが有料ですよね〜？

その辺はマイクロソフトに聞いてくれ>34

VBSとか

VBで委譲ってどうやるんですか？

A.cls

Public Sub DoAnything
　B.DosomeThing
End Sub

B.cls

Public Sub DoSomething
　A.DoAnything
End Sub

解説：
A:「おまえがやれ。」
B:「いやだ。おまえがやれ。」

ＶＢ６ってＭＥには対応していないのですか？

>>40

SP5なら問題ない。（MS公式情報）
あとは自分で調べなさい。

ほれ
http://www.microsoft.com/JAPAN/developer/vbasic/Controls/Download.htm

Public Const Dim csCommon(2) As String = { "common1", "common2"}
のように配列を定数として定義したいのですが、どうしたらよいのでしょうか？

>>43
ありません。

バリアント型変数にArray関数でセットする、って手だけです。
ユーザー定義型にいたっては１つ１つセットしていく以外方法が
ありません。

>>44
VBじゃダメなんですね
結局下記みたいになりました
Dim csCommon As Variant
Sub auto open()
csCommon = Array("common1", "common2")
ありがとうございました

zipで圧縮されてるフォルダ中の、あるbmp(ファイル名既知)を読み出し
たいんですけど、どうしたらいいんでしょうか。
unzip.dllを使ってzipファイルの解凍はできたんですけど、
解凍ではなくそのbmpを一時的にpictureboxとかに表示したいんですが。

>>46
どのZIPユーティリティでも一時ファイルを作成して
用が済んだら削除していると思いますが？

VBがメモリーストリームとか扱えればインメモリで行なえるかも
しれませんが、結局画像の場合データが大きいので仮想メモリ
が使われるのでパフォーマンス的には変わらないかも。

>>47さん
回答ありがとうございました。
一時ファイル作成でやってみます。
もう一つ質問ですが、その場合zipファイルを一度全て解凍する必要が
あるのですか？目的のファイルだけを解凍(というか抽出)することは
可能なのでしょうか？

>>48
それはunzip.dllのAPIドキュメント見てくれ。
アーカイブ内容をリストしたり個別に取り出す手続きが
あるはずだ。
http://www.csdinc.co.jp/archiver/

>>49
合点。がんばってみます。ありがとうございました。

コマンドボタンをクリックしたら
Windowsを再起動するようにするにはどうしたら良いでしょうか？

教えてください。とっても困っています。
ＶＢのヘルプが突如出てこなくなっちゃいました。
「不明なエラーが発生しました」とかなんとかで･･･。
ヘルプも、ＶＢも全てアンインストール後、フォルダも
削除し、心機一転再インストールをしたのですが、まだ
エラーが出ます。
スキャンディスクも、デフラグも異常なし。
良い方法はありませんか？？

>>52

実行環境（OS）もVBのバージョン（SP）も書いてなくて、的確な
回答を求めるわけ？ (^^;

>>53
すみません･･･。全く考え無しでした。
ＯＳは、Ｗｉｎ９８で、ＶＢは６．０です。
端末には、Ｏｆｆｉｃｅ２０００が入っているくらいで、
他には特に入れていません。
よろしくお願いします。

windowsを再インストール。
これを機会に2000にかえましょう。

一気にフォルダを削除させる動作をさせたいのですが、
下にフォルダがいくつか続く場合には、
どうしたら一気に消すように出来ますでしょうか？？
dosのコマンドのdeltreeと同じ感じで
一気に消したいのです。よろしくお願いします。

>>56
FileSystemObjectのDeleteFolderメソッドか、
FolderオブジェクトのDeleteメソッド。

ソースを公開しているVBのプログラムってない？
ソースの書き方をいろいろ参考にしたいんだけど。

出来ればらるち〜とかfubくらいのプログラムのがいいんだけど。

>>55
そうですね。最後の手段？！ＯＳのインストールを
やり直してみます。
思いつかなかったです･･･。
ありがとうございます。

TextBoxに書いている文字列を
ソートしたいのですが、自分でソートアルゴリズムを
作るのはだるいので、楽してやる方法はないでしょうか？

フルパスのファイル名をソートさせたいだけなので
ソートアルゴリズムや
ソート順の形式にはこだわりません。

よろしくお願いします.

TextBoxに書いている文字列を
ソートしたいのですが、自分でソートアルゴリズムを
作るのはだるいので、楽してやる方法はないでしょうか？

フルパスのファイル名をソートさせたいだけなので
ソートアルゴリズムや
ソート順の形式にはこだわりません。

よろしくお願いします.

2ジウ投稿ｺﾞﾒｿ

>>62
ネット漁ってソース探せば？
作る＝コーディングする
ならそれしかないと思うけど
どっちの方がだるくなるかわからんけどな

>>63
そのソース探す場ソがわからないので、利いたのですが。(w
だめだったかな。

http://www.planet-source-code.com/vb/

58とか60とか、
検索エンジンで何を検索しているの（T_T）？
エロ画像ばかりじゃダメダメ。

>>61
暇だから。

１．フラグを false に
２．(全て)-1の行について：n行とn+1行を比較し、基準に従って、必要ならn行目とn+1行目を入れ替えてフラグを true に
３．フラグが true なら goto １

アルゴリズムが糞とか思うなら、自分で書き換えろ。
ところでこんなgotoの使い方好きな人いますか？

以上バブルソートらしきものでした。

…つう、か

1メソッドでｿｫ-ﾄしてくれる便利なものは、VBではないのか。

>>61
リストボックス作っておいて、そこにテキストボックスの内容を突っ込む。
で、リストボックスの中身をソートさせて、また取り出してテキストボックスに写す

GOTOって On Error の時とかしか使ってないかも。

>>61
VB的な方法なら>>69だな。
ネットでクイックソートのソース拾って使うもよし。

拾うのはいいけど、理解できない（ほど高級なものを拾う）とメンテ大変だよ。

>>51
ExitWindowsExec API かな。

>>69
の方法を見せてくれないっすか。
リストボックスにTextBoxの文字列を渡す
普通の方法がわかりません。
TextBox.Textの改行をSplitでわけて代入するの？
<<なんか不要な泥臭いコードを実行している気がする

リストボックスを動的に生成したりしてもいいものなのでしょうか？

69じゃないけどね
「泥臭い」とか言う位なら、最初からソートアルゴリズム実装しなよ

> リストボックスにTextBoxの文字列を渡す
> 普通の方法がわかりません。

For Each s in Split(TextBox.Text, vbCrLf)
ListBox1.AddItem s
Next

これだけじゃん

>>75
ﾏｼﾞさんくすこ。
いや、VBの文法を把握しきれていないから

S = Split(TextBox.Text, vbCrLf)
FOR i=0 TO UBOUND(S)-1
LISTBOX1.AddItem S(i)
NEXT

とか書こうかと思っていたけど
ある意味、おんなじですか。

>>76それって泥臭いですか？
泥臭いと感じないヲレは染まってますか？？

>>77
いえ、なんというかもっとエレガントな
　　　Text1.Text = List1.何とか
こんな方法があるのかとおもってしまったのです。

書いてみましたが、関数の外部にList1が必要なのは
嫌なので、関数内部で動的に生成したいのですが
どのようにしたらよいのでしょうか？

Private Sub TextSort(ByRef TextBox As TextBox)
　Dim c As Variant
　Dim i As Integer
　List1.Clear

　For Each c In Split(TextBox.Text, vbCrLf)
　　List1.AddItem c
　Next

　TextBox.Text = ""
　For i = List1.ListCount - 1 To 0 Step -1
　　TextBox.SelStart = Len(Text1.Text)
　　TextBox.SelText = List1.List(i) & vbCrLf
　Next
End Sub

Private Sub Command2_Click()
　Call TextSort(Text2)
End Sub

たのみますよ。

>>78
コントロール配列への動的追加ならLoadステートメントだけど、
デザイン時に非表示で貼っておいた方がいいんじゃない？

VB使ってるのになんでそんな所にこだわるのかよくわかんない。
こだわるんだったらソート関数自作すれ。

>>80
スンマソン。
ｺﾝﾄﾛﾙの動的生成が
どこぞの言語のように簡単に出来るかと思ったもので
出来ないのね。
やっぱ、ＶＢって．．．．．．．．．．．ってちょと思ったけど、
まあいいや。非表示にして張っておくよ。

さんくすね。

コレクション使え

>>82
わかんないよ、ソートできるの？

a-ge-

スレッドプログラムの作り方を教えてください
お願いします

>>85
糞言語VBじゃ無理、諦めろ

DataEnvironmentとDataReportを使うと、VBのコードを書かなくても
Accessのようにクエリーやレポートが作成できますよね。
で、DataReport 使ったときに、「累計」を表示する方法は ありませんか？

# Access だと、レポート作成の際にテキストボックスの
# RunningSum/集計実行プロパティをTrueにすると累計を
# 出してくれるのですが。。

お馬鹿な質問ですが許してください。
TEXTBOXのMULTILINEプロパティやSCROLLBARSプロパティを
プログラム中で動的に変化させたいのですがどうすればよいのでしょうか?
値のみ取得可能なプロパティですというエラーが出てしまいます。

迷わずダウンロードしろ、API-Guide
http://www.allapi.net/php/mail/mailer.php

直リン駄目だった
http://www.allapi.net

テキストデータ（8bit文字)をBinaryでOPENして、Print inputB$(2,Filenumber)
とすると??と表示されてしまいます。
何故でしょうか？VB5のときは大丈夫だったのに・・
よろしくお願い致します。

VB6から、htmlファイルをネスケかＩＥのブラウザで
表示させたいのですができません。
Shell(xxxx.html)
ではダメでした。どうすればいいのでしょうか？

>>92
http://www.google.com/search?hl=ja&safe=off&q=shellexecute+api+vb&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
今忙しいのでこれくらいしか書けない

>>92
Shellを使うなら、
Shell("起動するアプリ" & " " & "開くファイル")
でないとダメ。（どちらもフルパス）

アプリケーションと拡張子との関連付けも自動判定して開くなら、
ShellExecute(API関数)を使ってください。

(他の方法もありそう。ツッコミきぼー)

- 以上 -

>>93>>94
ご多忙のところありがとうございます。
ブラウザを立ち上げるにはＡＰＩを使うしかありませんか。

もしくはＶＢのウェブブラウザコントロールを使いたいのですが、
使い方が分かれば教えていただけますでしょうか？
カスタムコントロールなのか、ヘルプファイル載っていないので・・・。
htmlファイルを表示するプロパティなんかあるでしょうか。
プロパティリストにはそれらしいものは無かったのですが・・・。

VB6 sp5使っているんですけど、
ComboBox か ImageComboBox を
ドロップダウンさせた時に表示する行数を
変更するにはどうしたらよいですか？

デフォルトのままだと小さくて見づらい。

無理手゜すか？

shellもAPIもウェブブラウザコントロールも使っちゃ駄目。
ふつー使わん。ほんと初心者スレだねここ。

ほれ
Option Explicit

Private Sub Command1_Click()
Dim IE As InternetExplorer
Dim IE As New InternetExplorer
IE.Navigate ("http://www.2ch.net/")
IE.Visible = True
End Sub


Microsoft Internet Controlsを参照設定してからな。
ついでにお気に入りとか履歴バーの有無とかも制御
できるぞ。

書き直した。こっちがイベント取得できていいでしょ

Option Explicit
Public WithEvents IE As InternetExplorer
Private Sub Command1_Click()

Dim IE As New InternetExplorer

With IE
.Height = 600
.Width = 600
.AddressBar = False
.MenuBar = False
.ToolBar = False
.Resizable = False
.Navigate ("http://www.2ch.net/")
.Visible = True
End With
End Sub

それって通常使うブラウザをMozillaとかにしてても大丈夫なの？
InternetExplorerが入っていない環境でも大丈夫なの？
（うちは入ってない。Win95SP1。）

（・∀・） 100!

>>97
使っていけない理由は何故なんでしょうか？

ふつー、ってのは理由にならないですよね。
避けられる事が多いのならばそれなりのデメリットがあると思うのですが。

Option Explicit
Public WithEvents IE As InternetExplorer

Private Sub Command1_Click()

Set IE = New InternetExplorer　'ここ

With IE
.Height = 600
.Width = 600
.AddressBar = False
.MenuBar = False
.ToolBar = False
.Resizable = False
.Navigate ("http://www.2ch.net/")
.Visible = True
End With
End Sub

>101
煽るような言い方ですまぬ。

クラスから使用したほうがイベントやメソッドで制御しやすいため。

失礼。こっちの書き方も煽りっぽかった。

当方VBではなくCプログラマでShellExecuteを使っているので、
この関数って使ってはいけないものなのかと思ってしまったので。

Mozillaじゃだめでしょ。

>101
当方も今年度からVCに移行(DB中心だけど)させられました。
貴方よりVCど素人です。謝ります。

みなさんの学習の参考にして下さい。

http://www.planet-source-code.com/vb/
http://161.58.186.98/
http://www.vbwm.com/
http://www.vbthunder.com/
http://vbaccelerator.com/
http://161.58.84.209/
http://www.codeguru.com/vb/
http://www.themandelbrotset.com/Technical/typelib.asp
http://www.elementkjournals.com/ivb/
http://www.freevbcode.com/
http://www.mvps.org/vbnet/

ぜんぶ英語ﾔﾀﾞ

>>96です。
可能か不可能かだけでも教えてください〜。

質問！⇒Microsoft Visual Basic 6.0LEARNING　EDITIONについてです。
WINに付属のPAINTで、作成した画像ファイルの拡張子を
『.ICO』に変え、Microsoft Visual Basic 6.0LEARNING　EDITION
で作成したプログラムで使おうと、FORMプロパティでアイコンを変
更しようと、PAINTで作成したファイルを選択したところ「プロパ
ティの値が不正です」と返されてしまい、変更完了しません。指南
書に付属しているアイコンはつかえました。PAINTで作成したファ
イルはVBでアイコンとして使えないのでしょうか？使えるのであれ
ば対処方法を教えてください。何卒御教授の程よろしくお願いいた
します。

>>110
BMPとICOはファイルの中身が違う。
ツールを使って変換しないと無効。
ツールはVectorで探せばある。

あるフォルダの中にあるファイルの中で
一番日付が新しいファイル名を取得したいのですが
どのようにしたらよいのでしょうか？
ＶＢ６でＯＳはＷＩＮ９８です。

ＦｉｌｅＤａｔｅＴｉｍｅで全てのファイルの日付を
比較する方法もあると思うのですが
もっと効率の良い方法があったら教えてください。
お願いいたします。

一番日付けが新しいかどうかは、全ファイルの情報を取得して、
比較してみるしか無いんじゃないかな。
全てのファイルの日付けが同じ可能性もあるし、
日付け情報が無効な場合も有りえる。
そういう場合の細かい対処を考えると、自分でやるしか無いんではないかと。

直前にアクティブだったウインドウを、アクティブにするにはどうしたらいいですか？
SendKyes で Alt + Tab を送る以外で。

↓の日本語訳ってありますか？
名前付け基準/コーディング規約
http://www.xoc.net/standards/rvbanc.asp
http://www.xoc.net/standards/rvbacc.asp

>>115
http://www.excite.co.jp/world/url/
やっぱ↑なのじゃダメ？

>>116
ちょっとした文章なら、いいけどね
自分の英語力の無さが情けない・・・

>>111さん。
ありがとうございます。
Vectorにtoolたくさんありました。

Exeとして実行した場合
自分自身のExeの名前を取得することは出来ますか？

age

>>119
App.EXEName

ではインタープリタで実行しているときは
そこにはどんな値が？？？

プロジェクト

Private Sub CommandButton2_Click()
　Dim S() As String

　MsgBox UBound(S)
End Sub

こうするとエラーが出てしまいますが

Sの配列の領域が定義(ReDim)されているか
否かを判断するにはどうしたらよいのでしょうか。

Private Sub CommandButton2_Click()
　Dim S() As String

　'ReDim S(0)

　If S = Empty Then
　　MsgBox "S定義されてない"
　Else
　　MsgBox Sの要素数はUBound(S)
　End If
End Sub

こんな感じにしたいのです。

W2K上でVB5.0を使っているのですが、
MicrosoftWindowsComonContorols6.0などのActiveXコントロールを
追加して、使用すると「このコンポーネントのライセンス情報が
見つかりません。デザイン環境でこの機能を使うために必要な
ライセンスがありません」となり使用できません。
解決策をご教授下さいませｺﾞﾙｧ

http://home9.highway.ne.jp/cym10262/

Private Sub CommandButton2_Click()

On Error Goto Resume
　
　Dim S() As String

　'ReDim S(0)

　　MsgBox Sの要素数はUBound(S)

Exit

ERROR:
IF Err.Number=調べる
MsgBox "S定義されてない"
End Sub

こんなのは嫌かな？

ＯＳから再インストール＞126

イエーい。

>>128

調べるのがめんどくさい Or コーディングがめんどくさいとき、
そのテの手法？をよく使います。(要するに、手抜きじゃん)

をいをい

MsgBox Err.Numberですぐわかるでしょ。
また、Debug.Print Err.Numberとか。

ありがとうございます。
こんな感じでいいんですよね？

Function NullStrArray(S() As String) As Boolean
　Dim A As Integer
On Error GoTo ERROR:

　A = UBound(S)
　NullStrArray = False
　Exit Function

ERROR:
　NullStrArray = True
End Function

Private Sub CommandButton2_Click()
　Dim S() As String

　'ReDim S(0)

　If NullStrArray(S) Then
　　MsgBox "Sは定義されてない"
　Else
　　MsgBox UBound(S)
　End If
End Sub

エラーナンバーってどのように定義すればよろしいでしょうか？

>>126
W2K上でVB5.0はサポートされていない。
VB6SP4以上を使用すべし。

>>126です　>>129 >>133サンクス

別PCのNT4.0sp6上にVB5.0sp3を新規インストールしても
同じ症状が出ました。これはVBのCDが逝ってﾏｽｶ？

Option Explicit

Function ErrTrap(objErr As ErrObject) As Long

With Err
Select Case .Number
Case 13
MsgBox "エラー：" & .Number & vbCrLf & "内容：" & "Sは定義されてない"
Case 9
MsgBox "エラー：" & .Number & vbCrLf & "内容：" & "Sは定義されてない"
Case Else
MsgBox "エラー：" & .Number & vbCrLf & "内容：" & .Description
End Select
.Clear
End With
End Function

Private Sub Command1_Click()

On Error GoTo ERROR:
Dim S() As String
Dim ret As Long

'ReDim S(5)

MsgBox UBound(S)

Exit Sub

ERROR:
Call ErrTrap(Err)
End Sub

＞134
久々に逝ってよし。
http://www.microsoft.com/JAPAN/support/kb/articles/J040/9/61.htm

>>136
多謝！多謝！　逝ってきます！

VBでDDEってどうやるんですか？
ヒントでも良いのでご指導ください。

>>138
1.EXCELのデータの入っているセルを適当にコピー
2.VBのエディットボックスにフォーカス当てて、[編集]-[リンクのコピー]
3.EXCELに戻ってセルの値を変えてみる・・あら不思議。

LinkTopic,LinkItemのプロパティを見てヘルプも引いてみよう。
ところで向こうで暴れまくってるね。

2.は[リンク貼り付け]でした。

VBで、割り算を計算させて、あまりが出るようにしたいのですが、
どうやってやるのですか？

>>141
Mod のことかな？

>>142
そうです。
それの出し方が解らないのです。

a - a / b * b>143

>>144様
すみません。
「変数ではなく、ﾌﾟﾛｼｰｼﾞｬを指定して下さい」と出てしまうのですが。

とりあえず、エラーになる行書いてみなよ

>>146様
a - a / b * b
です。

>>141
*は掛け算
/は割り算
の意味
t機能にbasicコードに変換してくれ

x t機能
o 適当

c = a - a / b * b

>>144様
すみません。
よくわからないんで、ソースコードを全部書いてくれませんか？
お願いします。

そらー、代入もしないで、ただ剰余求めたって、エラーになるべさ。

てゆうかさ、
C = A Mod B
で十分じゃん

>>151
aとbは変数の意味。
aとbに何か数字入れて自分で試してみろ
ちなみに演算子の優先順位はこう
(a - ((a / b) * b))

なんだ。
Modがあるのか。

>>153様
Modの使い方が解りません。

氏ね>156

つーかさ、VBってインタプリタじゃないの？
その場で実行できんの？

>>157
それはないと思う。
初心者が、ほんとにわからなくて聞いているのかもしれないし。
あくまでここは質問スレだから。

>159
氏ねが言い過ぎ？
じゃあVBのマニュアル最初っから読めよ>141
四則演算ぐらいわかるだろ？

>>160様
そんな物持ってません。

あっそ

■■■■終了■■■■

■■■■再開■■■■

■■■■再開してもいいけど、141のは終了■■■■

>>160様
何ですかそれ？

でもやっぱり
■■■■終了■■■■

でもやっぱり
■■■■再開■■■■

要するに
■■■■終了■■■■

要するに
■■■■再開■■■■

結果として
■■■■終了■■■■

■■■■終了■■■■
■■■■再開■■■■
だけで999まで行くスレ。いや過ぎ。

つーか、まずマニュアル入手しましょう。>>141
セイキバン購入してな。

結果として
■■■■再開■■■■

（・∀・）ｼｭｳﾘｮｳｲｲ!
■■■■終了■■■■

（・∀・）ｻｲｶｲｲｲ!
■■■■再開■■■■

163=164=.....=174=175

もうつかれた
誰か引き継ぎしてくれ
■■■■終了■■■■

■■■■再開■■■■

┌─────────┐
│　 　 　 　 　 　 　 　 　 │
｜　　　 ｼｭｳﾘｮｳｲｲ!　　　｜
│　 　 　 　 　 　 　 　 　 │
└―――──――――┘
　　　　　ヽ( ・∀・)ﾉ
　 　 　　　 (　へ)
　 　 　 　　く

１．
　(。_。)　ｱﾚﾚ
ﾉ( 　 )ヽ ｹﾞﾝｷｶﾞﾅｲﾖ?
｜υ｜

２．
　(。_。) ｲｼﾞｯﾃﾐﾖｳ
　 (ヽノ) ﾓｿﾞﾓｿﾞ
　｜δ｜

３．
ヽ(´▽｀)ﾉ ﾜｱｲ
　 ( ∩ )　 ﾀｯﾀﾖ!
　／ ω ＼

４．
ヽ(*ﾟДﾟ)ﾉ　　ｳﾜｧ
　 ( η)⌒ヾ ﾅﾆｶﾃﾞﾃｷﾀ
　 ノωヽ

５．
　(-＿-) ﾅﾝﾀﾞｶ
　(∩∩) �aﾒﾝﾀﾙ…
■■■■再開■■■■

このスレは終了再開スレになりました。

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

終┃　了┃　終┃　了┃　終┃　了┃　終┃　了┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

皆様、大変ご迷惑をおかけして、申し訳ありませんでした。
今度の週末にでも、VBの正規版を買ってきます。
皆様、本当にありがとうございました。

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

再┃　開┃　再┃　開┃　再┃　開┃　再┃　開┃
━┛　━┛　━┛　━┛　━┛　━┛　━┛　━┛

　　　　　　　〈￣ヽ
　,､＿＿＿＿|　 |＿＿＿＿,､
〈　　＿＿＿＿＿＿＿＿＿　ヽ,
　|　|　　　　　　　　　　　　　|　|
　ヽ'　 〈＾ー―――＾ 〉　　 |／
　　　　,､二二二二二＿、
　　　〈＿_　　＿　　＿＿〉
　　　　　 |　 |　 |　 |
　　　　　/　/　 |　 |　　　　|＼
　＿＿_/　/　　|　 |＿＿＿|　ヽ
　＼＿＿/　　　ヽ＿＿＿＿＿）

　　　　　　　　！ 　　　こ
　　　　い　　　　　　　　　　　　　ん

　ざ　　　　　　　　　　　　　　　　　　　な

う　　　　　　　　　あ　　あ　　　　　　　　糞
　　　　　　　ゃ　　　　　　　　　あ
　　　　　　　　　　　　　　　　　　　　　　　ス
　　　　　じ　　　　　　ぁ　　ぁ
　　　　　　　　　　　　　　　　　　　　　　レ
　　　　　　ｅ
　　　　　　　　　　　　　　　　　　　　は
　　　　　　　　　ｇ　　　　　　 ｓ
　　　　　　　　　　　　　ａ

（'∀`）＜終了〜

（'∀`）＜再開〜

┌────────────┐
│　　　 　 ∧∧ 　 　 　 　 　 終 │
│ ○　 　(. ﾟдﾟ) 　　 　 　　　了 │
│　　　ヽ/ つ日).~~　　　　　 　　│
│　6　 （＿　__）　　　　　　　　　 │
│ 点　　 　 　 　 　 　 　 　 　 　 │
└────────────┘

　∧__∧ 　　／￣￣￣￣
　(´∀`)　＜　再開〜
　(⊃ 　＼⊃ ＼＿＿＿＿
　　＼　　 )ρ
　　 く 　く

本題に戻した方がいいのでは？
VB初心者はいっぱいいるし。
このままでは、スレ乱立の危険性もある。

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|　終了
＼＿＿＿　＿＿＿＿＿＿＿＿＿＿＿＿＿
　 　 　 　 |/
　　　　　 　 ∫ 　　　　　　　　　　 　 ∫
　　　∧∧. ∬　..　　　　　　　∧,,∧ ∬
　　 （ ﾟДﾟノ.っ━~ 　　　　 ミﾟДﾟ,,,ノ,っ━~
＿と´_　 　ﾉ＿∀＿∀＿と~,,, .　~,,ﾉ_.
　　　 .(_/ .),　　.┷┳┷　　 .ﾐ,,,/~),　　|
￣￣￣.し'J￣￣...┃ ￣￣￣ .し'J￣￣￣|..
　 　 　　　　　　　　　　　 /|
／￣￣￣￣￣￣￣￣￣　￣￣￣￣￣￣
|　再開
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　 　　　　　 　 　 　 　 　 　　 |＼
┌──────────┘- ＼
│　　　　　　　　　　　　 　　　　　　　＼
｜　　　　　　　終　　　　　　　　　　　　　　>
│　　　　　　　　　　　　　　 　 　 　　／
└──────────┐- ／
　　　 　 ヽ(´ー｀).ﾉ　　　　 　 |／
　 　 　　 　(　 へ)
　 　 　 　　く
　　　　　　　　　　　　 　 　 　- = ≡三　　　　　　 　 　 　 　 　 　　 |＼
　　　　　　　　　　　　 　 - = ≡三　　┌──────────┘- ＼
　　　　 　 　 　 　 　 ＿ = ≡三　　　 │　　　　　　　　　　　　　　　　　　　＼
　　　　　　　　　　　　― 　=三三　 　 |　　　　　了　　　　　　　　　　　　　　　 >
　　　　 　 　 　 　 　 ￣ = ≡三　　　 │ 　　　　　　　　　　　　　　　　　　 ／
　　　　　　　　　　　　 　 - = ≡三　　└──────────┐- ／
　　　　　 　 (´ー｀) 　 　 　 　- = ≡三　　　 　　 　 　 　 　 　 　 　 |／
　　　　　　( ヽ ヽ)
　 　 　 　／　　>

　　 　 　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　∧ ∧　　 ＜　　 終了
　　(　 　,,) 　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ


　　 　　　　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣￣
　　∧ ∧ 　　　＜　　　再開
　 (,,・Д・)　　 　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿
〜（＿__ﾉ

　　ゝ‐――――∂――∂――――∂――∂――――ゝ
　　　　　　　　　　/　　　/　　　　　　　/　　　/
　　　　　　　　　 /　　　/　　　　　　　/　　　/
　　　　　　　 　 /　　　/　　／￣￣￣￣￣￣￣￣￣￣
　　　　　　　　 /　　　/　＜　このｼｭｳﾘｮｳってどうよ？
　　　　　　　　/　　　/　　　＼＿＿＿＿＿＿＿＿＿＿
　　　　　　　 /　　　/　　　　　　　/　　　/
　　　　　　　/　　　/　　　　　　　/　　　/
　　　　 Λ_/Λ　 /　　　　　Λ_/Λ 　/　　／￣￣￣￣￣￣￣￣￣￣
　　　　（　/∀´）/　　　　　（´∀｀　） /　＜ある意味終わってるよな！
　　　　（つ　　 つ　　　　　⊂/　　　つ　　 ＼＿＿＿＿＿＿＿＿＿＿
　　 ←λ＿ ~） ~）ヽ　　 ←λ＿~） ~）ヽ
　　　ヽー（_＿）＿） ゝ　　ヽー（_＿）＿） ゝ ゝ

荒らされている所恐縮なのですが

Private Sub Command1_Click()
　Dim Strs() As String

　Strs = Split("", "A")

　MsgBox UBound(Strs)
End Sub

これって-1が表示されるのですが
この現象はなんですか？

("A")?

>>196
Split関数の仕様が
「引数 expression が長さ 0 の文字列 ("") である場合、Split 関数は、
要素もデータもない空の配列を返します。」

こうだから、そういうもんじゃない？

>>197
ちょっとわらた（ｗ

>Strs = Split("", "A")
この行を取ると最後の行で実行時エラーになるね。
Strsは最初から空の配列のはずだが・・・

("∀")?

Word VBAで以下のようにExcel Worksheetを開いてデータを参照するプログラムの終了後自動的にWorksheetを閉じて、Excelを終了するにはどのようなコードを記述すればよいのでしょうか？

Set ExcelObject = CreateObject("Excel.Application")
ExcelObject.Visible = True
Set ExcelBook = ExcelObject.Workbooks.Open(FileName:="c:\My Documents\Vba\dictionary.xls")
ExcelBook.Worksheets(1).Activate

ExcelObject.Quit
Set ExcelObject = Nothing

#こんな所に実名、実メアド書いちゃ駄目

すいません。教えてください。
文字列を画面に斜めに表示したいのですが、どうすればできますか？

>203
CreateFontIndirect() API を使って論理フォントを作成して
TextOut() API を使って画面の hDC に出力する

>204
ありがとうございます。
やってみます！

>202
ありがとうございました。Excelが開きっぱなしでみっともなかったのですが、うまく閉じてくれました。
実名、実アドはまずいでしょうか？住所や電話番号はまずいと思いますけど？
実名は本当はハンドルかもしれませんし？

いや、どうでもいいんじゃない？
君さえよければさ。
メールアドレスがSPAMで埋まっても、名前からいろいろ検索されても。

どうでもいいけど、なんか冷める

ADSIでActiveDirectoryとExchangeServerを操っている人いない？

申し訳ございません。どのようにお詫びしてよいかわかりませんが、今後十分注意いたします。どうぞお許しくださいますようお願いいたします。

>>210
なにをお詫びしているんだ？
ｼﾞﾂアド晒した事？
自分が困るだけだから、ﾜﾋﾞﾙ必要はあるまい。

2chはちょっと痛い場所だから
なれないうちは
他の親切な場所で質問するとよいよ。

親切な人間の多いスレだな（ｗ

>>212
初心者スレだからな。

糞スレたててたら、ぶち頃しだけどな。

>>209
なぜ最後だけ小文字？

ずっとFreeBSDってOSを使っていたのですが、
今年になってMACを購入しまして、Windows98を使っています。
先日、VisualBasicなる物を知りましたが、このBasicの対象としている
開発アプリケーションはゲームなのでしょうか？仕事で使うようなシステム
なのでしょうか？どんな事に不向きな言語なのでしょうか、教えて下さい。

今、作りたいプログラムは、NC用のエディタです、数万行程度のNC用のプロ
グラムをエミュレートする機能も付け加えてみたいと考えています。
恥ずかしいのですが、言語はCとアセンブラしかできません（C++も駄目です）
こんなレベルの私でもVBを使いこなせるでしょうか。宜しくお願いします。

NCってなに？
つーか、
＞今年になってMACを購入しまして、Windows98を使っています。
ネタですか？

説明不足でごめんなさい、ネタじゃないんですVirtualPCでWindows98つかってます。

NCはコンピュータ制御の旋盤です。

>>217
CとASM知ってるんならVBはやっても身にならないよ。
完全にWindows依存の言語処理系だし。
UNIX経験があるなら、まだDelphiかKylix
(どっちも言語はOOPascal)かC++Builderの方がお勧め。
エディタ作るんならなおさら。
コア部をCやASMで書いて、GUI部分はDelphi/kylixを使うとか。
とにかくVBの事はすっぱり忘れた方が良いのは確か。

あ、GUI部をVBで書くって手もあるけど、
余計な物（OCXやVBランタイム。UNIXでいうsoライブラリ）を
インストールしなくちゃならない。

>>218
そーなんですか、全然知らない世界だったもので、色々と資料見たの
ですが見た目、同じに見えまして。(^^;;
C++BuilderとDelphi/Kylixを調べてみます。有難うございました。

#アセンブラは、MicrosoftのMASMとかまだあるのでしょうか・・。

VBにもシェアードライブラリが必要なんですか、参考になります。
C++BuilderやDelphi/Kylixにはsoは必要ないのでしょうか？

>>221
>#アセンブラは、MicrosoftのMASMとかまだあるのでしょうか・・。
昔はン万円もしたMASMは現在マイクロソフトのサイトに行って、
DDKというパッケージを取ってくれば、その中に入っているので
タダで入手できるよ。

＞C++BuilderやDelphi/Kylixにはsoは必要ないのでしょうか？
少なくともVBランタイムのインストールの様な物は無いです。
１つの実行ファイルが作られる筈。
(ランタイムを別個のファイルにもできるけど)

CやASMで作ったモジュールをGUIモジュールと結合したい場合、
さっき言ったDLLという(soと似た)形式を作ってリンクする。

MASMが無料になっていたなんて、知りませんでした。

今、検索して来ましたが、C++Builderってのが良さそうなので
これで挑戦してみます。
(Borlandなんですね、古い人間なんで名前だけで安心感がある f(^^;）
ついでに、Delphiってのも調べてみたらTurboPascal?なんですね、
インラインアセンブラも書けるみたいだし、こっちも良さそう. (^_^;;

とても参考になりました。

結局、VBの話しじゃなくなってしまいました申し訳ありませんでした。

最近エクセルでVBAを始めたのですが、参考になるようなソースコードが
大量に落ちている場所はありませんか？
自分でも捜しているのですが、あまりいいのが見つかりません．
お願いします。

すれちがいで申し訳ない。

VBSでIEの右クリックメニューを色々いじりたいんだけど、
どこでリファレンスが手に入るか分からないのですが。

知ってたら誰か教えて〜。方々探したけれど見つからない。

>>215
制御屋さんにはCQ出版のInterfaceって雑誌がお勧め。
(ちょっと前だったらDelphi/BCBの連載やってた。)

＞＞225
Excelファンクラブ

CreateObjectで作成したオブジェクトから
イベント取得ってできます？

おれには無理だ・・・。

>>229
WithEventsキーワードを使うよん。

Option Explicit

Public WithEvents Exl As Excel.Application

Private Sub Command2_Click()
　Set Exl = CreateObject("Excel.Application")
　Exl.Visible = True
End Sub

Private Sub Exl_NewWorkbook(ByVal Wb As Excel.Workbook)
　MsgBox "新しいワークブック作ったよ。"
End Sub

>>229

CraeteObjectで作成しているCOMも自分で作ってるなら、

自分IFのオブジェクトを渡して、
そのオブジェクトを使ってコールバック関数のように使うのはいかが？

ただ、呼び元もCOMじゃないといかんとは思うけど

VB始めたばかりの初心者です。
お教え願いたいことがあるのですが,
VB6を使っているのですが、メッセージボックスに表示させる文字のフォントサイズって
変更できるのでしょうか？

色々な本で探したのですが載ってないのです。
どうかお教えください。

>>232
メッセージボックス用のフォームを作って。
それを使った方が簡単だと思いますよ。

＞232
http://www06.u-page.so-net.ne.jp/qc4/shige-3p/

>>231
イベントの送出もEventキーワードで出来たはず。
Public Event MyEventProc
として、
RaiseEvent MyEventProc
で実際に通知します。

>>232
[コントロールパネル]-[画面のプロパティ]

ってか、ダイアログ自作した方が早くない？

>>234
あ・・多分、私勘違いしましたね・・・

「プロジェクト」→「参照設定」とかで、参照設定しないで、
Set oObj As Object
という風に定義したオブジェクトに対して
Set oObj = CreateObject("なんかのProgID")
で作成して。
この作成したオブジェクトからイベントを取得する方法だと思ったんですよね。

勘違いしたようで、どうも、スマソ。
去ります。

VB初めて二日目なんですけど、フォルダ選択ダイアログってどうやって出すんですか？
いろいろコンポーネントをフォームに付けたんですけど、できませんでした。

ネットで検索したらWinAPIと使うとできるってありました。

やっぱりダイアログを自分で作った方が早いんですね
Windows自体のシステムフォント自体を変えるのは嫌なので

どうもありがとうございました

msgboxで、メッセージとOKボタンのみ表示させてるのですが、ボタンを
押さないと次の処理に進みません。
OKボタンを押さなくても次の処理に進んでほしい場合、どんな手を使っ
てますか？よろしくお願いします。

>>240
じゃあ何故MsgBoxを表示させるのか？

糞スレをsageるためにもだれか教えてやってくれ。

http://piza.2ch.net/test/read.cgi?bbs=tech&key=993048321&ls=50

私の使用するアプリなんかで、MsgBox の「ＯＫ」ボタンとかにに自動的に
マウスカーソールが移動しますけど、その機能って VB で出来ますか？
Win2000 使用していてマウスプロパティで「規定のボタンに移動」をチェックしていても
自作のダイアログボックスの「ＯＫ」とかに移動しません。

>>240
タイマー付きのモードレスのフォームを自作するのは？

>>243
GetWindowRectと
SetCursorPosの合わせ技

すみません。
EXCELのマクロで質問させてください
EXCEL4.0の式で

=SELECT(OFFSET(ACTIVE.CELL(),,):OFFSET(ACTIVE.CELL(),,1))

というのはVBではどういう式になるのでしょうか？
お願いします。

誰か教えてください。（TT)

VBから、あるMDBに現在接続している人数を取得することは可能でしょうか？

テーブルに接続フラグみたいなものもてば出来るのですが、
この方法以外でなにかありましたらお願いします。

>>247
net fileコマンドをリダイレクトしてロック数を調べる。
*実際にロックされるのは*.ldbファイルの方。

>>248
おぉぉ！今までldbって何だぁって思ってた。
ありがとうございます。
バカですいませんでした。（TT)

>>241
MsgBoxもＷinＡＰＩ３２なんですってね
ぜひバイナリが知りたいです

>>243
ありがとうございます。
ネットで検索してみます。

>>250
Win32APIだよ。
それと「バイナリが知りたい」って、意味わからんけど。

ﾈﾀﾆﾏｼﾞﾚｽ?

age

ウインドウのXY軸を獲得したいのですが、可能でしょうか？

無理です>254

>>254
う〜ん、イマイチ日本語が分からない。
ウインドウを斜めに傾けたいって事なんだろうか。

XY軸っていうのも変ですよね･･･　スイマセン
マウスの位置を獲得するように、ウインドウの位置を獲得したいのです。

XY座標っすね。
Me.Left, Me.Top でいいんじゃないかな？

ありがとうございます！　獲得できました。

私が得をする情報をタダでください。
それによって私は大変な恩恵に預かりますが、あなたには何の
メリットもありません。
でも、いいじゃないですか？　どうせ情報なんてタダでしょ？

とても困っているので、情報を知っている人は私を助けなければ
いけません。これは義務です。
初心者にも分かるように説明してください。
私は、ごく普通の人間なので、パソコンのわけの分からない知識は
ありません。勉強するつもりもありません。時間の無駄です。
検索するなんて面倒です。どうしてそんな面倒な事するの？
知ってる人に聞けばいいじゃん。どうせタダだし。

マルチとか質問スレというのはヲタクのルールです。
私は普通の人間なのでヲタクのルールなど知ったこっちゃありません。
早く教えてください！
早く教えろ！
早く！
これだけ言ってもまだ教えねーのか？！

↑帰ってくれ
質問したとき、返答が返ってこなくなる。

http://yasai.2ch.net/test/read.cgi?bbs=win&key=991308935からの■お願いです■

400 名前：名無し~3.EXE 投稿日：2001/06/23(土) 17:58
丁度、400 だ(･∀･)ｲｲ!!。
http://namihei.zone.ne.jp/upup/up/390.lzh
必ず、Readme.txt を参照して下さい！

401 名前：　　　　 投稿日：2001/06/23(土) 22:51
503で落ちてこないです・・・

402 名前：　　　　 投稿日：2001/06/23(土) 22:56
落ちてきました！
最前表示ってのもいいです！

403 名前：名無し~3.EXE 投稿日：2001/06/23(土) 23:46
誰か引継ぎ？する人っているの？？

404 名前：名無し~3.EXE 投稿日：2001/06/24(日) 00:07
あげ

405 名前：名無し~3.EXE 投稿日：2001/06/24(日) 04:06
改造者もとむあげ

406 名前：４０５ 投稿日：2001/06/24(日) 04:11
消えていたみたいだからあげ直しします。
http://www.makani.to/akutoku/bbs/upload/dat/519.zip
ＺＩＰのパスは半角小文字でkubotaです

407 名前：４０５ 投稿日：2001/06/24(日) 04:12
↑
パスはkubotarだった

************************************
>>261
それはコピペです。
このプログラム板の数箇所に適当な名前ではってあります（煽り？)。

私が得をする情報をタダでください。
それによって私は大変な恩恵に預かりますが、あなたには何の
メリットもありません。
でも、いいじゃないですか？　どうせ情報なんてタダでしょ？

とても困っているので、情報を知っている人は私を助けなければ
いけません。これは義務です。
初心者にも分かるように説明してください。
私は、ごく普通の人間なので、パソコンのわけの分からない知識は
ありません。勉強するつもりもありません。時間の無駄です。
検索するなんて面倒です。どうしてそんな面倒な事するの？
知ってる人に聞けばいいじゃん。どうせタダだし。

マルチとか質問スレというのはヲタクのルールです。
私は普通の人間なのでヲタクのルールなど知ったこっちゃありません。
早く教えてください！
早く教えろ！
早く！
これだけ言ってもまだ教えねーのか？！

!kubotatないぞ

http://namihei.zone.ne.jp/upup/up/012.lzh
!kubotar です。ソース付です。
わたしも初心者で超へたれですが、少し改造してみました。

age

カレントプロセスの名前を知りたいッス

GetClassNameで親プロセスのハンドルを渡してやりたいのですが、
親プロセスのハンドルを抜くＡＰＩってないですか？

http://homepage2.nifty.com/software/vbunit/translate/tutorial-1.html
ここにあるチュートリアル通りやったのにうまくいきません。

RunVBUnitTutorial.exeを作成しようとすると、
「スタートアップフォームまたはSub Mainが必要です」
とか出ますが、チュートリアル通り、modMainというクラスを作成してそこに
Public Main()とか作成したのになぜかコンパイルできず。

VBUnit2のインストール(regsvr32)も出来ていて、きちんと参照設定されているし
何が悪いのかさっぱり分かりません。

質問です。
C++でクラスを使ったDLLを作りました。
それをVBで読み出したいのですが・・・
Declear宣言の仕方がよくわかりません。

ご教授願います。

>>269
それをやるならCOMにすべきです。

>>267
GetCurrentProcess

>>269
DEFファイルとextern "C"定義

http://site.coco.co.jp/yuzu/

>>272
「クラスを使ったDLL」て書いてあるじゃん。

>>269
クラス自体をエクスポートしたいのか？
だったらやはりCOMじゃないか？

>>274
すまん。見落とした
じゃ、"ATL COM AppWizard"でさくっとCOM作成

VB4.0(32)で作成した EXEファイル(3.2M)を実行中していたら
下記のエラーが出てしまいました。

(EXEの名前） のスタックエラーです。
モジュール KERNEL32.DLL　アドレス :0137.....
　　　　　　　　　　・
　　　　　　　　　　・

このようなエラーが出るということは
何かがいけなかっただけなのでしょうか？

>>277
何の関数をcallした時に発生したんすか？

Visual BasicのフォームでExcel worksheetにリストした複数のテキストファイルを新規Word文書に順次コピーして1つのファイルにまとめたいのですが、Visual BasicからWord文書を、「すべて選択、コピー、閉じる、文書１をアクティブ化して、貼り付ける」ところのコーディングを教えていただけないでしょうか？

y = 1
wdName = "filler"
Do While wdName <> ""
wdName = ExcelBook.Worksheets("Sheet1").Cells(y, 1)
Set WordDoc = WordObject.Documents.Open(filename:=File1.Path & "\" & wdName)
Selection.WholeStory 'Word VBAなのでエラーになる
Selection.Copy '同上
ActiveWindow.Close '同上
　 Windows("文書 1").Activate '同上
Selection.Paste 'この代わりに下記のコードで動くが無駄がある？

WordDoc.Paragraphs(1).Range.Paste 'Paragraphs(1).Rangeが不要では？
y = y + 1
Loop

VBを最近勉強し始めたものです。
現在、練習として電卓の作成を行っています。
マウスでのクリックでの動作はできるようになったんですが、テンキーからの入力がうまくいきません。
KeyDownを使って、Select case Keycodeで振り分けました。
数字と＋や-などの演算子はうまく動作するのですが、
Enterキーを『＝』として、使いたいのですが、うまくいきません。
フォーカスがあるボタンを押してしまいます。
あまり、うまく説明できていないかもしれませんが、どなたかわかるかた教えてください。
お願いします。

>>280
ボタン自体にフォーカス行くのがまずいのなら
ボタンClickイベント処理後にどっかにフォーカス逃がせば？

>>279
WordDoc.を付ける

初めまして。過去にあった質問ならすみません。

SUB　MAIN()

END　SUB

（SUB　MAIN）で始まるモジュールをexeファイルにして
バッチファイルから引数を二つ渡して実行したいのですが
どのようにすれば良いのでしょうか？バッチ上での
記述とＶＢでの記述を教えて下さい。お願いしますm(__)m。

バッチの例

テスト.exe　引数１,引数２

MSCommコントロールを使ってＰＣ←→機械の間でRS232Cケーブルでデータ
をやりとりするプログラム作成しているのですが、ＰＣから機械にデータ
を送る時にCRLF（復帰改行）が消えてしまうのですが、なぜなのでしょうか？

送信の仕方は普通に

Do
Open "FD" For Input As #1 'ファイルを開く
Line Input #1, Buffer 'ファイルを１行変数に入れる
MSComm1.Output = Buffer '変数を出力
Loop Until EOF(1) = true

という風に送っているのですが、文字データだけが送信されて改行コードは送られません。
なにか方法がありましたらお教えください。　お願いいたします。

>>283
Command

>>284

MSComm1.Output = Buffer & vbCrLf '変数を出力

283>>285

ありがとう。明日会社で調べます。では。

ちなみに

vbCrlf=CHR(10)　6　CHR(13)

ですか？前、似たようなことをやったような

vbCrlf=CHR(10)　6　CHR(13)

　　　↓

vbCrlf=CHR(10)　&　CHR(13)

お返事ありがとうございます。
無理やり改行コードを足してやればいいだけなんですね。
本当に助かりました　ｍ（＿＿）ｍ

>>288
vbCrlf=Chr(13) & Chr(10)

おしい

　　　　　　　　,, .: 。
　　 ＼( ﾟ´3ﾟ)- = 。 ﾟ
　　　（ 　　）` :: . ﾍﾟｯﾍﾟｯ
　　　ノ　＼

VB使いってクズだね（ﾜﾗﾜﾗ
rubyの足元にも及ばないね。

>>291
２点。
もうすこし上手く煽ろうね。

Exchange 2000 Serverでアドレス一覧の追加、変更、削除がしたいのですが
やりかたがわかりません。
MSDNライブラリの[Finding Exchange AddressLists with ADSI」で
アドレス一覧の名前とクエリーは取得できることはわかりました。
だれか知りません？

特定のｅｘｃｅｌのファイルを、セキュリティーを目的として、独自の
ランチャープログラムを経由して開きたいのですが、
ランチャープログラムから、そのシリアル番号を引数として、
excelに渡したいのです。
excelのVBAで、そのシリアル番号を検証して、ファイルを
開かせる予定です。

引数をexcelに渡す方法についてなにか方法をご存知でしたら、
教えていただけませんか？

ApplicationオブジェクトのRunメソッドを使用する。

＞ApplicationオブジェクトのRunメソッドを使用する

初心者なので、引数をexcelに渡す方法について、
もう少し詳しく教えてください。

>>296
Excelのヘルプを見たまえ

ＡＣＣＥＳＳ２０００（ＡＤＯ）でＳＱＬサーバにストアドで
データをアップデート
使用としたときに
途中でネットワークのエラーでおちてしまうのですが
何が悪いのでしょうか？
アップデートするデータは、１００００件で
８０００件ぐらいで落ちてしまいます。
申し訳ないのですが、分かる方いたらよろしくお願いします。

>298
ＶＢの質問に見えんが．．
ＡＤＯが同期型になっておらず、
且つ
参照作業が直後に含まれいる。
てなことぐらいしか思いつかん。

>>299
返答ありがとうございます。
スレ違いで恐縮です

＞ＡＤＯが同期型になっておらず

この内容がちょっとよく分からないのですが
教えていただけないでしょうか
教えてクンんで恐縮ですが
よろしくお願いします。

>297 名前：デフォルトの名無しさん 投稿日：2001/06/29(金) 15:39
>>296
>Excelのヘルプを見たまえ

えーヘルプを見てもわからないから、質問させていただいて
いるのですが、助けてください。

>えーヘルプを見てもわからないから、質問させていただいて
いるのですが、助けてください。

「該当する項目をヘルプで見つけられない」
「見つけたが理解できない」

のどちらですか？

それと他の場所でも質問されてますね。どっちで答えていいのか
迷います:-)

>>300
非同期：ストアドのコマンド投げっ放し
同期：投げた処理が終了して戻ってから次へ

ＡＤＯについてはココの adAsyncExecute 見て下さい。
http://www.e-soshiki.com/kenkyu/reports/ADO.htm

＞３０２

＞「該当する項目をヘルプで見つけられない」
まずこのレベルに該当します。

＞「見つけたが理解できない」
従いこれも該当します。

もう少し詳しく教えていただくと、
こんな感じで出来るでしょうと、ソフト屋さんに
説明できると思ったもので。


＞それと他の場所でも質問されてますね。どっちで答えていいのか
＞迷います:-)

あー失礼しました。こちらで教えていただけますか？
他は削除します。

>>294
よくわからんがVBAで認証をしてもVBAを無効にしたら
開けちゃうのでは？

＞３０５
元のエクセルファイルはパスワード設定していて
開けないのですが、よりセキュリティーがかかっていると
見せたいのです。

>>304
VBEditerの画面のヘルプで検索しろ！

＞３０７
ここは、初心者質問スレ　だったので、質問したまでです。

＞ヘルプで検索しろ！

その程度の回答が帰ってくるのが、 初心者質問スレ
ということでしたか。判りました。
引っ込みます。
ありがとうございました。

>>306
見せかけだけってこと？
変なのー

ぷぷっ
VBだってさ。
ruby>>>>>>>>>>>>>>>>>>>>>>>>>>VB

デフォルトの名無しさん>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>shige

2ch>>>>>>>>>>>>>>>>>>>>>>>>>yahoo

>>303
ご返答ありがとうございました。

>>ＡＤＯが同期型になっておらず
先程教えて頂いたＵＲＬを参照したのですが
adAsyncExecuteでは非同期になってしまうんじゃないでしょうか？

教えてくださいばかりで申し訳ありませんが、何卒よろしくお願いいたします。

ExcelオブジェクトのリファレンスはVisual Basic Editorのヘルプ
からたどれます。つまりExcel本体のヘルプからはたどれません。
デフォルトのインストールだとこのヘルプファイルがインストール
されないので、その場合は追加インストールする必要があります。

>>313
基本的にデフォルトが同期で非同期が明示的な指定ですね。
別に同期になってるんなら別の原因なんじゃないでしょうか。
これ以上はわかりません、すいません。
-----------------------------------------------------------------
昔、ＲＤＯのとき特定のバージョン使用のときにデフォルトが非同期になってしまうというアホな状況がありました。
ＲＤＯ３．０＋ＤＢ２（バージョン忘れた）でＳＱＬＡＰＩでむりやり同期指定した記憶があります。結構大騒ぎ
でもこれはイレギュラーなことなんで..大体ＲＤＯはクサかった、ＡＤＯは安定だと思われ
-----------------------------------------------------------------

283>>285

どうもありがとうございました。見事に解決できました。
引数は自分で分解すれば良いだけだったんですね(^^;
朝一で実行の必要があったので、マジ助かりでした。謝謝

>>315
色々アドバイス頂きありがとうございました。
頑張ってみます。

Outlookのフォームに、VBSで

Function Item_Read()
　　Set myInspector = Application.ActiveInspector
　　MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myInspector.CurrentItem.Subject
End Function

としたのですが、
myInspectorオブジェクトがないと怒られてしまいます。
でも、
　　Set myInspector = Application.ActiveInspector
　　MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myInspector.CurrentItem.Subject
の２行はVBSでのActiveInspectorの例としてwindowsHelpに載っていたもの
をコピペしただけなのに・・・
なぜなのでしょう？教えていただけたら幸いです。

age

>>318

Set myInspector = new Application.ActiveInspector
じゃなくって？

質問です。
Ｖｉｓｕａｌ　Ｂａｓｉｃの体験版ってどこで手に入りますか？

>>320
そしたら今度はクラスが足りません。"Application"と怒られました。
そこで、
Function Item_Read()
Set Application = CreateObject("Outlook.Application")
Set myInspector= new Application.ActiveInspector
MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myInspector.CurrentItem.Subject
End Function
と足したら、
「プロパティが読み取り専用です」行番号２
と怒られました。
厨房ですまんです。「プロパティが読み取り専用です」でgoogle検索しても０件。。。
カンチガイしてるんでしょうか？

>>322
じゃー。↓はどう？
Outlookの環境ないから検証はしてないっす。

Function Item_Read()
Set Application = CreateObject("Outlook.Application")
Set myCurrenItem= Application.ActiveInspector.CurrentItem
MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myCurrenItem.Subject
End Function

>>323 ありがとうございます。
んーでも、同じです（泣）。
（「プロパティが読み取り専用です」行番号２ と言われる・・・）

>>323
多分、Applicationが読取専用なんすね。

Set m_App = CreateObject("Outlook.Application")
とかローカル用の定義にかえてみては？

Application って予約後では？

予約後じゃねえよ。
単なる定義済みグローバル変数駄。

圧縮ソフトみたく、
エクスプローラー右クリックした時に表示されるコンテキストメニューに
「書庫を作成」というメニューを表示させて、選択されたら処理するような
サンプルとか知りませんか？

電卓作ってるんだけど
１＋１＝２ってだすプログラムの方法教えてください。
勉強はじめたばっかでわかりません

電卓はサンプルプログラムが付いてるぞ。。<VB

コントロール配列使って、電卓のボタン押したとき、その数字を画面に表示させたいんだけど・・
できないよ〜〜

>>331
なんで？

>>332
今練習でやってるの・・・教えてｹろ〜〜

>>333
必殺
わからないところがワカラン

>>334
とりあえず０〜９までのボタン作って
それクリックしたら、その数字が、テキストボックス１に出るようにしたいの
コントろ−る配列を使って

>>335
０．フォームにテキストボックスを置く（名前：Text1）
１．フォームにボタンを置く
２．そいつを Ctrl+C でコピーに吸い取る
３．フォームに春
４．配列にするか？と聞かれてハイ
５．どれかボタンを２度叩く
６．コーディング画面にハンドラが出る
７．以下のコード
If Index = 0 Then
Text1.Text = "0"
ElseIf Index = 1 Then
Text1.Text = "1"
' ElseIf Index = 2 Then
' Text1.Text = "2"
End If

こんな感じかな

>>336
ありがとう〜神様

>>336
あと足し算頑張って作るよ。
でもどうやって
１回目に表示させた数字と２回目（プラスを押したあと）に表示
する数字を足すんだろ。両方ともテキストボックス１にしか表示させないから・・
困る

グローバル変数にコイツラを持っておく
Dim Ans As Integer ' 現在の答え
Dim Enzansi As Integer ' 前回押された演算子

･･･
作り方によりけりだね、がんばってちょうだい

だから、電卓のサンプルプログラムはVBのCDのなかに入ってるだろうッ。

>>340
必殺「友だちから借りました」ってやつなんだろ。
でなきゃ「学校からもってきました」かね。

>>328

SendToにいれるのは駄目？

すんません、教えて下さい。
文字列を切り離したい時はどーしたらいいのでしょうか？
例えば、変数に"aaa/bbb/cccc/"って入ってる時に、"/"の部分で切り離すようにしたいのです。
結果としては、aaa,bbb,ccccって感じで。
cgiだったら、簡単にできる関数が用意されてるみたいなんですが、ＶＢにもあるのでしょうか？
宜しくお願いします。

>> 343
Replace()
区切り記号に "/" を指定すれば配列にバラせるよ

ごめん、何寝ぼけてんだ俺
Replace じゃなくて Split だよ
こんなひどいマジボケは生まれて初めてだ詩嚢

そんなになげかんでも...

>>342
それだと「送る」に入るだけで、
メニューには乗らないねー。

しかし、VBで実現できるのか？

>345
どーも、ありがとーございます。
やってみます。

ツッコミが入る前に気がついてよかったじゃないか。

１０進法を　２進法とかに変えるプログラム教えてください

>>350
BIN()

VB6では「利用可能なアドイン」に表示されるアドインが
Office2000VBAでは表示されません
Officeのオプションで、何か追加しなければいけませんか？

>>336

こんな、典型的な宿題厨房に回答する必要ないぞ。

ウインドウの右上に「最小化」「元の大きさに戻す」「閉じる」ってボタンがありますよね。
それを表示させないようにする事はできるんですか？

又、「閉じる」ボタンを押した時にどういう動きをさせるかってのは、どうすればいいんですか？

ご存知の方がいらっしゃいましたら、教えて下さい。
宜しくお願いします。

>>354

＞ウインドウの右上に「最小化」「元の大きさに戻す」「閉じる」ってボタンがありますよね。
＞それを表示させないようにする事はできるんですか？
ControlBoxをfalse

＞又、「閉じる」ボタンを押した時にどういう動きをさせるかってのは、どうすればいいんですか？
どういう動きをさせるかというのはどういうことでしょ？
ウィンドウにWM_CLOSEをPOSTするってこと？

>>353
カウンセリングも技術のうち

>>355

＞ControlBoxをfalse
すみません、僕の説明が不充分でした。
これは知ってるんです。
でも、このやり方だと、全部消してしまう事になっちゃいますよね。（確か）
そうじゃなくて、３つのボタンのうち一つだけ表示させるとか、そういう感じです。


＞どういう動きをさせるかというのはどういうことでしょ？
＞ウィンドウにWM_CLOSEをPOSTするってこと？
「×」ボタンでウインドウを閉じようとした時に、例えばメッセージボックスを表示させるとかそーいう事です。

>>353

宿題を教えたって誰も得せん

初心者質問スレ
でガタガタ言うのはやめましょう。スレ違い

>>345
ありがとう、ちょうどこういうの探してたんだ。
マジで助かったよ

>>357
最小化と最大化はどっちか表示されてると両方表示されるんじゃなかったっけ？
どっちかをDisableにするのは簡単

>>357　こうか?
Private Sub Form_Unload(Cancel As Integer)
　　MsgBox "逝ってよし"
End Sub

>>361
では、「×」ボタンを非表示、又はクリックしても何も動作しないようにするには、どうするのですか？

>>362
ありがとうございます。
では、そのメッセージボックスに「はい」「いいえ」の選択肢を設けて、「はい」を選んだらそのまま閉じる。（これはできました。）
「いいえ」を選んだら、元の画面に戻るというようにする事は可能でしょうか？

>>357
そういうことね

Unloadイベントのcancelパラメータに0以外の値を設定したら、
フォーム消えないっすよ

>>364
おおっ、できました！
感動です。
ありがとーございます！

オプションボタンっていくらTAB_STOPをfalseに設定してても、
フォーカスを受けた時とかに自動的にtrueになるんですけど、
falseのままにする方法とかあります？

エクスプローラーみたいに、ウインドウを、まん中のバーでリサイズ可能な
ペインに分割することはできますか？

Lineコントロール使って分割っていうのは、できれば避けたいです。
ぶかっこうなので。

>>366
フォーカスを受けたらfalseにすれば？

VBつかい　バカ以上の事　出来ないね（五・七・五）

（げらげら）

あの，ちょっといいでしょうか？
ＶＢを初めて３日です。初めて作ったものを，
exeにして実行できるようにしたのですが，
アイコンを変えたいんです。
アイコンは用意してありますが，
どうやったらいいんでしょうか？
お助けください。マジレス希望です！

>>370
プロパティウィンドウのformのIconをクリック、好きなアイコンを選ぶ
だけ。

>>371
できました！感激です！
どうもありがとうございました！

つまらない質問かもしれませんがおねがいします
VBで印刷がうまくおこなえません
フォームを印刷するとき、印刷用紙のサイズに合わせるにはどうすればいいでしょうか?
サンプルコードなどを頂けたら、助かります

>>367
アプリケーションウィザードでエクスプローラスタイルで
作成すれば、それをサンプルにできるよ。

>>373
Form1.PrintFormじゃなくて、
Printer.PaintPicture Form1.Image, x, y, w, h
を使うといいかも。

拡大率はFormとPrinterのScaleHeightまたはScaleWidthから
求めればいい。

MSCommを使用して機械とパソコン間でデータをやりとりするプログラムを書いているのですが
ハイパーターミナルでデータ送信命令のコマンドを打つとちゃんとデータを送ってくるのに
MSCommで同じように命令を送ると何の返事も返ってきません。
MSCommとハイパーターミナルではやり方が違うのでしょうか？
もちろんMSCommの設定とハイパーターミナルの設定は同じようにしております。
下にコーディング例を書いておきます。
なにか原因があればご教授ください。　お願いいたします。

376です　お願いいたします

Private Sub Start_Cmd_Click()

'　MSCommコントロールの初期設定

MSComm1.CommPort = 1 '通信ポートNo指定
MSComm1.Settings = "9600,e,8,2" '通信条件設定
MSComm1.Handshaking = comNone 'フロー制御無し
MSComm1.PortOpen = True 'ポートを開く

MSComm1.InputLen = 0
MSComm1.OutBufferCount = 0

Dim Buffer As String
Buffer = "@READ B<SOFT>" & vbCrLf

MSComm1.Output = Buffer 'データ読み出しコマンド送信

Do 'データ送信終了まで待機
Loop While MSComm1.OutBufferCount >= 1

MSComm1.Output = "" 'データ受信待ち受け処理

Do Until MSComm1.InBufferCount > 0 'データが入ってくるまで回れ
Loop

Do Until MSComm1.InBufferCount = 0 'データがなくなったら抜けろ
If MSComm1.InBufferCount = 0 Then
Sleep (1000)
End If

Buffer = Buffer & MSComm1.Input

If MSComm1.InBufferCount = 0 Then
Sleep (1000)
End If
Loop

End Sub

>>376
MSCommに慣れるためにパソコン同士をつないでテストプログラムを
作ってみてはいかがでしょう？

>>376
MsCommのサンプルだったら、ネット上にアホほど
転がってるでしょ。
>>378も言ってるけど、COMポートが二つあるＰＣなら、
自分同士で通信のテストできるよ。

お返事ありがとうございます。
既にテスト用のプログラムも作りましたし、
Vector等でテストプログラムを取ってきて使っております。
それでＰＣを２台繋いだ状態でテストすると完璧に送受信できているのですが
実際に機械に繋いで動かすと全然動かないのです。
それで、ハイパーターミナルとMSCommでは何か違うことをしなければいけないのか
（例：文字列を送る時に文字コードで送るとか）
と思いましてお聞きした次第です。

>>380
vbCrLf でいいですか？

>>380
LoopにDoEventsがないけどいいですか？

>vbCrLf でいいですか？

　復帰改行はCRLFとなっているので vbCRLFと書いたのですが
　& Chr$(13) & Chr$(10)　の方がよいのでしょうか？

>LoopにDoEventsがないけどいいですか？

　OnCommイベントを使わずボーリング型で受信しているので
　DoEvents　は必要ないと思ったのですがいるのでしょうか？
　変に使用するとおかしくなるかなと思い使用したなかったのですが

普通はハイパーターミナルで動作すればMSCommでも動作すると考えてよろしいのでしょうか？
他にもデータが入ってこない理由が考えられましたらお教え願います
ｍ（＿＿）ｍ

>>383
ソースでいうとどこの行まで実行されているかわかりますか？
どこかのループで永久ループしてるのでしょうか？
それとも応答を待たずに終了してしまうのでしょうか？

>>383
DoEventsは入れた方がいいと思います。

Do Until MSComm1.InBufferCount > 0 'データが入ってくるまで回れ
Loop

↑ここでループしています。
受信データがゼロのまま変化していないということですよね。

Do Until MSComm1.InBufferCount > 0 'データが入ってくるまで回れ
　　　DoEvents
Loop

って、やった方がいいのでしょうか

>>386
VBのヘルプにはDoEventsが入ってますよ。
InBufferCountの内容がメッセージで制御されているのであれば
DoEventsが必要でしょうね。実はMSComm使ったことないんです。

>>386
やはりヘルプでもDoEventsが評価より先にあるのでDoEventsは必要な気がします。

わかりました。
一度DoEventsを付けて確認してみます。
なにしろ接続先の機械が自社にないので１週間に１度しかテストできないのです。
代わりにモデムに対してＡＴコマンドを送ってデータ送受信できるかテストしてみようと思います。

>>389
すみません。DoEvents関係なさそうです。
ポートの設定が接続先の機械と一致していない可能性の方が高そうです。

>>389
MSCommでやるよりAPIでやったほうが細かく設定できるので
試してみてはいかがでしょうか。
http://www8.freeweb.ne.jp/school/speana_1/vb/vb_2/vb_2.htm

Visual SourceSafe に登録しますかと聞かれたので、登録したところ
コードの編集が一切できなくなってしまいました。どうしたらいいのでしょうか。
SourceSafeから登録解除すればいいのでしょうが、よくわかりません。。。

>>392
IDE上のプロジェクトウィンドウにある編集したいオブジェクトの上で
右クリック。
チェックアウトしてから編集すべし

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

VBからほかのソフトを起動し、さらにそれを操作するということは可能でしょうか?

>>395
もう少し具体的に書きましょう

>>395
可能です

PictureBoxで表示されている画像を
AccessのOLEオブジェクト型のフィールドに対して
adoでデータのi/oを行いたいのですが
どなたか方法を教えていただけないでしょうか？

>>398
savepictureで画像をファイルに保存して、そのファイル名を
Accessに登録する。OLEオブジェクト型は使わない。
っていうのはどう？

>>399
Replyありがとうございます。
ファイルパスをデータベースに保存するということですよね。
確かに考えましたが、画像ファイルが何らかの理由で削除される
場合があるので出来ればMDBで管理したいですね。

Module上で指定したtxtデータをForm上のTextBoxに出力する場合、
どのように表記すればよいのでしょうか。

Form1.Text1.Text = "aaa"

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

>>391
そのＡＰＩで一度試してみます
ご返答ありがとうございました　ｍ（＿＿）ｍ

ビジュアルスタジオインストーラでVBインストーラを作ったとき、
[スタート]メニューの[プログラム]のところにショートカットを作りたい
のですが、どうしても[スタート]メニューの直下になってしまいます。
これはなんとかできますでしょうか

エクスプローラのような右と左を分けるツマミは何で作るのでしょうか？

>>1
ネットにサンプルがいっぱいあるだろう？
書籍くらい買えよヴォケ！
とりあえず、回線切って首吊ってくれ！
それが君のためだ！

↑ﾜﾗﾀ

>>406
http://hp.vector.co.jp/authors/VA014162/hitch/ActiveX2/step1/step1.htm

>>405
http://www.microsoft.com/japan/support/kb/articles/J045/8/46.htm

>>400
>>399の方がいいと思うよ。後々のことも考えると。

MAPIMessagesでOutLookのアドレス帳からアドレスグループを指定し、送信するというのは可能なのでしょうか?
参照できるだけなのでしょうか?
ご存知の方がいらしたらお教え下さい。

>>410
すいません。ディストリビューションウィザードではなくて、
ビジュアルスタジオインストーラの方でのやり方が知りたいのです。

>>413
すまそ。

SStabで質問です。

・タブを複数表示させるとき、ずれちゃう
・Updownコントロールを使ってタブだけ移動させるのってどうやるか

どちらかのお答えを頂けないでしょうか。
たくさんのタブを、限られたウィンドウ内に納めたいのです。
よろしくお願いします。

>>406
境界部分に不可視の imageなどを貼って、
それの MouseDownなどでチェック。

LANで自分の共有ファイルに対するアクセス（どのファイル、フォルダーに対するものか、誰から（IP、コンピューター名）を出すのって難しいんですかね？
知っていたらご教授ください。お願いします。

win2k VB6.0 access2k　で質問です。
VBで、アクセスのパスワード設定してあるデータベースを実行したいのですが、
本とか見ると、データベースを開く、とかはあったのですが、
よろしくお願いします。

LoadPictureでgif形式の画像を読み込んで、
SavePictureでbmp形式で保存するのは、
特許とかの問題は大丈夫なんでしょうか？

>>419
何十万かくらい払えば問題ないはず。
http://www3.cds.ne.jp/~marimo/agree-png/
ここ参照。

age

ExcelVBAについて質問があるんですけど。。
ヘッダー編集のページ数をゼロ詰で表示する方法を
教えてください。

あわくってるだいじょぶ？

同じフォームを何個も連続で表示する方法を知ってる方いらっしゃったら教えて下さい。
どうしても1つしか表示できません・・。
以前知り合いが画面中にランダムで50個ぐらいフォームが表示されるプログラム
作ってるの見て面白そうだったので。
だいぶ前の話なので知り合いも忘れてしまっててあてになりませんでした。

for i=0 to 50
　　dim Fm as new Form2
　　Fm.show vbModeless
　　set Fm=nothing
next i

こんなんで出来ないかな。
Nothing前に位置を変えてやればランダムに見えるでしょう。
Form_Loadあたりに突っ込む。
Form2も追加しておくこと。
即興なので、バグあるかも。

機械からデータを読み取ってファイルに書き込むというプログラムを作成しているのですが、
読み取る時にデータを受信し終わるまでデータを１つの変数に溜め込んでから一気に書き込む
という、方法だと途中でテータが「？？？？？？」という具合に壊れてしまいます。
そこで受信バッファがパンクしてデータが壊れたのかなと考え、一回読み取る毎にファイルに書き込む
という方法に変更しました。これだとデータ自体は正常に書き込めるのですが、元データには改行が入
ってない部分でCRLFが入ってしまいます。
どのようにすれば正常に受信して書き込むことができるのでしょうか？
長くなって申し訳ありません。

---変更前--------------------------------------------------------------------------
　　Open FD For Output As #1 'ファイルを書出しモードで開く

Do Until MSComm1.InBufferCount > 0 'データが入ってくるまで待つ
Loop

Do Until MSComm1.InBufferCount = 0 'データがなくなったら抜けろ
If MSComm1.InBufferCount = 0 Then
Sleep (500) 'データが溜まるまで待つ
End If

Buffer = Buffer & MSComm1.Input

If MSComm1.InBufferCount = 0 Then
Sleep (500) 'データが溜まるまで待つ
End If

DoEvents
Loop

Print #1, Buffer
Close #1


---変更後--------------------------------------------------------------------------

　　Open FD For Append As #1 'ファイルを追加モードで開く

Do Until MSComm1.InBufferCount > 0 'データが入ってくるまで待つ
Loop

Do Until MSComm1.InBufferCount = 0 'データがなくなったら抜けろ
If MSComm1.InBufferCount = 0 Then
Sleep (500) 'データが溜まるまで待つ
End If

Buffer = MSComm1.Input
Print #1, Buffer

If MSComm1.InBufferCount = 0 Then
Sleep (500) 'データが溜まるまで待つ
End If

DoEvents
Loop

Close #1

>425
うまくできました。
どうもありがとうございます。

オラクルのＤＢ更新時にバインド配列を使って一括で更新したいのですが、
やり方が分かりません。
できれば、ストアドプロシージャを用いずに更新したいのですが・・・。

>426
Print #1, Buffer;
セミコロンを付加してみてください。

素朴な疑問なのですが、
Private Sub Command1_Click()
　　Do
　　　　DoEvents
　　Loop
End Sub

とすると、×ボタンを押してFormを閉じることができますが、
Do Loopが実行されているらしく、タスクマネージャに残ってしまいます。
なぜFormがUnloadされているのに、Command1_Clickは実行されているのでしょうか。

また、このときCommand1を再度クリックすることができますが、
これは、新しいスレッドで実行されているのでしょうか。
(ちなみに私の環境では、28回クリックすると、操作不能になりました。)

sageてしもた。

アホですな（ｗ

VBScriptでやっていることをVisualBasicで統合しようと思うのですが
どうすればよいでしょうか？

ぁのぅ、

毎日MPEG1動画が吐き出される環境(Win2k)があるのですが、
それを自動的にMediaEncoderを使ってwmvニコンバーとして、もとの
MPEG1動画を削除したいのですが、

どうも、VBScriptというのを使うとできるみたいなんですが、それはどうやったらインストロールできますか?

ぼくはCとパールしかできないのですが、VBスクリプトというのは難しいですか?

Windowsでは自動化というのは難しいんでしょうかね。

でもうにっくすではwmvにで機内誌。

現在、VBScriptを使ってのWebデータ管理をしています。
ブラウザから書き込んだ内容をVBScriptを使用して参照したり、書き込んだりといった内容です。
これだとHTMLコードが混ざっていたりしますので、VisualBasicコードのみを管理したいという点で
VBの部分を独立させたいという企画なのです。
が、まったくどうしていいのかわかりません…
ご存知でしたらよろしくお願いします。

>>434
Win2kなら、インストロール済みじゃねーの

>>434
拡張子は.vbsだYO!

YO!

トロール船

せんだみつお

おにぎり

りんご

ごはん

ううん、誤字脱字が多くてごめんなさい。
VBスクリプトって使ったことないのですが、全く初心者はどこに行って勉強すればよいですか？

ええと、Win2k何ですが、WindowsScriptingHostって、どうやったら起動するのですか？

>>445
test.vbsというテキストファイルを作る。
中身は
MsgBox "Test!"
でいいな。test.vbsをクリック！
どうだい？
要は、バッチファイルだ。

うわーありがとうございます。
このスクリプトのリファレンスって、どこにあるのですか？
これって、たとえばDOSコマンドとかも使えるのですか？
シェルスクリプトみたいなのと思っていいのかな。

>>447
簡単だろ。
ブラクラとかも簡単に作れるよ。
練習だと思って、一つ作ってみな。
とりあえずAドライブ奥歯がたがたいわせるのつくったれや

VisualBasic6.0で聞きたい事があります。
C++でいうSTLのようなものは無いのでしょうか？
自分でリスト構造等を作るのが面倒なので、もしあれば使いたいなぁ、と。

>>449
oremohosii

>>450
少なくとも標準では、付いてないのでしょうかね…。

C++使えよ(w>449

>>452
そうしたいのはやまやまなのですけど、のちほどそのプログラムの修正を
することになると思われる人が、VBしか使えない…。

>>453
そんな奴に気を遣う必要なし。

>>454
ま、つくっちゃえば、こっちのものなんですけどね。
C++でやっちゃうか。

VB6でmscommを使用して周辺機器の制御をしようとしてます。
RS-232CのER信号の内容を取得したいのですが出来ずに困っております。
値が変わってもイベントが発生しません。
どなたか御存知ないでしょうか？

Stringをテキストファイルに読み書きする
もっとも簡単な方法ってなんですか？

当方ＣとJavaを勉強中っす（Ｃ、一年半くらいでJava半年くらい）。
いまの状態からＶＢやり始めたらどんくらいで
つかえるようになりますかねえ？

多分３日ぐらいで、そこそこ使えるようになるんじゃ…。

>>459
よく「簡単だ」って聞きますけど
ホントにそんな簡単なんですか？
Ｃとかだってそこそこつかえるまでに
いろいろおぼえなきゃいけないことあるし。
ちょっと参考書でもかって、やってみようかな・・・

そのうち無料になるDelphiの方がいいんじゃないか？
簡単だし、奥は深いし。

VBは浅いよ。

Delphiまだかな。すごく楽しみに待ってるよ。

すみませぬ。
Delphiってのはどういうことに使われてるんですか？

http://www.borland.co.jp/delphi/papers/vbtodel/
http://www.borland.co.jp/delphi/competitive/comparison.html

Personal版は無料downLoad可になるよ。

457
です。助けてください。

Open FileName For Input As #2
Do While Not EOF(1)
Input #2, S
Loop
Close #2

こういうことをしても正しく動作していないみたいなのです。

>Do While Not EOF(1)

EOF(2)じゃなくて？

>>465
行単位に読み込むならLine Inputの方がよくない？

#2 じゃ無く FreeFile で取れやｺﾞﾙｧ

>>465
ファイル読み込むだけならこんなんどぅでっか？
お気楽極楽が信条だス。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
Private Function FncBln_Read_SequentialFile(Astr_FileName As String, _
ByRef Astr_DataArea As String) As Boolean
Dim str_Buff As String '一時使用領域
Dim str_Data As String '一時使用領域
Dim str_FileName As String 'ファイル名称用領域
Dim val_FileNo As Variant 'ファイルナンバー取得用

On Error GoTo ErrProc
FncBln_Read_SequentialFile = False

'------------------------
'初期処理
'------------------------
str_FileName = Astr_FileName 'ファイル名はこれ
str_Data = ""

val_FileNo = FreeFile '使用可能なファイル番号取得
Open str_FileName For Input Access Read As #val_FileNo

'------------------------
'ファイルデータ取得
'------------------------
On Error GoTo ErrProc2
Do
'ファイルへ読み込み
Line Input #val_FileNo, str_Buff

'データため込み
str_Data = str_Data & str_Buff & vbCrLf

Loop
ErrProc2:

'後始末
Close #val_FileNo 'ファイル番号の解放

'------------------------
'データ返還
'------------------------
Astr_DataArea = str_Data

'------------------------
'正常終了処理
'------------------------
FncBln_Read_SequentialFile = True

Exit Function
ErrProc:
Close #val_FileNo '万が一のためのファイル番号の解放
End Function

みなさんありがとう。こんな風にしてみました。

Public Function Read_File(ByRef S As String, ByVal FileName As String) As Boolean

On Error GoTo Error_Handle
Dim Str As String
Dim FileNumber As Integer
FileNumber = FreeFile

Open FileName For Input As FileNumber
Do While Not EOF(FileNumber)
Input #FileNumber, Str
S = S & Str & vbCrLf
Loop
Close FileNumber

Read_File = True

Exit Function

Error_Handle:
Close FileNumber
Read_File = False

End Function

>>470
バグあるみたいだよ。

教えてクンで悪いんだけど、
VBAでGP-IBを制御してオシロの画像をファイルに保存したいんだけど
どーすれば良いんだろう？？

質問します。
RichText1に"<HTML>"と入力した時、
自動的に<HTML>の文字を赤い色にしたいのですが、
つまり、タグの色分け表示をしたいのです。
ヒントだけでもお願いします。

>>473
それ無理なんだ。ＶＢではできないんだ。ＶＣじゃなきゃね。

え、
できないんですか。
残念です。レスありがとうございます。

ASP を利用してCOM コンポーネントを呼び出し、IIS上で利用しています。
（具体的に言うとこんなことをしています↓）
http://www.microsoft.com/japan/developer/thisWeek/vbcom/ryo990428.asp

ここで一度ASPを表示（実行）させると、その後ずっとDLLファイルがずっと共有状態で
コンパイル時の上書きや、削除が出来なくなります…
再起動すれば共有状態がなくなり、コンパイルが出来るようになるのですが
サーバーマシンなので頻繁に再起動できません（;´д｀）
どうすれば再起動せずにコンパイルできますでしょうか…？

>>476
IISを再起動させればいいような
よく分からないけどさ

>>476

サービス一回止める。

むちゃむちゃしょうもない質問で申し訳ないのですが
ExcelでVisual Basic Editorを立ち上げると左に出てくる
プロジェクトとプロパティのフォントがおかしくて何が書いてあるか
全然わかりません。
どうやったらこれ、直るんですか？

VBとあまり関係なくて申し訳ないのですが困ってます。教えてください。

>>479
フォントないんだよ、多分。
windowsの[画面のプロパティ]直せない？

自分で書いて、自分でわかりました。
よくある症状みたいで、修正プログラムありました。
ついでに一応書いておきます。
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9cz1.html

>>481
うわ、バグなのか。
また一つ賢くなった

現在Windows95+ACCESS200でプログラムを書いているのですが
ACCESSのVBAでフロッピーのドライブ名を知る方法はないでしょうか？
PC/AT互換機だけならAドライブ決めうちでいけるのですが
なにせターゲットの機械はPC/ATと9821が混在しているので
決めうちが出来ません。

どなたかお教え願えないでしょうか？

例えばExcelのファイルを開いたときや閉じたときに自動的に働くイベント
プロシージャ（例えばWorkbook_BeforeClose)は、Excel97では"ThisWorkbook"に
記述しますが、Excel95の場合はどうやって記述すればいいのでしょうか？
都合でどうしても95を利用しないといけないんですが、どなたかわかりましたら
教えていただけないでしょうか？

Windows2000環境で、ディストリビューション ウィザードで作成した
setup.exeを使ってインストールしようとすると「Path or File Not Found」
というメッセージが出てセットアップが中断されてしまいます。
Windows98SE環境だと問題なくセットアップできるのですが・・・
何が問題なのでしょうか？
ちなみに、VB6SP5です。

ＶＢで、FindWindowで取得したウィンドウの左上を（０，０）として
そのウインドウ上の任意の長方形画面を取り込みたいんですが、
どの関数を使えばいいのでしょうか？
（昔のＢＡＳＩＣで言うところのＧＥＴ＠みたいな事をしたい）

>>486
GetDCでデバイスコンテキスト取得してBitBltすれ。

N88-BASICで　ミリセカンド単位で時間計測することってできるのでしょうか？
print "5000回まわします"
print time$
for i = 1 to 5000:next i
print time$
print "5000回まわりました"
こういう文を書いたのですが、これだと１秒単位でしか計測できないのです。
初心者な質問で申し訳ありません。

>>488
スレ違いだがマジレス。
「できません」
以上。

つうか初心者だからってN88-BASICとは・・・

>>487
ありがとうございます。違うフォームへのコピーはできました。
ところで、BitBltで取得した画像をBMP形式などでファイルに保存したり、
Open, InputB　で配列に読み込んだ画像との比較をしたいのですが、
どのようにすればいいのでしょうか？
デバイスコンテキストに格納されたはずの画像データを
どうやってアクセスするのか、さっぱり・・・

やはり、N88ではそこまで細かい時間の取得は無理なんですね。
どうもありがとうございました。

>>491
事故レスです。
Imageを使ってやろうとしてうまくいかなかったのですが、
Pictureを使うことによって実現できました。

TreeViewの各Nodeの頭にチェックボックスをつける事は可能でしょうか。
一括削除とかしたいのですが。

ControlEx.ocxと言うコンポーネントをご存知のかたいらっしゃらないでしょうか。
TextExのMaskプロパティがさっぱり解らないので、教えていただきたいんですが。

もしくは、MaskEdBoxを使ったとき、Maskの桁数を２〜３桁みたいに、変動させる事は出来ないでしょうか。
どなたか教えてください。

可変ウィンドウでサイズ変更しているときに、あるサイズ(たとえば1000)よりも
小さくならないようにするにはどうしたらいいでしょうか。
自分なりに、Form_ResizeでMe.WidthやHeightが1000より小さかったら
1000にするというやり方でとりあえず実現しましたが、ちらついてしまうのです。
なにか他にいい方法があるでしょうか

>>496
サブクラス化

少々スレ違いですが詳しい方がおられると思うので質問いたします。
EPSONのPC286上で動いているN88-BASICでフォーマットされたフロッピーディスクのデータをWindowsで読込みたいのですが可能でしょうか？
PC9801シリーズのMS-DOS上でなら読めるかと思い試したのですが認識できませんでした。
何かスムーズに読み込める方法があればお教えください　ｍ（＿＿）ｍ

>>496
http://www.galliver.co.jp/writing/susume_vb/tre908/
そのまま、ずばりがあった。

アクティブレポートで印刷する時について質問です。
一枚の紙に、罫線付きで２０行出すとします。
しかし、データ的には１５行しかないとします。
その場合、残りの５行も罫線付きの空白行として印刷したいのですが、どうしたらいいでしょうか？
お願いします。

>>500
こんなところで質問する前に下らん見栄えにこだわる客を説得して
工数削減に努めろよ。
いーじゃん、一行だけの紙が有っても。

http://www.megabbs.com/program/index.html

ありがとうございます。できました。
ただ、私には難しいやり方ですね。

すいません。質問です。
TRIM関数で「ﾌﾟﾛｼﾞｪｸﾄまたはﾗｲﾌﾞﾗﾘが見つかりません。」
というエラーが出るのですが、TRIM関数のライブラリの名前を
教えてもらえないでしょうか。

よろしくお願いします。

それ ACCESS の VBA かい？
だったら
http://www.microsoft.com/japan/support/kb/articles/J053/7/34.htm
が原因じゃないかな

あほな質問で悪いのですが、VBのcommandボタンの四角が嫌なのです。
なので、巧い方法あります？
pictureBoxのFlagを使うのは気に喰わないです。

INETコントロールでFTPサーバーからファイルをEXECUTEメソッドでGETするプログラムを
作ったんだけど、インストールパッケージからセットアップしたら正常に動作しません。

VB6.0の開発環境とコンパイルしてEXEにしたものを起動した時には問題ないのですが。

原因と対処方法をご存知の方いませんか？

ビジュアルスタジオインストーラでインストーラを作ったとき、
[スタート]メニューの[プログラム]のところにショートカットを作りたい
のですが、どうしても[スタート]メニューの直下にしか作れません。
これはなんとかならないのでしょうか

>>500

>>508
どうしてもビジュアルスタジオインストーラ使いたいの？

MDIとインスタンス関連の質問です。

Privert Sub MDIform_Load()
Dim newForm As New Form1
newForm.show
End Sub

で、Form1のInitialize、Load、Resizeそれぞれに
Form1.Caption="Initialize" など、キャプションを
書き換えるコードを記述してみた。

これを実行すると、MDI子フォームが2個できて1つはキャプションが書き換えられる。
悪いのはForm1.Captionと書くからと言うのはわかる。（Me.CaptionならOK？）

MDIのLoadイベントのインスタンスはどの時できてるのでしょうか？
動きをみている限りはまず
MDIformのLoad
　　　↓
Form1のInitialize→この時Form1がないのでオブジェクト表示させてる？
　　　↓
Form1のLoad　　　→この時Initializeで表示させたForm1に対してCaption変更？
　　　↓
Form1のResize　　→Loadイベントに同じ？
　　　↓
MDIFormのLoadで生成しようとしたForm1が生成される？
といった感じで理解できるのですがこれで良いのでしょうか？
気になるのはMDI子フォームは、Formsコレクションで生成した順番に
ここを区別できるのはわかるのですが、Form1ではないんですか？
いったい、どのように取り扱われているのですか？

>>505
参照先を正しく設定したら動きました。
さんきゅでした！！感謝！！

>>508 は無理だ、ということでしょうか

>>508
出来るよ。
裏技っぽいやり方だけど。

それを教えてください

ttp://homepage1.nifty.com/tenyenhead/log/log4.html
↑の233を見れ。

なるほど。試してみます。
特殊なフォルダを自作できるとは気づかなかった。

http://homepage1.nifty.com/tenyenhead/log/log4.html

ユーザ定義型をBinary形式でファイルに保存しているんですが
そこに追加書込みする良い方法はありませんか？
書込み位置を LOF(FileNum) + 1って感じで
無理矢理やってますが、どうもしっくり来ません。

>>518
直リンすんな！！
わざわざ"h"削ったのが判らんのか？
おまえ荒らしか？夏厨か？

コモンダイアログの「ファイルを開く」をキャンセルした場合は、
エラー処理を行わない。

存在しないファイルを開こうとした場合は、「存在しません」とエラーを出したいのですが、
キャンセルしたかどうかはどう調べるのでしょうか？

>>521
ヘルプでCancelErrorあたりを調べていくと良いと思うが。

なぜここは下げ進行なのよ？

>>523
質問スレでは、質問以外はsageるのがこの板の慣習。

組み込み制御系から　アプリの仕事に移り、VB三日目です

外部ライブラリの関数(文字列を変換してくれる)を呼び出そうとしてて、
引数と戻り値が　文字列の先頭アドレス
なのですが、　これはどうやって指定してやったらいいのでしょうか?

とりあえず、　str型の変数名そのまま書いてみたのですが、
うまくいってないようです

VBでは実現できないことをしようとすると、APIを呼び出す必要がでてくるかと
思いますが、APIに関して調べるにはやりそれなりの本を見なければわからない
ものですか?
APIビューワとかいうのを起動してもなんか何もでてこないし、MSDNにも大して
載っていない(?)ような気がしまして。。。

>>526
ＭＳＤＮに載ってないＡＰＩ関数は使う必要がない。

質問です。
VBで、DBからのデータをスプレットシートで表示する際、
もっとも高速でできるやり方ってどんなものがありますか？

>>525
まず「外部ライブラリ」関数がPASCAL呼び出しであるのが前提。

引数が(const)char*の場合はString型の変数をByValで渡せば良い。
この引数が参照用である場合は一切細工は要らないが、出力
(結果渡し)用である場合は
strBuff = Space(256)
などとして予め充分なサイズをアロケートしておき、かつ
NUL文字(Chr(0))以降を切り捨てるなどといった細工が必要。

戻り値がchar*ってのはやったことが無いけど
BSTR系のAPIでアロケートされた文字列でなければ、
直接Stringで受けるとまずいと思われ。
ひとまずポインタの値をLongで受けて、
lstrcpyを用いて引数経由でStringに格納すれば出来るだろう。
この場合、lstrcpyはLong(ポインタ)からStringへの変換関数
としてDeclareしておく。

>>529
ありがとうございます
まず、　引数の一つ目(変換元文字列)は、　正に(const)char*だったので、
上記のように対応して、解決のようです

そして、ちょっと説明が間違っていたのですが、
二つ目の引数で、変換後文字列を格納する場所を
LPTSTR dstで指定するようになっています
(ここの指定のしかたが間違っている?ようです)
そして、三つ目の引数で、dstの最大バイト数を指定してあげるようになっています

(ちなみに、CE向けソフトで、 kctrl.dll内の　sjis2unicodeを利用しようとしてるところです)

APIについてはどうやって調べたらいいのですか

>>531
MSDN

MSDNを目次から辿っていくとすると、APIの文献はどこにありますか?
検索で見てみても、DB関連のヤツとかあまり関係ないものばかり
でてしまうんです。

フォームにアイコンをつけたとき、16*16の絵も含まれたアイコンを付けているにも
関わらず、フォームには32*32をむりやり縮小したものが使われてしまいます。
これは直しようがないものですか。
ちなみに、実行ファイルにはちゃんと16*16アイコンも使われています。

VB5でプログラムを動かす(作ったEXEやデバッグ時)と、
VB6でプログラムを動かすのでは、実行速度は変わりますか？
やっぱり、コントロールの処理とかで速度変わるんでしょうか？

>>535
意味不明。

>>530
VBは外部関数コール時にはStringに対して
自動的にUNICODE<->ANSI変換を行うので、機能的にちょうど
衝突する形になっているのだろう。
(VB内部コードはUNICODEだが、外部は全てANSIであると
仮定してVBは動作する)
従って、wchar_t*の受け渡しにはByteの配列を使って
(0番目の要素をByRefで渡してやる)必要があるのだが、
そもそもVB標準のStrConv()を使えばそんな苦労は
要らないのでは。

>>536
すいません、説明が難しくて・・・
今、ＶＢ５で作ったプログラムのレスポンスチェックしてるのですが、
「ＶＢ６でもレスポンス計って」と、上司に言われました。
それで、ＶＢ５からＶＢ６に入れなおすと、速度が向上するのかな？
ということです。

>>538
計ってといわれたら計れよ。まったく最近の若者は。

>>537
すいません、
なんか、今使ってるCE向けVB (eMbedded Visual Basic)には、
StrConvが　無いみたいなのです・・・
(まだ勉強不足なので、自信なし　　とりあえず、ヘルプではでてきませんでした)

>>538
自分で解決できることを質問するべきではありません。

たしかにそうですね。
申し訳ない。

>>541
あんだと？お前何様だ？
ただでさえＶＢがなくなってしまいそうなときなんだから
お互い協力すべきだろーが、あっ。
お前みたいなのがＶＢ使いにいるからみんながＶＢを馬鹿に
するんだぞ。わかってんのか？

じゃあオマエが質問に答えてやれよ。

>>544
すぐそれだ。もうどっかいけよ。お前なんかＶＢ使いから
追放だ！

各コントロールの使い方などをステータスバーに表示したいです。
今は、GotFocusとMouseMoveのときにそういった処理をするように
しているのですが、コントロールの数が多いのでたくさん書かねば
ならず、あまりスマートなやり方ではないと思っています。
他に何かよい方法はないものでしょうか。

>>546
俺のやり方だが。
各コントロールのtagに使い方を書いておく
各イベントでは関数を呼ぶだけにする
関数にはインスタンスを渡して、tagの内容を表示する

まぁ、やりかたは色々あると思うけど。

VB6を使ってプロキシ変更ソフトを作ろうと思っています。
MicrosoftInternetTransferControlを使えばいいのかなーとか
思っているのですが今ひとつピンと来ません。
一般的(?)なプロキシ変更ソフトの仕組みをお教えいただけませんか？
よろしくお願いいたします。

>>548
レジストリ変更だろ
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings
　ProxyServer
設定ダイアログ−接続−プロキシーの設定を代えて、値がどうなるのか確認してみるがよろしい。

>>549
レスありがとうございます。このキーの存在は知っていたのですが、
Windows全ての環境に共通なのか不安で二の足踏んでいました。
これでやってみます。

>>549
すぐそれだ。もうどっかいけよ。お前なんかＶＢ使いから
追放だ！

げ！　VB界から追放されてら〜〜！！　スゲー

今、使おうとしている外部関数なんですが、
sjis2unicode( const BYTE *src, LPTSTR dst, DWORD max )
srcに指定したjis文字列を、dstにunicode文字列で返す、というものです
この、一つ目と二つ目の引数は、本来どういう形のものが入るのでしょうか?
(三つ目は、　dstのサイズ　これは問題なし)
いろいろやってみているのですが、うまくいきません・・・

(やっぱり、ce向けのvbには、strConvはありませんでした
そのほかにも、数多く制限があるみたいです)

>>552
すぐそれだ。もうどっかいけよ。お前なんかＶＢ使いから
追放だ！

>>553
CEは全然知らんのでなんとも言えないが。
537にちょっと書いたけれども、
普通のVB(バージョン4.0以上)であれば、
第一引数はByVal As Stringで
第二引数はByRef As Byte
だろうな。
Dim dst(1024) As Byte
とでもしておいて、dst(0)を渡す。
しかしStrConvも無いということは結構怪しい気がする。

>555
ありがとうございます　本当に助かります
基本的に、上の方法でうまくいきました
とりあえず文字列ではなく、文字一文字変換してみたら、
正しいコードで変換されました!　ありがとうございます

ただ、問題があって、
dstは、byteで定義しているのに、
declareの dstの指定は、　ByRef dst As Longにしないと、
うまくいかないのです

そして、　変換結果は、dst(0)に、なぜか、byte定義のはずなのに
&h30AF　のように、　2バイト分値が入ってしまうのです
dst(1)以降は、全部　空になります
(値そのものは、正しいものが入っています)

当方初心者、ＶＢのことで質問です。
ＳＱＬをつかってデータベースのテーブルの指定のフィールドに特定の値が含
まれているレコードの数を取得したいのですが、どうすればいいのかわかりません。
おそらくＳＱＬ文は
SELECT COUNT(フィールド名) FROM テーブル名 WHERE 条件
このように書くのかな？？？？とかって思ったのですが、数はどうやって取得すれば
いいのでしょうか？
変数 = ???
というふだと思うのですが、わかりません。
どなたか宜しかったらご教授宜しくお願い致します。

>>557
質問するには範囲が広すぎるYO
本でも買って勉強してから出直してきな

>>558
そうですか、範囲が広いのですか・・・、失礼しました。
どなたか僕の意図を汲み取って回答いただける方はおりませんか？。

明日にでも書店で本を漁ってみます。

>>559
意図はわかる。汲み取ったよ。（笑）

で、ＤＢの接続には何を使うの？まず、それもわかんないんでしょ。
そんなところから、ここで回答できないよ。
まずは一本自力で作ってね。

>>557
Dim SQL As String
Dim rsCOUNT as Recordset
SQL = "SELECT COUNT(*) AS 件数 FROM テーブル名 WHERE 条件"
Set rsCOUNT = dbHANBAI.OpenRecordset(SQL)

こうすればrsCOUNTっていうレコードセットが生成されて、件数っていうフィールドにレコード数が入ってるはずです。
つまり、rsCOUNT!件数で取得できますよ。

上のサンプル、データベース名がdbHANBAIになってしまってる……。
自分が今組んでるコードからコピペしたもんだから……。鬱だ……。
dbHANBAIの部分は自分のデータベース名にして下さい。

元COBOLer?

元COBOLerじゃないけど、どうして？？？

>>561
解決しました！。
ありがとうございました。実はわけあってかなり追い詰められてまして
すごいほっとしてます！。ありがとう！。

>>560
まともなレスありがとうございました！。
ご指摘の点、以後きをつけます。

結局、BYTE型の配列に、文字列らしきものは　入った?ようなんですけど、
これをSTRING型として使用するには、どうしたら良いのでしょう
一文字だけなら、ChrとかChrwでとりだして
文字に変換できたのですが・・・
CSTRも違うみたいだし・・・

上のほうで回答いただいた中の、　lstrcpyを使うのかな?
CEにあれば良いのだけど・・・(笑

Dataenvironment でcommand1を作ってそのプロパティの中の
全般タブの中のSQLステートメントの欄でここにSQL文を書かないで
プログラムコードの中でSQL文を渡す方法はあるのてしょうか。

age

たれか　教へてくだされ。
エクセルのVBAで文字をシフトJISコードに変換する方法が分らん。
お願ひ、教へて。

>>569
StrConvじゃだめか？

この辺りを読め
Unicode→S-JIS
ttp://www2.will-ltd.co.jp/support/tips/TIPS1.htm
S-JIS←→JIS
ttp://www.input.co.jp/takemori/vb/vbjis.htm

>>567
>>561のやり方じゃだめか？

>572
試したけど、なんかダメぽいね。

SQL上の特定のレコードをデータレポートで印刷したいんだけど、
これってdataenvironmentを使用しないとできないですよね。
で、"select * from table1 where NO=なんとか" として
"なんとか" を毎回変えて印刷したいんです。
シスアドプロシージャとか使うのかも。

みんな　ありがとう。
早速、試してみて後で報告します。
わしの田舎じゃぁ誰に訊いても応えてくれんかった。
ここは頼りがいがありますなぁ。
感激謝

まだ　ようわからんが。

571さんが教えてくれた。
http://www.input.co.jp/takemori/vb/vbjis.htm
に、S-JIS→JIS 変換のプロシージャが載っていますね。
この考え方で、できそうな気がします。
それを応用してUnicode→S-JISも変換できそうです。

と、ゆうことは、VBにはそのような関数は無いということでしょうか。

>>575
どうやって応用するとUnicodeからSJISになるんだ？
Unicodeから他のコードセットに「計算で」変換する方法は存在しないぞ。

>>575
ttp://www2.will-ltd.co.jp/support/tips/TIPS1.htm に
＞VBには、UnicodeとシフトJISコードを相互に変換する関数Strconv()が用意されています。
と書いてあるような。

＞それを応用してUnicode→S-JISも変換できそうです。
思いつきを言う前に iconv のソースでも読むか 「Unicode標準入門」 を読もう。
http://www.shoeisha.com/book/Detail.asp?bid=1232

>>576
ええぇ、UnicodeとS-JISには一定の法則がないの？
できそうで　できない。
なんか男と女の関係みたいじゃのう。

＞それを応用してUnicode→S-JISも変換できそうです。
これは浅はかな思いつきでした。お恥ずかしい。

ようするに、文字をS-JISに変換できないってこと？
これはこのスレには相応しくない高度な次元の問題だったわけ？

>>577
＞＞VBには、UnicodeとシフトJISコードを相互に変換する関数Strconv()が用意されています。
＞と書いてあるような
これがヒントですか？

↓こんなんで　できないよ（涙涙）。
Dim s As String
s = Strconv("ABC",Unicodekarahenkanshiro)

strReturn = StrConv(strSource, vbFromUnicode) 'Unicode --> Shift-JIS
strReturn = StrConv(strSource, vbUnicode) 'Shift-JIS --> Unicode

vbFromUnicode = 128
vbUnicode = 64

For Eachループの意味がいまいちよくわかりません。
これはどのようなときに、どのようにして使うのでしょうか。

たとえば配列になっているボタンを一括で非表示にしたいときに
使えるのかなと思っていますが、やり方がよくわかりません。

>>581
要素を一つずつ順番に取り出して処理するのに向いていると思います。

>>578
UNICODEは完全に独立したコード体系で、表引きによってしか変換できません。
WindowsにはそれをするAPIが用意されています。
ただし、Windowsが持っている表にはいろいろと不備があって、そのために
S-JIS→Unicode→S-JISという変換をAPIで行っても完全に元に戻らないことがあります。
（１対１になっていない文字がいくつかある。どれとどれかは忘れた）

561さんに惚れそうです。。。

INT型 -> BYTE型の変換って、簡単にできないのですか?


intAbc(int型)に、2バイトデータ(例 &H804E)が入っています

これを、上位(&H80)と下位(&H4E)バイトに分けて、
bytA1と bytA2に入れたいので、次のようにしました

bytA1 = CByte((intAbc And &HFF00) / &H100)
bytA2 = CByte(intAbc And &H00FF)

そしたら、CByteのところで、オーバーフローエラーになってしまいます

なんか、考え方間違ってますか?

>ただし、Windowsが持っている表にはいろいろと不備があって、そのために
S-JIS→Unicode→S-JISという変換をAPIで行っても完全に元に戻らないことがあります。
（１対１になっていない文字がいくつかある。どれとどれかは忘れた）

それはWindowsどうこうじゃなくて、ShiftJISとUNICODEのコード
が1対1でないからでは？

すいません、Excel VBAなんですけどいいですか？
テキストボックスの enabledプロパティを Falseに設定したとき、たしかに入力を受け付けない状態に
なるし、なにか入力されてた場合にはそれが灰色になるんですが、テキストボックス自体を灰色にしてしまう
にはどうしたらいいんでしょうか？ちなみにExcel97です。

これじゃあ　できないよね。

henkanshiro = 128
'Cells(1, 1) = "恥"
Cells(1, 2) = StrConv(Cells(1, 1), henkanshiro)

付録
変換方法（変数henkanshiroの代入値）
1,文字列を大文字に変換する
2.文字列を小文字に変換する
3,文字列の各単語の先頭の文字を小文字に変換する
4,文字列の半角文字を全角文字に変換する
8,文字列の全角文字を半角文字に変換する
16,文字列の全角ひらがなを全角カタカナに変換する
32,文字列の全角カタカナを全角ひらがなに変換する
64,システムの規定のコードページを使用して文字列をUnicodeに変換する。
128,文字列をUnicodeからシステムの規定のコードページに変換する。

「システムの規定のコードページ」ってなんだ？

Unicodeに変換ならこれでできるけどね。
Cells(1, 3) = Hex(AscW(Cells(1, 1)))

>>587
バックカラーに灰色入れろ
文字は消せ

すいません。いきなり質問します。
ご存知の方教えてください。

Printで出力するﾌｧｲﾙがあるのですが
改行を含むデータを出力しようとすると
CSVﾌｧｲﾙで開いたとき、セルにまたがって表示されてしまいます。

EXCELで編集した場合に、Alterキー+Enterキーで
同ｾﾙに改行するような形で
出力したいのですが、どのようにすれば良いのでしょうか。

vbCrLf、vbCr、vbLfすべてダメでした。（同ｾﾙに改行されません）
上記定数に置きかえる定数をご存知の方、教えてください。
いきなりすいません。

ExcelでAlt＋Enterで改行した場合はvbLFが入っていますが、CSVを
経由してそれを渡すのは無理でしょう。できるとしたら、CSVに吐く
ときに改行コードを特定の文字(\nとか)に変換して出力し、Excelに
読み込ませた後にvbLFに変換するといった方法を取る必要があると
思います。

>>534 は無理だ、ということですか

>>589
できました。ありがとうございます。

>>591
了解しました。
ご回答ありがとうございました。

>>534=592
アイコンファイル (*.ico) には複数のイメージを含めることが出来る
32x32 と 16x16 の両方のイメージを入れておけば適切に表示されるはずだ

ってすまない、前発言よく見てなかったよ
含めてるのに表示されないってか、そりゃ解んないやごめん

今ちょっとアイコン作ってためしてみたけど、普通に表示できたよ
アイコン何で作ったのか知らないが、作りなおして試してみたらどう？

>>590-591
ダブルクオート " で囲むとできるんじゃなかったっけ。

色々試してみたら、16*16で色数も16じゃないとだめでした。
256のやつではうまくいかないんですかね

　　　☆結論☆

Unicodeとjiscodeにはなんら関連性は無い。
で、あるから　これらを計算的に変換することは不可能である。
Unicodeは優秀にして歴史有る日本工業会が誇るjiscodeに比べなんら優位性がない。
現にウインドーズのアプリでも至るところでjisが使用されている。
にも拘わらずjis変換関数をわざと提供しないエムエスは日本製品の排除を謀り、
如いては日本文化と民族の没落を願う敵性企業と認識しなければならない。
よって我々は今こそエムエス製品の排斥を真剣に検討すべきではないだろうか。
ベーシックはN88ベーシックを使いワープロは一太郎に回帰すべきである。

追記
上の方で機械とのデーター転送云々と話題になっていたようだが、
漢字コードはどうなってるの？

>>599
どこで情報集めてきたかしらんが
頭わいてるようだな

__
　　　　　　　　　〃　_｀__
　　 　 ,,-＝-､､l｛,_'´..._　｀ヽ、、
　　　〃. ',.´二W´- ‐-｀＼　＼ヽ、＿__
　　 _{l,'.'´　　　　　　、　ヽ ヽ　ヽ彡ｋ､ヽ＼
　 .//`／ 　 i l.　　　 ＼ ､ヽ ｀､　i彡}ヽ`' ´ ▲女優,アイドル、脱がしました▲
. ／| / i {　 |ｌ {＼ {ヽ、_!..ヽ」_/｝ .}./ |__〉、
　＼l.{. l.ヾ _.ゝ_土. ゝ　-'ｆT;;ヽ,|　ｌﾃ｝| ||__〉
　　 /iヽゝヽ/{~);;:l　　 　 {:..''ﾉ'ﾉノ|{ﾉ |_!!女優,女子高生のエッチ画像ばかりを厳選収集！スクール水着,女優,画像ばかり。
　　.|_|l」ヽ. ヽ ゞ‐' 　 、　 ￣`ノﾚヽｿ|　　
　　　　　（.ｿ.ゝ 　 　 --　　 　/'　{=}ﾉ　◆アイドル画像秘宝館◆
　　　　　（=| l へ､　　　 　 ／ﾉﾉ（(.)）.　http://www.futomomo.com/netidol/idolhappy/maki/　
　　　　　（(!）ヾヽヽ｀ ;.- ' ´ |'' ''"'´◆アイドラー◆
　　 　 　 　 ｀~^``／'l　　　 ゜>＼_ http://www.futomomo.com/netidol/idoler/megu/
　　　　 , -‐〃"´　|＿＿_／　　　＞- ､ ◆セーラー服◆
　　　／ ./〃　　　 |＝／　　　 〃／　　＼ http://www.futomomo.com/netidol/sailor/miku/
　　/　　 | ||, ‐-､_,...!､/_ ,..、　.〃/　　　 　 ヽ ◆人妻◆
　 〈　　　／　-ー.{ { {.＝ 　ヽ､|| l　　　　　　| http://www.futomomo.com/netidol/waif/mai/
　　|　　　ヽ　　／|　|＼　　　/ i 〉　 　 　 　 | ◆スイート倶楽部◆
　 〈　　∧ l_／./ | 　|　＼ _/　 /　　　　 　 / http://www.futomomo.com/netidol/sweetclub/miyuki/

bvdfgrtgyr

＞Unicodeとjiscodeにはなんら関連性は無い。
＞で、あるから　これらを計算的に変換することは不可能である。

常識すぎて、今更声を大にして言うほどの事でもない。

＞Unicodeは優秀にして歴史有る日本工業会が誇るjiscodeに比べなんら優位性がない。

んなこたーない。

＞現にウインドーズのアプリでも至るところでjisが使用されている。

WinでJISが使われたことは古今東西一度もない。
S-JISと混同していると思われ。

＞にも拘わらずjis変換関数をわざと提供しないエムエスは日本製品の排除を謀り、

思いっきり提供しているが？
VBならStrConv()

＞如いては日本文化と民族の没落を願う敵性企業と認識しなければならない。

ＭＳが嫌いなのは別にかまわないけどね。

＞よって我々は今こそエムエス製品の排斥を真剣に検討すべきではないだろうか。
＞ベーシックはN88ベーシックを使いワープロは一太郎に回帰すべきである。

だからって、通常はUNIXとかMacだろうに。
N88BASICとは意外な展開。（笑）

>>588
しばらくみてなかったらびっくり。
文字コードの意味わかってるのかな？
かなり勘違いしてるみたいだよ。
HexでCell(1,1)の文字を１６進で表示してるだけで
UNICODE？
だったら
StrHex(Conv(Cell(1,1), vbFromUnicode))
としたらCell(1,1)の文字（デフォルトはUnicode)を
システムの文字コード（S-JIS）に変換後、１６進で
表示してくれるよ。
いや、試さないからわからないけど。
>>599はあなたですか？
JISへ変換したいならStrConvでS-JISに変換後、
S-JISからJISへはロジックで変換できるよ。

しまった。
StrHex(Conv(Cell(1,1), vbFromUnicode)) は
Hex(StrConv(Cell(1,1), vbFromUnicode)) のまちがいです。

>>603
お前こそ勘違いしてるぞ。ＶＢ房にそんなこといってもわからんぞ。
ふざけんな！

>>605
何を勘違いしてるというんだ？
教えてくれ。たのむ。

age

VBユーザーはMSの提供する関数の奴隷だね。
ユニコードごときでこのザマだ。(ﾜﾗ

579様
602様
おねがいです。

＞Hex(StrConv(Cell(1,1), vbFromUnicode)) のまちがいです。

この変数vbFromUnicodeの値をなにとどこの未熟な私めに教えてやってくださいませ。
お教え頂ければ後で美味しい愛媛みかんをお贈り致します。
おねがいですだぁ。

これで合ってる？私はユニコード表を持っていない。

'Cells(1, 1)=試 　Cells(2, 1)=み
'Cells(3, 1)=て　Cells(4, 1)=言
'Cells(5, 1)=を　Cells(6, 1)=発
'Cells(7, 1)=セ

Cells(1, 3) = Hex(AscW(Cells(1, 1)))
Cells(2, 3) = Hex(AscW(Cells(2, 1)))
Cells(3, 3) = Hex(AscW(Cells(3, 1)))
Cells(4, 3) = Hex(AscW(Cells(4, 1)))
Cells(5, 3) = Hex(AscW(Cells(5, 1)))
Cells(6, 3) = Hex(AscW(Cells(6, 1)))
Cells(7, 3) = Hex(AscW(Cells(7, 1)))

'結果
8A66
307F
3066
8A00
3092
767A
30BB

Cell(1, 1) = Right("0" & Hex(AscB(MidB(StrConv("試", vbFromUnicode), 1, 1))), 2) & Right("0" & Hex(AscB(MidB(StrConv("試", vbFromUnicode), 2, 1))), 2)

ＶＣを使おうよ

びっくりした。
本当にできてしまった。

579様、ありがとうございます。
これで一応不細工ながらエクセル・機械間のデーター通信が完成します。
できれば、メールなど頂ければ
お世話になったお礼に裏山で採れるみかんでも、
それとも美味しい讃岐うどんでも贈りたいものです

毎日3食コンビニめしなので、うどんが喰いたいYO!!

>>613
礼なんていらないよ。
なんかメールが来ても偽者だから送らないように。

Access 2000 で、VBAからフォームにコントロールを貼る方法を教えてください。
たしかデザインモードで開いてはできたはずなんですが、やり方を覚えていません。

579様、
＞礼なんていらないよ。
そんなことを言わないで、せめてもの私の気持ちを受け取って下さい。
どうしてもと言うのなら、お礼の換わりと言ってはなんですが、私のとっておきの小噺をお一つ。

私は明日と明後日は機械の移設の仕事で高知へ行きますが、
高知、土佐には「いごっそう」という言葉があります。
気が荒いとか任侠心に富んでいるという意味ですが、
気が強いのは男ばかりではありません。
女性もまた然り、下手にナンパなどしようものならそれは大変です。
それなりの覚悟が必要でしょう。

もし、579さんが土佐に来る機会があって、そして勇気が有ればぜひ挑戦してみて下さい。
例えば「ネエチャン俺と一緒に一生お茶しないか」とか、
セリフはなんでも良いのですが、相手が夏目雅子のような美人だといいですね。

そのあと　彼女からきっとこのように言われるでしょう。
「土佐の女をなめたら　いくぞよ。」


<最近、この話を二十代の知人にしたら「夏目雅子って誰？」と言われ　まったくうけなかった。
この噺で笑ってくれるのは四十歳以上だな。>

>>613
つか、３日も前から答えを書いてもらってるのにもかかわらず
試してすらもいなかったとか。
つか、今すぐ市ね

Excel VBAの Findメソッドを実行した場合に返される値（一致するセルがなかった場合はNothing）
を代入する変数の型は何にすればいいのですか。variantにしてもうまくいかないのですが・・・。
あとたまに「RangeクラスのFindプロパティを取得できません」っていうエラーが出るんです。

Set mycell = 検査項目.Cells.Find(TextBox1.Value)
If mycell Is Nothing Then

↑この記述は間違ってますか（検査項目ってのはシートの名前です）？

age

VBユーザーってこんなバカばっか？

>>621
やっぱこの質問、恥ずかしすぎました？ごめんなさい。バカなもんで・・・。
どうしてもできないので教えてください（聞くは一時の恥〜ってやつです）。
Findメソッドとかってうまくいくときとエラーが出るときとありませんか？
なにが悪いのかわからんのです・・・。

ちがうよ,
機械屋とかいうヴァカのこと。

>>619
Dim mycell as Range
ってしてみたらどうかな。
Variantに入れたら、Object型になるのかな。
そのエラーって多態が解決されていないと言っているような。
RangeとObjectの系統が違うんじゃない？
環境がないのでテストできない。

>>623
あ、そうでしたか。恥ずかしい・・・。
>>624
レスどうもです。
やはりうまくいきません・・・。どうやら変数の型の問題ではなくFindメソッドの
記述が間違ってるようです。というのは、返り値を変数に代入しないで 検索でヒットしたセルを
単にアクティブにするだけのコードでも同じエラーが出るんです。↓

Cells.Find(Textbox1.value).Activate

これ本にのってたサンプルコードといっしょなんですけど、間違ってますか？

>>625
TextBox1はどこに置いてあんの？
Form上ならForm1.TextBox1.Value
Sheet上ならSheet1.TextBox1.Value
とか書き換えてみたら？

>>626
やはり同じエラー（RangeクラスのFindプロパティを取得できません）が出てしまいます・・・。
本にかいてあるとおりにしてもエラーが出るのは、なぜなんでしょうか。
ぼくのマシンの環境に問題があるんでしょうか。Excel97だからってことはないですよね？

Textbox1.valueのところを直接の値（"AAA"とか）に
して対象シート（検査項目？）にその値を書いた時にも
同じ現象が出る？

まあとりあえず、その部分のソースを書いてみそ。

>>628
Private Sub CommandButton1_Click()
Cells.Find("あいうえお").Activate
End Sub

試験的にやってみた分ですが、これでもエラーが出ます（一応sheet1のセルに"あいうえお"と入れてあります）。
もうFindメソッド以外が間違ってるってことはないので、問題は絞れたはずなんですが・・・。
検索対象をRangeプロパティで指定してもだめでした。

>>629
Excel2000ですが、上のコード問題なく動きますね。
なんかExcel壊れてない？（藁

>>630
Excel97だからダメだってことでしょうか？
97の場合はどう書いたらいいのか教えてください。

ある本に出てた悪戯スクリプトを作ってみましたが実行できません。
「ステートメントの末尾が不正です」だって。　何故ですか？
ちなみにこれを実行すると自分のメアドがレジストリから読み出されて
出るようになってるんですが・・・。

set WshShell = CreateObject("WScript.Shell")Wscript.Echo"あなたのメアドは

"+WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\"+WshShell.RegRead

("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Default Mail Account")+"\SMTP Email Address")+"ですね？”

>>632
これでは不満か？

Option Explicit
Dim Wshshell As Object
Private Sub Form_Load()
Set Wshshell = CreateObject("WScript.Shell")
MsgBox "あなたのメアドは" + Wshshell.RegRead _
("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\" + _
Wshshell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Default Mail Account") + _
"\SMTP Email Address") + "ですね？"
End Sub

>>632
>set WshShell = CreateObject("WScript.Shell")
の後でちゃんと改行入れてる？

>>633
惜しい。"スクリプト" ＝ VBScript だから、このままでは動かない。
>Dim Wshshell As Object
の
> As Object
と、
>Private Sub Form_Load()
>End Sub
の２行が不要(というか、あると動かない)。
上記３つを消せば >>633 で望みどおりの結果が出るよ。 >>632

ｽﾏｿ　>>633 -> >>635 ね。

>>636
オイラは初心者なんでよく分からんのだけど、
635のコードでも動きましたが…

>>635-636さん
うぉぉぉぉぉ！！出た！やった！感動した！ありがとう！！ヽ(´▽｀)/

ただ僕は、これをローカルでなくＷｅｂ上から実行し、実際にメアドの情報が得られ
ないけど、サイトを見た人が『げっ！！』となるようなびっくりサイトを作ろうとした
のですが、やっぱりエラーが出て上手く表示されません。

またまたお手数ですけど、よければ以下のタグも不具合チェックして下さい。

<html>
<body bgcolor="black" text="red">
<script language="vbscript">
set WshShell = CreateObject("WScript.Shell")
r = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\ユーザー情報\\Default First Name")

str = "てめーの名前は<font color='yellow'>"+r+"</font>だな？"
document.write(str)
set WshShell = CreateObject("WScript.Shell")
r = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Account
Manager\Accounts\"+WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Account
Manager\Default Mail Account")+"\"SMTP Email Address")

str = "てめーのメアドは<font color='yellow'>"+r+"</font>だな？"
document.write(str)
document.write("今までよくも当方に悪戯してきやがったな！！<br>")
document.write("ふざけんな！今度は当方がてめーを懲らしめてやる！<br>")
document.write("てめーのことは全部警察にちくるのでそのつもりで！！<br>")
document.write("いまさら謝ったって遅いんだよ！！<br>")
</script>

</body>
</html>

スクリプトの間の書き込み見て判る方は判ると思いますが、そうです。
僕は「ニセ竹」です。ちく裏の名物スレのファンです。

まさかここに来てる人竹ちゃんファンがいるのかな？
悪戯はよせ！

>>640
こんな感じでどうだろう？？

<html>
<body bgcolor="black" text="red">
<script language="vbscript">
set WshShell = CreateObject("WScript.Shell")
r = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RegisteredOwner")
str = "てめーの名前は<font color='yellow'>"+r+"</font>だな？<br>"
document.write(str)
set WshShell = CreateObject("WScript.Shell")
r = Wshshell.RegRead _
("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\" + _
Wshshell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Default Mail Account") + _
"\SMTP Email Address")
str = "てめーのメアドは<font color='yellow'>"+r+"</font>だな？<br>"
document.write(str)
document.write("今までよくも当方に悪戯してきやがったな！！<br>")
document.write("ふざけんな！今度は当方がてめーを懲らしめてやる！<br>")
document.write("てめーのことは全部警察にちくるのでそのつもりで！！<br>")
document.write("いまさら謝ったって遅いんだよ！！<br>")
</script>
</body>
</html>

>>635さん
うわぁ〜。またまたレスありがとうございますぅ〜。
よく見ると>>640はとんでもない間違いだらけなんだけど、>>635をローカルのhtmlファイルで実行
したらきちんと表示できました。

ただ、これをジオのＨＰでＵＰしても表示されません。
ジオのＨＰスペースはvbscriptが使えない？・・・ことはないと思いますが・・・？

http://www.geocities.co.jp/Technopolis-Mars/8157/Tomokazu/Takeda.html
http://www.geocities.co.jp/Technopolis-Mars/8157/Takeda.htm

↑です。なぜでしょう？

ただ、こんな冗談に付きあってくれるなんて・・・もしかして635
さんは竹ファン？

竹ファンじゃないよ。
つーか、竹ファンって何？？？

上のスクリプトの記述は間違ってない。
ただ、ネットワーク上で表示させるには
ブラウザのセキュリティの設定が必要。

インターネットオプション＞セキュリティ＞レベルのカスタマイズ　で、

「スクリプトを実行しても安全だとマークされていないActiveXコントロールの初期化とスクリプトの実行」
の項目が「有効にする」になっていないと表示されないよ。
つまり、閲覧者がこの設定を無効にしていると何も表示されないので
実用的ではないような気がする…。

ＶＢの話題から外れてしまったのでsage。

>>644の６３５さん
ありがとうございました。
＞閲覧者がこの設定を無効にしていると何も表示されないので
＞実用的ではないような気がする…。

その通りですね。
実は僕、VBのことやプログラムのこととか全くの無知なのですけど、これは
�鰹G和システムから出版されてる「ホームページ　誰も書かなかったホントの裏技」と
いう本に出てたもので、「訪問者のログの取り方」だの「自前ＣＧＩ串の作り方」だの
アングラ系サイト制作のコツとかテクを説いたものなんですが、>>644でカキコしてある
こととか一言も解説なかった。　単なる厨房読本だったのね。
でも、VBの興味も出てきました。　ゴミレスごめんね。　よってsage

>>629
遅れてスマソ
そのコードEXCEL97で動かしたけどちゃんと動くぞ。
やっぱりEXCELが壊れているんじゃない？
一応MSのサイトで紹介されているFINDメソッドの使い方を乗せておくけど
・・・多分動かんだろうなぁ
http://www.microsoft.com/JAPAN/support/kb/articles/J011/3/06.htm?LN=JA&SD=SO&FR=0

>>628

Excel97を使ってる別人だが、確かにFindメソッドは同じコード
でも動いたり動かなかったりする。動かないときの切り分けが
できないので結局使うのをあきらめた。

こういうときはMSのサイトで大概該当する項目が見つかるのだが、
これに関しては何も見つからなかった。

>>647
>>629のコードは、デフォルト多用しまくりだし、エラー処理も無いから
当然条件がそろわないと動かないけど、そーじゃなくて安定しないってこと？

>>648

ごく単純なコードでも動かないことがある。

直値を指定した動いていたコードを、変数に変えたらエラーに
なったり(そもそも例のエラーメッセージ自体謎)、後でもう
一度同じようなコードを書いてみたら問題なく動いて再現できなく
なったり...

VBから画像処理DLLを呼び出したいんですけど、引数として画像の先頭メモリ
アドレスを渡さないといけないのですが、どうやればアドレスを取得できるの
ですか？

だからＶＢで画像処理なんておやめなさい。

>>650
ファイル名を渡したら画像をメモリに読み込んでから画像処理DLLを呼ぶDLLでも
作ったらどうでっしゃろ

VBで、ファイルの名前変更はできるのでしょうか?
APIとかあるのでしょうか?

>>653
ＡＰＩを使うまでもないよ。

Dim OLDNAME, NEWNAME
OLDNAME = "変更前のファイル名"
NEWNAME = "変更後のファイル名"
Name OLDNAME As NEWNAME

……これで変更できるはず。

>>654
ありがとうございます!!

くだらない質問なんですが
フォームを傾けて表示させる方法ってあるんでしょうか？
中身のコントロールもそのまま傾いた感じで。
いろいろ考えたんですけど、そりゃ不可能か・・・と思い始めたんで
最後にここで質問させてもらいました。
どなたか、教えてもらませんか？

ディスプレイ傾ける。

>>565
無理。

全部自前で描画したらできるんでない？
VBの範囲超えるかもしれんが

・フレームのキャプションって左上に表示されますよね。
　あれを中央で表示させたいのですがどうやったらいいのでしょう。

・テキストファイル（単語が一行に１個書いてある）をインポートするときに、
指定された文字の物だけをランダムで読み込む方法を教えてくれませんか？

・テキストボックスにひらがなだけを入力させるほうを教えてください。

＞・フレームのキャプションって左上に表示されますよね。
＞あれを中央で表示させたいのですがどうやったらいいのでしょう。
スペース入れまくれ。

＞スペース入れまくれ。

ネタか？
リサイズしたら中央にならんだろ。
コントロールボックスとキャプション消してラベルを貼り付けるのが正解。
何？グラデーションが無くなる？
ユーザーコントロールでも作れや。

いや、６６０が言ってるのは
フォームのキャプションではなく「フレーム」のキャプションだから
ちょっとその回答は違う気がする……。
そういうオイラも厨房だから正しい答えはできないけれど……。
http://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE.lzh
とりあえずオイラがやるとすればこんな感じにしかできない。
ダウンロードして解凍すればプロジェクトファイルがあるから、
よかったら参考までに見てみて（ウィルスとかじゃないからね…）。
どうやってるのかはすぐに分かると思うよ。

>>663
ありがとうございました。この問題については、解決です。

・テキストファイル（単語が一行に１個書いてある）をインポートするときに、
指定された文字の物だけをランダムで読み込む方法を教えてくれませんか？

・テキストボックスにひらがなだけを入力させるほうを教えてください。

はわかる方いらっしゃいますか？

>>664
オイラは読解力が乏しいので、質問の意味がイマイチ分からん。
どんなふうにしたいのかもうちょっと詳しく説明してくれないかな？

一つ目について。
まず事前準備として、テキストファイルに単語（りんご　など）が一行に1個づつ、
たてにずっと並んでます。

で、したいことは、このテキストファイルをインポートしてラベルに単語を表示させるときに
指定した文字（"あ"など）で始まる単語だけをランダムに１個だけ取り出して表示させたい

ということです

２つ目はわかると思うのですが、、、
テキストボックスにひらがなしか入力できないようにしたいのです

>>666
全部読むだけ読んで、1つ読むごとに指定文字と比較して
マッチしない場合はしかとすればいいのでは？

マッチしたら文字配列にぶっこんで、そこからランダムで抜くとか。
これじゃだめかしら

>>666
オイラも６６７のような方法しか思いつかん。
また、とりあえずサンプルをあげておくよ。
http://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE.lzh
短いコードだから何をやっているのかは理解できる思う。

スマン、ＵＲＬが前のままだった。
↓↓　こっちが本物
http://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE2.lzh

>>667-668
できました！！
ありがとうございます

もうしわけないのですが、あと一個です。数字だけ入力できるようにするのならわかるのですが。。。
ぜひお願いします

>>670
さっきのサンプルのひらがな入力強制バージョン。
http://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE3.lzh
もっといい方法があるのかもしれんが、オイラの厨房技術ではこれが限界。

>>667
たしかラクダ本に載ってた、1パスでランダムに取り出す方法。VB
は知らんので誰か書き換えて。

open(F, "TEXTFILE.txt") or die;
$cnt = 0;
$line = undef;
while (<F>) {
　next unless /^あ/;
　$line = $_ if (rand(++$cnt) < 1);
}
print $line;

>>671
これでOKです。厨房６３５号 さん、ほんとうにありがとうございました

質問させてください・・・
今VBでExcelを取り込むプログラム組んでましていろいろ試しているのですが、
Excelのセルが持つハイパーリンクの情報をDataコントロールを通して
取得する事は可能なのでしょうか？
よろしくお願いします。

VBでHTMLから特定の文字列を抜き取りたいのですがどうやったらいいでしょうかね・・・
何日も悩んでるんですけど。

たとえばニュースサイトでトピックス部分のみ抜き取るとか2chのスレッドタイトルのみを抜き取るとかをしたいんですけど。

何かいい方法無いでしょうか？

>>675
特定の文字列を抜き取る手法よりも、それがニュースのトピ部分か、
2chのスレタイトルかを判定する方が難しいと思われ。

でもかちゅーしゃとかってスレッドのタイトルだけ持ってきてるよね
スレッド一覧で

どうやってるんかな〜って思って

かちゅ〜しゃはDelphiだけど

>>677
かちゅーしゃは直接データファイルを読んだり書いたりしてるんじゃなかったっけ

HTMLから抜き取ってじゃ無くてデータを拾ってきてるって事かな？

　

LISTVIEWコントロールをSORTedとしたとき
9
80
8
72
66
50
こんな感じにSORTされてしまいます。

これを↓普通の0〜100順ソートする方法はありますのでしょうか。
80
72
66
50
9
8

SortItems

VBで動画を見る画面を作るにはどうしたら良いの？？
どんなファイルがよいかも教えてください

>>682
ActiveMovieControlを貼り付ける

去年くらいの雑誌に載ってた
「リッチ摘記すとボックスに色つきの文字を挿入する」
っていうTips覚えてる方いませんか？
RTFタグ(?)で直接いれるやつ

ラベルを伸縮させることで簡易プログレスバーを作成したのですが、
これをステータスバーの上の乗っけることはできませんか

処理中はステータスメッセージを特に出していないし、ここにもって
いけたらスマートな感じがするのですが。

>>685
http://www.remus.dti.ne.jp/~y-mac/teclib/staprog.htm
その簡易プログレスバーっていうのもいけます

なるほど。これは良さそうなのでさっそく試してみます。
ありがとうございました。

いわゆるクリック待ち処理を
作りたいのですが、うまく行きません
どのようにすればええんでしょうか

>>688
えっとまず、ここはVB初心者質問ですがスレッド間違ってませんか？
次に、クリック待ち処理って何ですか？
ボタン等クリックしたときに発生するイベントとは別物ですか？
「いわゆる」と言われても、あんまり一般的なことを聞かれているような気がしませんが。（笑）

結局、６８８は何を作っているのだ？
まずはその辺を説明してもらいたい。

強制的に処理を"中断"させてしまい、
それを入力で再帰できるような処理を作りたいんですわ
Cとかだとそれなりに簡単に出来るよーですけど、VBやとむずかしいんかな。

そのような処理をしているアプリを探したんけど、見つかりませんでしたわ
たしかに一般的でないかもしれへんわ、でも使ったこと無いかなあ。

中断させる「処理」を具体的に書いてくれ。
こんな曖昧な質問では誰も回答できんよ。

>>691
なるほどね、簡単なのはDoEventsすることかな。
DoEventsはその命令の中でイベントを処理するから、無限ループに注意

長時間かかる処理->DoEvents->ボタンなどイベント
こんな感じで呼ばれる。


Private Flag as Long
Sub 長くかかる処理()
　　Flag = 0
　　Do
　　　　DoEvents
　　Loop Until Flag = 1
End Sub

Sub 中止ボタンなどイベント
　　Flag = 1
End Sub

俺なら、こんな感じでするかな。

>>693
うまく行きそうな感じですわ、ご助言ありがとうございます
TIMER使って入力探知するとかとか、条件式で謎の処理行ってほんまの無限ループに
なったり大変でしたが、いや助かりました。

>>635
ども、抽象的ですんません。

>>694
Timerもイベントだから、なにか処理してる間は呼ばれないね。
Timerで処理していることがあるなら、他にも時間がかかりそうな
所はまめにDoEventsすべし

質問なのですが、ＶＢで現在のマウスカーソルの位置の色情報を取得するにはどうすればいいのでしょうか？
いろいろなサイトを見たのですが全然見つかりませんでした。知ってる方よろしくお願いします。

>>696
グラフィックとかのソフトのこと？
やっぱり自分で計算するんじゃない？


無責任なレスでスマソ・・・

>>696
英語は得意ですか？

>>696
3分以内に答えないと教えないよ。

>>696
残念、英語不得意でしたか。

>>677
http://piza2.2ch.net/tech/subject.txt
これをとってるだけ。

スマソ、英語はめちゃめちゃ苦手です。

>>699
やっぱりAPIを使うんでしょうか？？？

ここのソースダウソして勉強してごらん。
http://www.planet-source-code.com/upload/ftp/CODE_UPLOAD8469812000.zip

>>704
サンクス！！何とかしてみます。

>>683さん
ありがとうございます。

>>701
ありがとうございます！！
恩に切ります！！

今までクラスって使った事無いんですけどそもそもクラスって何なんですか？
わかりやすく教えてください

■［クラス］の大辞林第二版からの検索結果　


クラス

[class]

（1）学校などにおいて、組み分けしてできた生徒の集団。学級。級。組。
（2）等級。階級。層。「実力はトップ-―だ」
（3）種類。部類。

>>708
クラス

>>709
つまらん

>>711
ageてまで言う事か？・・・

クラスとは、オブジェクトを作成するためのテンプレートのことです。クラス モジュール内のコードは、そのクラスから作成されるオブジェクトの属性と機能を示します。

クラスはオブジェクトではありませんが、属性を定義するデザイン時のプロパティと、機能を定義するイベントを保持します。

>>708
自分でクラスモジュール書いてみそ。
下手に説明されるよりずっと良く分かるはずだ。

クラスは使わなくても開発できるけどね

だからDQNが多いのか・・・

ＶＢで作ったプログラム（ゲームです）を配布しようと
思っていたのですが、ランタイムを用意してもらったりと
面倒な事が多いのでＣに移植しようかなぁと考えています。
しかし僕のＣの知識は教科書のポインタおよび構造体まで
しかなく、サウンドの再生や画像の描画に関しては全くです。
そこでみなさんにお聞きしたいのですが、ＶＢプログラムの
まま製作を続けていく方がいいでしょうか？それとも苦労して
でもＣに移植した方がいいでしょうか？

ゲームなら迷うことなし

>>717
ランタイム用意すればいいじゃん

HSPがあります（藁

ビットマップファイルのデータ構造がどうなっているのか知りたいのですが、
日本語でそういったことを解説しているサイトなどはないでしょうか

VB特有の質問ではないのですが、VBで開発しているのでここで質問しました。

www.google.com/search?q=BMP+%8D%5C%91%A2

>>717
もう完成間近って事なら、とりあえずはVBで完成させてしまうのがﾖｲと思うぞ。
移植なら、それからでも遅くはあるまい。

今からC勉強してという案は、完成までモチベーションを維持するという意味で大変だ。

レスありがとうございます。
>>718さん
迷わずＶＢという解釈でよろしいのですよね。
>>719さん
使用者がランタイムを用意（ダウンロード）するのは面倒では？と思ったので
Ｃへの移植を考えました。
>>720さん
HSPのページをいくつか覗かせて頂きました。今度チャレンジしてみようと
思います。情報ありがとうございます。
>>723さん
おっしゃる通り、完成してからの移植でも遅くないですよね。まずはＶＢで
完成まで頑張ろうと思います。
Ｃに移植しようと思ったのは上記の理由(719さんへのレス)と、この掲示板
でＶＢがあまり好まれていないように感じたからです。

718のいいたいことは多分違うぞ・・・

既出の質問かもしれませんが、見つけ切れませんでした……。

テキストボックスで、右クリックしてでるポップアップメニューの
カスタマイズってできるんですか？
項目追加もしくは、全く新しいメニューの作成など……。

よろしくお願いします。

>>726
メニューエディタでOKだよん

>>726
ありがとうございます。
でもこれじゃ、プルダウンメニューと排他になると思ったんですが……。

やってみます(^^;

>>727
の間違いでした……。失礼しました。

>>726
サブクラス化してWM_CONTEXTMENUを引っかける。

突然ですみません
メインフォームをロードした後に、アクション（ボタンの介入など）なしで
とある処理を動かしたいのですが、可能でしょうか？

>>731
ロードした後ならActivateイベントなんだが、Activateはアクティブ
になったとき呼ばれるから、初回だけならフラグを立てて２回目以降を
回避するようにする。

>732
ありがとうございます
やってみます

ＶＢの本とか読むと、Winsockコントロールに、RemoteHostにＩＰアドレスとか指定すりゃ、
ネットに繋いだ誰かさんにデータを送れるみたいな事書いてありますが、そんな簡単に出来るんでしょうか。
http://software.nikkeibp.co.jp/software/download/down01c.html#200106

>>734

こんな感じ(笑)

Private Sub Command1_Click()

Winsock1.Connect "www.2ch.net", 80

End Sub

Private Sub Winsock1_Connect()

Winsock1.SendData "GET / HTTP/1.0" & vbCrLf & vbCrLf

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim A$
Winsock1.GetData A
Text1.Text = Text1.Text & A

End Sub

そーすると、チャットみたいな事は出来るんでしょうか。
相手のマシンのＩＰアドレスとポートを指定すれば送れるとか、
本には書いてありますが、いまいち胡散臭く感じられます。（汗

Private Sub Form_Load()
Winsock1.RemoteHost = "123.456.7.8"
Winsock1.RemotePort = "1024"
Winsock1.Connect
End Sub

Private Sub Winsock1_Connect()
Winsock1.SendData ("おへ？")
End Sub

>>736
受け取る方も書けばできるよ。

>>736
なんで胡散臭く感じるか不思議なのだけど、簡単にできるよ。

Text3が相手のホスト名(叉はIP)、Text4がポート、
Text1はMultiLine=trueで。
Command1で接続、
Command2でサーバモードで待ち受け、
Command3で送信。

Private Sub Command1_Click()
'相手に接続(クライアントモード)
Winsock1.Close
Winsock1.RemoteHost = Text3.Text
Winsock1.RemotePort = Val(Text4.Text)
Winsock1.Connect
End Sub
Private Sub Command2_Click()
'接続を待ち受け(サーバモード)
Winsock1.Close
Winsock1.LocalPort = Val(Text4.Text)
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
'相手から接続要求が来たので接続
Winsock1.Close
Winsock1.Accept requestID
End Sub
Private Sub Command3_Click()
'送信
Dim strSend$
strSend = Text2.Text & vbCrLf
Text2.Text = ""
Text1.Text = Text1.Text & strSend
On Error Resume Next
Winsock1.SendData strSend
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'受信
Dim A$
Winsock1.GetData A
Text1.Text = Text1.Text & A
End Sub

無粋なソースなのでsage。

>>738
寝てしました。
こんなド素人に付き合って下さって、ありがとうございます。

>>726
Option Explicit

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then
Text1.Enabled = False
Text1.Enabled = True
PopupMenu m_test
End If

End Sub

よろしくお願いします。
VB5で複素数を扱うことはできないんでしょうか？
FortranでDLLを作って使おうとしたんですが
うまくいきません。（Fortranのソースを間違えてるかも）
どうしたらいいでしょうか？
（FortranはMicrosoftのPowerStation4.0を使っています。）

既出かとは思いますが・・・

VB6で、
よく使うActiveXをプロジェクト新規作成の時に
初めからコンポーネントパレットに載っているように
設定する方法はないのでしょうか？

MD5でメッセージダイジェストをつくるアルゴリズムを教えてください

この下のプログラムで実行できないんですが、何処が悪いのかわかりません。
教えてください。
コマンド１と２は「作成中」とメッセージを出し、コマンド３は
終了するか否か？ってやつですのです


Option Explicit

Sub Wait()

MsgBox "作成中"

End Sub

Private Sub Command1_Click()

Call Wait

End Sub

Private Sub Command2_Click()

Call Wait

End Sub

Private Sub Command3_Click()

Dim Answer As String

Answer = MsgBox("終了しますか?", vbYesNo, "Msgbox")

If Answer = ybYes Then
End
End If

End Sub

Private Sub Form_Load()

Label1.Caption = "管理人"
Command1.Caption = "初期設定"
Command2.Caption = "開始"
Command3.Caption = "終了"
Form1.Cartion = "組込み関数"

End Sub

>>743
google で検索したら、すぐに見つかったけど。検索エンジンの使い方
が分からないのか？

The MD5 Message-Digest Algorithm
ftp://ftp.iij.ad.jp/pub/internet/rfc/rfc1321.txt

>>744
この返答求む！！

>>744
「If Answer = ybYes Then」を「If Answer = vbYes Then」に。
「Form1.Cartion = "組込み関数" 」を「Form1.Caption = "組込み関数"」に。

……どこが違ってるかはわかるよね？

>>747
「If Answer = ybYes Then」のＹをＶ
「Form1.Cartion = "組込み関数" 」のＲをＰ
って事ですよね?
やってみたんですが、出来ないっす（Ｔ0Ｔ）

>>747
コンパイルエラー：
プロシージャの宣言が、イベント又はプロシージャの定義と一致していません。
って出ます。

>>749
Answerはstring型じゃ、だめだろ

>>750
えっ、どう言う事ですか?
初心者なんで意味がわかりません

>>751
Dim Answer As Boolean

いちお、マジレスしとく。

>>750
え？　俺はコンパイルできっけど・・（汗

>>747&>>750&>>752&>>753さん
すんません、コンパイルできました。
フォーム画面のコマンド１ボタンで変な事したのが原因みたいです（コピーやら何やら）
所でボタンを押して画面の切りかえってどうやるんですか?
本を読んでも書いて無いっす。（はじめての…）
レスお願いします。

もう１個フォームを作ってShowで呼ぶのじゃダメ？

>>755
Show？
どうやって使うの？
フォームは作ったけど・・・・

>>756
いいかげんにしろ！

>>756
http://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE4.lzh
ダウンロードして解凍して実行してみろ。
これを見ても分からないようならオイラにはもう説明できん……。

>>758
ありがとうです。DLしてみてみました。
またやってみます。

再掲

VB6で、
よく使うActiveXをプロジェクト新規作成の時に
初めからコンポーネントパレットに載っているように
設定する方法はないのでしょうか？

やっぱり無理ですか？

>>760
VBつかうな。DELつかえ。

>>761
と、761は言うがどうなんだろうか？

　∧ ∧ 　>>761
　(；ﾟДﾟ) 　こらこら、
　(|　　|つ
〜|　　|
　 ∪∪

ここは優良スレなんだから
場違いなレスはやめときな。

ExcelVBAの変数の渡し方について質問です。
標準モジュールのプロシージャ内にDim宣言した変数があります。
この変数を、そのプロシージャから.showを使って呼び出したフォームのコードで使いたいのですが、どうすればいいのでしょうか？
Public宣言は使いたくないので、それ以外の方法を教えてください。
お願いします。

>>764
その変数をモジュールレベルの変数にしてProperty(もちろんGetオンリーね)プロシージャで
取得するようにしてみれば?

ex.
Private m_変数

Public Property Get Prop
Prop = m_変数
End Property

Public Sub Func1()
m_変数 = 何らかの値
End Sub

追加。
これだったら勝手に他のモジュールから値を変えることができなくなるよ。
ageてしまった。
鬱だ氏のう

>765

どうも助かりました。
言われたとおり試してみます。
ありがとうございました。

初心者です。
textboxに最後に表示(入力)した文字を、次に起動するときに表示させたいのです。
簡単にできるのでしょうか？
誰かご教授ください

>>761-763
レスありがとうございました。
VBではできないと言うことで了解いたしました。

>>768
終了するときにtextboxの内容をファイルに保存して、起動時にそれを
読み込むっていうのでいいんじゃないでしょうか？ファイルの保存とか
読み込みについてはgoogle(http://www.google.com)で調べてね。
全部教えちゃうと身につかないから。

>>760
C:\Program Files\Microsoft Visual Studio\VB98\Template\Projects
↑ココ、良く使うというコントロールなどを配置した.vbpファイルを置くというのはどうだ？
プロジェクトの新規作成ウインドウにそのvbpが表示されるが...
ﾀﾞﾒ?

遅ﾚｽsage

>>771　おお！
「プロジェクトタイプ名.vbp」で書き込んでおくことで
使い分けることができるのですね。

おかげさまで解決しました。
ありがとうございました。

VBでフォームに画像をタイル状に並べて表示するにはどうしたらいいんでしょうか？
プログラムが起動したら画面一杯にタイル状に表示させたいのですが・・・

>>773
何のために各フォームが独立してるんだ？
必要なければ１枚フォームで最大化すれば？

>>773
普通に並べてもダメ？

あらかじめ小さな画像を用意しておいて、
プログラム開始時に解像度に関わらず自動的にフォーム一杯に並べるという
処理のやり方を知りたいのですが・・・

>>776
よくわからん。それがどうして複数のフォームである必要があるの？

うーん・・・自分でも何言ってんだかよくわからなくなってきた・・

つまりフォーム上に、
Pictureコントロールもしくは、imageコントロールを用いて
タイル状に画像を並べたいのですが・・・・

>>778
じゃあフォームは１枚でいいんじゃん。
あとは適当にPictureの配列作って並べるだけ。
必要があればフォームを最大化。

>>779
はじめっからフォーム複数個とは言ってないじゃん(笑

ActiveMoviecontrolをﾂｰﾙﾎﾞｯｸｽに入れ、ﾌｫｰﾑに貼り付けることは出来るのですが、
ｺﾝﾊﾟｲﾙするとｼｽﾃﾑｴﾗーになります。
”＆H80004005(-2147467259)特定できないｴﾗｰ”です。
何故なのでしょうか？
誰か教えて、、、、

>>778
bitbltがいいんじゃない？

>>781
ネイティブコンパイルしてるの？

>>745 ありがとうございました

プロジェクトのコンポーネントに
Microsoft インターネット コントロールを追加って
どうやって行うんですか？
わかるかたお願いいたします

>>778
Imageコントロールを並べる必要はまったく無し。
元画像をPictureBoxかなんかに用意して、画像サイズ分ずらしながら
FormにPaintPictureなりBitBltなりでコピーしていけばOK。

>>782さん
初心者で申し訳ありません。
ネイティブコンパイルはどうすれば良いのでしょう。

教えてください。
ピクチャーコントロールの任意の範囲を
イメージコントロールの strech=true を利用して
イメージコントロール上に拡大表示したいのですが…

教えてください

マルチメディアタイマーを使ったコールバック関数って
ネイティブコンパイルするとうまく動かないの？

データベースに接続してデータを引っ張ってくるというような作業がしたいのですが
VB6.0は、エディションによって機能が制限されるんでしょうか？

>>789
LearningEdition以外なら問題ないと思われ。

>>790
なるほど。ありがとうございます。
でもLearning〜〜以外って高いですね。
Learningも大概ですけど…。

>>791
割れとけ。

プログラミングには関係ない話ですが・・
ＶＢのランタイムファイルって、
ディストリビューションウィザードで作ったＣＡＢファイルの形でないと、
配布してはいけないんでしょうか。

ランタイムファイルをシステムフォルダにコピーするがために、
わざわざ、インストールという方法を取るのが無駄に感じて仕方ありません。
ランタイムファイルって、他の方法で配布しちゃ、いけないんでしょうか・・。

マイクロソフトに聞くのが一番早いでしょうが・・・
なんかこう・・聞きづらい・・（汗

>>793
割れてるのか？

>>794
じゃなきゃ聞きづらくなかろう。

ランタイムを単体で配布してはいけない、と言う規約があった気がするが
アプリケーションと一緒なら良いんじゃなかったっけ?
ディストリビューションウィザード使わんで、ZIP圧縮したって問題無いと思う。

VECTORにあるランタイム集は、それを回避するために、セットアップ付きで配布してる。

>794
経費で買って私用中。後ろめたいのは会社の方です。（汗

>796
たしかに規約にはアプリケーションと一緒に配布しろ、としか書かれてません。
でも、これまで、ディストリビューションウィザード以外で
圧縮されたランタイムを見たことがないです。

前スレでお世話になりました。
ガイシュツだったら申し訳御座いません。

Windowsのメモ帳のように、アイコンにドラッグ＆ドロップして
txt（html）ファイルを開けるようにするにはどうすればいいでしょうか？
OLEDragModeかOLEDropModeが関係しているのではと思っているのですが…。

ちなみに、htmlファイルはtxt形式で開くようにしてあります。
htmlだからどうこうと言う処理は特にありません。

ご存知の方いらっしゃいましたらお願い致します。

>>798
Command$を調べればアイコンにドロップされたファイルを取得出来るんで、
その後はスキに料理すればOKかと思われ。

799さん、ありがとうございます！
学校のPCにしかVB入ってないのですぐには実行できませんが…。
さっそく今日試してみます（・∀・）

GKit Spreadsheet Control を使って
業務やった事ある人いる？

>>801

Delphiバージョンなら...

ログ探したんですが、見つけられませんでした。

ADOデータコントロールを用いて、ストアドプロシージャーに接続する際、
パラメータを指定しろとメッセージが出ます。
ですが、そのやり方が判りません……。

よろしくお願いいたします。

質問です。

VBでExcelを操作しているとき、Excel側が出すエラーをトラップして、
Excelにはエラーを出すのをやめさせて、VB側がエラー文字列を受け取るにはどうするのでしょう？

>>804

xlApp.DisplayAlerts = False
On Error Goto ExcelError
.
.
ExcelError:
MsgBox Err.Description

あ、それだけ、、、VB-Excelって便利ですね>>805

自分で作ったアプリを逆コンパイルしてみたいのですが、どういったツールを使えばよいのでしょうか？

ＶＢのSetForegroundwindow（最上位に画面を持ってくる）がWINDOWS2000では使えない
みたいで以下の例があったんでそのとおり作ったんですが

SetForegroundWindowを行うウィンドウのスレッドにアタッチしてから、SetForegroundWindowを行います。

hWnd1 = GetForegroundWindow
TID = GetWindowThreadProcessId(hWnd1, PID)
If TID = App.ThreadID Then

Else
Rt = AttachThreadInput(App.ThreadID, TID, True)
End If

Rt = SetForegroundWindow(Me.hWnd)
DoEvents

If AttachThread Then Rt = AttachThreadInput(App.ThreadID, TID, False)

最後の行の「AttachThread」はVB6.0で使用できるんでしょうか？
MSDNのHELP見ても出てこないし宣言の仕方が分かりません。
これは関数？ライブラリ？

>>807
自分で作ったアプリなら、逆コンパイルする必要ないぢゃん。

>>809
逆コンパイルするとどんな風になるか知りたいからです。
それに、ソースをなくしたアプリの復元になるからです

Excelで０以上と設定してあるカラムに-1を入れるとエラーになりますが、
ActiveCell.Value = -1 '←最終的にはVBから呼ぶつもりですが、とりあえずVBA
とかすると、問題無く値が入ってしまいます。
エラーにするにはどうするんでしょう。

ActiveMoviecontrolをﾂｰﾙﾎﾞｯｸｽに入れ、ﾌｫｰﾑに貼り付けることは出来るのですが、
ｺﾝﾊﾟｲﾙするとｼｽﾃﾑｴﾗーになります。
”＆H80004005(-2147467259)特定できないｴﾗｰ”です。
何故なのでしょうか？
ネイティブコンパイルしても駄目でした。
神様助けて

ActiveX Exeを作成して、ディストリビュージョン・ウィザードでＣＡＢを作成して、
それとＨＴＭＬをＷｅｂサーバに置いて、
そのＵＲＬを起動すると、最初は普通にダウンロードしてくれたのですが、
ActiveX Exeのバージョンアップを繰り返してるうちに
ダウンロード中に「システム設定の変更」のダイアログが表示されるようになってしまったんですが、
これってどうして出るんでしょうか？

出さなくする方法ってあるのでしょうか？

>>810
ソースの復元は無理だと思うけど・・（汗

ATTAP
VBDecompiler
The Subject Caf
Daniel Wiman's Visual Basic
どこぞの板では、こゆソフトがあると書いてありました。
現存するかは知らない。対応バージョンも知らない。役立たずでスマソ。

>>814
それ、みました。だけど、どこにも見当たらない。UPキボーン

VB始めたいのですが、Learning〜〜〜から始めたほうがわかりやすいでしょうか。
ちなみにｴｸｾﾙVBAはやったことがあるのですが、どうでしょうか？

あと、VB7はすぐ出るのでしょうか？

>>816
LearningEditionでは何も出来ません。最低でもPro版でせう。
高いなと思ったら...Delphiにしましょう(死)

なお、OfficeのVBAよりは自由度が高い反面、面倒くさいと感じる面も多いですが
基本的な構文等は一緒なので、大きな混乱は無いと思います。

VB6のプロジェクトファイルをVB5へ戻したいのですがどうしたら出来るのでしょうか？

昔にvbpファイルを一カ所いじるだけで戻せるようなのを見た記憶があるんですが、

お願いします。

CircleInvalidで入力値エラーとなるべきセルを赤丸にすることが分かったんですが、
赤丸にアクセスする（数だけでも知りたい）にはどうするんでしょう？

>>818
http://homepage1.nifty.com/MADIA/Vb5Vb6Convert.htm

Linuxサーバーのデータベース(sybase)にVB6.0で接続して
簡単な接続テストのようなものでフォームでボタンを押すと「接続出来ました。」
と表示させるような事がやってみたいのですがこれはどのように書けば良いでしょうか？
WinでのODBCの設定は出来ているようです。よろしくお願いします。

VB6.0で2chブラウザを作ってるんですが、
インターネット トランスファ (Inet) コントロールを使って書き込みをするには
どうしたらいいのでしょうか？
Inet1.Execute Url, "POST", "ここに何か入れるのかな？"

>821
まさにVBユーザーって質問だな

>>817
ありがとうございます。
Pro版を見てみようと思います。

>>821
OpenDatabaseして、エラーが無ければ成功メッセージ出力でええんじゃないの？

>>825
そのソースを教えて欲しいんです…
調べてはいるんですが、なかなかサンプルが見つからなくて。。

VBA(Excel)を使っています。
beep音の代わりにwav音声を使いたいのですが、
どういう記述をしたら宜しいですか？

vj < vb6 < vc++6 < delphi < masm < vi

最後のviはバイナリプログラミングです(バイナリ直書き)

コマンドボタンのキャプションを左揃えにするには
どうすればいいのでしょう？

vj < vb6 < vc++6 < delphi < masm < vi

死亡する順番

しまった、生存する順番だった。

VBのInetコントロールを使ってFTPのファイル転送をする時に、プログレスバーを使って
「処理中」の処理をしたいのです。
プログレスバーの伸び方をなるべく正確にするために現在の転送速度を取得したいのですが、
どうやったらいいのでしょうか。

>>832
転送開始時に
　　st=Date()
として、GetChunk() 後に
　　受信済バイト数 / DateDiff("s",st,now)
すれば出ると思いますが。