VB初心者質問スレPart2
レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトの名無しさん
NGNG前スレ：
http://piza.2ch.net/test/read.cgi?bbs=tech&key=968328471&ls=50
0002無責任な名無しさん
NGNGガーベッジコレクションだと
思っちゃってよいのでしょうか？
0003デフォルトの名無しさん
NGNG0004デフォルトの名無しさん
NGNG0005デフォルトの名無しさん
NGNGそうであるとも言えるし、そうではないとも言える。
つまりガベージコレクトそのものではないが
ガベージコレクトの対象にはなる。
0006デフォルトの名無しさん
NGNGListViewなんですけど、リスト内でDblClickしてクリックした場所の
値を取得して、別フォームのTextBoxに格納するには
どうすればいいんでしょうか？
何か使うコマンド等がありましたら、教えてください。お願いします。
(実は初心者なのでソースコード付ならとてもありがたいです。)
0007デフォルトの名無しさん
NGNGiniファイルに保存したり読み込みしたりしたいのですが、
どのようにすればよいのでしょうか。
よろしくお願いします。
0008デフォルトの名無しさん
NGNGこれ見れ
ttp://www-haradalb.ise.aoyama.ac.jp/stu98/hiroyuki/vb/other/file/file06.html
0009デフォルトの名無しさん
NGNG複数のプロジェクトから参照できる共通モジュールを作りたいのですが
どうしたらよいのでしょう？
同じフォルダにプロジェクトを二つ作りました。
プロジェクトグループで二つのプロジェクトを開きました
共通モジュールをどちらのプロジェクトからも
開きますと、
ファイルが更新されている可能性が、、、
と表示されます。
どうしたらよいでしょうか？
0010印刷するソフトを
NGNGプリンターを選ぶには、for文とprintersコレクションの組み合わせで
実に簡単にできることがわかりました。
ところが、adobe acrobatを出力先に選択したとき、
printer.print "なになに" を実行させると、ファイルの保存先選択ダイアログが現れます。
ここでキャンセルボタンを押すと、エラーが出てしまいます。
このエラーを回避させる方法はないでしょうか？
手段は問いません。
0011デフォルトの名無しさん
NGNGそのエラーを回避したければ
今すぐにそのプログラムを破棄しなさい。
0012デフォルトの名無しさん
NGNGAcrobat SDK に書いてますよ。確か、レジストリをいじるんだったと
思いますが（もちろんAPIからいじってね）。
昔やったけど忘れた。
0013デフォルトの名無しさん
NGNGon error ハンドラでそのエラー番号のみ
何も表示しなければいい。
0014印刷するソフトを
NGNGありがとうございまーす。
コーディングは自力でやってみます！
001512
NGNGすまん、SDKのはファイルの保存先選択ダイアログを出現させない方法だった。
0016デフォルトの名無しさん
NGNG>>6
Private Sub ListView1_DblClick()
Text1.Text = ListView1.SelectedItem
End Sub
>>9
？。同時に開くな
0017ちゃっぴー
NGNGフォームにテキストボックスを１つ作って、
テキストボックスに適当なファイルとＤ＆Ｄすると、
テキストボックス内にＤ＆Ｄしたファイルのパスを表示する
というものを作りたいのですが、
どうすればいいのかどうにもこうにも（Ｔ－Ｔ
0018無責任な名無しさん
NGNGText1.Text = Data.Files(1)
End Sub
OLEDropModeを1 - 手動にしませうね
0020デフォルトの名無しさん
NGNGデータ元がAccessで番号か何か(Ｎｏ等)で一致するデータを引っ張ってくる際に
SQLを発行します。
そのときに、どのようにSQLをセットするのでしょうか？
Set ～ を使うだろうということはわかるのですが、具体的にわかりません。
(AccessとVBはADOでつないでいます。ADOでSQLをセットするコマンド?
があるのでしょうか?）
SQL="SELECT ～ FROM ～ WHERE ～ = '" & xx & "'"
このSQLで一致したデータを次にどうセットするのかで困っています。
よろしくお願いします。
0021デフォルトの名無しさん
NGNG教えてください！
Recordsetって調べた？
よろしくお願いします。
0022無責任な名無しさん
NGNGってよく聞く気がするのですけれどImplementsって
オブジェクト指向における継承とはまた違うのでしょうか？
0023デフォルトの名無しさん
NGNG0024無責任な名無しさん
NGNG四則演算 乗数 階乗 sin cos tan log ln メモリを４つ実装
真面目に例外処理いれたらもっともっとステップ増えそうだけど
0025デフォルトの名無しさん
NGNGWindowsのアクセサリにある二進法や十六進法などもあるやつだとどれくらいでしょうか？
0026デフォルトの名無しさん
NGNGImplementsはインターフェースの実装です。
VB.NETでは継承にInheritsというキーワードを使います。
0027デフォルトの名無しさん
NGNG0028デフォルトの名無しさん
NGNGクラスや継承はオブジェクト指向の根本とは関係ない。
継承が無くとも委譲で十分補える。
0029デフォルトの名無しさん
NGNGどうすればよいのですか。配列にばらさないとだめでしょうか。
0030デフォルトの名無しさん
NGNG0031デフォルトの名無しさん
NGNGどこからダウンロードすればいいですか？
0032デフォルトの名無しさん
NGNG003330
NGNGMid
0034デフォルトの名無しさん
NGNGＶＢって売り物だと思うのですが、それを無料ダウンロードできるのですか？
当たり前だと思うのですが有料ですよね～？
0035デフォルトの名無しさん
NGNG0036デフォルトの名無しさん
NGNG0037デフォルトの名無しさん
NGNG0038デフォルトの名無しさん
NGNGPublic Sub DoAnything
B.DosomeThing
End Sub
B.cls
Public Sub DoSomething
A.DoAnything
End Sub
0039デフォルトの名無しさん
NGNGA:「おまえがやれ。」
B:「いやだ。おまえがやれ。」
0040
NGNG0041名無しおやぢ
NGNGSP5なら問題ない。（MS公式情報）
あとは自分で調べなさい。
0043デフォルトの名無しさん
NGNGのように配列を定数として定義したいのですが、どうしたらよいのでしょうか？
0044デフォルトの名無しさん
NGNGありません。
バリアント型変数にArray関数でセットする、って手だけです。
ユーザー定義型にいたっては１つ１つセットしていく以外方法が
ありません。
0045デフォルトの名無しさん
NGNGVBじゃダメなんですね
結局下記みたいになりました
Dim csCommon As Variant
Sub auto open()
csCommon = Array("common1", "common2")
ありがとうございました
0046デフォルトの名無しさん
NGNGたいんですけど、どうしたらいいんでしょうか。
unzip.dllを使ってzipファイルの解凍はできたんですけど、
解凍ではなくそのbmpを一時的にpictureboxとかに表示したいんですが。
0047デフォルトの名無しさん
NGNGどのZIPユーティリティでも一時ファイルを作成して
用が済んだら削除していると思いますが？
VBがメモリーストリームとか扱えればインメモリで行なえるかも
しれませんが、結局画像の場合データが大きいので仮想メモリ
が使われるのでパフォーマンス的には変わらないかも。
004846
NGNG回答ありがとうございました。
一時ファイル作成でやってみます。
もう一つ質問ですが、その場合zipファイルを一度全て解凍する必要が
あるのですか？目的のファイルだけを解凍(というか抽出)することは
可能なのでしょうか？
0049デフォルトの名無しさん
NGNGそれはunzip.dllのAPIドキュメント見てくれ。
アーカイブ内容をリストしたり個別に取り出す手続きが
あるはずだ。
http://www.csdinc.co.jp/archiver/
0051ちゃっぴー
NGNGWindowsを再起動するようにするにはどうしたら良いでしょうか？
0052デフォルトの名無しさん
NGNGＶＢのヘルプが突如出てこなくなっちゃいました。
「不明なエラーが発生しました」とかなんとかで･･･。
ヘルプも、ＶＢも全てアンインストール後、フォルダも
削除し、心機一転再インストールをしたのですが、まだ
エラーが出ます。
スキャンディスクも、デフラグも異常なし。
良い方法はありませんか？？
0053デフォルトのやる気なし
NGNG実行環境（OS）もVBのバージョン（SP）も書いてなくて、的確な
回答を求めるわけ？ (^^;
005452
NGNGすみません･･･。全く考え無しでした。
ＯＳは、Ｗｉｎ９８で、ＶＢは６．０です。
端末には、Ｏｆｆｉｃｅ２０００が入っているくらいで、
他には特に入れていません。
よろしくお願いします。
0055デフォルトの名無しさん
NGNGこれを機会に2000にかえましょう。
0056デフォルトの名無しさん
NGNG下にフォルダがいくつか続く場合には、
どうしたら一気に消すように出来ますでしょうか？？
dosのコマンドのdeltreeと同じ感じで
一気に消したいのです。よろしくお願いします。
0057デフォルトの名無しさん
NGNGFileSystemObjectのDeleteFolderメソッドか、
FolderオブジェクトのDeleteメソッド。
0058デフォルトの名無しさん
NGNGソースの書き方をいろいろ参考にしたいんだけど。
出来ればらるち～とかfubくらいのプログラムのがいいんだけど。
005952
NGNGそうですね。最後の手段？！ＯＳのインストールを
やり直してみます。
思いつかなかったです･･･。
ありがとうございます。
0060デフォルトの名無しさん
NGNGソートしたいのですが、自分でソートアルゴリズムを
作るのはだるいので、楽してやる方法はないでしょうか？
フルパスのファイル名をソートさせたいだけなので
ソートアルゴリズムや
ソート順の形式にはこだわりません。
よろしくお願いします.
0061デフォルトの名無しさん
NGNGソートしたいのですが、自分でソートアルゴリズムを
作るのはだるいので、楽してやる方法はないでしょうか？
フルパスのファイル名をソートさせたいだけなので
ソートアルゴリズムや
ソート順の形式にはこだわりません。
よろしくお願いします.
0062デフォルトの名無しさん
NGNG0064デフォルトの名無しさん
NGNGそのソース探す場ソがわからないので、利いたのですが。(w
だめだったかな。
006665
NGNG検索エンジンで何を検索しているの（T_T）？
エロ画像ばかりじゃダメダメ。
0067デフォルトの名無しさん
NGNG暇だから。
１．フラグを false に
２．(全て)-1の行について：n行とn+1行を比較し、基準に従って、必要ならn行目とn+1行目を入れ替えてフラグを true に
３．フラグが true なら goto １
アルゴリズムが糞とか思うなら、自分で書き換えろ。
ところでこんなgotoの使い方好きな人いますか？
以上バブルソートらしきものでした。
0068デフォルトの名無しさん
NGNG1メソッドでｿｫ-ﾄしてくれる便利なものは、VBではないのか。
0069デフォルトの名無しさん
NGNGリストボックス作っておいて、そこにテキストボックスの内容を突っ込む。
で、リストボックスの中身をソートさせて、また取り出してテキストボックスに写す
0070デフォルトの名無しさん
NGNG0071デフォルトの名無しさん
NGNGVB的な方法なら>>69だな。
ネットでクイックソートのソース拾って使うもよし。
0072デフォルトの名無しさん
NGNG0073デフォルトの名無しさん
NGNGExitWindowsExec API かな。
0074デフォルトの名無しさん
NGNGの方法を見せてくれないっすか。
リストボックスにTextBoxの文字列を渡す
普通の方法がわかりません。
TextBox.Textの改行をSplitでわけて代入するの？
<<なんか不要な泥臭いコードを実行している気がする
リストボックスを動的に生成したりしてもいいものなのでしょうか？
0075>>74
NGNG「泥臭い」とか言う位なら、最初からソートアルゴリズム実装しなよ
> リストボックスにTextBoxの文字列を渡す
> 普通の方法がわかりません。
For Each s in Split(TextBox.Text, vbCrLf)
ListBox1.AddItem s
Next
これだけじゃん
0076デフォルトの名無しさん
NGNGﾏｼﾞさんくすこ。
いや、VBの文法を把握しきれていないから
S = Split(TextBox.Text, vbCrLf)
FOR i=0 TO UBOUND(S)-1
LISTBOX1.AddItem S(i)
NEXT
とか書こうかと思っていたけど
ある意味、おんなじですか。
0077デフォルトの名無しさん
NGNG泥臭いと感じないヲレは染まってますか？？
0078デフォルトの名無しさん
NGNGいえ、なんというかもっとエレガントな
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
0079デフォルトの名無しさん
NGNG0080デフォルトの名無しさん
NGNGコントロール配列への動的追加ならLoadステートメントだけど、
デザイン時に非表示で貼っておいた方がいいんじゃない？
VB使ってるのになんでそんな所にこだわるのかよくわかんない。
こだわるんだったらソート関数自作すれ。
0081デフォルトの名無しさん
NGNGスンマソン。
ｺﾝﾄﾛﾙの動的生成が
どこぞの言語のように簡単に出来るかと思ったもので
出来ないのね。
やっぱ、ＶＢって．．．．．．．．．．．ってちょと思ったけど、
まあいいや。非表示にして張っておくよ。
さんくすね。
0082デフォルトの名無しさん
NGNG0083デフォルトの名無しさん
NGNGわかんないよ、ソートできるの？
0084VB厨
NGNG0085デフォルトの名無しさん
NGNGお願いします
0086デフォルトの名無しさん
NGNG糞言語VBじゃ無理、諦めろ
0087DataReportで累計
NGNGAccessのようにクエリーやレポートが作成できますよね。
で、DataReport 使ったときに、「累計」を表示する方法は ありませんか？
# Access だと、レポート作成の際にテキストボックスの
# RunningSum/集計実行プロパティをTrueにすると累計を
# 出してくれるのですが。。
0088バカプログラマ
NGNGTEXTBOXのMULTILINEプロパティやSCROLLBARSプロパティを
プログラム中で動的に変化させたいのですがどうすればよいのでしょうか?
値のみ取得可能なプロパティですというエラーが出てしまいます。
0089お勧めHP
NGNGhttp://www.allapi.net/php/mail/mailer.php
0090お勧めHP
NGNGhttp://www.allapi.net
0091デフォルトの名無しさん
NGNGとすると??と表示されてしまいます。
何故でしょうか？VB5のときは大丈夫だったのに・・
よろしくお願い致します。
0092デフォルトの名無しさん
NGNG表示させたいのですができません。
Shell(xxxx.html)
ではダメでした。どうすればいいのでしょうか？
0093デフォルトの名無しさん
NGNGhttp://www.google.com/search?hl=ja&safe=off&q=shellexecute+api+vb&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
今忙しいのでこれくらいしか書けない
0094デフォルトのやる気なし
NGNGShellを使うなら、
Shell("起動するアプリ" & " " & "開くファイル")
でないとダメ。（どちらもフルパス）
アプリケーションと拡張子との関連付けも自動判定して開くなら、
ShellExecute(API関数)を使ってください。
(他の方法もありそう。ツッコミきぼー)
- 以上 -
0095デフォルトの名無しさん
NGNGご多忙のところありがとうございます。
ブラウザを立ち上げるにはＡＰＩを使うしかありませんか。
もしくはＶＢのウェブブラウザコントロールを使いたいのですが、
使い方が分かれば教えていただけますでしょうか？
カスタムコントロールなのか、ヘルプファイル載っていないので・・・。
htmlファイルを表示するプロパティなんかあるでしょうか。
プロパティリストにはそれらしいものは無かったのですが・・・。
0096デフォルトの名無しさん
NGNGComboBox か ImageComboBox を
ドロップダウンさせた時に表示する行数を
変更するにはどうしたらよいですか？
デフォルトのままだと小さくて見づらい。
無理手゜すか？
0097名無しさん＠お腹いっぱい。
NGNGふつー使わん。ほんと初心者スレだねここ。
ほれ
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を参照設定してからな。
ついでにお気に入りとか履歴バーの有無とかも制御
できるぞ。
009897
NGNGOption 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
0099デフォルトの名無しさん
NGNGInternetExplorerが入っていない環境でも大丈夫なの？
（うちは入ってない。Win95SP1。）
0100デフォルトの名無しさん
NGNG0101デフォルトの名無しさん
NGNG使っていけない理由は何故なんでしょうか？
ふつー、ってのは理由にならないですよね。
避けられる事が多いのならばそれなりのデメリットがあると思うのですが。
010297：すいません間違えました
NGNGPublic 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
010397
NGNG煽るような言い方ですまぬ。
クラスから使用したほうがイベントやメソッドで制御しやすいため。
0104101
NGNG当方VBではなくCプログラマでShellExecuteを使っているので、
この関数って使ってはいけないものなのかと思ってしまったので。
0105デフォルトの名無しさん
NGNG010697
NGNG当方も今年度からVCに移行(DB中心だけど)させられました。
貴方よりVCど素人です。謝ります。
010797
NGNGhttp://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/
0108デフォルトの名無しさん
NGNG0109デフォルトの名無しさん
NGNG可能か不可能かだけでも教えてください～。
0110デフォルトの名無しさん
NGNGWINに付属のPAINTで、作成した画像ファイルの拡張子を
『.ICO』に変え、Microsoft Visual Basic 6.0LEARNING EDITION
で作成したプログラムで使おうと、FORMプロパティでアイコンを変
更しようと、PAINTで作成したファイルを選択したところ「プロパ
ティの値が不正です」と返されてしまい、変更完了しません。指南
書に付属しているアイコンはつかえました。PAINTで作成したファ
イルはVBでアイコンとして使えないのでしょうか？使えるのであれ
ば対処方法を教えてください。何卒御教授の程よろしくお願いいた
します。
0111ＦＡＱさん
NGNGBMPとICOはファイルの中身が違う。
ツールを使って変換しないと無効。
ツールはVectorで探せばある。
0112デフォルトの名無しさん
NGNG一番日付が新しいファイル名を取得したいのですが
どのようにしたらよいのでしょうか？
ＶＢ６でＯＳはＷＩＮ９８です。
ＦｉｌｅＤａｔｅＴｉｍｅで全てのファイルの日付を
比較する方法もあると思うのですが
もっと効率の良い方法があったら教えてください。
お願いいたします。
0113デフォルトの名無しさん
NGNG比較してみるしか無いんじゃないかな。
全てのファイルの日付けが同じ可能性もあるし、
日付け情報が無効な場合も有りえる。
そういう場合の細かい対処を考えると、自分でやるしか無いんではないかと。
0114デフォルトの名無しさん
NGNGSendKyes で Alt + Tab を送る以外で。
0115デフォルトの名無しさん
NGNG名前付け基準/コーディング規約
http://www.xoc.net/standards/rvbanc.asp
http://www.xoc.net/standards/rvbacc.asp
0116デフォルトの名無しさん
NGNGhttp://www.excite.co.jp/world/url/
やっぱ↑なのじゃダメ？
0117デフォルトの名無しさん
NGNGちょっとした文章なら、いいけどね
自分の英語力の無さが情けない・・・
0118110
NGNGありがとうございます。
Vectorにtoolたくさんありました。
0119デフォルトの名無しさん
NGNG自分自身のExeの名前を取得することは出来ますか？
0120デフォルトの名無しさん
NGNG0121デフォルトの名無しさん
NGNGApp.EXEName
0122デフォルトの名無しさん
NGNGそこにはどんな値が？？？
0123デフォルトの名無しさん
NGNG0124デフォルトの名無しさん
NGNGDim S() As String
MsgBox UBound(S)
End Sub
こうするとエラーが出てしまいますが
Sの配列の領域が定義(ReDim)されているか
否かを判断するにはどうしたらよいのでしょうか。
0125デフォルトの名無しさん
NGNGDim S() As String
'ReDim S(0)
If S = Empty Then
MsgBox "S定義されてない"
Else
MsgBox Sの要素数はUBound(S)
End If
End Sub
こんな感じにしたいのです。
0126デフォルトの名無しさん
NGNGMicrosoftWindowsComonContorols6.0などのActiveXコントロールを
追加して、使用すると「このコンポーネントのライセンス情報が
見つかりません。デザイン環境でこの機能を使うために必要な
ライセンスがありません」となり使用できません。
解決策をご教授下さいませｺﾞﾙｧ
0127新設!!!!!
NGNG0128デフォルトの名無しさん
NGNGOn Error Goto Resume
Dim S() As String
'ReDim S(0)
MsgBox Sの要素数はUBound(S)
Exit
ERROR:
IF Err.Number=調べる
MsgBox "S定義されてない"
End Sub
こんなのは嫌かな？
0129デフォルトの名無しさん
NGNGイエーい。
0130デフォルトのやる気なし
NGNG調べるのがめんどくさい Or コーディングがめんどくさいとき、
そのテの手法？をよく使います。(要するに、手抜きじゃん)
0131128
NGNGMsgBox Err.Numberですぐわかるでしょ。
また、Debug.Print Err.Numberとか。
0132デフォルトの名無しさん
NGNGこんな感じでいいんですよね？
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
エラーナンバーってどのように定義すればよろしいでしょうか？
0133デフォルトの名無しさん
NGNGW2K上でVB5.0はサポートされていない。
VB6SP4以上を使用すべし。
0134デフォルトの名無しさん
NGNG別PCのNT4.0sp6上にVB5.0sp3を新規インストールしても
同じ症状が出ました。これはVBのCDが逝ってﾏｽｶ？
0135128
NGNGFunction 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
0136デフォルトの名無しさん
NGNG久々に逝ってよし。
http://www.microsoft.com/JAPAN/support/kb/articles/J040/9/61.htm
0138デフォルトの名無しさん
NGNGヒントでも良いのでご指導ください。
0139デフォルトの名無しさん
NGNG1.EXCELのデータの入っているセルを適当にコピー
2.VBのエディットボックスにフォーカス当てて、[編集]-[リンクのコピー]
3.EXCELに戻ってセルの値を変えてみる・・あら不思議。
LinkTopic,LinkItemのプロパティを見てヘルプも引いてみよう。
ところで向こうで暴れまくってるね。
0140訂正
NGNG0141デフォルトの名無しさん
NGNGどうやってやるのですか？
0142デフォルトの名無しさん
NGNGMod のことかな？
0144デフォルトの名無しさん
NGNG0146デフォルトの名無しさん
NGNG0149144
NGNGo 適当
0150デフォルトの名無しさん
NGNG0152デフォルトの名無しさん
NGNG0153デフォルトの名無しさん
NGNGC = A Mod B
で十分じゃん
0155144
NGNGModがあるのか。
0157144
NGNG0158144
NGNGその場で実行できんの？
0159デフォルトの名無しさん
NGNGそれはないと思う。
初心者が、ほんとにわからなくて聞いているのかもしれないし。
あくまでここは質問スレだから。
0160144
NGNG氏ねが言い過ぎ？
じゃあVBのマニュアル最初っから読めよ>141
四則演算ぐらいわかるだろ？
0162144
NGNG0163デフォルトの名無しさん
NGNG0164デフォルトの名無しさん
NGNG0165デフォルトの名無しさん
NGNG0167デフォルトの名無しさん
NGNG■■■■終了■■■■
0168デフォルトの名無しさん
NGNG■■■■再開■■■■
0169デフォルトの名無しさん
NGNG■■■■終了■■■■
0170デフォルトの名無しさん
NGNG■■■■再開■■■■
0171デフォルトの名無しさん
NGNG■■■■終了■■■■
0172デフォルトの名無しさん
NGNG■■■■再開■■■■
だけで999まで行くスレ。いや過ぎ。
つーか、まずマニュアル入手しましょう。>>141
セイキバン購入してな。
0173デフォルトの名無しさん
NGNG■■■■再開■■■■
0174デフォルトの名無しさん
NGNG■■■■終了■■■■
0175デフォルトの名無しさん
NGNG■■■■再開■■■■
0176デフォルトの名無しさん
NGNG0177174
NGNG誰か引き継ぎしてくれ
■■■■終了■■■■
0178デフォルトの名無しさん
NGNG0179デフォルトの名無しさん
NGNG│ │
｜ ｼｭｳﾘｮｳｲｲ! ｜
│ │
└―――──――――┘
ヽ( ・∀・)ﾉ
( へ)
く
0180デフォルトの名無しさん
NGNG(。_。) ｱﾚﾚ
ﾉ( )ヽ ｹﾞﾝｷｶﾞﾅｲﾖ?
｜υ｜
２．
(。_。) ｲｼﾞｯﾃﾐﾖｳ
(ヽノ) ﾓｿﾞﾓｿﾞ
｜δ｜
３．
ヽ(´▽｀)ﾉ ﾜｱｲ
( ∩ ) ﾀｯﾀﾖ!
／ ω ＼
４．
ヽ(*ﾟДﾟ)ﾉ ｳﾜｧ
( η)⌒ヾ ﾅﾆｶﾃﾞﾃｷﾀ
ノωヽ
５．
(-＿-) ﾅﾝﾀﾞｶ
(∩∩) ㌢ﾒﾝﾀﾙ…
■■■■再開■■■■
0181デフォルトの名無しさん
NGNG0182デフォルトの名無しさん
NGNG━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
終┃ 了┃ 終┃ 了┃ 終┃ 了┃ 終┃ 了┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
0183141
NGNG今度の週末にでも、VBの正規版を買ってきます。
皆様、本当にありがとうございました。
0184デフォルトの名無しさん
NGNG━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
再┃ 開┃ 再┃ 開┃ 再┃ 開┃ 再┃ 開┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
再┃ 開┃ 再┃ 開┃ 再┃ 開┃ 再┃ 開┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
再┃ 開┃ 再┃ 開┃ 再┃ 開┃ 再┃ 開┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
再┃ 開┃ 再┃ 開┃ 再┃ 開┃ 再┃ 開┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
再┃ 開┃ 再┃ 開┃ 再┃ 開┃ 再┃ 開┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
再┃ 開┃ 再┃ 開┃ 再┃ 開┃ 再┃ 開┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
再┃ 開┃ 再┃ 開┃ 再┃ 開┃ 再┃ 開┃
━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛ ━┛
0185デフォルトの名無しさん
NGNG,､＿＿＿＿| |＿＿＿＿,､
〈 ＿＿＿＿＿＿＿＿＿ ヽ,
| | | |
ヽ' 〈＾ー―――＾ 〉 |／
,､二二二二二＿、
〈＿_ ＿ ＿＿〉
| | | |
/ / | | |＼
＿＿_/ / | |＿＿＿| ヽ
＼＿＿/ ヽ＿＿＿＿＿）
0186デフォルトの名無しさん
NGNGい ん
ざ な
う あ あ 糞
ゃ あ
ス
じ ぁ ぁ
レ
ｅ
は
ｇ ｓ
ａ
0187（'∀`）
NGNG0188（'∀`）
NGNG0189デフォルトの名無しさん
NGNG│ ∧∧ 終 │
│ ○ (. ﾟдﾟ) 了 │
│ ヽ/ つ日).~~ │
│ 6 （＿ __） │
│ 点 │
└────────────┘
0190(´∀`)
NGNG(´∀`) ＜ 再開～
(⊃ ＼⊃ ＼＿＿＿＿
＼ )ρ
く く
0191デフォルトの名無しさん
NGNGVB初心者はいっぱいいるし。
このままでは、スレ乱立の危険性もある。
0192デフォルトの名無しさん
NGNG| 終了
＼＿＿＿ ＿＿＿＿＿＿＿＿＿＿＿＿＿
|/
∫ ∫
∧∧. ∬ .. ∧,,∧ ∬
（ ﾟДﾟノ.っ━~ ミﾟДﾟ,,,ノ,っ━~
＿と´_ ﾉ＿∀＿∀＿と~,,, . ~,,ﾉ_.
.(_/ .), .┷┳┷ .ﾐ,,,/~), |
￣￣￣.し'J￣￣...┃ ￣￣￣ .し'J￣￣￣|..
/|
／￣￣￣￣￣￣￣￣￣ ￣￣￣￣￣￣
| 再開
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
0193デフォルトの名無しさん
NGNG┌──────────┘- ＼
│ ＼
｜ 終 >
│ ／
└──────────┐- ／
ヽ(´ー｀).ﾉ |／
( へ)
く
- = ≡三 |＼
- = ≡三 ┌──────────┘- ＼
＿ = ≡三 │ ＼
― =三三 | 了 >
￣ = ≡三 │ ／
- = ≡三 └──────────┐- ／
(´ー｀) - = ≡三 |／
( ヽ ヽ)
／ >
0194デフォルトの名無しさん
NGNG∧ ∧ ＜ 終了
( ,,) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿
～（＿__ﾉ
／￣￣￣￣￣￣￣￣￣￣￣￣￣
∧ ∧ ＜ 再開
(,,・Д・) ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
～（＿__ﾉ
0195デフォルトの名無しさん
NGNG/ / / /
/ / / /
/ / ／￣￣￣￣￣￣￣￣￣￣
/ / ＜ このｼｭｳﾘｮｳってどうよ？
/ / ＼＿＿＿＿＿＿＿＿＿＿
/ / / /
/ / / /
Λ_/Λ / Λ_/Λ / ／￣￣￣￣￣￣￣￣￣￣
（ /∀´）/ （´∀｀ ） / ＜ある意味終わってるよな！
（つ つ ⊂/ つ ＼＿＿＿＿＿＿＿＿＿＿
←λ＿ ~） ~）ヽ ←λ＿~） ~）ヽ
ヽー（_＿）＿） ゝ ヽー（_＿）＿） ゝ ゝ
0196デフォルトの名無しさん
NGNGPrivate Sub Command1_Click()
Dim Strs() As String
Strs = Split("", "A")
MsgBox UBound(Strs)
End Sub
これって-1が表示されるのですが
この現象はなんですか？
0197("A")?
NGNG0198デフォルトの名無しさん
NGNGSplit関数の仕様が
「引数 expression が長さ 0 の文字列 ("") である場合、Split 関数は、
要素もデータもない空の配列を返します。」
こうだから、そういうもんじゃない？
>>197
ちょっとわらた（ｗ
0199デフォルトの名無しさん
NGNGこの行を取ると最後の行で実行時エラーになるね。
Strsは最初から空の配列のはずだが・・・
0200デフォルトの名無しさん
NGNG0201佐藤浩嗣
NGNGSet ExcelObject = CreateObject("Excel.Application")
ExcelObject.Visible = True
Set ExcelBook = ExcelObject.Workbooks.Open(FileName:="c:\My Documents\Vba\dictionary.xls")
ExcelBook.Worksheets(1).Activate
0202デフォルトの名無しさん
NGNGSet ExcelObject = Nothing
#こんな所に実名、実メアド書いちゃ駄目
0203デフォルトの名無しさん
NGNG文字列を画面に斜めに表示したいのですが、どうすればできますか？
0204デフォルトの名無しさん
NGNGCreateFontIndirect() API を使って論理フォントを作成して
TextOut() API を使って画面の hDC に出力する
0205203
NGNGありがとうございます。
やってみます！
0206now unanimous
NGNGありがとうございました。Excelが開きっぱなしでみっともなかったのですが、うまく閉じてくれました。
実名、実アドはまずいでしょうか？住所や電話番号はまずいと思いますけど？
実名は本当はハンドルかもしれませんし？
0207デフォルトの名無しさん
NGNG君さえよければさ。
メールアドレスがSPAMで埋まっても、名前からいろいろ検索されても。
0208デフォルトの名無しさん
NGNG0209デフォルトの名無しさん
NGNG0210デフォルトの名無しさん
NGNG0211デフォルトの名無しさん
NGNGなにをお詫びしているんだ？
ｼﾞﾂアド晒した事？
自分が困るだけだから、ﾜﾋﾞﾙ必要はあるまい。
2chはちょっと痛い場所だから
なれないうちは
他の親切な場所で質問するとよいよ。
0212デフォルトの名無しさん
NGNG0213デフォルトの名無しさん
NGNG初心者スレだからな。
糞スレたててたら、ぶち頃しだけどな。
0214デフォルトの名無しさん
NGNGなぜ最後だけ小文字？
0215浦島次郎
NGNG今年になってMACを購入しまして、Windows98を使っています。
先日、VisualBasicなる物を知りましたが、このBasicの対象としている
開発アプリケーションはゲームなのでしょうか？仕事で使うようなシステム
なのでしょうか？どんな事に不向きな言語なのでしょうか、教えて下さい。
今、作りたいプログラムは、NC用のエディタです、数万行程度のNC用のプロ
グラムをエミュレートする機能も付け加えてみたいと考えています。
恥ずかしいのですが、言語はCとアセンブラしかできません（C++も駄目です）
こんなレベルの私でもVBを使いこなせるでしょうか。宜しくお願いします。
0216デフォルトの名無しさん
NGNGつーか、
＞今年になってMACを購入しまして、Windows98を使っています。
ネタですか？
0217浦島次郎
NGNGNCはコンピュータ制御の旋盤です。
0218デフォルトの名無しさん
NGNGCとASM知ってるんならVBはやっても身にならないよ。
完全にWindows依存の言語処理系だし。
UNIX経験があるなら、まだDelphiかKylix
(どっちも言語はOOPascal)かC++Builderの方がお勧め。
エディタ作るんならなおさら。
コア部をCやASMで書いて、GUI部分はDelphi/kylixを使うとか。
とにかくVBの事はすっぱり忘れた方が良いのは確か。
0219デフォルトの名無しさん
NGNG余計な物（OCXやVBランタイム。UNIXでいうsoライブラリ）を
インストールしなくちゃならない。
0220浦島次郎
NGNGそーなんですか、全然知らない世界だったもので、色々と資料見たの
ですが見た目、同じに見えまして。(^^;;
C++BuilderとDelphi/Kylixを調べてみます。有難うございました。
#アセンブラは、MicrosoftのMASMとかまだあるのでしょうか・・。
0221浦島次郎
NGNGC++BuilderやDelphi/Kylixにはsoは必要ないのでしょうか？
0222デフォルトの名無しさん
NGNG>#アセンブラは、MicrosoftのMASMとかまだあるのでしょうか・・。
昔はン万円もしたMASMは現在マイクロソフトのサイトに行って、
DDKというパッケージを取ってくれば、その中に入っているので
タダで入手できるよ。
＞C++BuilderやDelphi/Kylixにはsoは必要ないのでしょうか？
少なくともVBランタイムのインストールの様な物は無いです。
１つの実行ファイルが作られる筈。
(ランタイムを別個のファイルにもできるけど)
CやASMで作ったモジュールをGUIモジュールと結合したい場合、
さっき言ったDLLという(soと似た)形式を作ってリンクする。
0223浦島次郎
NGNG今、検索して来ましたが、C++Builderってのが良さそうなので
これで挑戦してみます。
(Borlandなんですね、古い人間なんで名前だけで安心感がある f(^^;）
ついでに、Delphiってのも調べてみたらTurboPascal?なんですね、
インラインアセンブラも書けるみたいだし、こっちも良さそう. (^_^;;
とても参考になりました。
0224浦島次郎
NGNG0225デフォルトの名無しさん
NGNG大量に落ちている場所はありませんか？
自分でも捜しているのですが、あまりいいのが見つかりません．
お願いします。
0226デフォルトの名無しさん
NGNGVBSでIEの右クリックメニューを色々いじりたいんだけど、
どこでリファレンスが手に入るか分からないのですが。
知ってたら誰か教えて～。方々探したけれど見つからない。
0227デフォルトの名無しさん
NGNG制御屋さんにはCQ出版のInterfaceって雑誌がお勧め。
(ちょっと前だったらDelphi/BCBの連載やってた。)
0228デフォルトの名無しさん
NGNGExcelファンクラブ
0229デフォルトの名無しさん
NGNGイベント取得ってできます？
おれには無理だ・・・。
0230D使いβ
NGNGWithEventsキーワードを使うよん。
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
0231VBびぎな
NGNGCraeteObjectで作成しているCOMも自分で作ってるなら、
自分IFのオブジェクトを渡して、
そのオブジェクトを使ってコールバック関数のように使うのはいかが？
ただ、呼び元もCOMじゃないといかんとは思うけど
0232初心者
NGNGお教え願いたいことがあるのですが,
VB6を使っているのですが、メッセージボックスに表示させる文字のフォントサイズって
変更できるのでしょうか？
色々な本で探したのですが載ってないのです。
どうかお教えください。
0233VBびぎな
NGNGメッセージボックス用のフォームを作って。
それを使った方が簡単だと思いますよ。
0234デフォルトの名無しさん
NGNGhttp://www06.u-page.so-net.ne.jp/qc4/shige-3p/
0235D使いβ
NGNGイベントの送出もEventキーワードで出来たはず。
Public Event MyEventProc
として、
RaiseEvent MyEventProc
で実際に通知します。
>>232
[コントロールパネル]-[画面のプロパティ]
ってか、ダイアログ自作した方が早くない？
0236VBびぎな
NGNGあ・・多分、私勘違いしましたね・・・
「プロジェクト」→「参照設定」とかで、参照設定しないで、
Set oObj As Object
という風に定義したオブジェクトに対して
Set oObj = CreateObject("なんかのProgID")
で作成して。
この作成したオブジェクトからイベントを取得する方法だと思ったんですよね。
勘違いしたようで、どうも、スマソ。
去ります。
0237デフォルトの名無しさん
NGNGいろいろコンポーネントをフォームに付けたんですけど、できませんでした。
0238237
NGNG0239232
NGNGWindows自体のシステムフォント自体を変えるのは嫌なので
どうもありがとうございました
0240デフォルトの名無しさん
NGNG押さないと次の処理に進みません。
OKボタンを押さなくても次の処理に進んでほしい場合、どんな手を使っ
てますか？よろしくお願いします。
0241デフォルトの名無しさん
NGNGじゃあ何故MsgBoxを表示させるのか？
0242デフォルトの名無しさん
NGNGhttp://piza.2ch.net/test/read.cgi?bbs=tech&key=993048321&ls=50
0243237
NGNGマウスカーソールが移動しますけど、その機能って VB で出来ますか？
Win2000 使用していてマウスプロパティで「規定のボタンに移動」をチェックしていても
自作のダイアログボックスの「ＯＫ」とかに移動しません。
0244デフォルトの名無しさん
NGNGタイマー付きのモードレスのフォームを自作するのは？
0245デフォルトの名無しさん
NGNGGetWindowRectと
SetCursorPosの合わせ技
0246（＞Д＜）ﾏｽﾞｰ
NGNGEXCELのマクロで質問させてください
EXCEL4.0の式で
=SELECT(OFFSET(ACTIVE.CELL(),,):OFFSET(ACTIVE.CELL(),,1))
というのはVBではどういう式になるのでしょうか？
お願いします。
0247デフォルトの名無しさん
NGNGVBから、あるMDBに現在接続している人数を取得することは可能でしょうか？
テーブルに接続フラグみたいなものもてば出来るのですが、
この方法以外でなにかありましたらお願いします。
0248デフォルトの名無しさん
NGNGnet fileコマンドをリダイレクトしてロック数を調べる。
*実際にロックされるのは*.ldbファイルの方。
0249デフォルトの名無しさん
NGNGおぉぉ！今までldbって何だぁって思ってた。
ありがとうございます。
バカですいませんでした。（TT)
0250デフォルトの名無しさん
NGNGMsgBoxもＷinＡＰＩ３２なんですってね
ぜひバイナリが知りたいです
0252デフォルトの名無しさん
NGNGWin32APIだよ。
それと「バイナリが知りたい」って、意味わからんけど。
ﾈﾀﾆﾏｼﾞﾚｽ?
0253デフォルトの名無しさん
NGNG0254デフォルトの名無しさん
NGNG0255デフォルトの名無しさん
NGNG0256デフォルトの名無しさん
NGNGう～ん、イマイチ日本語が分からない。
ウインドウを斜めに傾けたいって事なんだろうか。
0257254
NGNGマウスの位置を獲得するように、ウインドウの位置を獲得したいのです。
0258デフォルトの名無しさん
NGNGMe.Left, Me.Top でいいんじゃないかな？
0259254
NGNG0260237
NGNGそれによって私は大変な恩恵に預かりますが、あなたには何の
メリットもありません。
でも、いいじゃないですか？ どうせ情報なんてタダでしょ？
とても困っているので、情報を知っている人は私を助けなければ
いけません。これは義務です。
初心者にも分かるように説明してください。
私は、ごく普通の人間なので、パソコンのわけの分からない知識は
ありません。勉強するつもりもありません。時間の無駄です。
検索するなんて面倒です。どうしてそんな面倒な事するの？
知ってる人に聞けばいいじゃん。どうせタダだし。
マルチとか質問スレというのはヲタクのルールです。
私は普通の人間なのでヲタクのルールなど知ったこっちゃありません。
早く教えてください！
早く教えろ！
早く！
これだけ言ってもまだ教えねーのか？！
0261254
NGNG質問したとき、返答が返ってこなくなる。
0262デフォルトの名無しさん
NGNG400 名前：名無し~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
それはコピペです。
このプログラム板の数箇所に適当な名前ではってあります（煽り？)。
0263256
NGNGそれによって私は大変な恩恵に預かりますが、あなたには何の
メリットもありません。
でも、いいじゃないですか？ どうせ情報なんてタダでしょ？
とても困っているので、情報を知っている人は私を助けなければ
いけません。これは義務です。
初心者にも分かるように説明してください。
私は、ごく普通の人間なので、パソコンのわけの分からない知識は
ありません。勉強するつもりもありません。時間の無駄です。
検索するなんて面倒です。どうしてそんな面倒な事するの？
知ってる人に聞けばいいじゃん。どうせタダだし。
マルチとか質問スレというのはヲタクのルールです。
私は普通の人間なのでヲタクのルールなど知ったこっちゃありません。
早く教えてください！
早く教えろ！
早く！
これだけ言ってもまだ教えねーのか？！
0264デフォルトの名無しさん
NGNG0265デフォルトの名無しさん
NGNG!kubotar です。ソース付です。
わたしも初心者で超へたれですが、少し改造してみました。
0266デフォルトの名無しさん
NGNG0267>
NGNGGetClassNameで親プロセスのハンドルを渡してやりたいのですが、
親プロセスのハンドルを抜くＡＰＩってないですか？
0268デフォルトの名無しさん
NGNGここにあるチュートリアル通りやったのにうまくいきません。
RunVBUnitTutorial.exeを作成しようとすると、
「スタートアップフォームまたはSub Mainが必要です」
とか出ますが、チュートリアル通り、modMainというクラスを作成してそこに
Public Main()とか作成したのになぜかコンパイルできず。
VBUnit2のインストール(regsvr32)も出来ていて、きちんと参照設定されているし
何が悪いのかさっぱり分かりません。
0269久遠
NGNGC++でクラスを使ったDLLを作りました。
それをVBで読み出したいのですが・・・
Declear宣言の仕方がよくわかりません。
ご教授願います。
0270デフォルトの名無しさん
NGNGそれをやるならCOMにすべきです。
0271デフォルトの名無しさん
NGNGGetCurrentProcess
0272デフォルトの名無しさん
NGNGDEFファイルとextern "C"定義
0274デフォルトの名無しさん
NGNG「クラスを使ったDLL」て書いてあるじゃん。
0275デフォルトの名無しさん
NGNGクラス自体をエクスポートしたいのか？
だったらやはりCOMじゃないか？
0276デフォルトの名無しさん
NGNGすまん。見落とした
じゃ、"ATL COM AppWizard"でさくっとCOM作成
0277デフォルトの名無しさん
NGNG下記のエラーが出てしまいました。
(EXEの名前） のスタックエラーです。
モジュール KERNEL32.DLL アドレス :0137.....
・
・
このようなエラーが出るということは
何かがいけなかっただけなのでしょうか？
0278デフォルトの名無しさん
NGNG何の関数をcallした時に発生したんすか？
0279デフォルトの名無しさん
NGNGy = 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
0280デフォルトの名無しさん
NGNG現在、練習として電卓の作成を行っています。
マウスでのクリックでの動作はできるようになったんですが、テンキーからの入力がうまくいきません。
KeyDownを使って、Select case Keycodeで振り分けました。
数字と＋や-などの演算子はうまく動作するのですが、
Enterキーを『＝』として、使いたいのですが、うまくいきません。
フォーカスがあるボタンを押してしまいます。
あまり、うまく説明できていないかもしれませんが、どなたかわかるかた教えてください。
お願いします。
0281デフォルトの名無しさん
NGNGボタン自体にフォーカス行くのがまずいのなら
ボタンClickイベント処理後にどっかにフォーカス逃がせば？
0282デフォルトの名無しさん
NGNGWordDoc.を付ける
0283デフォルトの名無しさん
NGNGSUB MAIN()
END SUB
（SUB MAIN）で始まるモジュールをexeファイルにして
バッチファイルから引数を二つ渡して実行したいのですが
どのようにすれば良いのでしょうか？バッチ上での
記述とＶＢでの記述を教えて下さい。お願いしますm(__)m。
バッチの例
テスト.exe 引数１,引数２
0284初心者
NGNGをやりとりするプログラム作成しているのですが、ＰＣから機械にデータ
を送る時にCRLF（復帰改行）が消えてしまうのですが、なぜなのでしょうか？
送信の仕方は普通に
Do
Open "FD" For Input As #1 'ファイルを開く
Line Input #1, Buffer 'ファイルを１行変数に入れる
MSComm1.Output = Buffer '変数を出力
Loop Until EOF(1) = true
という風に送っているのですが、文字データだけが送信されて改行コードは送られません。
なにか方法がありましたらお教えください。 お願いいたします。
0285ビギナーず
NGNGCommand
0286ビギナーず
NGNGMSComm1.Output = Buffer & vbCrLf '変数を出力
0287デフォルトの名無しさん
NGNGありがとう。明日会社で調べます。では。
ちなみに
vbCrlf=CHR(10) 6 CHR(13)
ですか？前、似たようなことをやったような
0288デフォルトの名無しさん
NGNG↓
vbCrlf=CHR(10) & CHR(13)
0289初心者=284
NGNG無理やり改行コードを足してやればいいだけなんですね。
本当に助かりました ｍ（＿＿）ｍ
0290ビギナーず
NGNGvbCrlf=Chr(13) & Chr(10)
おしい
0291shige
NGNG＼( ﾟ´3ﾟ)- = 。 ﾟ
（ ）` :: . ﾍﾟｯﾍﾟｯ
ノ ＼
VB使いってクズだね（ﾜﾗﾜﾗ
rubyの足元にも及ばないね。
029265535点満点
NGNG２点。
もうすこし上手く煽ろうね。
0293デフォルトの名無しさん
NGNGやりかたがわかりません。
MSDNライブラリの[Finding Exchange AddressLists with ADSI」で
アドレス一覧の名前とクエリーは取得できることはわかりました。
だれか知りません？
0294テリー
NGNGランチャープログラムを経由して開きたいのですが、
ランチャープログラムから、そのシリアル番号を引数として、
excelに渡したいのです。
excelのVBAで、そのシリアル番号を検証して、ファイルを
開かせる予定です。
引数をexcelに渡す方法についてなにか方法をご存知でしたら、
教えていただけませんか？
0295デフォルトの名無しさん
NGNG0296テリー
NGNG初心者なので、引数をexcelに渡す方法について、
もう少し詳しく教えてください。
0297デフォルトの名無しさん
NGNGExcelのヘルプを見たまえ
0298デフォルトの名無しさん
NGNGデータをアップデート
使用としたときに
途中でネットワークのエラーでおちてしまうのですが
何が悪いのでしょうか？
アップデートするデータは、１００００件で
８０００件ぐらいで落ちてしまいます。
申し訳ないのですが、分かる方いたらよろしくお願いします。
0299デフォルトの名無しさん
NGNGＶＢの質問に見えんが．．
ＡＤＯが同期型になっておらず、
且つ
参照作業が直後に含まれいる。
てなことぐらいしか思いつかん。
0300298
NGNG返答ありがとうございます。
スレ違いで恐縮です
＞ＡＤＯが同期型になっておらず
この内容がちょっとよく分からないのですが
教えていただけないでしょうか
教えてクンんで恐縮ですが
よろしくお願いします。
0301テリー
NGNG>>296
>Excelのヘルプを見たまえ
えーヘルプを見てもわからないから、質問させていただいて
いるのですが、助けてください。
0302295
NGNGいるのですが、助けてください。
「該当する項目をヘルプで見つけられない」
「見つけたが理解できない」
のどちらですか？
それと他の場所でも質問されてますね。どっちで答えていいのか
迷います:-)
0303デフォルトの名無しさん
NGNG非同期：ストアドのコマンド投げっ放し
同期：投げた処理が終了して戻ってから次へ
ＡＤＯについてはココの adAsyncExecute 見て下さい。
http://www.e-soshiki.com/kenkyu/reports/ADO.htm
0304テリー
NGNG＞「該当する項目をヘルプで見つけられない」
まずこのレベルに該当します。
＞「見つけたが理解できない」
従いこれも該当します。
もう少し詳しく教えていただくと、
こんな感じで出来るでしょうと、ソフト屋さんに
説明できると思ったもので。
＞それと他の場所でも質問されてますね。どっちで答えていいのか
＞迷います:-)
あー失礼しました。こちらで教えていただけますか？
他は削除します。
0305デフォルトの名無しさん
NGNGよくわからんがVBAで認証をしてもVBAを無効にしたら
開けちゃうのでは？
0306テリー
NGNG元のエクセルファイルはパスワード設定していて
開けないのですが、よりセキュリティーがかかっていると
見せたいのです。
0307デフォルトの名無しさん
NGNGVBEditerの画面のヘルプで検索しろ！
0308テリー
NGNGここは、初心者質問スレ だったので、質問したまでです。
＞ヘルプで検索しろ！
その程度の回答が帰ってくるのが、 初心者質問スレ
ということでしたか。判りました。
引っ込みます。
ありがとうございました。
0309デフォルトの名無しさん
NGNG見せかけだけってこと？
変なのー
0310shige
NGNGVBだってさ。
ruby>>>>>>>>>>>>>>>>>>>>>>>>>>VB
0311デフォルトの名無しさん
NGNG0312デフォルトの名無しさん
NGNG0313298
NGNGご返答ありがとうございました。
>>ＡＤＯが同期型になっておらず
先程教えて頂いたＵＲＬを参照したのですが
adAsyncExecuteでは非同期になってしまうんじゃないでしょうか？
教えてくださいばかりで申し訳ありませんが、何卒よろしくお願いいたします。
0314295
NGNGからたどれます。つまりExcel本体のヘルプからはたどれません。
デフォルトのインストールだとこのヘルプファイルがインストール
されないので、その場合は追加インストールする必要があります。
0315デフォルトの名無しさん
NGNG基本的にデフォルトが同期で非同期が明示的な指定ですね。
別に同期になってるんなら別の原因なんじゃないでしょうか。
これ以上はわかりません、すいません。
-----------------------------------------------------------------
昔、ＲＤＯのとき特定のバージョン使用のときにデフォルトが非同期になってしまうというアホな状況がありました。
ＲＤＯ３．０＋ＤＢ２（バージョン忘れた）でＳＱＬＡＰＩでむりやり同期指定した記憶があります。結構大騒ぎ
でもこれはイレギュラーなことなんで..大体ＲＤＯはクサかった、ＡＤＯは安定だと思われ
-----------------------------------------------------------------
0316デフォルトの名無しさん
NGNGどうもありがとうございました。見事に解決できました。
引数は自分で分解すれば良いだけだったんですね(^^;
朝一で実行の必要があったので、マジ助かりでした。謝謝
0317298
NGNG色々アドバイス頂きありがとうございました。
頑張ってみます。
0318デフォルトの名無しさん
NGNGFunction Item_Read()
Set myInspector = Application.ActiveInspector
MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myInspector.CurrentItem.Subject
End Function
としたのですが、
myInspectorオブジェクトがないと怒られてしまいます。
でも、
Set myInspector = Application.ActiveInspector
MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myInspector.CurrentItem.Subject
の２行はVBSでのActiveInspectorの例としてwindowsHelpに載っていたもの
をコピペしただけなのに・・・
なぜなのでしょう？教えていただけたら幸いです。
0319デフォルトの名無しさん
NGNG0320デフォルトの名無しさん
NGNGSet myInspector = new Application.ActiveInspector
じゃなくって？
0321アリスハァハァ
NGNGＶｉｓｕａｌ Ｂａｓｉｃの体験版ってどこで手に入りますか？
0322318
NGNGそしたら今度はクラスが足りません。"Application"と怒られました。
そこで、
Function Item_Read()
Set Application = CreateObject("Outlook.Application")
Set myInspector= new Application.ActiveInspector
MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myInspector.CurrentItem.Subject
End Function
と足したら、
「プロパティが読み取り専用です」行番号２
と怒られました。
厨房ですまんです。「プロパティが読み取り専用です」でgoogle検索しても０件。。。
カンチガイしてるんでしょうか？
0323デフォルトの名無しさん
NGNGじゃー。↓はどう？
Outlookの環境ないから検証はしてないっす。
Function Item_Read()
Set Application = CreateObject("Outlook.Application")
Set myCurrenItem= Application.ActiveInspector.CurrentItem
MsgBox "ｱｸﾃｨﾌﾞなｱｲﾃﾑ: " & myCurrenItem.Subject
End Function
0324318
NGNGんーでも、同じです（泣）。
（「プロパティが読み取り専用です」行番号２ と言われる・・・）
0325デフォルトの名無しさん
NGNG多分、Applicationが読取専用なんすね。
Set m_App = CreateObject("Outlook.Application")
とかローカル用の定義にかえてみては？
0326デフォルトの名無しさん
NGNG0327デフォルトの名無しさん
NGNG単なる定義済みグローバル変数駄。
0328デフォルトの名無しさん
NGNGエクスプローラー右クリックした時に表示されるコンテキストメニューに
「書庫を作成」というメニューを表示させて、選択されたら処理するような
サンプルとか知りませんか？
0329デフォルトの名無しさん
NGNG１＋１＝２ってだすプログラムの方法教えてください。
勉強はじめたばっかでわかりません
0330デフォルトの名無しさん
NGNG0331デフォルトの名無しさん
NGNGできないよ～～
0332デフォルトの名無しさん
NGNGなんで？
0333デフォルトの名無しさん
NGNG今練習でやってるの・・・教えてｹろ～～
0334デフォルトの名無しさん
NGNG必殺
わからないところがワカラン
0335デフォルトの名無しさん
NGNGとりあえず０～９までのボタン作って
それクリックしたら、その数字が、テキストボックス１に出るようにしたいの
コントろ－る配列を使って
0336デフォルトの名無しさん
NGNG０．フォームにテキストボックスを置く（名前：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
こんな感じかな
0337デフォルトの名無しさん
NGNGありがとう～神様
0338デフォルトの名無しさん
NGNGあと足し算頑張って作るよ。
でもどうやって
１回目に表示させた数字と２回目（プラスを押したあと）に表示
する数字を足すんだろ。両方ともテキストボックス１にしか表示させないから・・
困る
0339デフォルトの名無しさん
NGNGDim Ans As Integer ' 現在の答え
Dim Enzansi As Integer ' 前回押された演算子
･･･
作り方によりけりだね、がんばってちょうだい
0340デフォルトの名無しさん
NGNG0341デフォルトの名無しさん
NGNG必殺「友だちから借りました」ってやつなんだろ。
でなきゃ「学校からもってきました」かね。
0342デフォルトの名無しさん
NGNGSendToにいれるのは駄目？
0343デフォルトの名無しさん
NGNG文字列を切り離したい時はどーしたらいいのでしょうか？
例えば、変数に"aaa/bbb/cccc/"って入ってる時に、"/"の部分で切り離すようにしたいのです。
結果としては、aaa,bbb,ccccって感じで。
cgiだったら、簡単にできる関数が用意されてるみたいなんですが、ＶＢにもあるのでしょうか？
宜しくお願いします。
0344デフォルトの名無しさん
NGNGReplace()
区切り記号に "/" を指定すれば配列にバラせるよ
0345デフォルトの名無しさん
NGNGReplace じゃなくて Split だよ
こんなひどいマジボケは生まれて初めてだ詩嚢
0346デフォルトの名無しさん
NGNG0347デフォルトの名無しさん
NGNGそれだと「送る」に入るだけで、
メニューには乗らないねー。
しかし、VBで実現できるのか？
0348343
NGNGどーも、ありがとーございます。
やってみます。
0349デフォルトの名無しさん
NGNG0350デフォルトの名無しさん
NGNG0351デフォルトの名無しさん
NGNGBIN()
0352デフォルトの名無しさん
NGNGOffice2000VBAでは表示されません
Officeのオプションで、何か追加しなければいけませんか？
0353デフォルトの名無しさん
NGNGこんな、典型的な宿題厨房に回答する必要ないぞ。
0354デフォルトの名無しさん
NGNGそれを表示させないようにする事はできるんですか？
又、「閉じる」ボタンを押した時にどういう動きをさせるかってのは、どうすればいいんですか？
ご存知の方がいらっしゃいましたら、教えて下さい。
宜しくお願いします。
0355ビギナーず
NGNG＞ウインドウの右上に「最小化」「元の大きさに戻す」「閉じる」ってボタンがありますよね。
＞それを表示させないようにする事はできるんですか？
ControlBoxをfalse
＞又、「閉じる」ボタンを押した時にどういう動きをさせるかってのは、どうすればいいんですか？
どういう動きをさせるかというのはどういうことでしょ？
ウィンドウにWM_CLOSEをPOSTするってこと？
0356デフォルトの名無しさん
NGNGカウンセリングも技術のうち
0357354
NGNG＞ControlBoxをfalse
すみません、僕の説明が不充分でした。
これは知ってるんです。
でも、このやり方だと、全部消してしまう事になっちゃいますよね。（確か）
そうじゃなくて、３つのボタンのうち一つだけ表示させるとか、そういう感じです。
＞どういう動きをさせるかというのはどういうことでしょ？
＞ウィンドウにWM_CLOSEをPOSTするってこと？
「×」ボタンでウインドウを閉じようとした時に、例えばメッセージボックスを表示させるとかそーいう事です。
0358デフォルトの名無しさん
NGNG宿題を教えたって誰も得せん
0359デフォルトの名無しさん
NGNGでガタガタ言うのはやめましょう。スレ違い
0360343じゃないけど…
NGNGありがとう、ちょうどこういうの探してたんだ。
マジで助かったよ
0361デフォルトの名無しさん
NGNG最小化と最大化はどっちか表示されてると両方表示されるんじゃなかったっけ？
どっちかをDisableにするのは簡単
0362デフォルトの名無しさん
NGNGPrivate Sub Form_Unload(Cancel As Integer)
MsgBox "逝ってよし"
End Sub
0363357
NGNGでは、「×」ボタンを非表示、又はクリックしても何も動作しないようにするには、どうするのですか？
>>362
ありがとうございます。
では、そのメッセージボックスに「はい」「いいえ」の選択肢を設けて、「はい」を選んだらそのまま閉じる。（これはできました。）
「いいえ」を選んだら、元の画面に戻るというようにする事は可能でしょうか？
0364ビギナーず
NGNGそういうことね
Unloadイベントのcancelパラメータに0以外の値を設定したら、
フォーム消えないっすよ
0365363
NGNGおおっ、できました！
感動です。
ありがとーございます！
0366デフォルトの名無しさん
NGNGフォーカスを受けた時とかに自動的にtrueになるんですけど、
falseのままにする方法とかあります？
0367デフォルトの名無しさん
NGNGペインに分割することはできますか？
Lineコントロール使って分割っていうのは、できれば避けたいです。
ぶかっこうなので。
0368ビギナーず
NGNGフォーカスを受けたらfalseにすれば？
0369デフォルトの名無しさん
NGNG（げらげら）
0370デフォルトの名無しさん
NGNGＶＢを初めて３日です。初めて作ったものを，
exeにして実行できるようにしたのですが，
アイコンを変えたいんです。
アイコンは用意してありますが，
どうやったらいいんでしょうか？
お助けください。マジレス希望です！
0372370
NGNGできました！感激です！
どうもありがとうございました！
0373デフォルトの名無しさん
NGNGVBで印刷がうまくおこなえません
フォームを印刷するとき、印刷用紙のサイズに合わせるにはどうすればいいでしょうか?
サンプルコードなどを頂けたら、助かります
0374デフォルトの名無しさん
NGNGアプリケーションウィザードでエクスプローラスタイルで
作成すれば、それをサンプルにできるよ。
0375D使いβ
NGNGForm1.PrintFormじゃなくて、
Printer.PaintPicture Form1.Image, x, y, w, h
を使うといいかも。
拡大率はFormとPrinterのScaleHeightまたはScaleWidthから
求めればいい。
0376VB初心者
NGNGハイパーターミナルでデータ送信命令のコマンドを打つとちゃんとデータを送ってくるのに
MSCommで同じように命令を送ると何の返事も返ってきません。
MSCommとハイパーターミナルではやり方が違うのでしょうか？
もちろんMSCommの設定とハイパーターミナルの設定は同じようにしております。
下にコーディング例を書いておきます。
なにか原因があればご教授ください。 お願いいたします。
0377VB初心者
NGNGPrivate 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
0378デフォルトの名無しさん
NGNGMSCommに慣れるためにパソコン同士をつないでテストプログラムを
作ってみてはいかがでしょう？
0379デフォルトの名無しさん
NGNGMsCommのサンプルだったら、ネット上にアホほど
転がってるでしょ。
>>378も言ってるけど、COMポートが二つあるＰＣなら、
自分同士で通信のテストできるよ。
0380VB初心者
NGNG既にテスト用のプログラムも作りましたし、
Vector等でテストプログラムを取ってきて使っております。
それでＰＣを２台繋いだ状態でテストすると完璧に送受信できているのですが
実際に機械に繋いで動かすと全然動かないのです。
それで、ハイパーターミナルとMSCommでは何か違うことをしなければいけないのか
（例：文字列を送る時に文字コードで送るとか）
と思いましてお聞きした次第です。
0381デフォルトの名無しさん
NGNGvbCrLf でいいですか？
0382デフォルトの名無しさん
NGNGLoopにDoEventsがないけどいいですか？
0383VB初心者
NGNG復帰改行はCRLFとなっているので vbCRLFと書いたのですが
& Chr$(13) & Chr$(10) の方がよいのでしょうか？
>LoopにDoEventsがないけどいいですか？
OnCommイベントを使わずボーリング型で受信しているので
DoEvents は必要ないと思ったのですがいるのでしょうか？
変に使用するとおかしくなるかなと思い使用したなかったのですが
普通はハイパーターミナルで動作すればMSCommでも動作すると考えてよろしいのでしょうか？
他にもデータが入ってこない理由が考えられましたらお教え願います
ｍ（＿＿）ｍ
0384デフォルトの名無しさん
NGNGソースでいうとどこの行まで実行されているかわかりますか？
どこかのループで永久ループしてるのでしょうか？
それとも応答を待たずに終了してしまうのでしょうか？
0385デフォルトの名無しさん
NGNGDoEventsは入れた方がいいと思います。
0386VB初心者
NGNGLoop
↑ここでループしています。
受信データがゼロのまま変化していないということですよね。
Do Until MSComm1.InBufferCount > 0 'データが入ってくるまで回れ
DoEvents
Loop
って、やった方がいいのでしょうか
0387デフォルトの名無しさん
NGNGVBのヘルプにはDoEventsが入ってますよ。
InBufferCountの内容がメッセージで制御されているのであれば
DoEventsが必要でしょうね。実はMSComm使ったことないんです。
0388デフォルトの名無しさん
NGNGやはりヘルプでもDoEventsが評価より先にあるのでDoEventsは必要な気がします。
0389初心者=386
NGNG一度DoEventsを付けて確認してみます。
なにしろ接続先の機械が自社にないので１週間に１度しかテストできないのです。
代わりにモデムに対してＡＴコマンドを送ってデータ送受信できるかテストしてみようと思います。
0390デフォルトの名無しさん
NGNGすみません。DoEvents関係なさそうです。
ポートの設定が接続先の機械と一致していない可能性の方が高そうです。
0391デフォルトの名無しさん
NGNGMSCommでやるよりAPIでやったほうが細かく設定できるので
試してみてはいかがでしょうか。
http://www8.freeweb.ne.jp/school/speana_1/vb/vb_2/vb_2.htm
0392Mr.厨
NGNGコードの編集が一切できなくなってしまいました。どうしたらいいのでしょうか。
SourceSafeから登録解除すればいいのでしょうが、よくわかりません。。。
0393VB厨房
NGNGIDE上のプロジェクトウィンドウにある編集したいオブジェクトの上で
右クリック。
チェックアウトしてから編集すべし
0394Mr.厨
NGNG0395デフォルトの名無しさん
NGNG0396デフォルトの名無しさん
NGNGもう少し具体的に書きましょう
0397
NGNG可能です
0398デフォルトの名無しさん
NGNGAccessのOLEオブジェクト型のフィールドに対して
adoでデータのi/oを行いたいのですが
どなたか方法を教えていただけないでしょうか？
0399デフォルトの名無しさん
NGNGsavepictureで画像をファイルに保存して、そのファイル名を
Accessに登録する。OLEオブジェクト型は使わない。
っていうのはどう？
0400デフォルトの名無しさん
NGNGReplyありがとうございます。
ファイルパスをデータベースに保存するということですよね。
確かに考えましたが、画像ファイルが何らかの理由で削除される
場合があるので出来ればMDBで管理したいですね。
0401デフォルトの名無しさん
NGNGどのように表記すればよいのでしょうか。
0402デフォルトの名無しさん
NGNG0403401
NGNGありがとうございました。
0404初心者=386
NGNGそのＡＰＩで一度試してみます
ご返答ありがとうございました ｍ（＿＿）ｍ
0405Mr.厨
NGNG[スタート]メニューの[プログラム]のところにショートカットを作りたい
のですが、どうしても[スタート]メニューの直下になってしまいます。
これはなんとかできますでしょうか
0406デフォルトの名無しさん
NGNG0407デフォルトの名無しさん
NGNGネットにサンプルがいっぱいあるだろう？
書籍くらい買えよヴォケ！
とりあえず、回線切って首吊ってくれ！
それが君のためだ！
0408デフォルトの名無しさん
NGNG0411デフォルトの名無しさん
NGNG>>399の方がいいと思うよ。後々のことも考えると。
0412デフォルトの名無しさん
NGNG参照できるだけなのでしょうか?
ご存知の方がいらしたらお教え下さい。
0413Mr.厨=405
NGNGすいません。ディストリビューションウィザードではなくて、
ビジュアルスタジオインストーラの方でのやり方が知りたいのです。
0414デフォルトの名無しさん
NGNGすまそ。
0415デフォルトの名無しさん
NGNG・タブを複数表示させるとき、ずれちゃう
・Updownコントロールを使ってタブだけ移動させるのってどうやるか
どちらかのお答えを頂けないでしょうか。
たくさんのタブを、限られたウィンドウ内に納めたいのです。
よろしくお願いします。
0416デフォルトの名無しさん
NGNG境界部分に不可視の imageなどを貼って、
それの MouseDownなどでチェック。
0417教えていただけないでしょうか？
NGNG知っていたらご教授ください。お願いします。
0418初
NGNGVBで、アクセスのパスワード設定してあるデータベースを実行したいのですが、
本とか見ると、データベースを開く、とかはあったのですが、
よろしくお願いします。
0419デフォルトの名無しさん
NGNGSavePictureでbmp形式で保存するのは、
特許とかの問題は大丈夫なんでしょうか？
0420デフォルトの名無しさん
NGNG何十万かくらい払えば問題ないはず。
http://www3.cds.ne.jp/~marimo/agree-png/
ここ参照。
0421デフォルトの名無しさん
NGNG0422アワアワ
NGNGヘッダー編集のページ数をゼロ詰で表示する方法を
教えてください。
0423デフォルトの名無しさん
NGNG0424デフォルトの名無しさん
NGNGどうしても1つしか表示できません・・。
以前知り合いが画面中にランダムで50個ぐらいフォームが表示されるプログラム
作ってるの見て面白そうだったので。
だいぶ前の話なので知り合いも忘れてしまっててあてになりませんでした。
0425デフォルトの名無しさん
NGNGdim Fm as new Form2
Fm.show vbModeless
set Fm=nothing
next i
こんなんで出来ないかな。
Nothing前に位置を変えてやればランダムに見えるでしょう。
Form_Loadあたりに突っ込む。
Form2も追加しておくこと。
即興なので、バグあるかも。
0426VB初心者
NGNG読み取る時にデータを受信し終わるまでデータを１つの変数に溜め込んでから一気に書き込む
という、方法だと途中でテータが「？？？？？？」という具合に壊れてしまいます。
そこで受信バッファがパンクしてデータが壊れたのかなと考え、一回読み取る毎にファイルに書き込む
という方法に変更しました。これだとデータ自体は正常に書き込めるのですが、元データには改行が入
ってない部分で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
0427424
NGNGうまくできました。
どうもありがとうございます。
0428
NGNGやり方が分かりません。
できれば、ストアドプロシージャを用いずに更新したいのですが・・・。
0429デフォルトの名無しさん
NGNGPrint #1, Buffer;
セミコロンを付加してみてください。
0430デフォルトの名無しさん
NGNGPrivate Sub Command1_Click()
Do
DoEvents
Loop
End Sub
とすると、×ボタンを押してFormを閉じることができますが、
Do Loopが実行されているらしく、タスクマネージャに残ってしまいます。
なぜFormがUnloadされているのに、Command1_Clickは実行されているのでしょうか。
また、このときCommand1を再度クリックすることができますが、
これは、新しいスレッドで実行されているのでしょうか。
(ちなみに私の環境では、28回クリックすると、操作不能になりました。)
0431430
NGNG0432デフォルトの名無しさん
NGNG0433デフォルトの名無しさん
NGNGどうすればよいでしょうか？
0434デフォルトの名無しさん
NGNG毎日MPEG1動画が吐き出される環境(Win2k)があるのですが、
それを自動的にMediaEncoderを使ってwmvニコンバーとして、もとの
MPEG1動画を削除したいのですが、
どうも、VBScriptというのを使うとできるみたいなんですが、それはどうやったらインストロールできますか?
ぼくはCとパールしかできないのですが、VBスクリプトというのは難しいですか?
Windowsでは自動化というのは難しいんでしょうかね。
でもうにっくすではwmvにで機内誌。
0435デフォルトの名無しさん
NGNGブラウザから書き込んだ内容をVBScriptを使用して参照したり、書き込んだりといった内容です。
これだとHTMLコードが混ざっていたりしますので、VisualBasicコードのみを管理したいという点で
VBの部分を独立させたいという企画なのです。
が、まったくどうしていいのかわかりません…
ご存知でしたらよろしくお願いします。
0436デフォルトの名無しさん
NGNGWin2kなら、インストロール済みじゃねーの
0437デフォルトの名無しさん
NGNG拡張子は.vbsだYO!
0438デフォルトの名無しさん
NGNG0439デフォルトの名無しさん
NGNG0440デフォルトの名無しさん
NGNG0441デフォルトの名無しさん
NGNG0442デフォルトの名無しさん
NGNG0443デフォルトの名無しさん
NGNG0444434
NGNGVBスクリプトって使ったことないのですが、全く初心者はどこに行って勉強すればよいですか？
0445434
NGNG0446デフォルトの名無しさん
NGNGtest.vbsというテキストファイルを作る。
中身は
MsgBox "Test!"
でいいな。test.vbsをクリック！
どうだい？
要は、バッチファイルだ。
0447434
NGNGこのスクリプトのリファレンスって、どこにあるのですか？
これって、たとえばDOSコマンドとかも使えるのですか？
シェルスクリプトみたいなのと思っていいのかな。
0448デフォルトの名無しさん
NGNG簡単だろ。
ブラクラとかも簡単に作れるよ。
練習だと思って、一つ作ってみな。
とりあえずAドライブ奥歯がたがたいわせるのつくったれや
0449デフォルトの名無しさん
NGNGC++でいうSTLのようなものは無いのでしょうか？
自分でリスト構造等を作るのが面倒なので、もしあれば使いたいなぁ、と。
0450デフォルトの名無しさん
NGNGoremohosii
0451449
NGNG少なくとも標準では、付いてないのでしょうかね…。
0452デフォルトの名無しさん
NGNG0454デフォルトの名無しさん
NGNGそんな奴に気を遣う必要なし。
0456わからん
NGNGRS-232CのER信号の内容を取得したいのですが出来ずに困っております。
値が変わってもイベントが発生しません。
どなたか御存知ないでしょうか？
0457デフォルトの名無しさん
NGNGもっとも簡単な方法ってなんですか？
0458ｇｈ
NGNGいまの状態からＶＢやり始めたらどんくらいで
つかえるようになりますかねえ？
0459デフォルトの名無しさん
NGNG0460ｇｈ
NGNGよく「簡単だ」って聞きますけど
ホントにそんな簡単なんですか？
Ｃとかだってそこそこつかえるまでに
いろいろおぼえなきゃいけないことあるし。
ちょっと参考書でもかって、やってみようかな・・・
0461デフォルトの名無しさん
NGNG簡単だし、奥は深いし。
VBは浅いよ。
0462デフォルトの名無しさん
NGNG0463ｇｈ
NGNGDelphiってのはどういうことに使われてるんですか？
0464デフォルトの名無しさん
NGNGhttp://www.borland.co.jp/delphi/competitive/comparison.html
Personal版は無料downLoad可になるよ。
0465デフォルトの名無しさん
NGNGです。助けてください。
Open FileName For Input As #2
Do While Not EOF(1)
Input #2, S
Loop
Close #2
こういうことをしても正しく動作していないみたいなのです。
0466デフォルトの名無しさん
NGNGEOF(2)じゃなくて？
0467デフォルトの名無しさん
NGNG行単位に読み込むならLine Inputの方がよくない？
0468VB厨房
NGNG0469（○ω○）
NGNGファイル読み込むだけならこんなんどぅでっか？
お気楽極楽が信条だス。
～～～～～～～～～～～～～～～～～～～～～～～～～～～～
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
0470デフォルトの名無しさん
NGNGPublic 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
0471デフォルトの名無しさん
NGNGバグあるみたいだよ。
0472デフォルトの名無しさん
NGNGVBAでGP-IBを制御してオシロの画像をファイルに保存したいんだけど
どーすれば良いんだろう？？
0473デフォルトの名無しさん
NGNGRichText1に"<HTML>"と入力した時、
自動的に<HTML>の文字を赤い色にしたいのですが、
つまり、タグの色分け表示をしたいのです。
ヒントだけでもお願いします。
0474デフォルトの名無しさん
NGNGそれ無理なんだ。ＶＢではできないんだ。ＶＣじゃなきゃね。
0475デフォルトの名無しさん
NGNGできないんですか。
残念です。レスありがとうございます。
0476質問です…
NGNG（具体的に言うとこんなことをしています↓）
http://www.microsoft.com/japan/developer/thisWeek/vbcom/ryo990428.asp
ここで一度ASPを表示（実行）させると、その後ずっとDLLファイルがずっと共有状態で
コンパイル時の上書きや、削除が出来なくなります…
再起動すれば共有状態がなくなり、コンパイルが出来るようになるのですが
サーバーマシンなので頻繁に再起動できません（;´д｀）
どうすれば再起動せずにコンパイルできますでしょうか…？
0477デフォルトの名無しさん
NGNGIISを再起動させればいいような
よく分からないけどさ
0478デフォルトの名無しさん
NGNGサービス一回止める。
0479初心者まる
NGNGExcelでVisual Basic Editorを立ち上げると左に出てくる
プロジェクトとプロパティのフォントがおかしくて何が書いてあるか
全然わかりません。
どうやったらこれ、直るんですか？
VBとあまり関係なくて申し訳ないのですが困ってます。教えてください。
0480デフォルトの名無しさん
NGNGフォントないんだよ、多分。
windowsの[画面のプロパティ]直せない？
0481479
NGNGよくある症状みたいで、修正プログラムありました。
ついでに一応書いておきます。
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv9cz1.html
0483デフォルトの名無しさん
NGNGACCESSのVBAでフロッピーのドライブ名を知る方法はないでしょうか？
PC/AT互換機だけならAドライブ決めうちでいけるのですが
なにせターゲットの機械はPC/ATと9821が混在しているので
決めうちが出来ません。
どなたかお教え願えないでしょうか？
0484デフォルトの名無しさん
NGNGプロシージャ（例えばWorkbook_BeforeClose)は、Excel97では"ThisWorkbook"に
記述しますが、Excel95の場合はどうやって記述すればいいのでしょうか？
都合でどうしても95を利用しないといけないんですが、どなたかわかりましたら
教えていただけないでしょうか？
0485デフォルトの名無しさん
NGNGsetup.exeを使ってインストールしようとすると「Path or File Not Found」
というメッセージが出てセットアップが中断されてしまいます。
Windows98SE環境だと問題なくセットアップできるのですが・・・
何が問題なのでしょうか？
ちなみに、VB6SP5です。
0486あう
NGNGそのウインドウ上の任意の長方形画面を取り込みたいんですが、
どの関数を使えばいいのでしょうか？
（昔のＢＡＳＩＣで言うところのＧＥＴ＠みたいな事をしたい）
0487デフォルトの名無しさん
NGNGGetDCでデバイスコンテキスト取得してBitBltすれ。
0488超初心者
NGNGprint "5000回まわします"
print time$
for i = 1 to 5000:next i
print time$
print "5000回まわりました"
こういう文を書いたのですが、これだと１秒単位でしか計測できないのです。
初心者な質問で申し訳ありません。
0489デフォルトの名無しさん
NGNGスレ違いだがマジレス。
「できません」
以上。
0490デフォルトの名無しさん
NGNG0491あう
NGNGありがとうございます。違うフォームへのコピーはできました。
ところで、BitBltで取得した画像をBMP形式などでファイルに保存したり、
Open, InputB で配列に読み込んだ画像との比較をしたいのですが、
どのようにすればいいのでしょうか？
デバイスコンテキストに格納されたはずの画像データを
どうやってアクセスするのか、さっぱり・・・
0492超初心者
NGNGどうもありがとうございました。
0493あう
NGNG事故レスです。
Imageを使ってやろうとしてうまくいかなかったのですが、
Pictureを使うことによって実現できました。
0494デフォルトの名無しさん
NGNG一括削除とかしたいのですが。
0495ハイパー初心者さん
NGNGTextExのMaskプロパティがさっぱり解らないので、教えていただきたいんですが。
もしくは、MaskEdBoxを使ったとき、Maskの桁数を２～３桁みたいに、変動させる事は出来ないでしょうか。
どなたか教えてください。
0496デフォルトの名無しさん
NGNG小さくならないようにするにはどうしたらいいでしょうか。
自分なりに、Form_ResizeでMe.WidthやHeightが1000より小さかったら
1000にするというやり方でとりあえず実現しましたが、ちらついてしまうのです。
なにか他にいい方法があるでしょうか
0497デフォルトの名無しさん
NGNGサブクラス化
0498超初心者
NGNGEPSONのPC286上で動いているN88-BASICでフォーマットされたフロッピーディスクのデータをWindowsで読込みたいのですが可能でしょうか？
PC9801シリーズのMS-DOS上でなら読めるかと思い試したのですが認識できませんでした。
何かスムーズに読み込める方法があればお教えください ｍ（＿＿）ｍ
0499デフォルトの名無しさん
NGNGhttp://www.galliver.co.jp/writing/susume_vb/tre908/
そのまま、ずばりがあった。
0500
NGNG一枚の紙に、罫線付きで２０行出すとします。
しかし、データ的には１５行しかないとします。
その場合、残りの５行も罫線付きの空白行として印刷したいのですが、どうしたらいいでしょうか？
お願いします。
0501デフォルトの名無しさん
NGNGこんなところで質問する前に下らん見栄えにこだわる客を説得して
工数削減に努めろよ。
いーじゃん、一行だけの紙が有っても。
0503496
NGNGただ、私には難しいやり方ですね。
0504デフォルトの名無しさん
NGNGTRIM関数で「ﾌﾟﾛｼﾞｪｸﾄまたはﾗｲﾌﾞﾗﾘが見つかりません。」
というエラーが出るのですが、TRIM関数のライブラリの名前を
教えてもらえないでしょうか。
よろしくお願いします。
0505>>504
NGNGだったら
http://www.microsoft.com/japan/support/kb/articles/J053/7/34.htm
が原因じゃないかな
0506七士
NGNGなので、巧い方法あります？
pictureBoxのFlagを使うのは気に喰わないです。
0507オルセン
NGNG作ったんだけど、インストールパッケージからセットアップしたら正常に動作しません。
VB6.0の開発環境とコンパイルしてEXEにしたものを起動した時には問題ないのですが。
原因と対処方法をご存知の方いませんか？
0508デフォルトの名無しさん
NGNG[スタート]メニューの[プログラム]のところにショートカットを作りたい
のですが、どうしても[スタート]メニューの直下にしか作れません。
これはなんとかならないのでしょうか
0509デフォルトの名無しさん
NGNG0510デフォルトの名無しさん
NGNGどうしてもビジュアルスタジオインストーラ使いたいの？
0511デフォルトの名無しさん
NGNGPrivert 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ではないんですか？
いったい、どのように取り扱われているのですか？
0512デフォルトの名無しさん
NGNG参照先を正しく設定したら動きました。
さんきゅでした！！感謝！！
0514デフォルトの名無しさん
NGNG出来るよ。
裏技っぽいやり方だけど。
0515508
NGNG0516514
NGNG↑の233を見れ。
0517508
NGNG特殊なフォルダを自作できるとは気づかなかった。
0519デフォルトの名無しさん
NGNGそこに追加書込みする良い方法はありませんか？
書込み位置を LOF(FileNum) + 1って感じで
無理矢理やってますが、どうもしっくり来ません。
0521デフォルトの名無しさん
NGNGエラー処理を行わない。
存在しないファイルを開こうとした場合は、「存在しません」とエラーを出したいのですが、
キャンセルしたかどうかはどう調べるのでしょうか？
0522デフォルトの名無しさん
NGNGヘルプでCancelErrorあたりを調べていくと良いと思うが。
0523デフォルトの名無しさん
NGNG0524デフォルトの名無しさん
NGNG質問スレでは、質問以外はsageるのがこの板の慣習。
0525外出の気がするけど、仕事中で過去ログ見られません
NGNG外部ライブラリの関数(文字列を変換してくれる)を呼び出そうとしてて、
引数と戻り値が 文字列の先頭アドレス
なのですが、 これはどうやって指定してやったらいいのでしょうか?
とりあえず、 str型の変数名そのまま書いてみたのですが、
うまくいってないようです
0526デフォルトの名無しさん
NGNG思いますが、APIに関して調べるにはやりそれなりの本を見なければわからない
ものですか?
APIビューワとかいうのを起動してもなんか何もでてこないし、MSDNにも大して
載っていない(?)ような気がしまして。。。
0527デフォルトの名無しさん
NGNGＭＳＤＮに載ってないＡＰＩ関数は使う必要がない。
0528デフォルトの名無しさん
NGNGVBで、DBからのデータをスプレットシートで表示する際、
もっとも高速でできるやり方ってどんなものがありますか？
0529デフォルトの名無しさん
NGNGまず「外部ライブラリ」関数がPASCAL呼び出しであるのが前提。
引数が(const)char*の場合はString型の変数をByValで渡せば良い。
この引数が参照用である場合は一切細工は要らないが、出力
(結果渡し)用である場合は
strBuff = Space(256)
などとして予め充分なサイズをアロケートしておき、かつ
NUL文字(Chr(0))以降を切り捨てるなどといった細工が必要。
戻り値がchar*ってのはやったことが無いけど
BSTR系のAPIでアロケートされた文字列でなければ、
直接Stringで受けるとまずいと思われ。
ひとまずポインタの値をLongで受けて、
lstrcpyを用いて引数経由でStringに格納すれば出来るだろう。
この場合、lstrcpyはLong(ポインタ)からStringへの変換関数
としてDeclareしておく。
0530525
NGNGありがとうございます
まず、 引数の一つ目(変換元文字列)は、 正に(const)char*だったので、
上記のように対応して、解決のようです
そして、ちょっと説明が間違っていたのですが、
二つ目の引数で、変換後文字列を格納する場所を
LPTSTR dstで指定するようになっています
(ここの指定のしかたが間違っている?ようです)
そして、三つ目の引数で、dstの最大バイト数を指定してあげるようになっています
(ちなみに、CE向けソフトで、 kctrl.dll内の sjis2unicodeを利用しようとしてるところです)
0531デフォルトの名無しさん
NGNG0532デフォルトの名無しさん
NGNGMSDN
0533531
NGNG検索で見てみても、DB関連のヤツとかあまり関係ないものばかり
でてしまうんです。
0534デフォルトの名無しさん
NGNG関わらず、フォームには32*32をむりやり縮小したものが使われてしまいます。
これは直しようがないものですか。
ちなみに、実行ファイルにはちゃんと16*16アイコンも使われています。
0535デフォルトの名無しさん
NGNGVB6でプログラムを動かすのでは、実行速度は変わりますか？
やっぱり、コントロールの処理とかで速度変わるんでしょうか？
0536デフォルトの名無しさん
NGNG意味不明。
0537デフォルトの名無しさん
NGNGVBは外部関数コール時にはStringに対して
自動的にUNICODE<->ANSI変換を行うので、機能的にちょうど
衝突する形になっているのだろう。
(VB内部コードはUNICODEだが、外部は全てANSIであると
仮定してVBは動作する)
従って、wchar_t*の受け渡しにはByteの配列を使って
(0番目の要素をByRefで渡してやる)必要があるのだが、
そもそもVB標準のStrConv()を使えばそんな苦労は
要らないのでは。
0538535
NGNGすいません、説明が難しくて・・・
今、ＶＢ５で作ったプログラムのレスポンスチェックしてるのですが、
「ＶＢ６でもレスポンス計って」と、上司に言われました。
それで、ＶＢ５からＶＢ６に入れなおすと、速度が向上するのかな？
ということです。
0539デフォルトの名無しさん
NGNG計ってといわれたら計れよ。まったく最近の若者は。
0540525=530
NGNGすいません、
なんか、今使ってるCE向けVB (eMbedded Visual Basic)には、
StrConvが 無いみたいなのです・・・
(まだ勉強不足なので、自信なし とりあえず、ヘルプではでてきませんでした)
0541デフォルトの名無しさん
NGNG自分で解決できることを質問するべきではありません。
0542538
NGNG申し訳ない。
0543デフォルトの名無しさん
NGNGあんだと？お前何様だ？
ただでさえＶＢがなくなってしまいそうなときなんだから
お互い協力すべきだろーが、あっ。
お前みたいなのがＶＢ使いにいるからみんながＶＢを馬鹿に
するんだぞ。わかってんのか？
0544デフォルトの名無しさん
NGNG0545デフォルトの名無しさん
NGNGすぐそれだ。もうどっかいけよ。お前なんかＶＢ使いから
追放だ！
0546デフォルトの名無しさん
NGNG今は、GotFocusとMouseMoveのときにそういった処理をするように
しているのですが、コントロールの数が多いのでたくさん書かねば
ならず、あまりスマートなやり方ではないと思っています。
他に何かよい方法はないものでしょうか。
0547デフォルトの名無しさん
NGNG俺のやり方だが。
各コントロールのtagに使い方を書いておく
各イベントでは関数を呼ぶだけにする
関数にはインスタンスを渡して、tagの内容を表示する
まぁ、やりかたは色々あると思うけど。
0548デフォルトの名無しさん
NGNGMicrosoftInternetTransferControlを使えばいいのかなーとか
思っているのですが今ひとつピンと来ません。
一般的(?)なプロキシ変更ソフトの仕組みをお教えいただけませんか？
よろしくお願いいたします。
0549デフォルトの名無しさん
NGNGレジストリ変更だろ
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings
ProxyServer
設定ダイアログ－接続－プロキシーの設定を代えて、値がどうなるのか確認してみるがよろしい。
0550デフォルトの名無しさん
NGNGレスありがとうございます。このキーの存在は知っていたのですが、
Windows全ての環境に共通なのか不安で二の足踏んでいました。
これでやってみます。
0551デフォルトの名無しさん
NGNGすぐそれだ。もうどっかいけよ。お前なんかＶＢ使いから
追放だ！
0552デフォルトの名無しさん
NGNG0553525=530=540
NGNGsjis2unicode( const BYTE *src, LPTSTR dst, DWORD max )
srcに指定したjis文字列を、dstにunicode文字列で返す、というものです
この、一つ目と二つ目の引数は、本来どういう形のものが入るのでしょうか?
(三つ目は、 dstのサイズ これは問題なし)
いろいろやってみているのですが、うまくいきません・・・
(やっぱり、ce向けのvbには、strConvはありませんでした
そのほかにも、数多く制限があるみたいです)
0554デフォルトの名無しさん
NGNGすぐそれだ。もうどっかいけよ。お前なんかＶＢ使いから
追放だ！
0555デフォルトの名無しさん
NGNGCEは全然知らんのでなんとも言えないが。
537にちょっと書いたけれども、
普通のVB(バージョン4.0以上)であれば、
第一引数はByVal As Stringで
第二引数はByRef As Byte
だろうな。
Dim dst(1024) As Byte
とでもしておいて、dst(0)を渡す。
しかしStrConvも無いということは結構怪しい気がする。
0556553
NGNGありがとうございます 本当に助かります
基本的に、上の方法でうまくいきました
とりあえず文字列ではなく、文字一文字変換してみたら、
正しいコードで変換されました! ありがとうございます
ただ、問題があって、
dstは、byteで定義しているのに、
declareの dstの指定は、 ByRef dst As Longにしないと、
うまくいかないのです
そして、 変換結果は、dst(0)に、なぜか、byte定義のはずなのに
&h30AF のように、 2バイト分値が入ってしまうのです
dst(1)以降は、全部 空になります
(値そのものは、正しいものが入っています)
0557デフォルトの名無しさん
NGNGＳＱＬをつかってデータベースのテーブルの指定のフィールドに特定の値が含
まれているレコードの数を取得したいのですが、どうすればいいのかわかりません。
おそらくＳＱＬ文は
SELECT COUNT(フィールド名) FROM テーブル名 WHERE 条件
このように書くのかな？？？？とかって思ったのですが、数はどうやって取得すれば
いいのでしょうか？
変数 = ???
というふだと思うのですが、わかりません。
どなたか宜しかったらご教授宜しくお願い致します。
0558デフォルトの名無しさん
NGNG質問するには範囲が広すぎるYO
本でも買って勉強してから出直してきな
0559557
NGNGそうですか、範囲が広いのですか・・・、失礼しました。
どなたか僕の意図を汲み取って回答いただける方はおりませんか？。
明日にでも書店で本を漁ってみます。
0560デフォルトの名無しさん
NGNG意図はわかる。汲み取ったよ。（笑）
で、ＤＢの接続には何を使うの？まず、それもわかんないんでしょ。
そんなところから、ここで回答できないよ。
まずは一本自力で作ってね。
0561デフォルトの名無しさん
NGNGDim SQL As String
Dim rsCOUNT as Recordset
SQL = "SELECT COUNT(*) AS 件数 FROM テーブル名 WHERE 条件"
Set rsCOUNT = dbHANBAI.OpenRecordset(SQL)
こうすればrsCOUNTっていうレコードセットが生成されて、件数っていうフィールドにレコード数が入ってるはずです。
つまり、rsCOUNT!件数で取得できますよ。
0562561
NGNG自分が今組んでるコードからコピペしたもんだから……。鬱だ……。
dbHANBAIの部分は自分のデータベース名にして下さい。
0563デフォルトの名無しさん
NGNG0564561
NGNG0565557
NGNG解決しました！。
ありがとうございました。実はわけあってかなり追い詰められてまして
すごいほっとしてます！。ありがとう！。
>>560
まともなレスありがとうございました！。
ご指摘の点、以後きをつけます。
0566556
NGNGこれをSTRING型として使用するには、どうしたら良いのでしょう
一文字だけなら、ChrとかChrwでとりだして
文字に変換できたのですが・・・
CSTRも違うみたいだし・・・
上のほうで回答いただいた中の、 lstrcpyを使うのかな?
CEにあれば良いのだけど・・・(笑
0567
NGNG全般タブの中のSQLステートメントの欄でここにSQL文を書かないで
プログラムコードの中でSQL文を渡す方法はあるのてしょうか。
0568デフォルトの名無しさん
NGNG0569機械屋
NGNGエクセルのVBAで文字をシフトJISコードに変換する方法が分らん。
お願ひ、教へて。
0570デフォルトの名無しさん
NGNGStrConvじゃだめか？
0571デフォルトの名無しさん
NGNGUnicode→S-JIS
ttp://www2.will-ltd.co.jp/support/tips/TIPS1.htm
S-JIS←→JIS
ttp://www.input.co.jp/takemori/vb/vbjis.htm
0573
NGNG試したけど、なんかダメぽいね。
SQL上の特定のレコードをデータレポートで印刷したいんだけど、
これってdataenvironmentを使用しないとできないですよね。
で、"select * from table1 where NO=なんとか" として
"なんとか" を毎回変えて印刷したいんです。
シスアドプロシージャとか使うのかも。
0574機械屋
NGNG早速、試してみて後で報告します。
わしの田舎じゃぁ誰に訊いても応えてくれんかった。
ここは頼りがいがありますなぁ。
感激謝
0575機械屋
NGNG571さんが教えてくれた。
http://www.input.co.jp/takemori/vb/vbjis.htm
に、S-JIS→JIS 変換のプロシージャが載っていますね。
この考え方で、できそうな気がします。
それを応用してUnicode→S-JISも変換できそうです。
と、ゆうことは、VBにはそのような関数は無いということでしょうか。
0576デフォルトの名無しさん
NGNGどうやって応用するとUnicodeからSJISになるんだ？
Unicodeから他のコードセットに「計算で」変換する方法は存在しないぞ。
0577デフォルトの名無しさん
NGNGttp://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
0578機械屋
NGNGええぇ、UnicodeとS-JISには一定の法則がないの？
できそうで できない。
なんか男と女の関係みたいじゃのう。
＞それを応用してUnicode→S-JISも変換できそうです。
これは浅はかな思いつきでした。お恥ずかしい。
ようするに、文字をS-JISに変換できないってこと？
これはこのスレには相応しくない高度な次元の問題だったわけ？
>>577
＞＞VBには、UnicodeとシフトJISコードを相互に変換する関数Strconv()が用意されています。
＞と書いてあるような
これがヒントですか？
↓こんなんで できないよ（涙涙）。
Dim s As String
s = Strconv("ABC",Unicodekarahenkanshiro)
0579デフォルトの名無しさん
NGNGstrReturn = StrConv(strSource, vbUnicode) 'Shift-JIS --> Unicode
0580デフォルトの名無しさん
NGNGvbUnicode = 64
0581デフォルトの名無しさん
NGNGこれはどのようなときに、どのようにして使うのでしょうか。
たとえば配列になっているボタンを一括で非表示にしたいときに
使えるのかなと思っていますが、やり方がよくわかりません。
0582デフォルトの名無しさん
NGNG要素を一つずつ順番に取り出して処理するのに向いていると思います。
0583デフォルトの名無しさん
NGNGUNICODEは完全に独立したコード体系で、表引きによってしか変換できません。
WindowsにはそれをするAPIが用意されています。
ただし、Windowsが持っている表にはいろいろと不備があって、そのために
S-JIS→Unicode→S-JISという変換をAPIで行っても完全に元に戻らないことがあります。
（１対１になっていない文字がいくつかある。どれとどれかは忘れた）
0584デフォルトの名無しさん
NGNG0585デフォルトの名無しさん
NGNGintAbc(int型)に、2バイトデータ(例 &H804E)が入っています
これを、上位(&H80)と下位(&H4E)バイトに分けて、
bytA1と bytA2に入れたいので、次のようにしました
bytA1 = CByte((intAbc And &HFF00) / &H100)
bytA2 = CByte(intAbc And &H00FF)
そしたら、CByteのところで、オーバーフローエラーになってしまいます
なんか、考え方間違ってますか?
0586デフォルトの名無しさん
NGNGS-JIS→Unicode→S-JISという変換をAPIで行っても完全に元に戻らないことがあります。
（１対１になっていない文字がいくつかある。どれとどれかは忘れた）
それはWindowsどうこうじゃなくて、ShiftJISとUNICODEのコード
が1対1でないからでは？
0587あ
NGNGテキストボックスの enabledプロパティを Falseに設定したとき、たしかに入力を受け付けない状態に
なるし、なにか入力されてた場合にはそれが灰色になるんですが、テキストボックス自体を灰色にしてしまう
にはどうしたらいいんでしょうか？ちなみにExcel97です。
0588機械屋
NGNGhenkanshiro = 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)))
0589デフォルトの名無しさん
NGNGバックカラーに灰色入れろ
文字は消せ
0590デフォルトの名無しさん
NGNGご存知の方教えてください。
Printで出力するﾌｧｲﾙがあるのですが
改行を含むデータを出力しようとすると
CSVﾌｧｲﾙで開いたとき、セルにまたがって表示されてしまいます。
EXCELで編集した場合に、Alterキー+Enterキーで
同ｾﾙに改行するような形で
出力したいのですが、どのようにすれば良いのでしょうか。
vbCrLf、vbCr、vbLfすべてダメでした。（同ｾﾙに改行されません）
上記定数に置きかえる定数をご存知の方、教えてください。
いきなりすいません。
0591デフォルトの名無しさん
NGNG経由してそれを渡すのは無理でしょう。できるとしたら、CSVに吐く
ときに改行コードを特定の文字(\nとか)に変換して出力し、Excelに
読み込ませた後にvbLFに変換するといった方法を取る必要があると
思います。
0592534
NGNG0593587
NGNGできました。ありがとうございます。
0594590
NGNG了解しました。
ご回答ありがとうございました。
0595デフォルトの名無しさん
NGNGアイコンファイル (*.ico) には複数のイメージを含めることが出来る
32x32 と 16x16 の両方のイメージを入れておけば適切に表示されるはずだ
0596595
NGNG含めてるのに表示されないってか、そりゃ解んないやごめん
今ちょっとアイコン作ってためしてみたけど、普通に表示できたよ
アイコン何で作ったのか知らないが、作りなおして試してみたらどう？
0597デフォルトの名無しさん
NGNGダブルクオート " で囲むとできるんじゃなかったっけ。
0598534=592
NGNG256のやつではうまくいかないんですかね
0599民族主義の機械屋
NGNGUnicodeとjiscodeにはなんら関連性は無い。
で、あるから これらを計算的に変換することは不可能である。
Unicodeは優秀にして歴史有る日本工業会が誇るjiscodeに比べなんら優位性がない。
現にウインドーズのアプリでも至るところでjisが使用されている。
にも拘わらずjis変換関数をわざと提供しないエムエスは日本製品の排除を謀り、
如いては日本文化と民族の没落を願う敵性企業と認識しなければならない。
よって我々は今こそエムエス製品の排斥を真剣に検討すべきではないだろうか。
ベーシックはN88ベーシックを使いワープロは一太郎に回帰すべきである。
追記
上の方で機械とのデーター転送云々と話題になっていたようだが、
漢字コードはどうなってるの？
0600デフォルトの名無しさん
NGNGどこで情報集めてきたかしらんが
頭わいてるようだな
0601芸能人脱がせました
NGNG〃 _｀__
,,-＝-､､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
0602デフォルトの名無しさん
NGNG＞で、あるから これらを計算的に変換することは不可能である。
常識すぎて、今更声を大にして言うほどの事でもない。
＞Unicodeは優秀にして歴史有る日本工業会が誇るjiscodeに比べなんら優位性がない。
んなこたーない。
＞現にウインドーズのアプリでも至るところでjisが使用されている。
WinでJISが使われたことは古今東西一度もない。
S-JISと混同していると思われ。
＞にも拘わらずjis変換関数をわざと提供しないエムエスは日本製品の排除を謀り、
思いっきり提供しているが？
VBならStrConv()
＞如いては日本文化と民族の没落を願う敵性企業と認識しなければならない。
ＭＳが嫌いなのは別にかまわないけどね。
＞よって我々は今こそエムエス製品の排斥を真剣に検討すべきではないだろうか。
＞ベーシックはN88ベーシックを使いワープロは一太郎に回帰すべきである。
だからって、通常はUNIXとかMacだろうに。
N88BASICとは意外な展開。（笑）
0603579
NGNGしばらくみてなかったらびっくり。
文字コードの意味わかってるのかな？
かなり勘違いしてるみたいだよ。
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へはロジックで変換できるよ。
0604579
NGNGStrHex(Conv(Cell(1,1), vbFromUnicode)) は
Hex(StrConv(Cell(1,1), vbFromUnicode)) のまちがいです。
0605デフォルトの名無しさん
NGNGお前こそ勘違いしてるぞ。ＶＢ房にそんなこといってもわからんぞ。
ふざけんな！
0606579
NGNG何を勘違いしてるというんだ？
教えてくれ。たのむ。
0607デフォルトの名無しさん
NGNG0608デフォルトの名無しさん
NGNGユニコードごときでこのザマだ。(ﾜﾗ
0609憂鬱な機械屋
NGNG602様
おねがいです。
＞Hex(StrConv(Cell(1,1), vbFromUnicode)) のまちがいです。
この変数vbFromUnicodeの値をなにとどこの未熟な私めに教えてやってくださいませ。
お教え頂ければ後で美味しい愛媛みかんをお贈り致します。
おねがいですだぁ。
0610憂鬱な機械屋
NGNGこれで合ってる？私はユニコード表を持っていない。
'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
0611579
NGNG0612デフォルトの名無しさん
NGNG0613感激の機械屋
NGNG本当にできてしまった。
579様、ありがとうございます。
これで一応不細工ながらエクセル・機械間のデーター通信が完成します。
できれば、メールなど頂ければ
お世話になったお礼に裏山で採れるみかんでも、
それとも美味しい讃岐うどんでも贈りたいものです
0614デフォルトの名無しさん
NGNG0616デフォルトの名無しさん
NGNGたしかデザインモードで開いてはできたはずなんですが、やり方を覚えていません。
0617休日が近い機械屋
NGNG＞礼なんていらないよ。
そんなことを言わないで、せめてもの私の気持ちを受け取って下さい。
どうしてもと言うのなら、お礼の換わりと言ってはなんですが、私のとっておきの小噺をお一つ。
私は明日と明後日は機械の移設の仕事で高知へ行きますが、
高知、土佐には「いごっそう」という言葉があります。
気が荒いとか任侠心に富んでいるという意味ですが、
気が強いのは男ばかりではありません。
女性もまた然り、下手にナンパなどしようものならそれは大変です。
それなりの覚悟が必要でしょう。
もし、579さんが土佐に来る機会があって、そして勇気が有ればぜひ挑戦してみて下さい。
例えば「ネエチャン俺と一緒に一生お茶しないか」とか、
セリフはなんでも良いのですが、相手が夏目雅子のような美人だといいですね。
そのあと 彼女からきっとこのように言われるでしょう。
「土佐の女をなめたら いくぞよ。」
<最近、この話を二十代の知人にしたら「夏目雅子って誰？」と言われ まったくうけなかった。
この噺で笑ってくれるのは四十歳以上だな。>
0618デフォルトの名無しさん
NGNGつか、３日も前から答えを書いてもらってるのにもかかわらず
試してすらもいなかったとか。
つか、今すぐ市ね
0619あ
NGNGを代入する変数の型は何にすればいいのですか。variantにしてもうまくいかないのですが・・・。
あとたまに「RangeクラスのFindプロパティを取得できません」っていうエラーが出るんです。
Set mycell = 検査項目.Cells.Find(TextBox1.Value)
If mycell Is Nothing Then
↑この記述は間違ってますか（検査項目ってのはシートの名前です）？
0620デフォルトの名無しさん
NGNG0621デフォルトの名無しさん
NGNG0622あ
NGNGやっぱこの質問、恥ずかしすぎました？ごめんなさい。バカなもんで・・・。
どうしてもできないので教えてください（聞くは一時の恥～ってやつです）。
Findメソッドとかってうまくいくときとエラーが出るときとありませんか？
なにが悪いのかわからんのです・・・。
0623デフォルトの名無しさん
NGNG機械屋とかいうヴァカのこと。
0624デフォルトの名無しさん
NGNGDim mycell as Range
ってしてみたらどうかな。
Variantに入れたら、Object型になるのかな。
そのエラーって多態が解決されていないと言っているような。
RangeとObjectの系統が違うんじゃない？
環境がないのでテストできない。
0625あ
NGNGあ、そうでしたか。恥ずかしい・・・。
>>624
レスどうもです。
やはりうまくいきません・・・。どうやら変数の型の問題ではなくFindメソッドの
記述が間違ってるようです。というのは、返り値を変数に代入しないで 検索でヒットしたセルを
単にアクティブにするだけのコードでも同じエラーが出るんです。↓
Cells.Find(Textbox1.value).Activate
これ本にのってたサンプルコードといっしょなんですけど、間違ってますか？
0626デフォルトの名無しさん
NGNGTextBox1はどこに置いてあんの？
Form上ならForm1.TextBox1.Value
Sheet上ならSheet1.TextBox1.Value
とか書き換えてみたら？
0627あ
NGNGやはり同じエラー（RangeクラスのFindプロパティを取得できません）が出てしまいます・・・。
本にかいてあるとおりにしてもエラーが出るのは、なぜなんでしょうか。
ぼくのマシンの環境に問題があるんでしょうか。Excel97だからってことはないですよね？
0628デフォルトの名無しさん
NGNGして対象シート（検査項目？）にその値を書いた時にも
同じ現象が出る？
まあとりあえず、その部分のソースを書いてみそ。
0629あ
NGNGPrivate Sub CommandButton1_Click()
Cells.Find("あいうえお").Activate
End Sub
試験的にやってみた分ですが、これでもエラーが出ます（一応sheet1のセルに"あいうえお"と入れてあります）。
もうFindメソッド以外が間違ってるってことはないので、問題は絞れたはずなんですが・・・。
検索対象をRangeプロパティで指定してもだめでした。
0630デフォルトの名無しさん
NGNGExcel2000ですが、上のコード問題なく動きますね。
なんかExcel壊れてない？（藁
0631あ
NGNGExcel97だからダメだってことでしょうか？
97の場合はどう書いたらいいのか教えてください。
0632デフォルトの名無しさん
NGNG「ステートメントの末尾が不正です」だって。 何故ですか？
ちなみにこれを実行すると自分のメアドがレジストリから読み出されて
出るようになってるんですが・・・。
set WshShell = CreateObject("WScript.Shell")Wscript.Echo"あなたのメアドは
0633半角文字多いって出たので分割しました。
NGNG0634半角文字多いって出たので分割しました。
NGNG0635デフォルトの名無しさん
NGNGこれでは不満か？
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
0636デフォルトの名無しさん
NGNG>set WshShell = CreateObject("WScript.Shell")
の後でちゃんと改行入れてる？
>>633
惜しい。"スクリプト" ＝ VBScript だから、このままでは動かない。
>Dim Wshshell As Object
の
> As Object
と、
>Private Sub Form_Load()
>End Sub
の２行が不要(というか、あると動かない)。
上記３つを消せば >>633 で望みどおりの結果が出るよ。 >>632
0638デフォルトの名無しさん
NGNGオイラは初心者なんでよく分からんのだけど、
635のコードでも動きましたが…
0639６３２
NGNGうぉぉぉぉぉ！！出た！やった！感動した！ありがとう！！ヽ(´▽｀)/
ただ僕は、これをローカルでなくＷｅｂ上から実行し、実際にメアドの情報が得られ
ないけど、サイトを見た人が『げっ！！』となるようなびっくりサイトを作ろうとした
のですが、やっぱりエラーが出て上手く表示されません。
またまたお手数ですけど、よければ以下のタグも不具合チェックして下さい。
0640６３２
NGNG<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>
0641６３２
NGNG僕は「ニセ竹」です。ちく裏の名物スレのファンです。
まさかここに来てる人竹ちゃんファンがいるのかな？
悪戯はよせ！
0642６３５
NGNGこんな感じでどうだろう？？
<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>
0643６３２
NGNGうわぁ～。またまたレスありがとうございますぅ～。
よく見ると>>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
さんは竹ファン？
0644６３５
NGNGつーか、竹ファンって何？？？
上のスクリプトの記述は間違ってない。
ただ、ネットワーク上で表示させるには
ブラウザのセキュリティの設定が必要。
インターネットオプション＞セキュリティ＞レベルのカスタマイズ で、
「スクリプトを実行しても安全だとマークされていないActiveXコントロールの初期化とスクリプトの実行」
の項目が「有効にする」になっていないと表示されないよ。
つまり、閲覧者がこの設定を無効にしていると何も表示されないので
実用的ではないような気がする…。
ＶＢの話題から外れてしまったのでsage。
0645６３２
NGNGありがとうございました。
＞閲覧者がこの設定を無効にしていると何も表示されないので
＞実用的ではないような気がする…。
その通りですね。
実は僕、VBのことやプログラムのこととか全くの無知なのですけど、これは
㈱秀和システムから出版されてる「ホームページ 誰も書かなかったホントの裏技」と
いう本に出てたもので、「訪問者のログの取り方」だの「自前ＣＧＩ串の作り方」だの
アングラ系サイト制作のコツとかテクを説いたものなんですが、>>644でカキコしてある
こととか一言も解説なかった。 単なる厨房読本だったのね。
でも、VBの興味も出てきました。 ゴミレスごめんね。 よってsage
0646628
NGNG遅れてスマソ
そのコードEXCEL97で動かしたけどちゃんと動くぞ。
やっぱりEXCELが壊れているんじゃない？
一応MSのサイトで紹介されているFINDメソッドの使い方を乗せておくけど
・・・多分動かんだろうなぁ
http://www.microsoft.com/JAPAN/support/kb/articles/J011/3/06.htm?LN=JA&SD=SO&FR=0
0647デフォルトの名無しさん
NGNGExcel97を使ってる別人だが、確かにFindメソッドは同じコード
でも動いたり動かなかったりする。動かないときの切り分けが
できないので結局使うのをあきらめた。
こういうときはMSのサイトで大概該当する項目が見つかるのだが、
これに関しては何も見つからなかった。
0649647
NGNGごく単純なコードでも動かないことがある。
直値を指定した動いていたコードを、変数に変えたらエラーに
なったり(そもそも例のエラーメッセージ自体謎)、後でもう
一度同じようなコードを書いてみたら問題なく動いて再現できなく
なったり...
0650デフォルトの名無しさん
NGNGアドレスを渡さないといけないのですが、どうやればアドレスを取得できるの
ですか？
0651デフォルトの名無しさん
NGNG0652デフォルトの名無しさん
NGNGファイル名を渡したら画像をメモリに読み込んでから画像処理DLLを呼ぶDLLでも
作ったらどうでっしゃろ
0653デフォルトの名無しさん
NGNGAPIとかあるのでしょうか?
0654厨房６３５号
NGNGＡＰＩを使うまでもないよ。
Dim OLDNAME, NEWNAME
OLDNAME = "変更前のファイル名"
NEWNAME = "変更後のファイル名"
Name OLDNAME As NEWNAME
……これで変更できるはず。
0655653
NGNGありがとうございます!!
0656あび
NGNGフォームを傾けて表示させる方法ってあるんでしょうか？
中身のコントロールもそのまま傾いた感じで。
いろいろ考えたんですけど、そりゃ不可能か・・・と思い始めたんで
最後にここで質問させてもらいました。
どなたか、教えてもらませんか？
0657デフォルトの名無しさん
NGNG0658デフォルトの名無しさん
NGNG無理。
0659デフォルトの名無しさん
NGNGVBの範囲超えるかもしれんが
0660デフォルトの名無しさん
NGNGあれを中央で表示させたいのですがどうやったらいいのでしょう。
・テキストファイル（単語が一行に１個書いてある）をインポートするときに、
指定された文字の物だけをランダムで読み込む方法を教えてくれませんか？
・テキストボックスにひらがなだけを入力させるほうを教えてください。
0661緑茶。
NGNG＞あれを中央で表示させたいのですがどうやったらいいのでしょう。
スペース入れまくれ。
0662デフォルトの名無しさん
NGNGネタか？
リサイズしたら中央にならんだろ。
コントロールボックスとキャプション消してラベルを貼り付けるのが正解。
何？グラデーションが無くなる？
ユーザーコントロールでも作れや。
0663厨房６３５号
NGNGフォームのキャプションではなく「フレーム」のキャプションだから
ちょっとその回答は違う気がする……。
そういうオイラも厨房だから正しい答えはできないけれど……。
http://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE.lzh
とりあえずオイラがやるとすればこんな感じにしかできない。
ダウンロードして解凍すればプロジェクトファイルがあるから、
よかったら参考までに見てみて（ウィルスとかじゃないからね…）。
どうやってるのかはすぐに分かると思うよ。
0664660
NGNGありがとうございました。この問題については、解決です。
・テキストファイル（単語が一行に１個書いてある）をインポートするときに、
指定された文字の物だけをランダムで読み込む方法を教えてくれませんか？
・テキストボックスにひらがなだけを入力させるほうを教えてください。
はわかる方いらっしゃいますか？
0665厨房６３５号
NGNGオイラは読解力が乏しいので、質問の意味がイマイチ分からん。
どんなふうにしたいのかもうちょっと詳しく説明してくれないかな？
0666660
NGNGまず事前準備として、テキストファイルに単語（りんご など）が一行に1個づつ、
たてにずっと並んでます。
で、したいことは、このテキストファイルをインポートしてラベルに単語を表示させるときに
指定した文字（"あ"など）で始まる単語だけをランダムに１個だけ取り出して表示させたい
ということです
２つ目はわかると思うのですが、、、
テキストボックスにひらがなしか入力できないようにしたいのです
0667デフォルトの名無しさん
NGNG全部読むだけ読んで、1つ読むごとに指定文字と比較して
マッチしない場合はしかとすればいいのでは？
マッチしたら文字配列にぶっこんで、そこからランダムで抜くとか。
これじゃだめかしら
0668厨房６３５号
NGNGオイラも６６７のような方法しか思いつかん。
また、とりあえずサンプルをあげておくよ。
http://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE.lzh
短いコードだから何をやっているのかは理解できる思う。
0669厨房６３５号
NGNG↓↓ こっちが本物
http://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE2.lzh
0670660
NGNGできました！！
ありがとうございます
もうしわけないのですが、あと一個です。数字だけ入力できるようにするのならわかるのですが。。。
ぜひお願いします
0671厨房６３５号
NGNGさっきのサンプルのひらがな入力強制バージョン。
http://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE3.lzh
もっといい方法があるのかもしれんが、オイラの厨房技術ではこれが限界。
0672デフォルトの名無しさん
NGNGたしかラクダ本に載ってた、1パスでランダムに取り出す方法。VB
は知らんので誰か書き換えて。
open(F, "TEXTFILE.txt") or die;
$cnt = 0;
$line = undef;
while (<F>) {
next unless /^あ/;
$line = $_ if (rand(++$cnt) < 1);
}
print $line;
0673660
NGNGこれでOKです。厨房６３５号 さん、ほんとうにありがとうございました
0674デフォルトの名無しさん
NGNG今VBでExcelを取り込むプログラム組んでましていろいろ試しているのですが、
Excelのセルが持つハイパーリンクの情報をDataコントロールを通して
取得する事は可能なのでしょうか？
よろしくお願いします。
0675デフォルトの名無しさん
NGNG何日も悩んでるんですけど。
たとえばニュースサイトでトピックス部分のみ抜き取るとか2chのスレッドタイトルのみを抜き取るとかをしたいんですけど。
何かいい方法無いでしょうか？
0676デフォルトの名無しさん
NGNG特定の文字列を抜き取る手法よりも、それがニュースのトピ部分か、
2chのスレタイトルかを判定する方が難しいと思われ。
0677デフォルトの名無しさん
NGNGスレッド一覧で
どうやってるんかな～って思って
かちゅ～しゃはDelphiだけど
0678デフォルトの名無しさん
NGNGかちゅーしゃは直接データファイルを読んだり書いたりしてるんじゃなかったっけ
0679デフォルトの名無しさん
NGNG0680デフォルトの名無しさん
NGNG9
80
8
72
66
50
こんな感じにSORTされてしまいます。
これを↓普通の0～100順ソートする方法はありますのでしょうか。
80
72
66
50
9
8
0681デフォルトの名無しさん
NGNG0682VBで動画見るには？
NGNGどんなファイルがよいかも教えてください
0683デフォルトの名無しさん
NGNGActiveMovieControlを貼り付ける
0684デフォルトの名無しさん
NGNG「リッチ摘記すとボックスに色つきの文字を挿入する」
っていうTips覚えてる方いませんか？
RTFタグ(?)で直接いれるやつ
0685デフォルトの名無しさん
NGNGこれをステータスバーの上の乗っけることはできませんか
処理中はステータスメッセージを特に出していないし、ここにもって
いけたらスマートな感じがするのですが。
0686デフォルトの名無しさん
NGNGhttp://www.remus.dti.ne.jp/~y-mac/teclib/staprog.htm
その簡易プログレスバーっていうのもいけます
0687685
NGNGありがとうございました。
0688デフォルトの名無しさん
NGNG作りたいのですが、うまく行きません
どのようにすればええんでしょうか
0689デフォルトの名無しさん
NGNGえっとまず、ここはVB初心者質問ですがスレッド間違ってませんか？
次に、クリック待ち処理って何ですか？
ボタン等クリックしたときに発生するイベントとは別物ですか？
「いわゆる」と言われても、あんまり一般的なことを聞かれているような気がしませんが。（笑）
0690厨房６３５号
NGNGまずはその辺を説明してもらいたい。
0691688
NGNGそれを入力で再帰できるような処理を作りたいんですわ
Cとかだとそれなりに簡単に出来るよーですけど、VBやとむずかしいんかな。
そのような処理をしているアプリを探したんけど、見つかりませんでしたわ
たしかに一般的でないかもしれへんわ、でも使ったこと無いかなあ。
0692厨房６３５号
NGNGこんな曖昧な質問では誰も回答できんよ。
0693デフォルトの名無しさん
NGNGなるほどね、簡単なのはDoEventsすることかな。
DoEventsはその命令の中でイベントを処理するから、無限ループに注意
長時間かかる処理->DoEvents->ボタンなどイベント
こんな感じで呼ばれる。
Private Flag as Long
Sub 長くかかる処理()
Flag = 0
Do
DoEvents
Loop Until Flag = 1
End Sub
Sub 中止ボタンなどイベント
Flag = 1
End Sub
俺なら、こんな感じでするかな。
0694688
NGNGうまく行きそうな感じですわ、ご助言ありがとうございます
TIMER使って入力探知するとかとか、条件式で謎の処理行ってほんまの無限ループに
なったり大変でしたが、いや助かりました。
>>635
ども、抽象的ですんません。
0695デフォルトの名無しさん
NGNGTimerもイベントだから、なにか処理してる間は呼ばれないね。
Timerで処理していることがあるなら、他にも時間がかかりそうな
所はまめにDoEventsすべし
0696デフォルトの名無しさん
NGNGいろいろなサイトを見たのですが全然見つかりませんでした。知ってる方よろしくお願いします。
0697デフォルトの名無しさん
NGNGグラフィックとかのソフトのこと？
やっぱり自分で計算するんじゃない？
無責任なレスでスマソ・・・
0698デフォルトの名無しさん
NGNG英語は得意ですか？
0699デフォルトの名無しさん
NGNG3分以内に答えないと教えないよ。
0700デフォルトの名無しさん
NGNG残念、英語不得意でしたか。
0701デフォルトの名無しさん
NGNGhttp://piza2.2ch.net/tech/subject.txt
これをとってるだけ。
0702デフォルトの名無しさん
NGNG0703デフォルトの名無しさん
NGNGやっぱりAPIを使うんでしょうか？？？
0704699
NGNGhttp://www.planet-source-code.com/upload/ftp/CODE_UPLOAD8469812000.zip
0705デフォルトの名無しさん
NGNGサンクス！！何とかしてみます。
0706VBで動画見るには？
NGNGありがとうございます。
0707デフォルトの名無しさん
NGNGありがとうございます！！
恩に切ります！！
0708デフォルトの名無しさん
NGNGわかりやすく教えてください
0709デフォルトの名無しさん
NGNGクラス
[class]
（1）学校などにおいて、組み分けしてできた生徒の集団。学級。級。組。
（2）等級。階級。層。「実力はトップ-―だ」
（3）種類。部類。
0710デフォルトの名無しさん
NGNGクラス
0711デフォルトの名無しさん
NGNGつまらん
0712デフォルトの名無しさん
NGNGageてまで言う事か？・・・
0713デフォルトの名無しさん
NGNGクラスはオブジェクトではありませんが、属性を定義するデザイン時のプロパティと、機能を定義するイベントを保持します。
0714デフォルトの名無しさん
NGNG自分でクラスモジュール書いてみそ。
下手に説明されるよりずっと良く分かるはずだ。
0715デフォルトの名無しさん
NGNG0716デフォルトの名無しさん
NGNG0717デフォルトの名無しさん
NGNG思っていたのですが、ランタイムを用意してもらったりと
面倒な事が多いのでＣに移植しようかなぁと考えています。
しかし僕のＣの知識は教科書のポインタおよび構造体まで
しかなく、サウンドの再生や画像の描画に関しては全くです。
そこでみなさんにお聞きしたいのですが、ＶＢプログラムの
まま製作を続けていく方がいいでしょうか？それとも苦労して
でもＣに移植した方がいいでしょうか？
0718デフォルトの名無しさん
NGNG0719デフォルトの名無しさん
NGNGランタイム用意すればいいじゃん
0720デフォルトの名無しさん
NGNG0721デフォルトの名無しさん
NGNG日本語でそういったことを解説しているサイトなどはないでしょうか
VB特有の質問ではないのですが、VBで開発しているのでここで質問しました。
0722デフォルトの名無しさん
NGNG0723デフォルトの名無しさん
NGNGもう完成間近って事なら、とりあえずはVBで完成させてしまうのがﾖｲと思うぞ。
移植なら、それからでも遅くはあるまい。
今からC勉強してという案は、完成までモチベーションを維持するという意味で大変だ。
0724717
NGNG>>718さん
迷わずＶＢという解釈でよろしいのですよね。
>>719さん
使用者がランタイムを用意（ダウンロード）するのは面倒では？と思ったので
Ｃへの移植を考えました。
>>720さん
HSPのページをいくつか覗かせて頂きました。今度チャレンジしてみようと
思います。情報ありがとうございます。
>>723さん
おっしゃる通り、完成してからの移植でも遅くないですよね。まずはＶＢで
完成まで頑張ろうと思います。
Ｃに移植しようと思ったのは上記の理由(719さんへのレス)と、この掲示板
でＶＢがあまり好まれていないように感じたからです。
0725デフォルトの名無しさん
NGNG0726超びぎな
NGNGテキストボックスで、右クリックしてでるポップアップメニューの
カスタマイズってできるんですか？
項目追加もしくは、全く新しいメニューの作成など……。
よろしくお願いします。
0727デフォルトの名無しさん
NGNGメニューエディタでOKだよん
0728超びぎな
NGNGありがとうございます。
でもこれじゃ、プルダウンメニューと排他になると思ったんですが……。
やってみます(^^;
0729超びぎな
NGNGの間違いでした……。失礼しました。
0730デフォルトの名無しさん
NGNGサブクラス化してWM_CONTEXTMENUを引っかける。
0731デフォルトの名無しさん
NGNGメインフォームをロードした後に、アクション（ボタンの介入など）なしで
とある処理を動かしたいのですが、可能でしょうか？
0732デフォルトの名無しさん
NGNGロードした後ならActivateイベントなんだが、Activateはアクティブ
になったとき呼ばれるから、初回だけならフラグを立てて２回目以降を
回避するようにする。
0733デフォルトの名無しさん
NGNGありがとうございます
やってみます
0734デフォルトの名無しさん
NGNGネットに繋いだ誰かさんにデータを送れるみたいな事書いてありますが、そんな簡単に出来るんでしょうか。
http://software.nikkeibp.co.jp/software/download/down01c.html#200106
0735デフォルトの名無しさん
NGNGこんな感じ(笑)
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
0736734
NGNG相手のマシンのＩＰアドレスとポートを指定すれば送れるとか、
本には書いてありますが、いまいち胡散臭く感じられます。（汗
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
0737デフォルトの名無しさん
NGNG受け取る方も書けばできるよ。
0738デフォルトの名無しさん
NGNGなんで胡散臭く感じるか不思議なのだけど、簡単にできるよ。
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。
0740デフォルトの名無しさん
NGNGOption 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
0741初心者
NGNGVB5で複素数を扱うことはできないんでしょうか？
FortranでDLLを作って使おうとしたんですが
うまくいきません。（Fortranのソースを間違えてるかも）
どうしたらいいでしょうか？
（FortranはMicrosoftのPowerStation4.0を使っています。）
0742デフォルトの名無しさん
NGNGVB6で、
よく使うActiveXをプロジェクト新規作成の時に
初めからコンポーネントパレットに載っているように
設定する方法はないのでしょうか？
0743
NGNG0744馬鹿ちんちん
NGNG教えてください。
コマンド１と２は「作成中」とメッセージを出し、コマンド３は
終了するか否か？ってやつですのです
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
0745デフォルトの名無しさん
NGNGgoogle で検索したら、すぐに見つかったけど。検索エンジンの使い方
が分からないのか？
The MD5 Message-Digest Algorithm
ftp://ftp.iij.ad.jp/pub/internet/rfc/rfc1321.txt
0747厨房６３５号
NGNG「If Answer = ybYes Then」を「If Answer = vbYes Then」に。
「Form1.Cartion = "組込み関数" 」を「Form1.Caption = "組込み関数"」に。
……どこが違ってるかはわかるよね？
0748馬鹿ちんちん
NGNG「If Answer = ybYes Then」のＹをＶ
「Form1.Cartion = "組込み関数" 」のＲをＰ
って事ですよね?
やってみたんですが、出来ないっす（Ｔ0Ｔ）
0750デフォルトの名無しさん
NGNGAnswerはstring型じゃ、だめだろ
0752デフォルトの名無しさん
NGNGDim Answer As Boolean
いちお、マジレスしとく。
0753デフォルトの名無しさん
NGNGえ？ 俺はコンパイルできっけど・・（汗
0754744
NGNGすんません、コンパイルできました。
フォーム画面のコマンド１ボタンで変な事したのが原因みたいです（コピーやら何やら）
所でボタンを押して画面の切りかえってどうやるんですか?
本を読んでも書いて無いっす。（はじめての…）
レスお願いします。
0755厨房６３５号
NGNG0757デフォルトの名無しさん
NGNGいいかげんにしろ！
0758厨房６３５号
NGNGhttp://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE4.lzh
ダウンロードして解凍して実行してみろ。
これを見ても分からないようならオイラにはもう説明できん……。
0760デフォルトの名無しさん
NGNGVB6で、
よく使うActiveXをプロジェクト新規作成の時に
初めからコンポーネントパレットに載っているように
設定する方法はないのでしょうか？
やっぱり無理ですか？
0761デフォルトの名無しさん
NGNGVBつかうな。DELつかえ。
0762デフォルトの名無しさん
NGNGと、761は言うがどうなんだろうか？
0764デフォルトの名無しさん
01/08/26 19:28ID:571dF5Sg標準モジュールのプロシージャ内にDim宣言した変数があります。
この変数を、そのプロシージャから.showを使って呼び出したフォームのコードで使いたいのですが、どうすればいいのでしょうか？
Public宣言は使いたくないので、それ以外の方法を教えてください。
お願いします。
0765デフォルトの名無しさん
01/08/26 21:25ID:xI2obt76その変数をモジュールレベルの変数にしてProperty(もちろんGetオンリーね)プロシージャで
取得するようにしてみれば?
ex.
Private m_変数
Public Property Get Prop
Prop = m_変数
End Property
Public Sub Func1()
m_変数 = 何らかの値
End Sub
0766765
01/08/26 21:27ID:z1F7TOUwこれだったら勝手に他のモジュールから値を変えることができなくなるよ。
ageてしまった。
鬱だ氏のう
0767764
01/08/27 01:04ID:z4FBIIXkどうも助かりました。
言われたとおり試してみます。
ありがとうございました。
0768デフォルトの名無しさん
01/08/27 10:34ID:/ohAiagAtextboxに最後に表示(入力)した文字を、次に起動するときに表示させたいのです。
簡単にできるのでしょうか？
誰かご教授ください
0769760
01/08/27 10:53ID:3YCsgyGEレスありがとうございました。
VBではできないと言うことで了解いたしました。
0770717
01/08/27 11:33ID:BL6hXT0g終了するときにtextboxの内容をファイルに保存して、起動時にそれを
読み込むっていうのでいいんじゃないでしょうか？ファイルの保存とか
読み込みについてはgoogle(http://www.google.com)で調べてね。
全部教えちゃうと身につかないから。
0771デフォルトの名無しさん
01/08/27 12:31ID:vncjlUd2C:\Program Files\Microsoft Visual Studio\VB98\Template\Projects
↑ココ、良く使うというコントロールなどを配置した.vbpファイルを置くというのはどうだ？
プロジェクトの新規作成ウインドウにそのvbpが表示されるが...
ﾀﾞﾒ?
遅ﾚｽsage
0772760
01/08/27 13:38ID:3YCsgyGE「プロジェクトタイプ名.vbp」で書き込んでおくことで
使い分けることができるのですね。
おかげさまで解決しました。
ありがとうございました。
0773デフォルトの名無しさん
01/08/28 15:21ID:2ACwgUNUプログラムが起動したら画面一杯にタイル状に表示させたいのですが・・・
0774デフォルトの名無しさん
01/08/28 15:24ID:HEWceQCw何のために各フォームが独立してるんだ？
必要なければ１枚フォームで最大化すれば？
0775デフォルトの名無しさん
01/08/28 20:34ID:5xAr4H5s普通に並べてもダメ？
0776デフォルトの名無しさん
01/08/28 20:55ID:DIzzKKB2プログラム開始時に解像度に関わらず自動的にフォーム一杯に並べるという
処理のやり方を知りたいのですが・・・
0777デフォルトの名無しさん
01/08/28 21:23ID:HEWceQCwよくわからん。それがどうして複数のフォームである必要があるの？
0778デフォルトの名無しさん
01/08/28 21:57ID:DIzzKKB2つまりフォーム上に、
Pictureコントロールもしくは、imageコントロールを用いて
タイル状に画像を並べたいのですが・・・・
0779デフォルトの名無しさん
01/08/28 22:13ID:HEWceQCwじゃあフォームは１枚でいいんじゃん。
あとは適当にPictureの配列作って並べるだけ。
必要があればフォームを最大化。
0780デフォルトの名無しさん
01/08/28 22:14ID:gU31v176はじめっからフォーム複数個とは言ってないじゃん(笑
0781ActiveMoviecontrolでｴﾗー
01/08/28 22:38ID:1hHYVmZ.ｺﾝﾊﾟｲﾙするとｼｽﾃﾑｴﾗーになります。
”＆H80004005(-2147467259)特定できないｴﾗｰ”です。
何故なのでしょうか？
誰か教えて、、、、
0782デフォルトの名無しさん
01/08/28 23:27ID:C1RWCuTIbitbltがいいんじゃない？
>>781
ネイティブコンパイルしてるの？
0783激遅レス
01/08/29 00:51ID:uBAwy..20784とまと
01/08/29 09:06ID:eDznrjigMicrosoft インターネット コントロールを追加って
どうやって行うんですか？
わかるかたお願いいたします
0785夜のオカズ
01/08/29 09:56ID:bdM2.b2IImageコントロールを並べる必要はまったく無し。
元画像をPictureBoxかなんかに用意して、画像サイズ分ずらしながら
FormにPaintPictureなりBitBltなりでコピーしていけばOK。
0786ネイティブコンパイル教えて
01/08/29 10:23ID:wtoDZlyA初心者で申し訳ありません。
ネイティブコンパイルはどうすれば良いのでしょう。
0787デフォルトの名無しさん
01/08/29 10:29ID:Rhjz/Ovsピクチャーコントロールの任意の範囲を
イメージコントロールの strech=true を利用して
イメージコントロール上に拡大表示したいのですが…
0788デフォルトの名無しさん
01/08/29 10:51ID:lb2ya9I.マルチメディアタイマーを使ったコールバック関数って
ネイティブコンパイルするとうまく動かないの？
0789デフォルトの名無しさん
01/08/29 11:11ID:5DdtzJDgVB6.0は、エディションによって機能が制限されるんでしょうか？
0790夜のオカズ
01/08/29 15:42ID:bdM2.b2ILearningEdition以外なら問題ないと思われ。
0792デフォルトの名無しさん
01/08/29 18:46ID:Rhjz/Ovs割れとけ。
0793デフォルトの名無しさん
01/08/29 20:01ID:xH2KJ2oMＶＢのランタイムファイルって、
ディストリビューションウィザードで作ったＣＡＢファイルの形でないと、
配布してはいけないんでしょうか。
ランタイムファイルをシステムフォルダにコピーするがために、
わざわざ、インストールという方法を取るのが無駄に感じて仕方ありません。
ランタイムファイルって、他の方法で配布しちゃ、いけないんでしょうか・・。
マイクロソフトに聞くのが一番早いでしょうが・・・
なんかこう・・聞きづらい・・（汗
0794デフォルトの名無しさん
01/08/29 20:03ID:Rhjz/Ovs割れてるのか？
0795デフォルトの名無しさん
01/08/29 20:21ID:IFOgiW26じゃなきゃ聞きづらくなかろう。
0796デフォルトの名無しさん
01/08/29 20:32ID:ixxpOU.2アプリケーションと一緒なら良いんじゃなかったっけ?
ディストリビューションウィザード使わんで、ZIP圧縮したって問題無いと思う。
VECTORにあるランタイム集は、それを回避するために、セットアップ付きで配布してる。
0797793
01/08/29 21:04ID:xH2KJ2oM経費で買って私用中。後ろめたいのは会社の方です。（汗
>796
たしかに規約にはアプリケーションと一緒に配布しろ、としか書かれてません。
でも、これまで、ディストリビューションウィザード以外で
圧縮されたランタイムを見たことがないです。
0798デフォルトの名無しさん
01/08/29 21:33ID:5aO882fAガイシュツだったら申し訳御座いません。
Windowsのメモ帳のように、アイコンにドラッグ＆ドロップして
txt（html）ファイルを開けるようにするにはどうすればいいでしょうか？
OLEDragModeかOLEDropModeが関係しているのではと思っているのですが…。
ちなみに、htmlファイルはtxt形式で開くようにしてあります。
htmlだからどうこうと言う処理は特にありません。
ご存知の方いらっしゃいましたらお願い致します。
0799夜のおかず
01/08/30 00:53ID:WAOpj4PoCommand$を調べればアイコンにドロップされたファイルを取得出来るんで、
その後はスキに料理すればOKかと思われ。
0800デフォルトの名無しさん
01/08/30 07:17ID:6gc8BPzU学校のPCにしかVB入ってないのですぐには実行できませんが…。
さっそく今日試してみます（・∀・）
0801デフォルトの名無しさん
01/08/30 10:40ID:FIm2.ZN.業務やった事ある人いる？
0802デフォルトの名無しさん
01/08/30 13:01ID:SlMm8NNoDelphiバージョンなら...
0803デフォルトの名無しさん
01/08/30 16:41ID:nBzECaFAADOデータコントロールを用いて、ストアドプロシージャーに接続する際、
パラメータを指定しろとメッセージが出ます。
ですが、そのやり方が判りません……。
よろしくお願いいたします。
0804デフォルトの名無しさん
01/08/30 17:14ID:qz3dXp/IVBでExcelを操作しているとき、Excel側が出すエラーをトラップして、
Excelにはエラーを出すのをやめさせて、VB側がエラー文字列を受け取るにはどうするのでしょう？
0805デフォルトの名無しさん
01/08/30 17:19ID:HHAGaldAxlApp.DisplayAlerts = False
On Error Goto ExcelError
.
.
ExcelError:
MsgBox Err.Description
0806デフォルトの名無しさん
01/08/30 17:41ID:Q8PNk7wc0807デフォルトの名無しさん
01/08/31 10:34ID:4hROc.hU0808
01/08/31 13:20ID:UFB0I2toみたいで以下の例があったんでそのとおり作ったんですが
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見ても出てこないし宣言の仕方が分かりません。
これは関数？ライブラリ？
0809デフォルトの名無しさん
01/08/31 13:51ID:1CNWv.S6自分で作ったアプリなら、逆コンパイルする必要ないぢゃん。
0810デフォルトの名無しさん
01/08/31 14:27ID:4hROc.hU逆コンパイルするとどんな風になるか知りたいからです。
それに、ソースをなくしたアプリの復元になるからです
0811デフォルトの名無しさん
01/08/31 15:05ID:70GD8oU.ActiveCell.Value = -1 '←最終的にはVBから呼ぶつもりですが、とりあえずVBA
とかすると、問題無く値が入ってしまいます。
エラーにするにはどうするんでしょう。
0812まだActiveMoviecontrol使えない
01/08/31 18:53ID:gE54C6X2ｺﾝﾊﾟｲﾙするとｼｽﾃﾑｴﾗーになります。
”＆H80004005(-2147467259)特定できないｴﾗｰ”です。
何故なのでしょうか？
ネイティブコンパイルしても駄目でした。
神様助けて
0813デフォルトの名無しさん
01/08/31 20:56ID:VCyloi3QそれとＨＴＭＬをＷｅｂサーバに置いて、
そのＵＲＬを起動すると、最初は普通にダウンロードしてくれたのですが、
ActiveX Exeのバージョンアップを繰り返してるうちに
ダウンロード中に「システム設定の変更」のダイアログが表示されるようになってしまったんですが、
これってどうして出るんでしょうか？
出さなくする方法ってあるのでしょうか？
0814デフォルトの名無しさん
01/08/31 21:34ID:WA.r8ugIソースの復元は無理だと思うけど・・（汗
ATTAP
VBDecompiler
The Subject Caf
Daniel Wiman's Visual Basic
どこぞの板では、こゆソフトがあると書いてありました。
現存するかは知らない。対応バージョンも知らない。役立たずでスマソ。
0815デフォルトの名無しさん
01/09/01 19:23ID:JvvK7RrQそれ、みました。だけど、どこにも見当たらない。UPキボーン
0816デフォルトの名無しさん
01/09/03 09:47ID:.fKgTI7.ちなみにｴｸｾﾙVBAはやったことがあるのですが、どうでしょうか？
あと、VB7はすぐ出るのでしょうか？
0817デフォルトの名無しさん
01/09/03 10:26ID:G/qsEIaYLearningEditionでは何も出来ません。最低でもPro版でせう。
高いなと思ったら...Delphiにしましょう(死)
なお、OfficeのVBAよりは自由度が高い反面、面倒くさいと感じる面も多いですが
基本的な構文等は一緒なので、大きな混乱は無いと思います。
0818デフォルトの名無しさん
01/09/03 10:37ID:CK66gkT6昔にvbpファイルを一カ所いじるだけで戻せるようなのを見た記憶があるんですが、
お願いします。
0819811
01/09/03 11:10ID:o7wukeHs赤丸にアクセスする（数だけでも知りたい）にはどうするんでしょう？
0820厨房６３５号
01/09/03 18:15ID:YMsJB9dMhttp://homepage1.nifty.com/MADIA/Vb5Vb6Convert.htm
0821デフォルトの名無しさん
01/09/03 19:49ID:zu.W1DcU簡単な接続テストのようなものでフォームでボタンを押すと「接続出来ました。」
と表示させるような事がやってみたいのですがこれはどのように書けば良いでしょうか？
WinでのODBCの設定は出来ているようです。よろしくお願いします。
0822デフォルトの名無しさん
01/09/04 00:28ID:RlUQaLR.インターネット トランスファ (Inet) コントロールを使って書き込みをするには
どうしたらいいのでしょうか？
Inet1.Execute Url, "POST", "ここに何か入れるのかな？"
0823デフォルトの名無しさん
01/09/04 05:48ID:xADXB3S6まさにVBユーザーって質問だな
0824816
01/09/04 09:06ID:y38JFVbcありがとうございます。
Pro版を見てみようと思います。
0825デフォルトの名無しさん
01/09/04 09:43ID:Oo1sLF7UOpenDatabaseして、エラーが無ければ成功メッセージ出力でええんじゃないの？
0826821
01/09/04 09:54ID:1pUTO232そのソースを教えて欲しいんです…
調べてはいるんですが、なかなかサンプルが見つからなくて。。
0827デフォルトの名無しさん
01/09/04 10:11ID:/GsoGp0sbeep音の代わりにwav音声を使いたいのですが、
どういう記述をしたら宜しいですか？
0829デフォルトの名無しさん
01/09/04 14:12ID:.o5TBcBgどうすればいいのでしょう？
0830デフォルトの名無しさん
01/09/04 14:15ID:GqHiCo0A死亡する順番
0831830
01/09/04 14:16ID:GqHiCo0A0832名無しさん
01/09/04 15:58ID:13DHPGuE「処理中」の処理をしたいのです。
プログレスバーの伸び方をなるべく正確にするために現在の転送速度を取得したいのですが、
どうやったらいいのでしょうか。
0833デフォルトの名無しさん
01/09/04 16:29ID:vhNb1xH.転送開始時に
st=Date()
として、GetChunk() 後に
受信済バイト数 / DateDiff("s",st,now)
すれば出ると思いますが。
0834833
01/09/04 16:35ID:vhNb1xH.（たぶんムリ）
0835名無しさん
01/09/04 16:40ID:13DHPGuEありがとうございます。
でも受信ではなくて送信のときを知りたいんです。
肝心のところが抜けてて申し訳ありません。
同じようにFTPコマンドかなんかで送り先のファイルサイズを取得して計算するって方法しか
ないんでしょうか。
0836デフォルトの名無しさん
01/09/04 16:48ID:vhNb1xH.http://www.google.com/search?q=sndplaysound&hl=ja&lr=lang_ja
0837デフォルトの名無しさん
01/09/04 16:54ID:vhNb1xH.そうなると、Winsockコントロールで作るしかないかな？
0838名無しさん
01/09/04 17:04ID:13DHPGuEそうですか。分かりました。
ちょっと手におえそうに無いので今回はあきらめることにします。
回答ありがとうございました。
0839デフォルトの名無しさん
01/09/04 17:45ID:rEyf5xwsコモンダイアログボックスの[印刷]で設定したにもかかわらず、
いざ印刷してみると、用紙方向などが変わらないままで印刷されます。
ダイアログボックスで指定した設定などは、そのまま反映されないのでしょうか？
ちなみに、ソースは
With CommonDialog1
.Flags = cdlPDPrintSetup
.ShowPrinter
End With
Me.PrintForm
こんな感じです。
なにとぞ、ご教授よろしくおねがいします。
0840837
01/09/04 17:58ID:vhNb1xH.winsockなんて面倒なことしなくても WININET API を使えば簡単に出来そう。
www.galliver.co.jp/writing/susume_vb/tre902/
www.google.com/search?q=cache:EqUR-1SxAhc:www.sfdata.ne.jp/windev/iij/htdocs/msg26468.html+wininet.dll+%83R%81%5B%83%8B%83o%83b%83N+AddressOf&hl=ja&lr=lang_ja
www.remus.dti.ne.jp/~shenron/access/knowhow/wininet/AccessDeFTP.html
0841デフォルトの名無しさん
01/09/05 11:39ID:bq7idXKwSet nodeX = TreeView1.Nodes.Add(, , "000", "AAA")
とすると「無効なキーです」というエラーが発生してしまいます。
キーに"000"など数字だけの文字列を指定できないものでしょうか？
0842デフォルトの名無しさん
01/09/05 12:21ID:Fia1..DAintegerやlongは使わないでdoubleを使った方が良いと書いてあった。
オーバーフローが無いという意味では確かにそうなんだろうけど
その著者曰く、doubleの方が～～の理由で早い（うろ覚え）との事。
僕は全然詳しくないのでその理由がわからないのだけど
分かる人います？それともこれは間違ってるの？
0843ＶＢプロを買ってはや半月・・でも初心者。
01/09/05 15:07ID:ruGAshAIコンボ１の選び方で
コンボ２のリストが変更するって事は出来るのでしょうか？
出来るとしたら Ｉｆ～ だと思うんですが、よくわかりません。
返答お願いします。
0844デフォルトの名無しさん
01/09/05 15:40ID:O0pEUe6s0845>>843
01/09/05 15:54ID:ruGAshAIいや、出来たらやり方もご指導願いたいんですが？
お願いしまっそ！！
0846デフォルトの名無しさん
01/09/05 16:09ID:RpZhDGgE漏れは、Longが一番早いとどこかで見たよ。
理由は忘れた。
0847842
01/09/05 16:31ID:Fia1..DA＞漏れは、Longが一番早いとどこかで見たよ。
＞理由は忘れた。
うん。それも聞いた事があるんだけど理由がわからない。
doubleが早いというのもよく分からない。
結局、どうなんだろう…？
堂でもいいけど気になるなー
---------------------
843
SELECT CASE コンボＡ.ListIndex
CASE 0
コンボＢ.AddItem "あああああ", 0
コンボＢ.AddItem "いいいいい", 1
CASE 1
コンボＢ.AddItem "ううううう", 0
コンボＢ.AddItem "えええええ", 1
コンボＢ.AddItem "おおおおお", 2
以下略
END SELECT
でいいんじゃねーの？
っていうかこの程度はヘルプに書いてあるぞ
ﾁｮｯﾄは調べてみなはれ
僕も初心者なんで偉そうな事は言えないけどな
ｶﾞﾊ
0848デフォルトの名無しさん
01/09/05 16:33ID:uXUpa2p6ListIndexが選択され(た)ている項目です。
cbo1のLISTINDEXを判定材料に
cbo2のListIndexを変えればOKです。
ListItemがいっぱい有るならSelect Caseにしたほうが良いでしょう。
IIf(よくわかりませんが)でも良いかもしれません。
>>846
LONG型は4byte(32bit)だから、一般の32bitCPUでは一回の処理ですむから
という理由らしいです。For I=0 to 10億の単純LOOPなら、当方環境では
Longのほうが2倍高速でした、64bitCPUではDoubleの方が速いのかな？
0849デフォルトの名無しさん
01/09/05 16:40ID:Z95/O0wg32bit CPU でも浮動小数点レジスタは 32bit とは限らないと思いま
すけど。
0850デフォルトの名無しさん
01/09/05 16:50ID:7pb2r5rQ現在データベースに接続されているかどうかを調べるには
どうすれば良いでしょうか？
0851848
01/09/05 16:53ID:uXUpa2p6Longでも浮動小数点演算を行えるのですか?
0852848
01/09/05 17:04ID:uXUpa2p6CPUのアーキテクチャに詳しいわけではないので粗漏はお許しを。
0853デフォルトの名無しさん
01/09/05 19:47ID:Ltby3ikUMSDNライブラリには long 使えって書いてあったよ。
http://www.microsoft.com/japan/developer/library/vbcon98/vbconoptimizingcode.htm
速度を要求するならVB使うなって話もありますが。
0854デフォルトの名無しさん
NGNG変数名とかに日本語使ってる人います？
あれって外道なんですか。問題でもあるんですか。
サンプルコードとか見ると、使ってる人が滅多に居ない・・
0855デフォルトの名無しさん
NGNG0856デフォルトの名無しさん
NGNGプリフィクスつけずに全角だけな奴は殺害しる！
0857デフォルトの名無しさん
NGNGラベルを変える方法はどうやってやればいいのさ。
0858厨房６３５号
NGNGボタンのClickイベントでコンボボックスの選択内容を判断して
ラベルのCaptionを変えるのじゃダメなのか？？
0859デフォルトの名無しさん
NGNGそうやろうと思ったんだけれど。
選択内容をどう判断するかがわからなかった。
combobox.textとか厨房なりに頑張ってみたけれどできなかった。
0860厨房６３５号
NGNG0861デフォルトの名無しさん
NGNGおぉ、できた。すごいや。アリガトー
0862答えてあげて
NGNGがWindows98上でインストールして実行すると実行時エラーが発生」
詳細：
Windows2000 Professional(SP2)+Visual Basic 6.0(SP5)で作成したセットアッププログラムが起動直後に以下のようなメッセージボックスを表示して終了してしまいます。
実行時エラー91 オブジェクト変数または Withブロック変数が設定されていません
ただし、開発環境(Visual Basic 6.0 & SP5)のインストールされたマシンで、
このセットアッププログラムを実行してインストールした場合、プログラムは正常に起動します。
開発環境の入っていないWin98マシンでこの現象が発生します。
顧客に納入するマシンのOSはWin98です。
動作を確認したマシンのOSと開発環境を以下に示します。
OS 開発環境(VB6.0 SP5)の有無 インストール結果
-----------------------------------------------------------------------------------------
Windows 2000 Professional(SP2) あり 正常起動
Windows 2000 Professional(SP2) なし 実行時エラー 91
Winsows 2000 Server(SP2) あり 正常起動
Winsows 98 SE あり 正常起動
Winsows 98 SE なし 実行時エラー 91
・このプログラムは、「標準EXE」と「ActiveX DLL」の２つのプロジェクトで構成されています。
・標準EXEから、ActiveX DLLで作成したDLLを呼び出して使用します。
以下にエラーが発生するソースの部分を記述します。
---polycomctrl.cls------ここから-----
Public WithEvents mwscSocket As Winsock
Public WithEvents mwscComm As MSComm
(略)
'====================================================================
' クラスのイニシャライズ
'
'
'
'====================================================================
Private Sub Class_Initialize()
Set mwscSocket = New Winsock '*** ここで実行時エラー91が発生
Set mwscComm = New MSComm
End Sub
(略)
---polycomctrl.cls------ここまで----
開発環境さえ入れればOSの種類にかかわらず正常に動作するので困っています。
どのようにすれば、この問題が解決するかご教示ください。
よろしくお願いします。
0863デフォルトの名無しさん
NGNGここはサポートじゃねーぞ
0864デフォルトの名無しさん
NGNG適当な事をいって申し訳無いが
>New Winsock
て所を見る限り、WinsockのDLLが無いorバージョン違いの
ような気がするんだけど・・・その辺調べてみたら？
0865デフォルトの名無しさん
NGNGお願いだから、勘弁してください。
仕事で、変数名と関数名が日本語で、しかも同じ名前使ってるソースとぶち当たりました。
正直、殴ろうかと思った。
0866デフォルトの名無しさん
NGNG変数はともかく関数が日本語ってスゲーね。
ひまわりでも使えっつーの。
0867mstr名無し
NGNG複雑な業務を表現したロジックだと用語を無理やり英語訳するよりいいんじゃ
ないの？
0868デフォルトの名無しさん
NGNGでもねー、タイプミスが増えそうだよな。
売上げ、売り上げ、売上
全部違う識別子でしょ。
0869旅人プログラマ
NGNGこれがそれぞれ変数定義されていたら、
それだけで十分に鬱になれるな…
0870デフォルトの名無しさん
NGNGPictureBox を重ねてスクロール出来る様にしたありきたりな
プログラムを作っているのですが、内側の PictureBox の
サイズをデスクトップのサイズよりも大きくした所、
AutoRedraw の機能がうまく働きません。（一部が欠けてしまう。）
Windows 98 SE でこの現象が発生します。
Windows 2000 では発生しません。
この辺の事、ご存知の方、いらっしゃいませんか？
0871デフォルトの名無しさん
NGNGそんなの英語だっていっしょジャン
0873デフォルトの名無しさん
NGNG0874デフォルトの名無しさん
NGNGWindows2000みたいなアニメーションで新しいフォームを表示させる方法を教えてください
0875デフォルトの名無しさん
NGNG0876デフォルトの名無しさん
NGNG｜formA ｜
｜┌――――――┐｜
｜｜text性別1 ｜｜
｜└――――――┘｜
｜ ┌――――┐｜
｜ ｜button1 ｜｜
｜ └――――┘｜
└――――――――┘
Private Sub button1_Click()
FormB.Show
End Sub
上記のように「button1」を押すと下記のformBが現れるようにしました。
formBは下記のようなフォームで、Data Environmentデザイナで
データベースから名前と性別と年齢を表示するようにしました。
┌――――――――┐
｜formB ｜
｜┌――――――┐｜
｜｜text名前 ｜｜
｜└――――――┘｜
｜┌――――――┐｜
｜｜text性別 ｜｜
｜└――――――┘｜
｜┌――――――┐｜
｜｜text年齢 ｜｜
｜└――――――┘｜
｜┌―┐ ┌―┐｜
｜｜戻｜ ｜次｜｜
｜└―┘ └―┘｜
└――――――――┘
やりたい事は、formAの「button1」をクリックした時にformAの「text性別1」の値をformBに渡し、
渡された値をキーにしてデータを表示させたいのです。
formAで「text性別1」に「男」と入力して「button1」を押すと
formBでは、「text性別」が「男」のレコードだけ表示させる
というような事です。
現在では、男も女もすべて表示されています。
データベースのテーブルは以下のような体裁です。
+--------------------+
| tbl客 |
|--------------------|
| 名前 | 性別 | 年齢 |
|------+------+------|
| ： | ： | ： |
| ： | ： | ： |
| ： | ： | ： |
+--------------------+
変数の渡し方や、Data Environment デザイナの使い方、SQL文への変数の渡し方等が
まだよく分かってないので教えてください。
0877厨房６３５号
NGNGサンプル作った。参考にしてくれ。
http://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE5.lzh
0878デフォルトの名無しさん
NGNGこれを参考に自分の環境用に編集してみます！
芸能界に詳しいんですね…(笑)
0879厨房６３５号
NGNGああなってしまったのよ(^^;
0880デフォルトの名無しさん
NGNGサンプルでは自分のマシンのデータベースを見に行っているのですが
他サーバーマシンのデータベースを見に行くようにするには
どうすれば良いのですか？？？
ADOを使うと思うのですが、どのようにすれば良いのか分からないのでよろしくお願いします。
0881デフォルトの名無しさん
NGNG0882デフォルトの名無しさん
NGNG死体置き場？
0883874
NGNG0884デフォルトの名無しさん
NGNG「Win2000みたいな」が具体的に何を指すのか不明。
0885デフォルトの名無しさん
NGNGPrivate Sub Timer1_Timer()
MyValue1 = Int((Rnd * 43) + 1)
Label1.Caption = MyValue1
End Sub
Private Sub cmdstop_Click()
timer1.enabled = false
こんな感じで乱数作ってボタンをおして止めました。
次に押した時に1回目に押した時の数字を除いた
乱数を作るのってどんなコード書いたらいいのですか？
Randomize ステートメントってどんな風につかっていいのか
よくわからないのですが、教えていただけないでしょうか？
0886デフォルトの名無しさん
NGNG1回目の数字覚えといて、それと同じ値が出たらもう一度乱数取得。
...でダメなのか？
0887874
NGNGスタートボタンを押した時に、出てくるメニュー見たいな感じにしたいのですが（
徐々に出てくるって感じで。。）
0888デフォルトの名無しさん
NGNG「15分間隔で計測したデータを1時間ごとのデータにしたり」など
そういう用途で使いたいと思うのですが，あまりよい本がありません．
純粋に「計算機」として利用したいのですが，もしよい考えをお持ちの
方がいらっしゃれば教えていただけませんでしょうか．よろしくお願い
いたします．
0889デフォルトの名無しさん
NGNG持たせるにはどうしたらよいでしょうか？
begintransでいいのでしょうか？
よろしくお願いします。
0892デフォルトの名無しさん
NGNGエクセルでブックをコピーして、元のブックとコピーしたブックを両方開いた状態で、
コピーしたブックのほうに処理をしたいのですが、GetSaveAsFileNameでファイル名を
入力させてSaveAsで保存すると、元のブックを乗っ取ってしまいますよね。
ファイルコピーでやると上書き確認が出てこないし（必要）
誰かお助けを～
0893デフォルトの名無しさん
NGNG連続で取得すると近くなります。
WINAPIのSleepで1でも値を取ると、近似値がぐっと減りますよ。
0894デフォルトの名無しさん
NGNGVB:6.0 Pro(SP5)
VBからAS/400にODBCで接続するためには
ドライバをインストールしないといけないのですか？
また、それはどこから入手できますか？(Web上からダウンロード可能？)
よろしくお願いします。
0896894
NGNG自分で作れと…(^^;
いろいろwebで調べてたのですが、ドライバは、アプリケーションを購入しないと
付いてこないらしい事が分かってきました。
ADOとODBCでの接続を考えていましたが、ドライバのインストール等の作業の必要のない
VB6.0Pro(SP5)のデフォルトの状態で、AS/400と接続する方法はないのでしょうか？
よろしくお願いします。
0897デフォルトの名無しさん
NGNGAS/400側にサーバーソフトを作って
socketで通信すればドライバなんかいらないよー
0898894
NGNGソケットを送り（取引先コード）、送られた取引先コードをキーに
データベース(AS/400)の内容を検索して、該当レコードを表示させたいのです。
0900デフォルトの名無しさん
NGNG意味がわかりません。
AS/400側のソフトは作れないってこと？
0901894
NGNG検索とかは、VBでアプリを作ってそれで行いたいって事です。
0902デフォルトの名無しさん
NGNGでは、なんらかのミドルウェアが必要でしょうね。
なんかDelphiならAS/400とネイティブ接続できるって
聞いたような気がするけど。
0903901
NGNGちなみにミドルウェアとおっしゃるのは
・DB2コネクト
・ClientAccess
・PCOMM 4.3
等が必要だという事でしょうか。で、だいたいいくらぐらいですか？
フリーでAS/400と接続出来るものは無いのですか？
0904デフォルトの名無しさん
NGNGただ、サーバー側の開発ができないのは
いろいろやれることが制限されそうだね。
0905デフォルトの名無しさん
NGNGこの辺で聞いてみたら?
0906874
NGNG0907デフォルトの名無しさん
NGNG884じゃ無いが。
いんちき臭いけどTimerコントロール使って
FormのHeightとWidthプロパティーを少しずつ増やしていけばいいんじゃない？
途中でタイマーを止めるようにしておかんといつまでも拡大しつづけるがな。
そんなことしてまでやるほどのもんではないが。
0908９０７
NGNG0909厨房６３５号
NGNG９０７の考えを参考にして、タイマーを使わない方法も考えてみた。
即席で作ったサンプルだから動きは雑だ。参考程度にしてくれ……。
http://www.geocities.co.jp/HeartLand-Hanamizuki/9764/SAMPLE6.lzh
0910デフォルトの名無しさん
NGNG0911９０７
NGNGへぼいPC使ったり、スワップしまくりの状況だと何もしなくても
タラタラとアニメーションしてるように見える。
今使ってる会社のPCはメモリ64MBでWin2Kを使ってVGAがPCIのミレ2だから
IEでも何でもアニメーション状に表示される。HDDアクセスしまくり｡(涙
0912デフォルトの名無しさん
NGNG冷やかしはお断り。
0913874
NGNGこんな感じでOKです。ありがとうございます
0914デフォルトの名無しさん
NGNGSHBrowseForFolderでフォルダを指定する関数を使ったのですが
マイネットワーク上にあるショートカットを指定するとリンク先
ではなくローカルのパス（ショートカット自身の位置）を
引っ張ってきちゃいます。それではとショートカットを参照する
関数を利用するも普通（？）のショートカットには有効の様でも
「フォルダのショートカット」では利用できません・・・。
なんとか正しいリンク先（\\PC\C\云々・・・）を取得する方法は
ないでしょうか？ご存知でしたらよろしくお願いします。
0915デフォルトの名無しさん
NGNGテキストボックス(スクロールバー)で、
Text1.text=Text1.text+"13" & VbNewLine & VbNewLine &
(間隔を置く変数)
Text1.text=Text1.text+"テスト"
と入力して実行すると、新しい文字列が表示されるたびに、
スクロールバーが一番上に戻ってしまいます。
スクロールバーを一番上に戻さない方法を教えてください
0916デフォルトの名無しさん
NGNG言いたいことががよくわからないが
とりあえずSelStart適当にせっていしてSelText使うべし
Text1.SelStart=Len(Text1.Text)
Text1.SelText="13" & VbNewLine& VbNewLine
(間隔を置く変数)
Text1.SelStart=Len(Text1.Text)
Text1.SelText="テスト"
動かしてないから動くか分からんがこれで試してみ
0917デフォルトの名無しさん
NGNGＢばっか
0918デフォルトの名無しさん
NGNGhttp://piza2.2ch.net/test/read.cgi?bbs=tech&key=1000523122&ls=50
はいどうぞ。
0919デフォルトの名無しさん
NGNG0920デフォルトの名無しさん
NGNGアクセスを起動した後にＶＢの画面を触ると、メッセージ画面が出てきますが、
その画面を出さないようにするにはどうしたらいいの？？
0921よ～
NGNGVB2とEXCEL97で開発しているのですがVBからEXCELの列幅を変更したいと
思い、COLUMN.WIDTHを使っているのですが引数に何を指定したらいいのか
解かりません。どなたか教えてくれませんか？
0922デフォルトの名無しさん
NGNGまじで、VB2なのか？
0923デフォルトの名無しさん
NGNGＶＢ２では、エクセルは扱えなかった気がするが記憶違いか？
0924デフォルトの名無しさん
NGNGVB2、Windows95にも対応してたかどうか・・
0925デフォルトの名無しさん
NGNG0926デフォルトの名無しさん
NGNG0927まる
NGNGプログラム内で解除→再読込する方法ってありますか？
0928デフォルトの名無しさん
NGNGVBがシングルスレッドだから普通にACCESSのプロシージャを呼ぶとそうなる。
ACCESS側の処理が完了するまでVB側のフォームを.Enabled = Falseにするか、
何とかして非同期コールバックを実現するしかない。
（ACCESS2000ならタイマが使えたかな？）
0929デフォルトの名無しさん
NGNGActiveX EXEにすべし。
参考資料
MSDNライブラリ
└（中略）-「Visual Basicの使用方法」
└-「ActiveX EXE コンポーネントの作成手順」
またはこちら↓
ttp://www.microsoft.com/JAPAN/developer/library/VBCon98/vbconcreatingoleserver.htm
0930顔
NGNGもってませんか？さっきHDDのパーティションきりなおしたら、まちがえてけして
しまった！
本家は消滅。
昔ミラーサイトがあったようなけどGoogleで検索してもみつからず・・・
0931顔
NGNG0932デフォルトの名無しさん
NGNG09331000!
NGNG0934名無しさん
NGNG0935デフォルトの名無しさん
NGNG0936jp
NGNG(たとえばボタン押したら2行目にジャンプさせる等)
APIにはなさそうなんですが。
0937jp
NGNG0938デフォルトの名無しさん
NGNGTipsサイトに腐るほどあるけどね
0939デフォルトの名無しさん
NGNGVB初心者質問スレPart3
http://pc.2ch.net/test/read.cgi/tech/1000523122/
0941ＶＢのＭＳＣｏｍｍ
NGNGＭＳＣｏｍｍに渡す直前にｌｅｎＢで実際の長さを調べると倍の７８バイト、
（これはＵＮＩｃｏｄｅの為だと思うのですが）
この文字列を実際に相手側が受信すると３９バイトで受信されているようなのですが
どうしてでしょうか？Ｗｉｎｓｏｃｋを使用しても同じ現象です。
結果ＯＫではあるのですが、理由が知りたいのでわかる人、教えて！
0942みゆ
NGNGこんどはVB6.0を勉強しようと思ってます。
VCで自作メッセージを作っていたのですが
VBではどのようにしたらいいのでしょうか？
VCの場合
独自メッセージ関数OnComm
ヘッダファイルに
long OnComm( WPARAM wParam, LPARAM lParam );
cppファイルに
BEGIN_MESSAGE_MAP(CTestPowerCTRLDlg, CDialog)
//{{AFX_MSG_MAP(CTestPowerCTRLDlg)
ON_MESSAGE( WM_USER_RXCOMM, OnComm )
//}}AFX_MSG_MAP
END_MESSAGE_MAP()
long CTestPowerCTRLDlg::OnComm( WPARAM wParam, LPARAM lParam )
{
CString s;
s = (LPSTR)lParam;
MessageBox(s);
return 0;
}
として定義し
呼び出すときは
SendMessge(WM_USER_RXCOMM,0,"S")
というようにできました．
また、他のアプリからでも
ハンドル(HWND)を使って
SendMessage(hwnd,WM_USER_RXCOMM,0,"S")
とよべました。
変な文章化もしれませんが
お願いします
0943デフォルトの名無しさん
NGNGVB房にはわからないよ。
0944デフォルトの名無しさん
NGNGVBでもSendMessageによる通信も出来るけど、BEGIN_MESSAGE_MAPなんて
ものは無いのでWindowProcとselect caseで処理しなければならない。
サブクラス化あたりを調べれば手がかりが見つかると思う。
0945ななし
NGNGGetExitCodeProcess と EnableWindow の2つのAPI関数を使えばできるはずです。
（Shellで起動した別プロセスが終了するまで、呼び出し元のアプリを使用不可にする）
0946デフォルトの名無しさん
NGNG0947946
NGNG0948まとれす ◆mato./AI
NGNG>>942
>>944の言うとおり、サブクラス化して受け取るのが一般的な方法だ。ほかには、
WM_SETTEXTをテキストボックスに投げてやって、Changeイベントで取得する、
ってのもある。
どちらにせよ、メッセージはプロセス間を越えて投げるには制限がある。文字列を
投げるときは、WM_SETTEXTやWM_COPYDATAを使うようにしたほうがいいな
>>945
それでもいいんだが、正しいやり方としてはIMessageFilterかなんかを処理する
らしい。詳しくは知らん
0949デフォルトの名無しさん
NGNGなんかマヌケ(w
0950みゆ
NGNGサブクラスによって、自作メッセージを追加できました。
ありがとうございます
もうひとつ御願いがあるのですが
メッセージを送ったとき引数 lParamに
文字列を入れてあるのですが、
メッセージを受け取る関数で処理すると
lParamが、文字列の最初の文字のアドレス値になっているようです。
だから、つねにその値は同じ値です。
これを、文字列にしたいのですが
教えてください
ちなみに関数内の処理は下のコードのようになります．
Label1のキャプションに文字列を表示させます。
Function OnCom _
(ByVal hWnd As Long, _
ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Dim a As String
' システムカラー設定の変更通知メッセージのときは
If uMsg = WM_USER_RXCOMM Then
a = lParam
Form1.Label1.Caption = a
End If
' オリジナルウィンドウプロシージャへメッセージを渡す
OnCom = _
CallWindowProc(glnglpOriginalWndProc, _
hWnd, _
uMsg, _
wParam, _
lParam)
End Function
0951まとれす ◆mato./AI
NGNGだから、文字列を送るのは駄目だ、って言ってるだろ？一部のメッセージを除いて、
プロセス間でユーザーデータを送るのは保障されてない。つまり、送ったポインタが
有効である保証はない
で、何がしたいのかわからないが、ポインタから文字列への変換は、RtlMoveMemory()
を使えばいいぞ
0952みゆ
NGNGってどうやって使ったらよいのですか？
いろいろ調べているのですが
どうも使い方がわかりません。
わがままですみません
0953デフォルトの名無しさん
NGNGプロセス間通信がしたいの？だったら他の方法を使えば？
0954みゆ
NGNGメッセージの部分の動作をいうと
VC++で作成したDLLを
VBで使用しようするアプリを作成してます
起動時にDLLにVBのハンドルをメッセージの種類(16進数で表したもの)
を送ってDLL内でがSendMessageで
SendMessage( hWnd, nWinMsg,0 ,(LPARAM)lpReadBuf );
でVB側にメッセージを飛ばしてます
hWnd:VBのハンドル(Me.hWnd)
nWinMsg:メッセージの種類
lpReadBuf:送信する文字列のポインタ
すみません。
0955デフォルトの名無しさん
NGNGVB側で読み込んだDLLなら同じメモリエリアだから普通に使えるはずだけど。
ポインタ渡されたら（APIビューワ使ってるならCopyMemoryで)自分の変数に
コピーすればいい。
0956まとれす ◆mato./AI
NGNG旧スレにこだわる理由はなんだ？
>>955が言うとおり、単にコピーすればいいだけだ。気をつけなくちゃいけないのは、
きちんとバッファを確保することと、VBからAPIで文字列を使うときはByValにする
ことぐらいだな。
0957Please
NGNGまたVB.NETではpngを標準でサポートしているのでしょうか？
0958デフォルトの名無しさん
NGNG旧スレに書くな。
0959デフォルトの名無しさん
NGNG//2ch日付取得（1970年からの秒数-9時間）
//現在の時刻(now)を渡してください
function TGikoSys.Get2chDate(aDate: TDateTime): string;
var
d1: TDateTime;
d2: TDateTime;
begin
d1 := EncodeDate(1970, 1, 1);
d2 := aDate - EncodeTime(9, 0, 0, 0);
Result := FloatToStr(Trunc((d2 - d1) * 24 * 60 * 60));
end;
はVB.NETでどう表現すればいいですか？
0960即レス
NGNG一応答えとくけど。Delphiだな？
'2ch日付取得（1970年からの秒数-9時間）
'現在の時刻(now)を渡してください
Function Get2chDate(ByVal aDate As Date) As String
Dim d1 As Date
Dim d2 As Date
d1 = #1/1/1970#
d2 = aDate - #9:00:00 AM#
Get2chDate = CStr(Int((d2 - d1) * 24 * 60 * 60))
End Function
こう。
もうちょっと短くできるが極力元コードと同じようにした。
#もう書き込むなよな。
0961デフォルトの名無しさん
NGNG0962デフォルトの名無しさん
NGNG0963デフォルトの名無しさん
NGNG0964デフォルトの名無しさん
NGNG0965デフォルトの名無しさん
NGNG0966デフォルトの名無しさん
NGNG0967デフォルトの名無しさん
NGNG0968デフォルトの名無しさん
NGNG0969デフォルトの名無しさん
NGNGC#とどう違いますか？
0970デフォルトの名無しさん
NGNGそんなことより、こんなところにもうじき１０００逝きそうなｽﾚがあるぞ！
0971デフォルトの名無しさん
NGNGあなたなんですか！
0972デフォルトの名無しさん
NGNGVB.NETははやりますか？
0973デフォルトの名無しさん
NGNG0974デフォルトの名無しさん
NGNG教えてください。
0975デフォルトの名無しさん
NGNG0976デフォルトの名無しさん
NGNGそんなものない。
0977デフォルトの名無しさん
NGNGVBで文字変数を使う限り、１バイト文字も２バイトで格納される。
出力の際は、シフトJISに変換され、１バイトになる。
0978デフォルトの名無しさん
NGNGVBを馬鹿にするな！
0979デフォルトの名無しさん
NGNG本ならある。サイトはてきとーに探せ。
http://www.amazon.com/exec/obidos/ASIN/0201702657/ref=ase_labsoftwareassoc/102-6826905-3994555
0980デフォルトの名無しさん
NGNG0981デフォルトの名無しさん
NGNG0982デフォルトの名無しさん
NGNG好きなを選べ
http://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=utf8&q=vb.net+design+pattern&lr=
0983デフォルトの名無しさん
NGNGまぁ英語でもかまわんけどな。
まぁ日本人のVB.NETレベルって低いからな。
デザパタなんて夢のまた夢ですか？
まぁ頑張れよ
0984デフォルトの名無しさん
NGNG「英語読めないから俺にとってデザパタは夢のまた夢」とすなおに言った方がいいよ。
まぁ頑張れよ
0985デフォルトの名無しさん
NGNG英語読めるけど？
日本人として恥ずかしくないか？
0986デフォルトの名無しさん
NGNGじゃあ。デザパタすりゃいいじゃん。
もしかして、周りの人間が英語読めないのか！？
そりゃ難儀だな。
0987デフォルトの名無しさん
NGNG0988デフォルトの名無しさん
NGNGVBの仕事がきたらデザパタ使わないで死んでください。俺は使うけど。
ん？使わないんじゃなくて使える環境にないのか。ｶﾜｲｿｳ
0989デフォルトの名無しさん
NGNG使 え な い と い う こ と で よ ろ し い で し ょ う か
0990デフォルトの名無しさん
NGNG0991デフォルトの名無しさん
NGNG0992デフォルトの名無しさん
NGNG＼ / ＼〇ノゝ∩ ＜ 1000取り合戦、いくぞｺﾞﾙｧ！！
＼ /三√ ﾟДﾟ) / ＼＿＿＿＿＿＿＿＿＿＿＿＿
＼ /三/| ﾟＵﾟ|＼
＼ ,,Ｕ （:::::::::::） ,,､,､,,, ＼オーーーーーーーッ！！／
＼ //三/|三|＼ ∧＿∧∧＿∧ ∧＿∧∧＿∧
1000ｹﾞﾄｰ ＼ ∪ ∪ ,,､,､,,, （ ） （ ） ）
∧∧ ≡≡≡ ＼ ∧∧∧∧∧ ∧＿∧∧＿∧∧＿∧ ∧＿∧∧＿∧
(ﾟーﾟ*) ､ ≡≡≡ ＜ 千 ＞ （ ） （ ） （ ）
O┬Oｃ ）～ ≡≡≡ .＜ 取 ＞
（＊）ι_/（＊） ≡≡≡. ＜ 予 り ＞
―――――――――――＜ 合 ＞―――――――――――――――
＜ 感 戦 ＞ ∧＿∧
い、今だ1000ゲットォ!! ＜ !! の ＞ 1000ゲットしますた （ ´Д｀ ）
.∧ ∧ ＝- /∨∨∨∨∨＼ ／, /
（ﾟДﾟ；） ≡＝- / ＼ (ぃ９ |
⊂┯⊂) ≡＝- / ＼ / /、
（ヽ＼ ヽ ） ≡＝- ./ ＼ / ∧_二つ
し＼Ｊ ＝- /今だ！１000ゲットォォｫｫ！＼ . / ￣￣ ヽ
（（￣(◎) ≡＝- / ∧∧ ） (´ ＼ / /~￣￣/ ／
. / ⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´ ;;;≡.＼ )⌒ ＿ ノ / ./
/ ￣￣ (´⌒(´⌒;;.＼ ＼ | / （ ヽ
.し ＼__つ
0993デフォルトの名無しさん
NGNG0994デフォルトの名無しさん
NGNG実際にVBの仕事がきても死ぬことも辞めることもできない罠
俺なら、もしVBの仕事がきたら死なないでデザパタつかうけどね。
0995デフォルトの名無しさん
NGNG, -─ - ､ 彡
/ ヽ
. l i ﾉ//_ﾉl_lヽ)）
! (ll （ l l ）ll) ／￣￣￣￣￣￣￣￣￣￣
彡 iﾆ>l|､'' (ﾌ ノl| ＜ 誰も・・・来ないですね。
. ,-ﾘ<┘└>ﾘ､ ＼＿＿＿＿＿＿＿＿＿＿
〈._､|￣￣￣￣!
| '| で V |
. | ! き B | 彡 (⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒⌒)
l_ｿ_! ま と .! ( 来るわけねーだろ ｳﾞｫｹ ! )
. 彡 (_ｱ| す か.|) （ ）
∠ﾍ────ゝ ｀～ ～～～～～～～～～ ～'
/ l ￣ー一￣､ Ｏ
ｻｧｰ… ／ｊ ! ｊ l | ｊ l.ヽ ∧＿∧ o
:::::::: ｀ ‐＝==＝==＝'´ （ (l) (l)） ﾆｬｰ
⌒ヽ ::::::::::::: | | ! l＞ﾛ＜l
人 ::::::::::::: | l ! / |
Y⌒ヽ）⌒ヽ ::::::::::ﾋ/⌒)⌒). ＼〈＿__.ﾉ
0996デフォルトの名無しさん
NGNG0997デフォルトの名無しさん
NGNG0998デフォルトの名無しさん
NGNG/ '; / ';
/ ；＿＿＿＿＿＿/ ；
／ ＼ 997ﾜｼｮｰｲ
／ ／ ＼ ＼
/´ ( ) |＿＿＿＿| ( ) |
| ///// ( | :| ) ///// |
| ( ) :| | ( ( |
| ) ( | | ) ) |
| ( ) '; / ( ( ／
＼ ) ( ＼／ ) ) ..／
ヽ ........:::::::
0999デフォルトの名無しさん
NGNG/ '; / ';
/ ；＿＿＿＿＿＿/ ；
／ ＼ 阪神ﾜｼｮｰｲ
／ ／ ＼ ＼
/´ ( ) |＿＿＿＿| ( ) |
| ///// ( | :| ) ///// |
| ( ) :| | ( ( |
| ) ( | | ) ) |
| ( ) '; / ( ( ／
＼ ) ( ＼／ ) ) ..／
ヽ ........:::::::
1000デフォルトの名無しさん
NGNG/ '; / ';
/ ；＿＿＿＿＿＿/ ；
／ ＼ 阪神ﾜｼｮｰｲ
／ ／ ＼ ＼
/´ ( ) |＿＿＿＿| ( ) |
| ///// ( | :| ) ///// |
| ( ) :| | ( ( |
| ) ( | | ) ) |
| ( ) '; / ( ( ／
＼ ) ( ＼／ ) ) ..／
ヽ ........:::::::
1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。