(*´д`*)ﾊｳｧｯ… VB初心者質問スレ Part16
レス数が1000を超えています。これ以上書き込みはできません。
0001エロチカセヴン
NGNG悪いことは言わないから（ｗ）、転職、または他部門への異動を真剣に
検討して頂きたい。技術のない技術者（言葉が矛盾しているが ｗ）の
存在は、顧客にとっても、同業者にとっても、迷惑（足手纏い）以外の
何者でもない。
Part11 http://pc.2ch.net/tech/kako/1024/10243/1024380249.html
Part12 http://pc3.2ch.net/test/read.cgi/tech/1026642565/
Part13 http://pc3.2ch.net/test/read.cgi/tech/1029241786/l50
Part14 http://pc3.2ch.net/test/read.cgi/tech/1030947162/
Part15 http://pc3.2ch.net/test/read.cgi/tech/1032706491/-100
Win32 API関連スレ
Win32API 質問箱 Build4
http://pc.2ch.net/test/read.cgi/tech/1023361418/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでOK。
４．インストーラーなどの質問もOK。
五．下ネタもたまにならOK
0002エロチカセヴン
NGNGPart 2 http://piza.2ch.net/tech/kako/990/990793224.html
Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
Part 5 http://pc.2ch.net/tech/kako/1010/10106/1010624646.html
Part 6 http://pc.2ch.net/tech/kako/1013/10138/1013844542.html
Part 7 http://pc.2ch.net/tech/kako/1015/10158/1015836357.html
Part 8 http://pc.2ch.net/tech/kako/1018/10187/1018794901.html
Part 9 http://pc.2ch.net/tech/kako/1020/10208/1020830472.html
Part10 http://pc.2ch.net/tech/kako/1022/10221/1022127528.html
0003デフォルトの名無しさん
NGNG乙
0004デフォルトの名無しさん
NGNGもちろんユーザ登録したぞゴルァ。
0005デフォルトの名無しさん
NGNGほとんどVB＋ORACLEしか使っていない部署で働く
↓
デスにより、否デスでも精神的に向いてない
↓
この業界から足を洗いたい
↓
退職を決意し退職
↓
他業種を探すがこのご時世なので仕事が無い
↓
結局この業界の戻る
↓
しかも中途半端な技術＋VBしかできないので結局VBの仕事をやらざるをえない。
↓
上に戻る
てなやつがいっぱいいるとｵﾓﾜﾚ
この業界の体質を改善しないとVB厨は増えつづけると思うよ。
今後もっとね。
0006デフォルトの名無しさん
NGNGかわいそうだな。まあ気を落とさずに頑張れよ。
0008デフォルトの名無しさん
NGNGSplit。
Splitの戻り値はStringじゃないと駄目な筈だから
Split使った後Intの配列にでも入れれば？
0009897
NGNGこのスレちんかすばかりなんでしょ？
VB止める前に人生やめたら？
ぷ
0010D
NGNG一寸叩かれ気味ですねぇ。ヘルプ見て分かんなかったらこれ読んでみたら？
VisualBasic5.0ブリーフィング 翔泳社
分かりやすく書いてあったと思う（知り合いにあげてしまったのであまり覚えてないです）。
0011デフォルトの名無しさん
NGNG初心者スレにしてそのコピペか。
荒れる予感
0012デフォルトの名無しさん
NGNGつーか言われるまで気づかなかった。
0013デフォルトの名無しさん
NGNGdim a as long
a = 1.9
このとき a は ２
そこで
Cintのヘルプは丸めるって書いてあったのをみて。
dim a as long
a = cint (1.9)
このとき a は ２
むかついたので「切り捨て」をヘルプで検索
VBのヘルプが出てこない。基本的なことだと思うのですが、
ヘルプに切捨てがのってないなんて・・・・。
0014デフォルトの名無しさん
NGNGまぁ落ち着いてヘルプ調べろよ。
0015デフォルトの名無しさん
NGNGDim i As Integer
i = Int(1.9)
MsgBox i
0016デフォルトの名無しさん
NGNGhttp://ws.31rsm.ne.jp/~pension/access/ota2000/c42.htm
できました。ありがとうございました。
0018デフォルトの名無しさん
NGNG>>15
>>16
絶対HELPに乗ってると思ってわざとGoogleしらべなかったんです。ごめんね
しかしこのINT関数FIX関数？ヘルプをどう落ち着いて検索すればかかるのよ。
相変わらずMSDNのできのよさに脱帽しました。
0019デフォルトの名無しさん
NGNG気にしてないならまあいいか
0020デフォルトの名無しさん
NGNG0021デフォルトの名無しさん
NGNGActiveControlプロパティーがそれかな？と思ったけどなんか違うみたいです。
0022デフォルトの名無しさん
NGNGヘルプ嫁
002321
NGNGもっとスマートな方法はないですよね？
0024デフォルトの名無しさん
NGNG0025デフォルトの名無しさん
NGNG0026pop ◆CSZ6G0yP9Q
NGNG使い方が変わったみたいなのでよくわかりません。
ホームページ、本なども調べたのですが見つかりません。
よろしくお願いします・
0027デフォルトの名無しさん
NGNG顔文字変えろよバカ
0028デフォルトの名無しさん
NGNG顔文字お宅は心でください。お願いします。
0029デフォルトの名無しさん
NGNGつれた！！
0030デフォルトの名無しさん
NGNG>>18
MSDNで、”切り捨て”でイッパツだったぞ。
MSDNのできのよさ云々を語る前に自分のできのよさを疑えよ。
まあ、それが出来ないからヘルプを見る事もできないんだろうけど。
0031デフォルトの名無しさん
NGNG初心者版でそんなに厚くなっても
0032デフォルトの名無しさん
NGNG0033デフォルトの名無しさん
NGNG0034デフォルトの名無しさん
NGNG作成したチェック関数の一部なのですが、
10文字以上入力されたら以降を切り取る仕様です。
ただし、10Byte目と11Byte目にまたがって
漢字を入力された場合の処理に困っています。
'Str=テキストボックスに入力された文字列です。
'長さが制限バイト数(10Byte)を越えている場合
If LenB(StrConv(Str, vbFromUnicode)) > 10 Then
Str = Trim(StrConv(MidB(StrConv(Str, vbFromUnicode), 1, 10), vbUnicode))
↑この処理だと漢字の前1Byte(前から数えて10Byte目)に残っている
ごみバイトをUnicodeに変換する際、スペースに変換されるので
Trimでスペースを省かれ、とりあえずは仕様どおり仕上げることができました。
ですが、漢字の前1ByteのごみをUnicodeに変換する際、StrConv関数が
必ずしもスペースに変換するとは思えないのでどうしても納得行きません。
アドバイスいただけませんか？他にこんな方法がある、とかでも嬉しいです。
長文失礼しました、よろしくお願いします。
なお、実装はAccess97でのVBAなのでなぜだかテキストボックスに
MaxLenプロパティがないです。
003534
NGNG補足です、言葉が足りませんでした。
漢字がまたがってしまった場合は、
漢字ごと(9Byte)で切り捨てたいです。
上手く説明できているか不安ですが、よろしくお願いします。
0036デフォルトの名無しさん
NGNGアスキーコードなら1バイト目を調べて漢字かどうか判定できる。
10バイト目をみて漢字かどうか調べて幹事のときは早めに予約すればいいのでは？
0037デフォルトの名無しさん
NGNG文字コード見れば簡単じゃん。シフトJIS調べて味噌
0038デフォルトの名無しさん
NGNG発見！
http://www.hidecnet.ne.jp/~sinzan/tips/etc/etc_tip08.htm
003934
NGNGとりあえず言われた方向で調べてみます。
また報告に来ますね。
ありがとうございました。
0040デフォルトの名無しさん
NGNGもうくんな。氏ね。
0041デフォルトの名無しさん
NGNG0042デフォルトの名無しさん
NGNG0043デフォルトの名無しさん
NGNGじさくじえーん
004434
NGNGあと、最後の疑問点なんですが、
Windowsでテキストボックスに入力される文字は
全てシフトJIS(MS漢字)コードと思っていいのでしょうか？
Unicodeってないですよね？
>41
プログラマーの見習いです。
これからがんばります。。
0045デフォルトの名無しさん
NGNG会社の先輩プログラマーに聞けばいいのに。
答えは微妙。少なくとも今やっている取得方だとシフトJISと思ってていい。
0046デフォルトの名無しさん
NGNG実行すると「パスが違う｣と怒られます。助けてください。
-- 以下ソース --
Private Sub Command1_Click()
ChDrive Drive1
ChDir Dir1
On Error GoTo Errorhundra
Kill "*.tmp"
Exit Sub
Errorhundra:
MsgBox "tmp file was nothing there."
End Sub
0047デフォルトの名無しさん
NGNGパスが違うのでは？
デバッガで動かして値を確認してみそ。
0048デフォルトの名無しさん
NGNG何なのこれ？ワイルドカード使えるの？
0049デフォルトの名無しさん
NGNGｳｨﾙｽでつか？
0050デフォルトの名無しさん
NGNGKill 関数を使って、ディスクからファイルを削除するコード例を次に示します。
' Assume TESTFILE is a file containing some data.
Kill("TestFile") ' Delete file.
' Delete all *.TXT files in current directory.
Kill("*.TXT")
VB.netでは少なくとも使える
005148
NGNG0052デフォルトの名無しさん
NGNGVB6に決まってるだろ。ぼけぇ。
0053デフォルトの名無しさん
NGNGあとChDrive Drive1は要らないと思われ
0054デフォルトの名無しさん
NGNGいらないけどあっても問題ない。そのせいではない。
005534
NGNG実は会社で使いまわしているコードが
>34に書かせていただいたやつなのです。
見せていただいて｢ほんとにこれでいいの？？｣っていう
気持ちが消えなくて今日帰宅、書き込みさせていただきました。
まぁ小さな会社ですので仕方ない？などと思っています。
0056デフォルトの名無しさん
NGNG> あとChDrive Drive1は要らないと思われ
要ります。
0057デフォルトの名無しさん
NGNG0058デフォルトの名無しさん
NGNG動かない。VB5用のランタイムが必要。
0060デフォルトの名無しさん
NGNG君は泳ぎ方を覚えずにいきなり飛び込み台からダイブするやしか。
>>26
作れないわけではないが、.netでActiveXを何で作りたいの？
.netでそんなあほなことはする意味なし。
006153
NGNGSub Drive1_Change() 内に
Dir1=Drive1
が無い場合にエラーを起こす原因になると思います
0062デフォルトの名無しさん
NGNGそれ以前に、
> ChDir Dir1
このディレクトリとは別のドライブが
カレントドライブになっていた場合どうすんの？
006353
NGNGChDrive入れないとApp.pathでちゃんと
ドライブ移動してませんでした。スイマセン
0064デフォルトの名無しさん
NGNGカーソルがはずれても発生するようにする方法があった気がするのですが。
たしか1行ぐらいちょっと追加するだけだった気がしますが思い出せません。
0065デフォルトの名無しさん
NGNG0066デフォルトの名無しさん
NGNGAPIだかVBの機能だかさえ忘れてました
0067_
NGNGA() = A() & B()
とかやってもエラー出ます
0068D
NGNGPrivate Sub Command1_Click()
Dim a(1000) As Byte
Dim B(10) As Byte, i
For i = 0 To 10
a(i) = i
Next i
B(0) = 100
CopyMemory a(11), B(0), UBound(B) + 1
End Sub
こんな感じ?
0069D
NGNGPrivate Sub Command1_Click()
Dim a(1000) As Byte
Dim b(10) As Byte, i
For i = 0 To 10
a(i) = i
Next i
b(0) = 100
CopyMemory a(11), b(0), UBound(b) + 1
End Sub
a(11)以降にb()の内容が入ります。
こんな感じ?
0070D
NGNG0071897
NGNGおかげさまでユーザーコントロールでコントロールの作成ができたんですけど、
あと一歩のところで躓いてます
カーソルがコントロールの上にあるか調べたいのですが
１．親フォームがコントロールのプロパティーを変更する
２．コントロール内でSetCaptureを使ってどうにかする
３．コントロール内でGetCursorPosを使ってどうにかする
どれがよいでしょうか？
できたら１はさけたいんですが。
2はやってみたところ、他の同一コントロールとSetCaptureがかぶってしまうようで
うまくいかないっぽいです。
0072897
NGNG２のSetCaptureでできました。
0073897
NGNGPrivate m_Font as Font
Public Property Get Font() As Font 'Font
Set Font = m_Font
UserControl_Resize 'コントロールを描画
End Property
Public Property Set Font(ByVal fFont As Font)
Set m_Font = nFont
PropertyChanged "Font"
End Property
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set Font = .ReadProperty("Font", Ambient.Font)
End Sub
Private Sub UserControl_Resize
～描画～
End Sub
ってな風にしてるんだけど、実行中にFontプロパティーを設定しても反映されない
いや、されているんだけど、UserControl_Resizeが実行されてなくて描画されない
どこがいけないのかなぁ。
0074897
NGNGPublic Property Get Font() As Font
と
Public Property Let Font(fFont as Font)
だとプロパティー取得時にGetが、設定時にLetが呼び出されるんですよね？
Letの代わりにSetにするとなんかどうにもよくわかりません。
ぱっと見Setは一度も呼び出されない感じですが・・
そして設定時にもGetが呼び出されるようだし。
どうなっているのでしょうか？
0075
NGNGBitbltで表画面に描いても、反映されるのは
Form1.mainscreen.Refreshするとか
Form1.mainscreen.Hide から.Showとかしないと駄目でした。
（mainscreenはPictureBox）
とすると、いちいち裏画面に描く必要も無いのでは？
と思うが、何かおかしいでしょうか？
ちなみにＣのスクリプトYaneuraGS2kより２割ほど遅いだけなので捨てがたい。
ＶＣ持ってないし。
それからBitBltより高速化したＡＰＩはどっかに無いの？
0076デフォルトの名無しさん
NGNGReDim a(10) As Byte
Dim b(20) As Byte
a = CStr(a) & CStr(b)
0077デフォルトの名無しさん
NGNGProperty Setでは、呼び出し元の方にも
Setステートメント付けてる？
0078897
NGNG呼び出し元ってプログラムの方でしょうか？
OriginalControl.Font="Arial Black"
ってな感じですが。
0079デフォルトの名無しさん
NGNG> 呼び出し元ってプログラムの方でしょうか？
そう。
Property Set Font(fFont As Font)
としているなら、呼び出し元は
Set OriginalControl.Font = [Fontオブジェクトへの参照]
ではないの？
それと >>73の
> Public Property Set Font(ByVal fFont As Font)
> Set m_Font = nFont
はスペルミスだよね。
0080897
NGNG他のサンプルを見る限り。
> Public Property Set Font(ByVal fFont As Font)
> Set m_Font = fFont
こうですね。
0081デフォルトの名無しさん
NGNG> 他のサンプルを見る限り。
おいおい、何言ってんの？
0082897
NGNGむ、勘違いかな？
呼び出し元＝オリジナルコントロールが貼り付けてあるフォーム
でOKかな？
0083デフォルトの名無しさん
NGNG> そうでもないような。。
これは何の話のこと？
0084デフォルトの名無しさん
NGNG897の脳内に存在するﾊﾟﾗﾚﾙﾜｰﾙﾄﾞです
0085897
NGNG>Property Set Font(fFont As Font)
>としているなら、呼び出し元は
<Set OriginalControl.Font = [Fontオブジェクトへの参照]
>ではないの？
のこと。
ようやく分かってきた～！！
プロパティーを変更するとまず
Public Property Get Font() As Font 'Font
Set Font = m_Font
End Property
が呼び出されて、Font=m_Fontがセットされる。
上のプロパティーが実行された後、m_Fontが指定したプロパティーの値になる
ってかんじかなぁ？
Debug.Printで見てたらそんな感じだった。
っていうかもうわけわけがわからなくなりました
回答に耳を傾けようとせずに１人でオナニー報告なら
ここに書き込む必要はないと思うが。
はっきり言ってウザい。
0087897
NGNG/プログラム本体/
Private Sub Command1_Click()
OriginalControl.Font="Arial"
End Sub
/コントロール/
Public Property Get Font() As Font
Set Font = m_Font
Debug.Print m_Font ' Debug.Print Fontでも同じ？？
End Property
で、プロパティーに指定した値が表示されればいいんですよ。
上のだと、指定する1個前の値が表示されます。
他のサンプルを見ると上の中に
Set hogetext.Font = m_Font
ってのが入っていてそこで変更されるのでOKなようです
自分が作っているのはラベルとか使わないで自分で描画するものなので、
この方法は使えないと思うのですが。
0088デフォルトの名無しさん
NGNGフォームを全画面表示しないでウィンドウ表示として画面いっぱいにフォームを表示させたいです。
0089デフォルトの名無しさん
NGNGそれとも右か左にタスクバー置いてんのか？
まあどっちにしてもタスクバーのウィンドウハンドルを取得してGetWindowRect汁。
0090デフォルトの名無しさん
NGNGGetSystemMetrics
0091897
NGNG>>88
SysInfo OCXってのをつかってもできるようですがまぁAPIを使って
SystemParametersInfo
と引数SPI_GETWORKAREAで取得できるようです。
0092897
NGNGってか3人ともAPIが違う（ｗ
0093デフォルトの名無しさん
NGNGタスクバーっていっぺんに上下左右すべてにおくことが出来るの知ってるのか？
まぁ正確にはタスクバーといわんかも知れんが。
009488
NGNG縦幅と横幅をあわせて幅と言ってしまってました。
指摘どおり
GetSystemMetrics
GETWORKAREA
を調べてみます。
こちらはavailable.widthのようなかんじなのかな、
と予想してキーワードavailableで探していたのですがそれではなかったみたいです。
0095デフォルトの名無しさん
NGNGだから79が指摘してるだろ。
> OriginalControl.Font="Arial"
の部分が間違ってるんだよ。
これでもわからん？
お前のコードはFontをセットしてるんじゃなくて
Fontを参照してからそのNameプロパティを設定してるんだよ。
009688
NGNGもやってみます。
0098デフォルトの名無しさん
NGNG聞く耳を持たないバカなんだから放置しとけ。
0099897
NGNGそれやるとオブジェクトが必要ですって表示されるんですが。
じゃぁSet Original～～じゃなくて
Original～～だけでOKにするにはどうしたらよいのでしょう？
>>98
聞いてますよ。
010095
NGNG> それやるとオブジェクトが必要ですって表示されるんですが。
そりゃオブジェクトを指定してないからだろ。
お前がやりたいことは
Fontのセット
フォント名(Font.Name)の指定
このどっちなのよ？
Fontのセットなら多分 Set Original～～じゃないと無理。
フォント名の指定だけなら Property Getだけでできる。
0101897
NGNGフォントのセットです。
＞Fontのセットなら多分 Set Original～～じゃないと無理。
これがどうにも意味わからんです。
他のサンプルみるとそんなの使ってないし。
010295
NGNGProperty SetでなくProperty Letで宣言すれば
Set無しで代入可能だな。
ただその場合も代入元には文字列でなく
Fontオブジェクトを指定しないといけない。
010388
NGNG指示されたキーワードで調べていくうちに
ttp://hp.vector.co.jp/authors/VA013031/tips/api001.htm
このページに出会ったのでコピペして実行してみたところできました。
0104897
NGNGええ。最初はLetでやってたんですけど
デザイン時のプロパティーのフォントの項目って、
コモンダイアログから選択できるようになってるじゃないですか。
Public Property Let Font(fFont as Font)
でやってOrigonalControl.Font～でやるとオブジェクトが必要ですってでるので
（っていうかオブジェクトについてよく分かっていない）
他のサンプル見るとどれもPublic Property Set Font(fFont as Font)
となっているのでまねしてみたのですが。
0105897
NGNG＞コモンダイアログから選択できるようになってるじゃないですか。
で、LetじゃなくてSetでやるとそれができるようになりました。
010695
NGNGなんか今イチ意味がわからんけど、
> Public Property Set Font(fFont as Font)
これが普通だと思うし、こう宣言したなら
Set OrigonalControl.Font =
にしろよ。
一体Setの何が不満なの？
サンプルではSetを使ってないと言うならそのサンプルを上げてみ。
0107デフォルトの名無しさん
NGNGポインタ知らないと扱える代物じゃない。
0108デフォルトの名無しさん
NGNGオブジェクト指向とポインタにいったい何の関係が？
ポインタでつまずいたの？
0109デフォルトの名無しさん
NGNGshell や call では上手くいかないようです。
messege.exe open (openが引数)みたいにやりたいんだけどダメ？
0110デフォルトの名無しさん
NGNG0111897
NGNG’プログラム本体
Private Sub Command1_Click()
uctUDText1.Font = "Arial Black"
End Sub
’ユーザーコントロール
Private pFont As Font 'フォント
Private Sub UserControl_Initialize()
Set pFont = Text1.Font
Text1.Text = 10
End Sub
'プロパティの値を読みこみ
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Set pFont = PropBag.ReadProperty("Font", pFont)
Set Text1.Font = pFont
End Sub
'プロパティの値を保持
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Font", pFont
End Sub
Public Property Get Font() As Font
Set Font = pFont
End Property
Public Property Set Font(mnewFont As Font)
Set pFont = mnewFont
Set Text1.Font = mnewFont
PropertyChanged "Font"
End Property
これだとばっちりです。
これはTextコントロール上に文字を表示していますが、そうじゃなくて自分で文字列を描画します。
具体的にはText1.textがUserControl.Paintになるかんじです
011295
NGNGだから上で書いたようにそのコードの
> uctUDText1.Font = "Arial Black"
というのはFontをセットしてるわけじゃなくて、
Fontを参照してそのNameプロパティを設定してるだけなんだよ。
> Public Property Set Font(mnewFont As Font)
このプロシージャは全然使われてないんだよ。
011395
NGNG0114897
NGNGなるほど。ようやく意味が分かりました。
Setの部分はデザインモード用ですね。
で、Textコントロールを使わず、
自分で描画するようにすると1回分遅れて反映するのですが、どうすればよいのか・・
0115デフォルトの名無しさん
NGNG> Setの部分はデザインモード用ですね。
わかってねーな。
0116897
NGNGむ、その通り。わかってないです
0117D
NGNG平たく言うとフォント変更時にイベントを発生させるにはstdFontオブジェクトを
WithEvent 付きで宣言する必要があります。
これでFontChangedイベントが発生するようになります。詳しくはMSDNで
ここからは>>897の本文からの予想です。
独自のコマンドボタンを作りたいようなので以下を参考にしてみてください。
MSDNとは違いますが。
手法－ユーザコントロールにLabelコントロールを貼り付けFontを変更する。
コントロール名はlblCaptionにします（紛らわしいけど）あとAlignment
を中央揃え.背景を透明にしておきます
つづく
0118D
NGNGPublic Property Get Font() As StdFont
Set Font = UserControl.lblCaption.Font
End Property
Public Property Set Font(ByVal vNewValue As StdFont)
Set UserControl.lblCaption.Font = vNewValue
With UserControl.lblCaption ’ラベルの縦位置を中央に
’念のため空にならないように...
.Height = UserControl.TextHeight(UserControl.lblCaption.Caption & "X")
.Top = (UserControl.Height - UserControl.lblCaption.Height) / 2
End With
PropertyChanged "Font"
End Property
Private Sub UserControl_Resize()
With UserControl.lblCaption ’ラベルの縦位置を中央に
’念のため空にならないように...
.Height = UserControl.TextHeight(UserControl.lblCaption.Caption & "X")
.Top = (UserControl.Height - UserControl.lblCaption.Height) / 2
.Width = UserControl.Width
.Left=0
End With
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
PropBag.WriteProperty "Font", UserControl.lblCaption.Font, Ambient.Font
End Sub
これならフォントの初期化はラベルコントロールがやってくれます。
かなり偏った予想ですがFontについてはこれでいけるんじゃないんですか？
思いつきなんで自信ないです突っ込み求ム
0119897
NGNGおおおこれですこれ！！
続きの部分、わざわざ申し訳ありませんでしたが、使うまでもなくできました。
ありがとうございました。
0120D
NGNGhttp://www.oak.dti.ne.jp/~niku/R3_temp.swf?inputStr=%82%BF%82%C6%8E%63%94%4F%81%49
Public Function GetLupin(DT As String)
Dim Buff As String
For i = 1 To Len(DT)
Buff = StrConv(Mid(DT, i, 1), vbFromUnicode)
If LenB(Buff) = 1 Then
GetLupin = GetLupin & "%" & Trim(Hex$(AscB(Buff)))
Else
Buff = Format$(Hex$(AscW(Buff)), "@@@@")
GetLupin = GetLupin & "%" & Right$(Buff, 2)
GetLupin = GetLupin & "%" & Left$(Buff, 2)
End If
Next i
End Function
0121897
NGNGワラタ
0122デフォルトの名無しさん
NGNGぽかぽか落ちるのは何故っすか？
XPのSP1入れたあたりから異様に落ちやがります。
0123デフォルトの名無しさん
NGNGVB.NET買えというMSからのメッセージです。
0124デフォルトの名無しさん
NGNG0125デフォルトの名無しさん
NGNG0126デフォルトの名無しさん
NGNG＞透明レイヤー
VBユーザは何の前提も無くすぐこういう言葉を使う。
だからDQNだと言われるんだ。
0127デフォルトの名無しさん
NGNG126ではないが言葉の意味を咀嚼して書いて欲しい。
0128デフォルトの名無しさん
NGNGってどこ行くの？
0129デフォルトの名無しさん
NGNG10行目？
0130デフォルトの名無しさん
NGNGOn Error Resume Nextを無効にするの
0133デフォルトの名無しさん
NGNG遙か昔はどこにでも飛んで行けた。ある意味最強の制御構造。
0134128
NGNGへぇ 最近のVBじゃ封印されたのか
-----------------------------------
（ヘルプより）
GoTo line
引数 line は必ず指定します。引数 line には、任意の行ラベルまたは行番号を指定します。
------------
ラベルはコロンをつけるやつだけど、行番号とはなんや？
0135デフォルトの名無しさん
NGNG使えるのか・・・行番号。さすがBASIC
0137デフォルトの名無しさん
NGNG0138128
NGNG1行目って言うと、
Formモジュールの先頭からかあ。
番号重複せずに行番号つかうのもめんどそうだなあ。
確かにプロシージャレベルだと
Command1.10
ってかんじに10行目を指定するはずだものね。
0140デフォルトの名無しさん
NGNG↓のことでしょ。
Sub Main()
10 GoTo 30
20 MsgBox "A"
30 MsgBox "B"
End Sub
0142デフォルトの名無しさん
NGNG0143デフォルトの名無しさん
NGNG20
30
・・・
なんともいえずいい味だしてる。
0144デフォルトの名無しさん
NGNG昔は行番号がいやでいやで、エディタでプログラム書いて
あとから番号付けるプログラムに入れてソース作ってたよ。
0145デフォルトの名無しさん
NGNG0146デフォルトの名無しさん
NGNG0147デフォルトの名無しさん
NGNGGOTOは使わない方向で？
0148デフォルトの名無しさん
NGNG当時は行番号のないプログラムってのが理解できなかった
0149デフォルトの名無しさん
NGNG0150デフォルトの名無しさん
NGNGgosubを使う。ラベル張って。
N88BASICの頃だよ。
0151デフォルトの名無しさん
NGNGうんうん、厨房の頃FORとかWHILEとか使わず全部IFとGOTOでやってたんで。
今考えるとあのときは才能に満ちあふれてたなぁ・・・それが今はどうだ・・・。
0152デフォルトの名無しさん
NGNG0153デフォルトの名無しさん
NGNGいやまったく。
0154デフォルトの名無しさん
NGNG0155デフォルトの名無しさん
NGNG0156デフォルトの名無しさん
NGNGをインストールしてしまいました。
おかげでMDACが正常にインストールできないんですが誰か直す方法知ってます？
0157デフォルトの名無しさん
NGNG0158デフォルトの名無しさん
NGNG0159デフォルトの名無しさん
NGNGデバッグしていったり 機能追加していくと その １０の中を１ ステップずつで やってたりして
苦労したよなぁ。
で、よく 行番号を最初から 振りなおさせたりしてよ、意味ねぇじゃんかってカンジ～
0160デフォルトの名無しさん
NGNG0161デフォルトの名無しさん
NGNGLabel1.Caption = Label1.Caption & 改行
0162
NGNG0163デフォルトの名無しさん
NGNGvbCrLf か ありがとう
0164デフォルトの名無しさん
NGNG0165デフォルトの名無しさん
NGNGありますか
0166デフォルトの名無しさん
NGNG好みで使い分けろ
0167デフォルトの名無しさん
NGNGここまでヒントもらったんだから後は自分でやったら
0168デフォルトの名無しさん
NGNGありがとうございました。
0169デフォルトの名無しさん
NGNG0170デフォルトの名無しさん
NGNGDim b as Long
a = &HFFF
b = &HA0A0
b = b Or (&H100000 * a)
予定ではこうなるはずが b = &HFFF0A0A0
オーバーフローになります
どうすればいいんでしょうか？
0171デフォルトの名無しさん
NGNGLong型整数の取りうる値の範囲を16進表記で調べてみるといい。
0172デフォルトの名無しさん
NGNG桁そろえて文字列としてくっつけとくとか。
&H100000 * aがLongに収まらないのでアウト。
&H表記はLongの範囲まで。
OrもLongまで。
0173デフォルトの名無しさん
NGNGあるいは、Byte配列に小分けに入れておいて、バイト単位で論理和を
取るとか。いぜれにせよ、でかい桁は自前で処理。
0174なつみ
NGNGDocmd.Domenultem acFormbar，acEditMenu，8，，acMenuVer70
Docmd.Domenultem acFormbar，acEditMenu，6，，acMenuVer70
Docmd.setwarnings True
Docmd.close
この部分なのですが、今一なにをやろうとしてるのかが分りません
。Docmd.Domenultemは現在、Docmd.Runcommand に変わっているのは分っている
のですが・・・。
それでも今一なにをやろうとしているのかが分りません。
どなたかお願いいたします。
0175デフォルトの名無しさん
NGNGＶＢはインタプリタでないのにエミュレータより遅いのは何故？
ＶＢのコーディングで何が一番ネックで何に気をつければいいんでしょう？
スーファミ時代のアクションゲームくらい出来ませんか？
0176デフォルトの名無しさん
NGNGエミュレータより遅いってどうやって判断したの？
GDIではなく大半のエミュレータ・ゲームで使用しているDirectXを
使えばVBでも十分早いと思いますが。
0177１７５
NGNGDirectXはやった事ないけど、BitBltより速いの？
0178デフォルトの名無しさん
NGNGダブルバッファぐらいやってるよな。
0179１７５
NGNG裏画面描きの事かな？
それとも描画をパスする事かな？
どっちもやってないけどそれよりもスクロールだけでも遅い。
0180デフォルトの名無しさん
NGNGもしかしてちらつきの原因は遅いからだと思っている人？
0181デフォルトの名無しさん
NGNG<a name="a1"></a><dt><a href="menu:1">1</a>
<a name="a2"></a><dt><a href="menu:2">2</a>
<a name="a3"></a><dt><a href="menu:3">3</a> を
↓
<dt>1
<dt>2
<dt>3 に変換したいんですが、この場合は正規表現を使わないといけませんか？
もしよろしければサンプルコードを書いていただければ助かります。
さすがにReplaceで変換を1000行ベタ打ちするのはアレなんで。（ｗ
0182デフォルトの名無しさん
NGNGループとinstr()やmid()を使えばできるだろ
0183デフォルトの名無しさん
NGNGなにが「（ｗ」だ。なんで赤の他人のおまえにヘラヘラされながら
仕事らしきものを丸投げされにゃいかんのだ？
アフォか。死ね。
0184デフォルトの名無しさん
NGNG(1) ヘルプという言葉はご存知ですか？
(2) ヘルプの存在意義、使用方法はご存知ですか？
(3) ヘルプの起動方法、キーワードの検索方法はご存知ですか？
0185デフォルトの名無しさん
NGNGいや、DoMenultemで何をやってるかまでは
ヘルプじゃわかんないんだよね、これが。
その前にスレ違いのような気がするけど。
0186デフォルトの名無しさん
NGNGCreateFont の nWidth ってどうやって値を出すの？
0187デフォルトの名無しさん
NGNG教えてもらえませんでしょうか。やっぱレジストリかなんかですか？(あまり知識ないっす…)
0188デフォルトの名無しさん
NGNGCreateObjectでExcel.Applicationを作成しようとして
エラーになるかどうかで判断できるんじゃないか？
0189187
NGNG簡単っちゃあ簡単ですが、ﾁｮﾄﾋﾞｸﾘﾂしました。
どうもです。
0190デフォルトの名無しさん
NGNG別におまえに聞いてるわけじゃないとおもうが。そこまで腹が立つか？
>>181
でもどんな頼み方でもソース書いてくれっていうやつはむかつく
自分で考えたり、調べたり、自分で書いたソースを試したりする気まったくなしって感じが。
絶対に進化しないからなこういうやつは。
まあ文章からして、かしこくなる気がない雰囲気むんむんだけど
0191デフォルトの名無しさん
NGNG何もしないで 倍幅にする方法
判→半リ
頼→束頁
欠点：できる文字が少ないということ（ｗ
0192デフォルトの名無しさん
NGNGVBScriptに何熱くなってんの？
0193デフォルトの名無しさん
NGNGイ立
｜口
0194デフォルトの名無しさん
NGNGGetTextMetricsでフォントの情報取得して、
それのnWidthを倍にしてやればいいんじゃないの？
0196デフォルトの名無しさん
NGNG0197デフォルトの名無しさん
NGNG前スレまで行って前のお前の発言拾ってこようか？
すごいレスついてたぞ。
0198デフォルトの名無しさん
NGNG拾って！
0199デフォルトの名無しさん
NGNG>>198
VBユーザってどうして前提なしでそういうふざけたこと抜かすかなぁ。
だからDQNっていわれるんだよ
>>198
じゃないがもう少し説明してくれ。
こんな感じ。
0200デフォルトの名無しさん
NGNGそのVBScriptがわからないおまえははやく死ねｗププププププ
ウキャキャキャキャキャ
0201デフォルトの名無しさん
NGNGいや、特に役にもたたんだろ。あれ。
ある特定のOSの特定のブラウザで動くクライアントサイド言語。
なぜかOS開発元ですら使われていないバッチ用スクリプティング言語。
元となる簡単言語は発売終了。
0202デフォルトの名無しさん
NGNGF1キーで呼び出しをしているのですが、ちゃんと表示されるときとされないときがあります。
さっきはダメだったけどプログラムを再起動したら表示されるなど
一体なぜなのでしょうか？？
0203デフォルトの名無しさん
NGNG0204デフォルトの名無しさん
NGNGどうすればできますか？
0205デフォルトの名無しさん
NGNG256*256*256
0206デフォルトの名無しさん
NGNGR ... &HFF And 値
G ... (&HFF00& And 値) \ &H100
B ... (&HFF0000 And 値) \ &H10000
0207デフォルトの名無しさん
NGNG0208デフォルトの名無しさん
NGNGここはオマエだけが質問しオマエだけが回答を得ているワケではないのだがな
0209デフォルトの名無しさん
NGNGVB6ほか、コンパイラは入っていません。
ネットで検索したのですが、不具合がありようなことが
書いてあったりで心配です。
0210デフォルトの名無しさん
NGNGまぁ普通に考えると大丈夫。
どんなソフトでも大小あれトラブルはつきもの。
0211デフォルトの名無しさん
NGNG0212デフォルトの名無しさん
NGNG津 魔 蘭
0213デフォルトの名無しさん
NGNG0214デフォルトの名無しさん
NGNGスレタイ見ろ
0215デフォルトの名無しさん
NGNG辺でもないんでないかな。
207がありがとだけだったから何のだよ！と208は思ったのだろうきっと。
207が何へのレスは明示的じゃないからな。ま、206へだと思うが。
0216デフォルトの名無しさん
NGNGMSからサービスパックダウソして入れておいた方が良いよ。
VB5の初期のバグでなんらかの条件で起動できなくなる罠が有ったと思う・・・・(´･ω･`)ｱﾚﾆﾊﾏｲｯﾀ
0217デフォルトの名無しさん
NGNG> VB5の初期のバグでなんらかの条件で起動できなくなる罠が有ったと思う・・・・(´･ω･`)ｱﾚﾆﾊﾏｲｯﾀ
OSのSPもVBのSPも関係ないよ。なるときゃなる。
プロジェクトを置く場所に全角を含むパスをつかっちゃだめなのさ。
予期せぬエラーがでたら
HKEY_CURRENT_USER\Software\Microsoft\Visual Basic\5.0\RecentFiles
ここの日本語パスを含む分の項目を削除すりゃ復活する。
0218デフォルトの名無しさん
NGNG情報サンコス。当時ネット環境無かったし田舎故に全然情報が無くて、
根性でプログラミングする度ソフトをｻｲｲﾝｽｺしていた・・・・(´д`;)ﾊﾞｶﾀﾞ
でも確かVBを直接立ち上げないでソースを開けば全角バグも恐くなかった気がする。
0219デフォルトの名無しさん
NGNG暇だからレス・・ってもう終わったかのぉ・・・
i = 0
Do
i = InStr(i + 1, srcS, "menu:")
If i = 0 Then Exit Do
i = InStr(i + 5, srcS, ">")
If i = 0 Then Exit Do
ii = InStr(i + 1, srcS, "<")
If ii = 0 Then Exit Do
retS = retS & "<dt>" & Mid$(srcS, i + 1, ii - i - 1) & vbCrLf
i = ii
Loop
srcS に突っ込めば retS に出てくる。汚くてみづらいソース(´д`;)ｽﾏｿ
0220219
NGNG0222デフォルトの名無しさん
NGNGIFの判断文の内容(IF xxxx Then の xxxx 部分)を動的に作成したいのですが、うまい方法はないですか？
0223デフォルトの名無しさん
NGNG動的にってなに。
テキストボックスかなんかに A=10 AND B=50 とか
入力させてそれを反映させたいってことか？
人に聞くならまずやりたいことを分かるように説明せえよ
0224デフォルトの名無しさん
NGNG申し訳。おっしゃる通りです。
0225デフォルトの名無しさん
NGNGいや、俺も偉そうに言った割には、実現方法は皆目見当つかんのだけどねｗ
というか、もし俺が例で書いたＡだのＢだのがソース上の変数名とイコールであれば、
実現は限りなく不可能に近いと思う。
0226デフォルトの名無しさん
NGNG構文解析すれば良いんだろうけど、結構面倒だよ・・・
0227デフォルトの名無しさん
NGNGというか、なんでそんな事が必要なのか教えて下さい。
仕様から見直すべきかも。
0228デフォルトの名無しさん
NGNGScript Controlを使えばできるかも
0229228
NGNGサンプル書いてみた。
Dim vbs As Object
Set vbs = CreateObject("MSScriptControl.ScriptControl")
vbs.Language = "VBScript"
vbs.ExecuteStatement "A=2"
Debug.Print vbs.eval("A+2")
0230デフォルトの名無しさん
NGNG0231デフォルトの名無しさん
NGNGそんなことが出来るんだ
っていうかなんかVBScriptのほうが優れてる点が結構ない？
ショートカットの作成もVBScript使えば出来たりするし。
本家がしょぼく感じてしまふ。
その辺はVB.net移行すればOKってことなんかいな？
0232デフォルトの名無しさん
NGNGScript 便利(；´Д`)ﾊｧﾊｧ
でもOSが古いと動かない罠。まぁ今時そんなマシン余り無いか
0233デフォルトの名無しさん
NGNG利用するためにMSCOMM32.OCXを使いたいのですが、インストールの
方法がわかりません。古いバージョンのものをSYSTEM32ディレクト
リにコピーしても「このActiveXコントロールを使用するライセンス
がありません」と怒られてしまいます。インストールの仕方を教えて
ください。
0234D
NGNG多分コピーしただけではライセンス情報は登録されないはず。
http://www.microsoft.com/japan/developer/library/vccore/_core_activex_controls.3a_.licensing_an_activex_control.htm#_core_licensing_support
ここに詳しく載っています。
ただその前にRegsvr32.exeでレジストリに登録する必要もあるような気が...
これで駄目ならVB6インストールすれば？ライセンスはあるんでしょ。
0235デフォルトの名無しさん
NGNG> っていうかなんかVBScriptのほうが優れてる点が結構ない？
文字列を「命令」として実行する機能は、モダンなインタプリタ言語なら持っているものも多い。
(極論するとファイルから読んで実行するか、文字列から読むかだけの違いだからね。)
> ショートカットの作成もVBScript使えば出来たりするし。
用途が違うからねぇ...。
0236D
NGNGAPIのCreateFileは使えるみたいだけど。
0237デフォルトの名無しさん
NGNG0238デフォルトの名無しさん
NGNGすべてはVBの部品。VBの素晴らしいところは何でも部品になることさ。
>>232
MSCOMM32.ocxがVB6の付属物なので、まずVB6のダミーアプリをインストールするべし。
そうでなけりゃそもそも君はライセンス違反。旧VBが入ってないなんてことはないよな？
>>236
どういう状況？Marshalクラス使えばたいていできるような・・・
0239デフォルトの名無しさん
NGNG＞すべてはVBの部品。VBの素晴らしいところは何でも部品になることさ。
だとすると他言語に勝るモノは何もないことになると思われ。
0240デフォルトの名無しさん
NGNG一度コンポーネントにすればあとは数行ですむではないか。
それこそOO(良くわからんが)であろう。
0241デフォルトの名無しさん
NGNG何でも部品にできるというのは素晴らしいと思うが。
社長みたいなもんさ。馬車うまのように働かされている君にはわかるまい。
とか煽って欲しい？
0242デフォルトの名無しさん
NGNGDelphiの方が後発だからねぇ。
とかなんぼでもいいようはある。
0243デフォルトの名無しさん
NGNG0244デフォルトの名無しさん
NGNG> すべてはVBの部品。VBの素晴らしいところは何でも部品になることさ。
VBで使える部品ならすべて他の言語(C++等)上でも使えるんだから
ちょっと違うと思う。
VBのよいところは、これらの部品を誰でも手軽に利用できる
(利用するための手続きが非常に簡単)ところではないかな。
0245デフォルトの名無しさん
NGNG> VBのよいところは、これらの部品を誰でも手軽に利用できる
> (利用するための手続きが非常に簡単)ところではないかな。
本当にそうか？
Delphiの方がよっぽど簡単なように思える。
0246デフォルトの名無しさん
NGNGあまりの面倒くささに挫折仕掛けのところです。
リクエストは送って、バイト配列で受け取ることも出来ました。
肝心のホスト名を抜き出すまでが面倒くさくてたまりません。
誰か代わりにやってください。
もしくは、ソースのリンク教えてください。
0247デフォルトの名無しさん
NGNG本当にそうか？
どっちもたいして変わらないように思える。
0248デフォルトの名無しさん
NGNGVBに慣れきった漏れにはフォームデザイナとかコードエディタが使い難く過ぎる･･･。
0249デフォルトの名無しさん
NGNGＤｅｌｐｈｉに慣れてください。
0250233
NGNGmscomm32.ocxは書籍についてきたものなのでVB6のライセンスは持っていません。
VisualStudio.netにはシリアルポート制御できるActiveXコントロールは付属して
いないのでしょうか。
0251デフォルトの名無しさん
NGNGある計測用プログラムを作っているのですが、その際にPictureボックス内に
例えば6000個のデータで計測データの推移を波形にして表示するようにして
います。
これを、Picture1.Line (x1,y1)-(x2,y2)のようにして描画しているのですが、
もうちょっと速く描画できないものかと思っているのですが、全然分かりません。
何か方法はないでしょうか？ ヒントでもあったら教えて頂けると助かります。
0252デフォルトの名無しさん
NGNGPolylineで調べてみ
APIだけど段違いに速くなるぞ
0254デフォルトの名無しさん
NGNG非表示にしたPictureBoxにAPIでLineを描画して全部書き終わったら改めて表示させるとか
0255251
NGNG有難うございます。
しかし、APIはほとんど分からないので時間が繋りそうです。
前にも文字列の回転描画（印刷）で、えらく手間取ったし、今でもあのコードは自分
で書いたのによく分からないという・・時々失敗するし（´Д｀；）
0256デフォルトの名無しさん
NGNG0257デフォルトの名無しさん
NGNGShell_NotifyIcon
0258256
NGNGありがとうございます。
0259デフォルトの名無しさん
NGNGDelphiならコンポーネントペタッで終了！簡単！
0260デフォルトの名無しさん
NGNG0261デフォルトの名無しさん
NGNGテキストベースならDAO・ADOでやれるのですが、そんな機能が
今の自分の知識の中からは出てきません。
Linerのようなビューア領域を作ることが目標です。
どうかご教授を。
0262256
NGNGヘルプで見れないよぅ。
>>259
Delphiか・・・。勉強してみようかな・・・。
でも今はVBで作ったやつをタスクバーにいれたい。いったいどうすれば・・・
>>260
Enabledでは文字が灰色になっちゃわなかったっけ？
そうしたくないときにLockedを設定するとよいと本で読んだよ。
ほかにも違いありそうだけど。
0263デフォルトの名無しさん
NGNGMSDN Google
0265デフォルトの名無しさん
NGNG色で使い分けるのは本来の使い方ではない。
該当するオブジェクトにフォーカスを移したくない時にはEnabledを使うんではないかい。
0266デフォルトの名無しさん
NGNGLockedは書き換えのみを不可にするんだとおもう
0267デフォルトの名無しさん
NGNGRGBで(50,100,150)だとして、明るさを＋10とすると
(50+10,100+10,150+10)
ではなくて、相対的にやるものなんですよね？
PaintShopProの明るさをいじっていたら
(100,100,0)でどんどん明るくしていくと(255,255,0)になったあと
Bの値ｂ熨揩ｦていって麹ﾅ終的には(255,255,255)になりました。
どういう処理をしているのでしょうか？
0269デフォルトの名無しさん
NGNG乗算でない？他が255になって0のが残ってたら1ずつ足してくとか
0270デフォルトの名無しさん
NGNGHSVとかに変換してやってるんじゃないの
0271267
NGNGう～む、難しそう
0272デフォルトの名無しさん
NGNGEnabledとLocked、機能も違うし、意味も違う。
Enabledは使用不可にする。
Lockedは入力不可にする。ただし・・・
>>266
>Lockedは書き換えのみを不可にするんだとおもう
Shift+Insertでペーストできるので書き換えできちゃうんだけどね。
さらにOSがWin2000の場合だと右クリックメニューの制御が不完全とかあるし。
>>250
ない。gotdotnet.comのどっかで
Rs232.vbってファイルをダウソできるみたい。誰かさん作のCOM用クラス。
0273デフォルトの名無しさん
NGNGよくわからんが
> RGBで(50,100,150)だとして、明るさを＋10とすると
> (50+10,100+10,150+10)
> ではなくて、相対的にやるものなんですよね？
といってるのだから結果のRGB値を取得したんだろう？
その値はいくつなの？
0274デフォルトの名無しさん
NGNGうちの会社だと８割くらいいて
全員戦力外通告が出てるｗ
１割は非.netの会社へ転職するみたい。
残りは受け皿無しだってさ。
0276デフォルトの名無しさん
NGNG切り捨ての口実のような気がしないでもない。
しかし、さしあたっては仕事に関係ないとしても、
.NETへの適応力は１つの目安にはなる。
これからも開発環境は変わっていくだろうから。
0277デフォルトの名無しさん
NGNG.netさまさまだな。
糞PGが８割もいるお前の糞会社が少しはまともになれるチャンスじゃんか。
0278デフォルトの名無しさん
NGNG0279デフォルトの名無しさん
NGNGAPIはVBでは標準扱いでは無いみたいなのでMSDNではCで引かないと出てこない。
Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const WM_LBUTTONDBLCLK = &H203
Public Const WM_RBUTTONUP = &H205
Public nIcon As NOTIFYICONDATA
0280デフォルトの名無しさん
NGNGnIcon.cbSize = Len(nIcon)
nIcon.hwnd = pForm.hwnd
nIcon.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
nIcon.uCallbackMessage = WM_MOUSEMOVE
nIcon.hIcon = pForm.Icon
nIcon.szTip = MSG & vbNullChar
Shell_NotifyIcon NIM_ADD, nIcon
End Sub
Sub DELIcon(pForm As Form)
nIcon.cbSize = Len(nIcon)
nIcon.hwnd = pForm.hwnd
Shell_NotifyIcon NIM_DELETE, nIcon
End Sub
ﾌｫｰﾑに
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Select Case x \ Screen.TwipsPerPixelX
Case WM_LBUTTONDBLCLK
Me.Show
DELIcon Me
Case WM_RBUTTONUP
PopupMenu Popup_Menu, 2
End Select
End Sub
0281デフォルトの名無しさん
NGNG0282デフォルトの名無しさん
NGNGだめな理由をのべよ？
MSのサイトに自社製品のXP対応リストがないわけ無いと思うが。。。
0283281
NGNGXPは.NETじゃなきゃだめと思い込んでたんで・・・
0284デフォルトの名無しさん
NGNGやり方があれば教えてください
0285デフォルトの名無しさん
NGNGRECTの使い方がいまいちわかりません。誰かご教授下さい。
0286デフォルトの名無しさん
NGNG(´-`).｡ｏO(RECTすら自分で調べられないならシューティング諦めた方が・・・)
0287デフォルトの名無しさん
NGNGRECT データ構造体は、次の形式です。
typedef struct tagRECT {
LONG left;
LONG top;
LONG right;
LONG bottom;
} RECT;
RECT 構造体は、四角形の左上隅と右下隅の座標を定義します。
この無茶苦茶わかりやすい説明のどこが｢いまいちわからない｣のか...。
0288デフォルトの名無しさん
NGNG0289デフォルトの名無しさん
NGNG0291デフォルトの名無しさん
NGNGいやなら
BASICでも買えば？
0292デフォルトの名無しさん
NGNGTCP/IPユーティリティのコマンドでわかるんでない？
DNSサーバ－nslookup
ルート－route
それぞれのコマンドでわかると思う。
0294デフォルトの名無しさん
NGNGだったら無理だろ・・・
0295284
NGNGコマンド使えば読み出せるのはわかってるんですけど、その方法だと、
nslookupが存在しないwin98とかに対応できないんで…
nslookupが内部的にどうやって取得してるかが知りたいです。
説明不足ですみません
0296デフォルトの名無しさん
NGNG0297デフォルトの名無しさん
NGNGじゃーwininet.dllのHttpQueryInfo APIとか。
このdllのAPI使えばいいような気もする。
0298284
NGNGそれってDNSのアドレスとか取れるんでしょうか…
HTTP関係しか無理な気も…
Dependency Walker使ってwininet.dllものぞいてみましたが、
それらしい関数は発見できませんでした。
APIスレに行ってきます
0299デフォルトの名無しさん
NGNGHSP使えば？
0300300
NGNG0301285
NGNG0302デフォルトの名無しさん
NGNG本かえっツーの
マイコンベーシック
0303デフォルトの名無しさん
NGNG調べる方法ってあるのでしょうか？
0304デフォルトの名無しさん
NGNG0305デフォルトの名無しさん
NGNGありがとう
0306モモ
NGNGデータフォームウィザードを使ってアクセスのデータベースに接続したい
のですがデータベースファイルを選択するとき、ファイルの名前をいれても
｢認識できません」ってでます。私はどうすれば、、、
ソフトはｖｂ６、アスセス２００２です
0307
NGNG素のWin95サポートする必要があるなら、SNMP API使ってみたら？
MIB の書き方はこの辺↓とか RFC とか読んで。
ttp://www.ibiblio.org/pub/micro/pc-stuff/ms-windows/winsnmp/winsnmp_mib/
0308デフォルトの名無しさん
NGNG誤爆か ?
0309ＴＯＭ
NGNGどなたか教えてくっさい。
ＶＢ６です。
0310307
NGNG0311デフォルトの名無しさん
NGNG昨日来ました。と書かないとただのマルチポストだ。
後、何で無視されたのかどうして考えない？
どうすれば？か。その仕事向いてない。やめろ。
0312まこっちゃん
NGNG文字列の代入と比較の記述が同じに見えてなりません、さっぱりです。
どなたか教えてくっさい。
誤爆しました。ごめんなさい。
0313デフォルトの名無しさん
NGNG(´д`;)・・・・なんか良くﾜｶﾗﾝが、がんがれ・・・・
0314デフォルトの名無しさん
NGNG0315デフォルトの名無しさん
NGNG仕様です。
0316デフォルトの名無しさん
NGNGここが意味不明
0317デフォルトの名無しさん
NGNG0318デフォルトの名無しさん
NGNG0319デフォルトの名無しさん
NGNGMSが儲けるため。
0320デフォルトの名無しさん
NGNGＶＢ５だから駄目なのかな？
定数すら定義してくれん・・・鬱だ。
0321デフォルトの名無しさん
NGNGVBでDirectXなんか使えるわけねーだろ。
ポインタも使えないくせにどうやって使うつもりだ。
0322デフォルトの名無しさん
NGNG0323デフォルトの名無しさん
NGNGbaka?
0324デフォルトの名無しさん
NGNG真性あふぉ( ´,_ゝ`)ﾌﾟ
0325デフォルトの名無しさん
NGNGVBでもポインタ弄れますが？
0326D
NGNG＝には
"等しくする""等しい"って意味がある。
A=B <-この場合代入
If A=B Then <-等の場合比較
として扱われます。CやJavaなんかでは代入は=比較は==でしたがVBやSQLではどちらも=を使用します。
また、チョット変則ですが
A=(0=0) では変数AにTrue(-1)が入ります。
何はともあれ、がんばってください。
0327デフォルトの名無しさん
NGNGうわあ。VBの演算子ってきもちわるいですねえ。
0328デフォルトの名無しさん
NGNG0329デフォルトの名無しさん
NGNGまぁ他言語から来たならそうだろうねぇ・・・
時々他言語で条件文の == を = にして無駄に時間を費やすこともしばしば(´д`;)
0330デフォルトの名無しさん
NGNG0331デフォルトの名無しさん
NGNGVBの文字列ってよくわからないね。
0332デフォルトの名無しさん
NGNG作れば？まぁ、状態を保持する必要があるからクラスにした方がいいけど。
0333デフォルトの名無しさん
NGNG文字列がなくて文字の配列でしか表現できない言語よりマシ。
0334デフォルトの名無しさん
NGNGこうして人をだめにしていく言語か・・・。
無いなら作れよ。と。
0335デフォルトの名無しさん
NGNGお前が作れば。
0336デフォルトの名無しさん
NGNGVB厨よ。これ以上バカな発言を繰り返すな。
0337デフォルトの名無しさん
NGNG「VBの文字列ってよくわからないね。」
のことか？
0338デフォルトの名無しさん
NGNGあぁ そりゃバカだ。誰だ言った奴（藁
0339デフォルトの名無しさん
NGNG0340まこっちゃん
NGNGVB虫の人達は親切でした。蟻が父さんでーす。
=が同じなのは目の錯覚ではなかたのですね、覚えたのれす。
eqというのもあるのですね、これと=では同じ意味なのれしょうか？
参照比較と文字列比較とかの違いはないのれすか、さっぱりです。
これが理解できたらForに学習を移りますのれす。難しそうなのれす。
んじゃーサバラ！
0341デフォルトの名無しさん
NGNG本当にVBを知らない奴がいた(藁
0342デフォルトの名無しさん
NGNGそだな。実際複数から呼び出すとボロボロになる仕様。
0343まこっちゃん
NGNGしょしんしゃスレに煽りにだけ来てるほーが(わるい)のれす。
0344デフォルトの名無しさん
NGNG初心者と素人は明確に差別されます。
0345デフォルトの名無しさん
NGNGこれから学ぼうとしているもの
・素人
何も知らないもの
0346デフォルトの名無しさん
NGNG・入門者
これから学ぼうとしているもの
気持ちの問題であって結局は素人。
0347デフォルトの名無しさん
NGNGだとすると上の彼らは素人だと思われ。
0348まこっちゃん
NGNG>気持ちの問題であって結局は素人。
いってる事がわからないのれす。さっぱりです。
しょしんしゃorしろうとスレを荒らす事がｶｺわるいとおもてる
かどうかの見解も聞きたいものれす。
0349デフォルトの名無しさん
NGNG妙な日本語を使うのは質問する相手に失礼じゃないのかね？
0350まこっちゃん
NGNG(藁 とか使っといて
妙な日本語失礼じゃないのかね？
妙な日本語失礼じゃないのかね？
妙な日本語失礼じゃないのかね？
プ。
話そらすなよ（麦
0351デフォルトの名無しさん
NGNG(麦ワラタ。
後、攻撃する相手変わってるぞ（孫
0352デフォルトの名無しさん
NGNG0353デフォルトの名無しさん
NGNG用途によるけど、デリミタが一種類なら Split() 使うのが吉。
0354デフォルトの名無しさん
NGNG激しく同意。
見ててうざい。
とあるByte配列の中身が空っぽであるか調べたいのですが
どうやればいいのでしょうか。String型と全然勝手が違って悩んでいます。
String型なら If TempStr = "" Then こう、簡単なんですが・・・。
0357320
NGNG約１．４倍速度ＵＰ。こんなもんなのか･･･ちょっとがっかり。
0358デフォルトの名無しさん
NGNG１．４倍が妥当なのか知らんが、ちゃんとハードウェアアクセラレートは
使用されてるか？ エミュレーションモードで動いてたりしないよね。
0359デフォルトの名無しさん
NGNG動的配列? 静的配列?
動的配列なら、UBoundかなあ?
静的配列なら、初期化時は全部0が入ってると思うよ。
0360デフォルトの名無しさん
NGNG動的配列だろ。
静的配列なら、初期化時と同じだからと言って空っぽと言う判断するのはどうかと思うよ。
とりあえず、
If UBound(A) < LBound(A) Then
' 空っぽの処理
EndIF
でいいと思う。
0361デフォルトの名無しさん
NGNGIf UBound(A) < LBound(A) Then
MsgBox "(ﾟ∀ﾟ)"
End If
ｱﾋｬった
0362361
NGNG×ｱﾋｬった
○ｴﾗった
0363モモ
NGNGうう、自分でがんばってみます。
指定した行数目のテキストを抜き出したいのですが
こういう場合は自作関数しかないのでしょうか？
とりあえず自作のがあるんですけど微妙に動作がおかしいんです。
そんな事しないでも出来る方法、あるんでしょうか？
無いのなら、このソースのどこら辺がマズってのるのか
教えて頂けるでしょうか。
'ErrChk "GetLINE"
Dim LL As Long
Dim NN As Long
Dim CRLFpos As Long
Dim CRLFpos_ As Long
CRLFpos = 0
LL = LineIndex - 1
For NN = 0 To LL '指定行目まで繰り返す
CRLFpos_ = CRLFpos
CRLFpos = InStr(CRLFpos + 1, Text, vbCrLf)
If CRLFpos = 0 Then 'もう改行が見つからない時
If NN = LL Then '指定した行数目だったら
GetLineX = Replace(Mid(Text, CRLFpos_ + 2, Len(Text) - CRLFpos_ - 1), vbCrLf, ""): Exit Function
Else
GetLineX = Replace(Mid(Text, CRLFpos_ + 2, Len(Text) - CRLFpos_ - 1), vbCrLf, ""): Exit Function
End If
End If
Next NN
If LL = 0 Then '１行目が指定されていた場合
GetLineX = Replace(Mid(Text, 1, CRLFpos - 1), vbCrLf, "")
Else
GetLineX = Replace(Mid(Text, CRLFpos_ + 2, CRLFpos - CRLFpos_ - 1), vbCrLf, "")
End If
End Function
Public Function GetLineX(ByVal Text As String, ByVal LineIndex As Long) As String
'ErrChk "GetLINE"
Dim LL As Long
Dim NN As Long
Dim CRLFpos As Long
Dim CRLFpos_ As Long
CRLFpos = 0
LL = LineIndex - 1
For NN = 0 To LL '指定行目まで繰り返す
CRLFpos_ = CRLFpos
CRLFpos = InStr(CRLFpos + 1, Text, vbCrLf)
If CRLFpos = 0 Then 'もう改行が見つからない時
If NN = LL Then '指定した行数目だったら
GetLineX = Replace(Mid(Text, CRLFpos_ + 2, Len(Text) - CRLFpos_ - 1), vbCrLf, ""): Exit Function
Else
GetLineX = Replace(Mid(Text, CRLFpos_ + 2, Len(Text) - CRLFpos_ - 1), vbCrLf, ""): Exit Function
End If
End If
Next NN
If LL = 0 Then '１行目が指定されていた場合
GetLineX = Replace(Mid(Text, 1, CRLFpos - 1), vbCrLf, "")
Else
GetLineX = Replace(Mid(Text, CRLFpos_ + 2, CRLFpos - CRLFpos_ - 1), vbCrLf, "")
End If
End Function
0367アフォルトの名無しさん
NGNGｱﾋｬった、でいいじゃないか。
0369デフォルトの名無しさん
NGNGSplit(text,vbCrLf)(lineindex)
0370デフォルトの名無しさん
NGNGPublic Function GetLineXX(ByVal srcS As String, LineIndex As Long) As String
Dim L&, LL&, LineCount&
LL = 1
srcS = srcS & vbCrLf
For LineCount = 1 To LineIndex
L = InStr(LL, srcS, vbCrLf)
If L = 0 Then Exit For
If LineCount = LineIndex Then
GetLineXX = Mid(srcS, LL, L - LL)
Exit Function
End If
LL = L + 2
Next
GetLineXX = ""
End Function
とか
0371360
NGNG俺も気になったが、Dim A() As Byte の直後に A = "" としとけば大丈夫。(ちなみに、UBound(A) = -1, LBound(A) = 0 になる。)
逆に、>>355 が未使用の状況まで知りたいと言うなら、エラートラップするしかないと思う。
0372デフォルトの名無しさん
NGNG> 逆に、>>355 が未使用の状況まで知りたいと言うなら、
動的配列だったら普通はこっちだと思うが。
0373361
NGNGまぁポインタ見れば良いんだろうけどね。
If StrPtr(A) = 0 Then
MsgBox "(ﾟ∀ﾟ)"
End If
隠し関数は余り使わない方が良いんだろうけど、漏れはこうやってる（´д｀）もっと良い方法キボーン
そもそも、>>355の「配列が空」ってのがどういう意味なのかが良くﾜｶﾗﾝです
0374320
NGNGはぅあ！！エミュレーション？
ＨＡＬだかＨＥＬだかって奴ですか･･･
よくわからんがＢＬＴＦＡＳＴの方を使ってるんで。
ノートだから余計なハードは無いと思う。
0375デフォルトの名無しさん
NGNG0376デフォルトの名無しさん
NGNG余計なお世話的説明補足。
結果的にそれで判定できてるみたいだけど、なんか勘違いというか「ん～」てなとこがあるので。
Byte配列と文字列は相互に変換できる。StrPtrの引数は文字列なのでByte配列が文字列に変換される。
そのときByte配列が空だと(空文字ではなく)vbNullStringに変換される。そのためStrPtrで判断できる。
ちなみにvbNullString=""はTrueなのでIf CStr(a) = "" Thenでも判定できる。
0378デフォルトの名無しさん
NGNG出したいんですが、できますか？
0379なつみ
NGNG0380デフォルトの名無しさん
NGNGんで，たとえばR値の入ってるアドレスを
バイナリ形式で読み取って文字列として格納．
それをAscで10進数に変換できるのかな？
と思ってやってみたんですが，R値が小さいときにはできてるけど，
大きくなると負の値が戻ってくる．どうしてでしょう？
本気初心者なんで，見当違いのことしてるかもしれませんが
ヒントでも関連ページでもなんでもいいので，お願いします．
0381デフォルトの名無しさん
NGNGちょっとまて。
それすら知らないでDirectXで性能が出ないなんてほざいてるのか？
糞とはいえあまりにもDirectXとカードメーカーが不憫だ。
0382デフォルトの名無しさん
NGNG通常、嫌でも10進表現になると思われ。
0383デフォルトの名無しさん
NGNGそもそもVBでDirectXの時点で間違ってる。
0384なつみ
NGNGDim stLinkCriteria As String
（略）
DoCmd.OpenForm stDocName, , , stLinkCriteria
・・・・上の構文を良く見かけるんだけど、stdocname，stLinkCriteria
自体に何か意味があるんでしょうか？必ずこの文字を使わなければ
いけないんですか？？？初心者ですみません。
0385380
NGNGそっか．通常はなりますか．
とりあえず方向性は間違ってないってことがわかっただけでも
助かりますた．ありがとうございます．
なんか，他の要因探ってみま～す．
0386デフォルトの名無しさん
NGNG「バイナリ形式で読み取って文字列として格納」ってあたりが怪しい。
どうやって読み込んでいるのかわからんけど（まぁ想像はできるが）、
文字列で読み込むときに２バイト分よみこまれてるんじゃないかな。
「１バイト」を読み込んでいるつもりだろうけど、
「１文字」が読み込まれてるように思える。
１バイト目が漢字コードなどの１バイト目だと、
次のバイトも読み込まれて「１文字」が読み込まれるよ。（仕様）
漢字の文字列にAscするとシフトJISコードが帰ってくるけど、
シフトJISってのは&H8000以上だから
負の数がかえってきているんだと思う。(この辺はわかるよね？）
そもそも文字列にして格納する必要がないと思うけど？
Byte型の変数でゲットすれば普通に求められると思うぞ。
0387デフォルトの名無しさん
NGNGどうすればいいでしょうか？
0388デフォルトの名無しさん
NGNGPicture1.Pictureではなく、Picture1.Imageを指定する
0389381
NGNGまぁ禿同だけど、VB厨にも夢をみせてやれ。
0390デフォルトの名無しさん
NGNG>そもそも文字列にして格納する必要がないと思うけど？
>Byte型の変数でゲットすれば普通に求められると思うぞ。
あれま．そんなんできるんだ．
てか，それでできました．すげぇ．別にすごくないんだろけど．
おかげさまでここ何日かの悩みが解決しますた．
いや，まぢで何日も悩んでたんですよ．ほんまありがとうございました．
0391デフォルトの名無しさん
NGNGありがとです。
あとautoredrawがfalseになってましたｗ
0392デフォルトの名無しさん
NGNGLong型使わないとマイナスになる
0393デフォルトの名無しさん
NGNG必ずしもその変数名である必要はないはずです。
おそらくヘルプのサンプルにそう書いてあったので、
みんなコピペしたのだと思います。
ちなみにうちの会社では、Callが無い点と、
String型の変数の前置詞がstだという点で不許可です。
0394なつみ
NGNGどうもありがとう!!!!!!!!!!!!
さらに質問してもいい？
0395なつみ
NGNGなんのキーワードで探すとヘルプでみれますか？？
0396デフォルトの名無しさん
NGNGsub main()内で
wininet.dllを使用してFTPをしようとしたところ、
FTPの処理はうまくいくのですが、すべての処理の
終了後にVBが終了しなくなってしました。
これは、何か開放できないインスタンスが悪さでもしてるのでしょか。
どなたかなにか、ヒントを教えていただけないでしょうか。
お願いします。
環境は、Windows2000 ,Visual Basic6.0です。
0397デフォルトの名無しさん
NGNGだからOpenFormメソッドの[使用例]で、
と思ってみてみたら
> DoCmd.OpenForm "社員", , ,"氏名 = '山田 一郎'"
日本語だった。
まあ、気にすんな。
0398デフォルトの名無しさん
NGNGVBでDirectX使えるんだから夢ってほどのことでもないでしょ。
0399396
NGNGルータの設定変えたら直りました。
ご迷惑おかけしました。
0400デフォルトの名無しさん
NGNGルータの設定で直るわけ無いだろ。どっかにバグがある。
0401396
NGNGでも、本当にルータの設定で直ってしまいました。
バグはあるかもしれませが、環境に依存するとヤツだと思いますので、
いろいろ試してみて、なんとか調べ上げようと思います。
レスありがとうございました。
0402デフォルトの名無しさん
NGNG直ったんじゃなくルータが正しく設定された状態でのみ正しく動くだけだろ。
なぜルータが正しくないときは終了しないのか原因を究明しろよ。
0404デフォルトの名無しさん
NGNGなぜ間違っているのかを教えてくれ。
0405デフォルトの名無しさん
NGNGいいのでしょうか？
今は、配列に入れた数をカウントする関数を使っているのですが、
無駄な変数を増やしているような気がしてなりません。
0406デフォルトの名無しさん
NGNGこういうことか？
Private Declare Function SafeArrayGetDim Lib "oleaut32" (psa() As Any) As Long
Private Sub Command1_Click()
Dim a() As Long
If SafeArrayGetDim(a) = 0 Then MsgBox "ないよ" Else MsgBox "あるよ"
End Sub
0407デフォルトの名無しさん
NGNGそういうことでございますた。
ありがとうございます。
oleaut32っていうのは標準に入っているdllですか？
0408デフォルトの名無しさん
NGNGおいおい、嘘を教えるな。
APIを使うなら自分が理解してから使え。
>>407
406は結果オーライになってるだけだ。
素直にエラートラップを使って判定しろ。
0409デフォルトの名無しさん
NGNGどうやって取得したらいいのか教えてください。
ＬｉｓｔＢｏｘで スクロールさせたとき、上に表示されているアイテムのｉｎｄｅｘを
取得したいんです。
0410デフォルトの名無しさん
NGNGTopIndex
0411デフォルトの名無しさん
NGNG動的配列に要素を入れるときに、
lngCnt = lngCnt + 1
とし、単純にカウントするのが一番だ。
0412デフォルトの名無しさん
NGNG俺も。
UBoundとか使ってトリッキーに（ってほどでもないか・・・）処理してると、
思わぬ落とし穴があったりする。
シンプル・イズ・ベストってやつだね
0413デフォルトの名無しさん
NGNG0414デフォルトの名無しさん
NGNGできますでしょうか？
通常のWebブラウザで表示した画面をPrintScreeｎでコピーすると
入りきらない部分がスクロールしないと表示できないので困っています。
そこでVBでやろうと思ったわけです。
0415デフォルトの名無しさん
NGNGAPI知ってる？？
知ってたらできるよ。
0416デフォルトの名無しさん
NGNGWebBrowser.hWnd をOpenClipbordに渡せばいいでしょうか？
0417デフォルトの名無しさん
NGNG0418デフォルトの名無しさん
NGNGといったシステム予約済みのカラーから
実際のRGBの値ってどうやったら求められますか？
0419デフォルトの名無しさん
NGNGs = Hex(lbl_tujou.BackColor)
s = String(8 - Len(s), "0") & s
R = "&H" & Mid(s, 7, 2)
G = "&H" & Mid(s, 5, 2)
B = "&H" & Mid(s, 3, 2)
0420デフォルトの名無しさん
NGNG＞悪いことは言わないから（ｗ）、転職、または他部門への異動を真剣に
＞検討して頂きたい。
検討するから やとってくれ（ｗ
0421デフォルトの名無しさん
NGNGG = (c And &HFF00&) \ &H100
B = (c And &HFF0000) \ &H10000
0422デフォルトの名無しさん
NGNG>>404
そういう書き込みはするな
まあバカはほっとけ
0423418
NGNGシステムカラーの設定によって変わってくるから、
実際の色は何色かを求めたいのですが。
ちなみに&H8000000F&はボタン表面の色。
0424デフォルトの名無しさん
NGNGパフォーマンス的にもなんの問題もなかったよ。
DirectInput使ってジョイスティックの制御もやったけど、
そちらも特に問題なし。
まあ、一応参考までに・・・
0426418
NGNGまぁ&H8000000Fなら～ってかけばいいのですが。
どっかに点を描画してその色を取得するって方法は思い浮かびましたが
あまりスマートじゃないすよね。
0427デフォルトの名無しさん
NGNG0428デフォルトの名無しさん
NGNG設定するならSetSysColorsでは？
0429デフォルトの名無しさん
NGNGGetSysColor
0430デフォルトの名無しさん
NGNGなんか、けっこう画面が ちらついて うっとしいんだわさ。
これって ちらつかないようにできないのかねぇ。
だれか やり方、知ってたら 教えてよ。
0431418
NGNGんじゃ
If oleColor = &H8000000F then
o_Color=GetSysCollor(COLOR_BTNFACE)
ElseIf
'以下同様のやついっぱい
Else
o_Color = oleColor
End If
Debug.Print o_Color
ってやるしかないかいなぁ
0433デフォルトの名無しさん
NGNG知ってるしすぐ書けるけどよぉ～
調べればすぐ分かっしよぉ
それって人に聞く態度じゃないよなぁ
だから教えないよ
0434421
NGNGDim oleColor As Long だとすると、
If oleColor >= 0 Then
o_Color = oleColor
Else
o_Color = GetSysColor(oleColor And &H7FFFFFFF)
End If
0435418
NGNGちゃんと対応してるのね
0437436
NGNG×422
○383
0438デフォルトの名無しさん
NGNG0439デフォルトの名無しさん
NGNGnavigate2 メソッドのヘッダーにて User-Agent を決めることは出来ましたが、
表示されているページのリンクを押した際されるページ切替の際は User-Agent を変える方法がわかりません。
どうやればいいかわかりますか？
0440デフォルトの名無しさん
NGNG気にしてるのはあんただけだよ。
0441デフォルトの名無しさん
NGNG0442デフォルトの名無しさん
NGNGy=sin(x)cos(2x+3)exp(x)
のグラフを表示させるプログラムを作らなくてはいけないんですけど・・・誰か教えてもらえませんか？
0443デフォルトの名無しさん
NGNG0444デフォルトの名無しさん
NGNG宿題をきくスレは ここじゃない！
0445デフォルトの名無しさん
NGNG>>413
>>430
0446デフォルトの名無しさん
NGNG0447デフォルトの名無しさん
NGNG自分で解かないと意味がないだろ。
0448デフォルトの名無しさん
NGNG0449デフォルトの名無しさん
NGNGパッケージを作ってインストールしました。
２つのプログラムは別のアイコンなのですが、アプリケーションの追加と
削除の画面をみると両方とも同じアイコンになってしまいました。
こんな現象が起きたことあります？
ちなみにVB6.0です。
0450デフォルトの名無しさん
NGNG御見積書を先生に出してやれ！
0451デフォルトの名無しさん
NGNGﾁｮﾄﾜﾗﾀ
0452デフォルトの名無しさん
NGNG(・∀・)イイ!
0453デフォルトの名無しさん
NGNGEM_SETRECTでメッセージを送信しても何も起きん
どうやるのか教えてくれ
0454453
NGNGMultiLineをTrueにするとできるようだな
そういう仕様なのか？
0455デフォルトの名無しさん
NGNG0456デフォルトの名無しさん
NGNG参考になるか知らんが、興味あったから調べてみたら
下記のような情報を発見。
書いてあるようなAPIを駆使すればできるのかもね。
ttp://www.users.gr.jp/ml/archive/vb/4887.asp
0457デフォルトの名無しさん
NGNGmenuのメソッドを実行時に呼び出せばできるのでは？
0458デフォルトの名無しさん
NGNG"((DateDiff('yyyy',[生年月日],#10/1/2002#))" & "Between 50 AND 70" & "))"
ある特定の年齢を求めようとSQL文を作成したのですが、
Between 50 AND 70の部分で問題が発生してしまいました。
この部分を変数にした場合、
変数＝"Between 50 AND 70"
プログラム上では、
変数＝"Between '50' AND '70'"
となってしまい、
SQL文として認識されません。
何かよい方法はないでしょうか？
0459デフォルトの名無しさん
NGNGなぜ肝心の、その文字列を作成する部分のソースを出さないの
というか、どうやったらそういう風になるのかが不思議・・・
興味age
0460デフォルトの名無しさん
NGNGByVal 指定年齢 As String) As Boolean
On Error GoTo XXX_年齢条件_Err
Dim SQL As String
SQL = "INSERT INTO TBL_XXX検索_該当条件 ( OOOO番号, 22番号 ) " _
& "SELECT 22名簿.OOOO番号, 22名簿.22番号 FROM "22名簿 " _
& "WHERE ((Not (22名簿.OOOO番号) Is Null) AND (Not (22名簿.99年月日) Is Null) AND " _
& "((DateDiff('yyyy',[生年月日],#10/1/2002#))" & 指定年齢 & "))"
DoCmd.SetWarnings False
DoCmd.RunSQL (SQL)
XXX_年齢条件 = True
XXX_年齢条件_Exit:
Exit Function
XXX_年齢条件_Err:
XXX_年齢条件 = False
MsgBox Str(Err) & vbCrLf & Err.Description, _
vbOKOnly + vbExclamation + vbMsgBoxSetForeground, "error"
Resume XXX_年齢条件_Exit
End Function
0461デフォルトの名無しさん
NGNG0462デフォルトの名無しさん
NGNG×…プログラム上では
○…プログラム実行中では
0463デフォルトの名無しさん
NGNGそれのどこにBETWEENの文字が？？
0464デフォルトの名無しさん
NGNGPublic Function 指定年齢抽出(ByVal 条件1 As String, _
ByVal 条件2 As String) As String
'指定年齢 or 期間 取得
If IsNull(条件1) Or 条件1 = "" And IsNull(条件2) Or 条件2 = "" Then
'未入力
指定年齢抽出 = ""
ElseIf 条件1 <> "" And IsNull(条件2) Or 条件2 = "" Then
'○歳以上
指定年齢抽出 = ">=" & "'" & 条件1 & "'"
ElseIf IsNull(条件1) Or 条件1 = "" And 条件2 <> "" Then
'○歳以下
指定年齢抽出 = "<=" & "'" & 条件2 & "'"
Else
'○歳以上 ○歳以下
指定年齢抽出 = "Between " & "'" & 条件1 & "'" & " and " & "'" & 条件2
End If
End Function
0465デフォルトの名無しさん
NGNGPublic Function 指定年齢抽出(ByVal 条件1 As String, _
ByVal 条件2 As String) As String
'指定年齢 or 期間 取得
If IsNull(条件1) Or 条件1 = "" And IsNull(条件2) Or 条件2 = "" Then
'未入力
指定年齢抽出 = ""
ElseIf 条件1 <> "" And IsNull(条件2) Or 条件2 = "" Then
'○歳以上
指定年齢抽出 = ">=" & 条件1
ElseIf IsNull(条件1) Or 条件1 = "" And 条件2 <> "" Then
'○歳以下
指定年齢抽出 = "<=" & 条件2
Else
'○歳以上 ○歳以下
指定年齢抽出 = "Between " & 条件1 & " and " & 条件2
End If
End Function
0466デフォルトの名無しさん
NGNGお手数かけました。
指定日付に"2002/10/22"、指定年齢に"Between 50 AND 70"が入ります。
指定年齢に入っている時点で変だったので混乱してしまいました。
動作はテキストボックスに○歳以上と○歳以下の項目があり、
このどちらか、または両方を入れて該当年齢抽出するものです。
○歳以上と○歳以下を判別するプログラムが間違っていました。
>>464
>>465
×…"'" & 条件1 & "'"
○…条件1
レコードセットや数値を抽出すには "'" & 条件1 & "'" で良いのですが、
文字列の場合は、そこまでの手間はいりませんでした。
0467デフォルトの名無しさん
NGNG0469デフォルトの名無しさん
NGNG何も登録されませんでした。しかたなくvb5.exeを起動してますが
これってどうなの？
0470467
NGNGRDBをいじる以上、現状はどうしても>460 のようにSQL文字列を
切ったり張ったりしなけりゃならない。別に>460 が悪いわけじゃない。
でも、こういったSQL文字列操作処理のバグとりは憂鬱。
なーんかもっとOOらしくスマートにできんかなあと思って。
(>460のソースは日本語変数名や関数の切り出し方に問題があるけど、
うちの連中のソースに比べたら綺麗なほうです。)
0471フォローになってないが・・・。
NGNG> うちの連中のソースに比べたら綺麗なほうです。
胃薬をどーぞ。
0472デフォルトの名無しさん
NGNGhttp://pc3.2ch.net/test/read.cgi/tech/1029422194/
0473デフォルトの名無しさん
NGNG>>1の書き込みがマジでウザイ
0474デフォルトの名無しさん
NGNGたとえばＢ４横を使用して、右半分、左半分とページ的に扱うにはどうしたらいいのでしょうか？
具体的には、
□□ ← Ｂ４を横にしたとして、
まず左がわにレコードを印刷していき、下まできたらつづきは右側、というようにです。
0475D
NGNGプリンタの設定をB4横にします。
[書式][セクション][ディティール][ラベルのレイアウト]
で”ユーザー定義サイズ”を選択してサイズを設定します。
ラベルサイズで設定されたサイズで面取りされます。
縦から横オプションボタンをオンにします。
宛名ラベルを参考にしてください。
0476デフォルトの名無しさん
NGNG0477デフォルトの名無しさん
NGNG0478デフォルトの名無しさん
NGNGどうせ年齢なんて範囲がある程度決まっているんだから...
Public Function 指定年齢抽出(_
ByVal 下限 As String, _
ByVal 上限 As String) As String
If IsNull(下限) Or 下限 = "" Then 下限 = "0"
If IsNull(上限) Or 上限 = "" Then 上限 = "999"
指定年齢抽出 = "Between " & 下限 & " and " & 上限
End Function
でいいと思うけど。
0479474
NGNGなんとか宛名ラベルを使用して、
また、１ページの表示できる最大レコード毎にページカウントを印刷ワーク作成時に入れて、
サブレポートにてページ毎の表を作ることができました。
今度は、線を任意に表示・非表示がやりたいのですが、
通常のテキストフィールドには式により設定できるのに、線オブジェクトの非表示項目には式がありません。
どうにかならないでしょうか。
0480デフォルトの名無しさん
NGNGどんもです。
AppendMenuかInsertMenuItemを使えばいいみたいですね。
少し作ってみたけれど、変なところにメニューが出来てしまいますたヽ(´Д`；)ﾉ
まぁ、色々チャレンジしてみますです。
有難うございますた
0481D
NGNGCrystalReportめったに使わないんでてきとーな返事なんですが、
線の上にテキストフィールドを非透過で置いてその表示/非表示を切り替えてみれば？
出来るかどうか分からないけど？
0482デフォルトの名無しさん
NGNGそのフォームで PopupMenu が使えんようだ
回避策を教えてくれ
0483デフォルトの名無しさん
NGNG優秀だからよぉ（ｗ
ま、初心者のスレに 転職しろってのも変な話だよなぁ。
しかも、みんな 職業プログラマみたいないい方だし。
前スレのレスが よっぽど 気に入ったらしいな（ｗ
0484デフォルトの名無しさん
NGNG新スレたてればいいんだ！
ここは スレデフレになってないしな。
って スレデフレって なんやねん（爆）
0485デフォルトの名無しさん
NGNGうん。俺も気にしない。まぁどうでもいいんだから、あんなの無視しとけって。
無視できない奴は実は>>1でわざと気づかせようとしていると思われるぞ(w
0486デフォルトの名無しさん
NGNG0487D
NGNG0488デフォルトの名無しさん
NGNG04891
NGNG0490デフォルトの名無しさん
NGNG１週間ぐらい？
0491デフォルトの名無しさん
NGNGVBは奥が深いよ
0492D
NGNG"CallByName"!
誰か使ってる？
0493デフォルトの名無しさん
NGNG>>>2-999
>悪いことは言わないから（ｗ）、転職、または他部門への異動を真剣に
>検討して頂きたい。技術のない技術者（言葉が矛盾しているが ｗ）の
>存在は、顧客にとっても、同業者にとっても、迷惑（足手纏い）以外の
>何者でもない。
おまえも入っているという罠
0494デフォルトの名無しさん
NGNGVBは比較的かわってて
C++ユーザーとかは入り込みにくいというのをよく聞く。
0495デフォルトの名無しさん
NGNGVBとVCとJavaでどれが他に有ってどれが他の言語に無いのか
まとめられればいいんだけどねぇ。
0496デフォルトの名無しさん
NGNG言語や開発ツールの比較対照をまとめたサイトなんていくらでも
あるだろーが。
0497デフォルトの名無しさん
NGNG入る必要がない。
0498デフォルトの名無しさん
NGNG言語仕様まで踏み込んだ比較対照サイトは知らない。
0499デフォルトの名無しさん
NGNG>>490が入る必要がありそうだ。
0500デフォルトの名無しさん
NGNGかわいそうだね。
0501デフォルトの名無しさん
NGNG別に。その程度でかわいそうだなんて甘いよ。
0502デフォルトの名無しさん
NGNGnavigate2 メソッドのヘッダーにて User-Agent を決めることは出来ましたが、
表示されているページのリンクを押した際されるページ切替の際は User-Agent を変える方法がわかりません。
どうやればいいかわかりますか？
0503デフォルトの名無しさん
NGNG（子フォームにはPictureboxがあり、それを使って編集。名前はPIc）
画像を読み込んだときに、PIcはAutosizeをtrueにして
読み込む画像のサイズに合わせているので良いのですが、
フォームもPIcが全部入るようにしようとして
ActiveForm.Width = ActiveForm.PIc.Width
ActiveForm.Height = ActiveForm.PIc.Height
とやると、PIcの一部が欠けてしまいます。どうすれば良いでしょうか。
開発環境はＶＢ６＋ＳＰ３です。
0504デフォルトの名無しさん
NGNGBorderの分が足りてないだけっしょ。
ex=ActiveForm.Width-ActiveForm.ScaleWidth
ex=ActiveForm.Height-ActiveForm.ScaleHeight
ActiveForm.Width = ActiveForm.PIc.Width+ex
ActiveForm.Height = ActiveForm.PIc.Height+ey
とかしてみ。
ScaleModeをvbPixelとかにしてるなら
Screen.TwipsPerPixelX/Yで補正してな。
0506デフォルトの名無しさん
NGNGAryStr(1)="VB"
AryStr(2)="タニシ"
・・・
という感じで文字の格納されている配列を
文字コード順で並び替えるにはどうすればいいのでしょう？
ならびかえたあと別の配列に入れる予定です。
NewAry(0)="VB"
NewAry(1)="タニシ"
NewAry(2)="桃"
ちなみに正規表現はよくわかりません。
0507デフォルトの名無しさん
NGNGやっぱりＣなんかよりもＶＢﾏﾝｾｰでつか？
0508デフォルトの名無しさん
NGNG経験が無いならという前提で。
VBでもDelphiでもBCBでも一緒。
VC++やBCCは、ちと時間がかかる。
0509デフォルトの名無しさん
NGNGコンソールアプリならCの方が短時間で何かのプログラムを作れる。
0510デフォルトの名無しさん
NGNGソートをオンにしたリストボックスを使う…のは邪道？
0511デフォルトの名無しさん
NGNG左端１文字でソートする。
まずは基本から。
手抜きはあとで教える。
0512デフォルトの名無しさん
NGNG> プログラムの種類にもよるけどね。
要するに、適材適所。
ハイヒールは登山には不向き。
ビキニの水着（あ、別にビキニじゃなくても(^^;）はスキーには不向き。
軽飛行機は宇宙旅行には不向き。つうか、不可能。
そういうこと。
0513デフォルトの名無しさん
NGNGバブルソート
AryStr(0)とAryStr(1)を比べて1の方が小さかったら0と1を入れ替える。
AryStr(0)とAryStr(2)を比べて2の方が小さかったら0と2を入れ替える。
これで0が最小になる。
1と2を比べて2のほうが小さかったら1と2を入れ替える。
これで1が0の次に小さくなる。
>>507
簡単なデバッグができるようになるまでの研修期間
VB 3ヶ月(9割の人間が習得できる)
VC++ 12ヶ月(5割の人間が習得できる)
0514デフォルトの名無しさん
NGNG3ヶ月は甘過ぎるような気がするけど？
(1) 新卒採用時に能力適性がきちんと見極められている。
(2) 短期集中教育
が実現できていれば、簡単なデバッグは1週間でできるかと思われ。
むしろ、構造化とか、変数のスコープ、OO的な部品再利用のしくみ
(COM等)の方が、教育に時間が掛かるのではないかと？
0515507
NGNG厨な質問でｽﾏｿ・・・・・・
コンソールアプリってなんでつか？(；・∀・)ｽﾏｿ・・・・
すばらしいです。
わたしは並び替えだけのためにデータベースをつかわないとかんかなあという大げさなことを考えてました
SQL文でASCやDESCEをつかうのかなあなんて。
>>511
>>513
StrComp()をつかってやるような予想はつけたのですが。
http://www.geocities.co.jp/SilkRoad/4511/vb/strsort.htm
がみつかったのでコピペで手抜きしてみます。
>>510リストボックス使ってみたくなりました。
0517デフォルトの名無しさん
NGNGson-na osoi houhou wo oshieruna.
0518デフォルトの名無しさん
NGNG次の中から選択してください。
(1) コソーリ作るアプリ
(2) コンソメの味がするアプリ
(3) コンサルの業務を支援するアプリ
(4) GoTo >>1 : End
※ ちなみに、推奨する選択肢は(4)です。ｗ
0519517
NGNG隣のものと比べるんじゃないの？
AryStr(0)とAryStr(1)を比べて0の方が小さかったら0と1を入れ替える。
AryStr(1)とAryStr(2)を比べて1の方が小さかったら1と2を入れ替える。
というのを配列の末尾までやると一番大きな値が配列の末尾にくる。
あとはソートする範囲をせばめて同じことを繰り返す。
0522デフォルトの名無しさん
NGNG0523デフォルトの名無しさん
NGNG0524デフォルトの名無しさん
NGNG0525513
NGNG適性検査の結果で、VB研修コースとVC研修コースに分けます。
さらに、VC研修コースで落ちこぼれた人たちにVB研修コースに行って貰います。
>構造化とか、変数のスコープ、OO的な部品再利用のしくみ(COM等)
を理解してもらおうとは思っていません。
でも、現実はVCいじってても、デバッグはできるけど
フルスクラッチはできないって人が多いでつ。
Ascをヘルプで見てみました。まさに求めていた関数でした。
はじめてAscをみたときは絶対値を返すのとおなじ関数なんだなあとおもいましたが、
ヘルプを読んでいくうちに絶対値はAbsだとわかりました。ありがとうございました。
>>506-525みなさま
ありがとうございました。
0528デフォルトの名無しさん
NGNG>>構造化とか、変数のスコープ、OO的な部品再利用のしくみ(COM等)
>を理解してもらおうとは思っていません。
こうやってVBユーザに糞プログラマが量産されるんだな(ﾜﾗ
0529デフォルトの名無しさん
NGNG0530デフォルトの名無しさん
NGNG0531デフォルトの名無しさん
NGNGVB上で実行すると「DLLが正しく呼び出せません」とエラーがでます。
Exeにすれば動くようなのですが、それではデバッグ時に激しく困ってしまいます。
どうすればよいのでしょうか？
0532デフォルトの名無しさん
NGNG掃溜めなのか（ｗ
0533デフォルトの名無しさん
NGNGdim db as Database
set db = open(......
if db = 開けた？ then
msgbox "やったー"
end if
みたいにオープンできたかどうか調べたいのですができますか？
On errorとかは使いたくないのですが
0534デフォルトの名無しさん
NGNGdim db as Database
set db = open(......
if Err=0 then
msgbox "やったー"
end if
0535デフォルトの名無しさん
NGNGにゃるほど。さんくす。
0536デフォルトの名無しさん
NGNGハア？ 無理です。
悪いことは言わないから（ｗ）、
転職、または他言語への異動を真剣に検討して頂きたい。
0537デフォルトの名無しさん
NGNGいや、説明上そういっただけでほんとは使ってるよ。
0538デフォルトの名無しさん
NGNGよく使い道を理解した上で、必要最小限しか使わなければいいわけで。
0540デフォルトの名無しさん
NGNGon errorを意味なく嫌ってるアホって意味でしょｗ
538が書いたとおり、使い方さえ間違えなければいいだけなのに
0541デフォルトの名無しさん
NGNGOn Error使わんと無理。openでこけるよ。
0543デフォルトの名無しさん
NGNGがいやで、
On Error Resume Next
は別にいいとかではなくてかな
0544デフォルトの名無しさん
NGNGんなもん、使用した関数で エラーを出して ＩＦ文で処理させろよ。
0545デフォルトの名無しさん
NGNGそのソースを見てみないことには何とも．．．
0546デフォルトの名無しさん
NGNG答えがOn Error以外のが欲しかったから。
0547デフォルトの名無しさん
NGNG> 使用した関数で エラーを出して ＩＦ文で処理させろよ。
（ ´,_ゝ`） ﾌﾟｯ
ネタ？
0548デフォルトの名無しさん
NGNGOn Error使わないで、On Errorに引っかかるようなエラーが出ると
「～～～エラー ～～～が～～～です」とかメッセージボックスでたあと強制終了しちゃうけど、
メッセージボックスだけでだして終了しないようには出来ないの？
On Error Resume Nextしたみたいにエラーだしたあと、その処理を無視して
続行、みたいな。
0549デフォルトの名無しさん
NGNGじゃあそもそも聞き方が間違ってる。
現在は on error で処理していますが、違う方法は
ないんでしょうか？ が正しい。
0550531
NGNGDim Ret As Long
Ret = EnumWindows(AddressOf Rekkyo, 0)
End Sub
Public Function Rekkyo(ByVal Handle As Long) As Boolean
～コード～
End Function
関数Rekkyoの中身に関わらずエラーがでます。
0551デフォルトの名無しさん
NGNGそうなんだけどね。俺日本語不自由なんだよね。察してよ。
0552536
NGNG541が書いてるように、OpenDatabaseでオープンできなかった時は
実行エラーが発生するのはわかってる？
それがわかっていれば On Errorなしではチェックできない
こともわかるはず。
>>550
Rekkyoの引数の数と戻り値の型が間違ってるよ。
(戻り値の型が違うのはエラーとは関係ないが)
Public Function Rekkyo(ByVal Handle As Long, _
ByVal lParam As Long) As Long
0553531
NGNGっていうかこのコード実はサンプル集から持ってきた奴だったりして（ｗ
でもEXEにすると動いたのはなぜ？？
0554552
NGNGさあ。手元にVBがないのでわからんけど、
俺の手元のWin98では、EnumWindowsのコールバック関数の
引数のサイズや呼び出し規約が正しくなくても、
それを呼び出したDLL側でスタックポインタを復帰してくれてる。
そうなると、開発環境がエラーを検出できている方が不思議だけど。
0555デフォルトの名無しさん
NGNG0556デフォルトの名無しさん
NGNG「この会社辞めようと思った上司の一言」ですか？
0557デフォルトの名無しさん
NGNGメニューとか全部独自のカラー＆デザインになってますよね。
でも機能や操作性はWindows標準コントロールと変わらない。
あれは独自にコントロールを作成しているのでしょうか？
それとも、Windows標準コントロールに何らかの方法で描画しているのでしょうか？
VBでコマンドボタンの色を変えようとしても表面だけで陰の部分は変わってくれませんよね？
0558デフォルトの名無しさん
NGNGインライン エラー処理使えよ。
0559デフォルトの名無しさん
NGNGそのソニー製は見たことないから知らんけど、
標準コントロールでも独自コントロールでも可能。
0560デフォルトの名無しさん
NGNG標準コントロールと100％同じ独自コントロールだって作れるん
だから、自分でがんばれ！
0561557
NGNGまぁボタンとチェックボックスぐらいはできそうだけど、
リストボックスや、メニュー、タブストリップまでとなると。。
おそらくソニーのやつは標準コントロールになんらかのメッセージを送ってると思うのですが
どういったAPI使えばよいのでしょうか？
0562557
NGNGあれと同じ事をしてると思うのですが。
0563デフォルトの名無しさん
NGNG重くなったり動作が不安定にならないように気を付けてね・・・
0564デフォルトの名無しさん
NGNGリッチテキストボックスを半透明にするコマンドとかあるんですかね。
0565デフォルトの名無しさん
NGNGWinME,XP,98でしか無理。
というか、
１）エディタは出来てるが半透明化が全く解からん
２）エディタもつくれないし、透明化も全く解からんアホ
どっち？
0566デフォルトの名無しさん
NGNGWin2000,XPでしょう？
Windowsの透明レイヤー機能を使うか、
自分で全部描画するかすりゃいいとおもいます
0567デフォルトの名無しさん
NGNG接続とエラー処理は別のモジュール内にあります。
これを実行したとき、矢印の場所の”cnObj”の個所で
エラーメッセージ「名前が適切ではありません」と言うのが出てきてしまうのですが、
cnObjの宣言をFnc_Orasseion内で行うと上手く行きます。
Publicで接続オブジェクトを宣言しても、別モジュールでは使用出来ないのでしょうか。
basOra内
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Public cnObj As New ADODB.Connection
Public rsObj As New ADODB.Recordset
Public er As ADODB.Error
Public Function Fnc_Orasession() As Boolean
Dim ret As Boolean
On err Goto ErrTrup
'ﾃﾞｰﾀﾍﾞｰｽ接続文字列
cnObj.Open pstrOraSource, pstrOraUser, pstrOraPass
Exit Function
ErrTrup:
call subErr
End Function
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
basErr内
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
public sub subErr
For Each er In cnObj.Errors ←
msgbox er.Number
Next
end sub
0568564
NGNGエディタはつくれなくても、
テキストボックスやリッチテキストボックスを透けさしたり、それらに背景画像を表示させてみたいです。
あそびごころのあるテキスト入力ボックスですね。
WindowsはXPです。
透明レイヤー機能ははじめて聞きました。
0569デフォルトの名無しさん
NGNGでも結構簡単に実装できる。
でもちょっと重い。
0570デフォルトの名無しさん
NGNGｱﾌｫ?
どのWinでもできるっつーの
0571デフォルトの名無しさん
NGNGどういうスコープになるのでしょうか？
確か、C++でクラス内にStatic宣言をすると、
各インスタンスから参照される定数が
メモリ上に一個だけできたはずなんだが。
0572デフォルトの名無しさん
NGNG0573564
NGNG0574デフォルトの名無しさん
NGNGhttp://homepage2.nifty.com/rohizuka/ka/pa_003_a.htm
0575564
NGNGttp://www.vector.co.jp/soft/winnt/prog/se254101.html?g
ttp://tokyo.cool.ne.jp/kanain/APIHTM/Blend.html
ttp://www.vector.co.jp/soft/winnt/prog/se154482.html?y
ttp://www.vector.co.jp/soft/win95/prog/se144994.html?y
ttp://dobon2.tripod.co.jp/dotnet/form.html#opacity
画像の半透明化は結構みつかる。
VB.NETではフォームを半透明にするコマンドも標準であるらしいこともわかった。
テキストボックスを半透明にするにはBitBltとかを勉強してみるしかないか。
0576デフォルトの名無しさん
NGNGまたそれか。しね。
0577デフォルトの名無しさん
NGNG> まぁボタンとチェックボックスぐらいはできそうだけど、
> リストボックスや、メニュー、タブストリップまでとなると。。
メニューはともかくとして、リストボックスやタブなら
自前でも難しくはないと思う。
> おそらくソニーのやつは標準コントロールになんらかのメッセージを送ってると思うのですが
> どういったAPI使えばよいのでしょうか？
標準コントロールにメッセージを送るのではなく、
サブクラス化とか、オーナードローを使うのが普通。
(コールバック関数を用意して、送られてくるメッセージを自分で処理する)
0578557
NGNGクラスはまだ全然分からないです。
>メニューはともかくとして、リストボックスやタブなら
>自前でも難しくはないと思う。
まぁタブはそれほどむずくはないですか。
リストボックスはちょっとむずそうというかどちらかというとリストビューのほうが良いし。
あとスクロールバーがあれば大抵はいけそうではありますが。
0579デフォルトの名無しさん
NGNG> クラスはまだ全然分からないです。
オブジェクト指向のクラスのことを言ってるの？
ウィンドウのサブクラス化はそれとは別物なので、
一度ググッてみることをおすすめする。
0580デフォルトの名無しさん
NGNG＞オブジェクト指向のクラスのことを言ってるの？
＞ウィンドウのサブクラス化はそれとは別物なので、
オブジェクト指向なAPIを持つWindowsに対する挑戦か？
0581
NGNG0582デフォルトの名無しさん
NGNGVB.NETでは可能
0583デフォルトの名無しさん
NGNG教えてください。
0584デフォルトの名無しさん
NGNG0585デフォルトの名無しさん
NGNG感謝。m(_ _)m
分岐条件が網羅的なところにセンスを感じますた。
0586デフォルトの名無しさん
NGNG0587デフォルトの名無しさん
NGNG改行文字を。
0588デフォルトの名無しさん
NGNGListboxなんですけど、表示を確認してから コーディングの仕方を
教えてもらえないでしょうか？
0589デフォルトの名無しさん
NGNG>>587
です。
0590デフォルトの名無しさん
NGNG改行文字を入れろって書いてあるじゃん
0591デフォルトの名無しさん
NGNG日本語が読めない人をいじめたら可哀そうじゃん。
0592デフォルトの名無しさん
NGNGおれやってみたけど、改行文字入れても ダメだった。
0593デフォルトの名無しさん
NGNGちなみに何入れたの？13 10だよ？OK？
0594デフォルトの名無しさん
NGNG\n か？
chr(13) & chr(10) か？
それとも 改行文字って 入れないとダメなのか？（ｗ
0595デフォルトの名無しさん
NGNG0596デフォルトの名無しさん
NGNG0597デフォルトの名無しさん
NGNGメニューエディタで設定できないショートカットキーで
特定の子フォームのイベントを発生させたい場合
どうしたらいいでしょう？
全ての子フォームにキーイベントを書かないとだめでしょうか？
メニューエディタのショートカットキーを増やす裏ワザとか
あったりするんでしょうか？
0598デフォルトの名無しさん
NGNGWin2000(sp3) & vb6(sp5)
0599デフォルトの名無しさん
NGNGToolTipText用のフォームを作るなりコントロールを作るなりしてゴマかせ。
0600デフォルトの名無しさん
NGNG了解
0601デフォルトの名無しさん
NGNGなーんだ できないのか。いくらやっても おかしいなぁと思ったんだよ。
だから、できるのを確認して、コードを出してって いうのに、
変なこと いう人いるんだから。
0602デフォルトの名無しさん
NGNG・・・誰？
0603デフォルトの名無しさん
NGNG誰 っつーか 無償の第三者に動作確認してから
コード出せとは相当図々しいぞ。学生だろお前？
0604デフォルトの名無しさん
NGNG謎の半角スペースは何のつもりなんですか？句読点の使い方がいまいち理解できてない？
VBとかより今の義務教育の勉強を真面目にした方が良いと思われ。
後、煽りには国語必須な。
文章に隙があれば付け入られる。
0605デフォルトの名無しさん
NGNG＞学生だろお前？
と言うせりふをこの板で良く耳にしますが、社会人は偉いんですかいな？
立派な人は立派ですが>>603の様な痛い方も多いわけで。
0606デフォルトの名無しさん
NGNG肝心な部分に反論できてないｷﾐのほうがｲﾀｲよ・・
0607デフォルトの名無しさん
NGNGということでしょうな
0608デフォルトの名無しさん
NGNG禿同。605よ、言葉通りに受け取らず、そう言われた意味を察しろ。
0609デフォルトの名無しさん
NGNGどうでもいいとこいじくるな。
>>603を含むこの板の住人は社会人がえらいとかどうとかじゃなくて
モラルとか常識のなさを学生並と皮肉ってるんだろ。
0610デフォルトの名無しさん
NGNG生徒だろお前?
0611デフォルトの名無しさん
NGNG生理だろお前?
0612デフォルトの名無しさん
NGNGvbCrLfでも無理なはず。
0613デフォルトの名無しさん
NGNGWinXPでもPCカード取り外したりするときにでてくるToolTipを使うとよいよ
み～くんぱぱのところにサンプルがある
0614デフォルトの名無しさん
NGNG0615デフォルトの名無しさん
NGNGここでいいよ
0616デフォルトの名無しさん
NGNGなぁ、本とかで勉強してこい。
0617デフォルトの名無しさん
NGNG0618614
NGNGじゃあ、叩かれるのを承知で書いてみます。
全然初心者なんですけど、急きょVBをいじらされることになりました。
リストラは最悪です。（昔はSEがいたのだけど、今は庶務課の私が開発
も兼務・・・）
さて、作るＡＰなんですが、pdfファイルを３つ選択して、それをftpで送信するというものです。
こんな書くと簡単なものなのですが、作り方がさっぱりわかりません。
（今日VBをインストールしたばっかの初心者なんで。。。）
AP実行手順（イメージ）は、
①アプリを.exeで起動
②あらかじめform上に用意してある３つのブランクBOXに.pdfファイルを選択してきて、入れ込む。
（pdfファイルは指定のフォルダに入れておくカタチでも良いですが、
windowsのディレクトリを参照してファイルが選択できるようであれば尚良しです。)
③3つのブランクにファイルが埋まって、「送信ボタン」を押すと指定したftpのサイトへそのファイルを転送する。
④送信終了時に「送信完了（成功）」とかメッセージが出る。
⑤終了ボタンでexeが落ちる
ってな具合です。
0619デフォルトの名無しさん
NGNG0620デフォルトの名無しさん
NGNG0621デフォルトの名無しさん
NGNG初歩的な質問とは言い難いがその会社すごい事させるな。(w
サンプルのソース探してそれをいじくるのが吉と思われ。
0622614
NGNGサンプル探しているんですけどねぇ。。。みつからなひ
0623デフォルトの名無しさん
NGNGMS-DOSで、FTPっていうコマンドが、使えるから、それでバッチを
作ったほうが、簡単。
0624デフォルトの名無しさん
NGNGじゃぁ、こんなのはどうだ？
ttp://www.vector.jp/soft/win95/net/se058005.html
0625デフォルトの名無しさん
NGNGたぶん作ってもらいたいのはFTP送信というよりも
フォームにファイルを選択してボタン押すだけで送信できるツールだと思われる。
0626デフォルトの名無しさん
NGNG0627デフォルトの名無しさん
NGNG車輪すらまともに作れず威張ってるヤツよりましだと思われ。
0628デフォルトの名無しさん
NGNGそれ作ってやってもいいぞ、ただで。
0629デフォルトの名無しさん
NGNGミラーリングとか必要なさそうだし
0630デフォルトの名無しさん
NGNG0631デフォルトの名無しさん
NGNG俺だったら、セクースさせて貰わんと、納得できんが。
0632デフォルトの名無しさん
NGNG男だよ。
0633デフォルトの名無しさん
NGNG0634630
NGNG0636デフォルトの名無しさん
NGNG0637デフォルトの名無しさん
NGNG0638デフォルトの名無しさん
NGNG0639デフォルトの名無しさん
NGNGフリーのFFFTPの方が明らかに優れているのに、なんでわざわざ
シェアウェアを使うよ？
0640デフォルトの名無しさん
NGNGそうか？シンボリックリンクもまともに操作出来ないあのソフトが？
0641デフォルトの名無しさん
NGNG制限解除する前の状態と比較するなよ・・・
0642デフォルトの名無しさん
NGNG(1)IEを起動する。
(2)アドレス欄に「ftp://FTPサーバのアドレス」と入力しEnter。
ユーザとパスワードを聞かれるので入力する。
このとき「パスワードを保存」をチェックしておくと次回から楽。
ついでにアドレスはお気に入りに入れておけばなお楽。
(3)エクスプローラでPDFファイルのあるフォルダを開く。
(4)３つのファイルを選択してIEにドロップ。
これでだめかい？
0643614
NGNGメールアドレスは、[email protected]になります。
よろしくお願いします。
>>642
お客さんに見せるデモの一部なんで、それではダメなんだそうです。
やってることはその通りでも、それっぽくみせることが大切とかで！？
（下請けなんで、ツライです。）
しかし、まともなプログラマいないのに・・・。
0644デフォルトの名無しさん
NGNG0645デフォルトの名無しさん
NGNGおいおい。客がいるのかよ。だったら教えられないな。
客がかわいそうだ。
0646デフォルトの名無しさん
NGNGマニュアル読めよ
0647デフォルトの名無しさん
NGNGdim hoge()
0648デフォルトの名無しさん
NGNG質問の内容は確かに初歩的だが以前に、本人に努力する意思が見られな
い以上、これ以上のアドバイスはする気にならんね。
0649デフォルトの名無しさん
NGNGさんくす。
それをヒントに今からサーチします！！
ってかマニュアル買う金ねぇ．．．鬱。
0650デフォルトの名無しさん
NGNGヘルプでいいだろう
0651デフォルトの名無しさん
NGNG(ﾟдﾟ)ハァ？
0652デフォルトの名無しさん
NGNG本屋で立ち読みとか
サンプルコードを探すって手もある。
0653デフォルトの名無しさん
NGNG私VBA（エクセルのヤツ）なんだけど、ヘルプ見ようとするとインストールがどうのって言われるﾟ･(｡´Д⊂)ﾟ｡・
ネットで探すしかない。
あと本屋で立ち読みする程度では私には理解できないと思う。
0654デフォルトの名無しさん
NGNGやれるだけやってみて、
そして解らないことが出てきたら、
個別にここで聞いてみたらどうでしょう？
それか、お金を払って別の会社に作ってもらっては？
0655614
NGNG628さんのお助けは、あくまで最後の切り札と考えています。
これでも自分なりに試行錯誤しています。
（本とか買ってきて、分からないなりにイジっています・・・）
こんな中年になって苦労するとは思いませんでした。
全然ダメダメ初心者ですが、頑張ります。
0656デフォルトの名無しさん
NGNGインストールしろよ
0657デフォルトの名無しさん
NGNGInetコントロールを使えば簡単だよ。
0658デフォルトの名無しさん
NGNGほい！
http://www.microsoft.com/japan/developer/library/VBCon98/vbconusinginternettransfercontrol.htm
0659デフォルトの名無しさん
NGNGﾊｧ?日本語も読めねーのか?
そりゃエラーメッセージ読めなきゃ本なんか読んでも意味ねーよな。
北鮮に帰れや。
0660デフォルトの名無しさん
NGNGですよねｗ。こないだからCD探し続けてます。
0661デフォルトの名無しさん
NGNGコントロールを知りたいんですが方法ないですかね？
どこかで見かけた記憶があったような気がするんですが・・
0662デフォルトの名無しさん
NGNG無理に ＶＢを使う必要なしっ！
0663デフォルトの名無しさん
NGNG0664デフォルトの名無しさん
NGNG0665デフォルトの名無しさん
NGNG0666デフォルトの名無しさん
NGNGAutoRedrawとかClipControlsとかそこらへん。
0667デフォルトの名無しさん
NGNG四角を取る → 角が取れて人間が丸くなる
という意味。要するに、テクニカルスキルだけでなく、対人関係にも
気を遣わないとダメですよ、という意味。
0668デフォルトの名無しさん
NGNG目からうろこです。
0669デフォルトの名無しさん
NGNGVB VBA VBScript
とあとなにがあるんですか？
0670デフォルトの名無しさん
NGNG派生というか全部サブセットです。以上。
0671デフォルトの名無しさん
NGNG0672デフォルトの名無しさん
NGNGよくあるサンプルはApp.PrevInstanceとAppActivateを使う奴が多いようです
が、これだと別の場所にコピーしたExeから起動できてしまうし、
タイトルバーの名前を変えてしまうとアクティブにできません。
ミューテックスを作成するとかいうのはプログラムが正常終了しないと起動できなくなってしまいます。
ウィンドウのタイトルを取得してソフト名が含まれてたら～ってやればいいじゃん
と思ってやってみたのですが、ウィンドウタイトル＝Exeの入ってるフォルダ名
ってことがあるとダメなことに気がついてしまいました。
どういう方法が一番よいでしょうか？
プロセスからファイル名を取得してファイル名から判断するってなことも考えてみましたが、
どうだろうって感じです。
0673デフォルトの名無しさん
NGNGそんなことはないと思うが？
0674デフォルトの名無しさん
NGNG同意。NTオブジェクトである以上プロセスと運命をともにするはず。
0675672
NGNG一度実行するともう起動しなくなります。
EXEにすると問題ないのですが。
0676デフォルトの名無しさん
NGNG0677デフォルトの名無しさん
NGNGそれでいいんじゃない？ というか、
EXEの時にだけチェックするのでは不都合があるの？
0678672
NGNGただ、VBの終了ボタンで終了してしまうと当然起動しなくなりますが。
開発環境で実行してるかどうかのチェックをすればよいのかな？
VB5だとわり算だかで計算結果が違うのを利用できたそうなのですがVB6はどうなのでしょうか
0679デフォルトの名無しさん
NGNG> 開発環境で実行してるかどうかのチェックをすればよいのかな？
気は確かか ? 一体どのタイミングでチェックするんだ ?
0680672
NGNGIf 開発環境=False then
Unload Me
End If
ってやるだけですが。
0681デフォルトの名無しさん
NGNG0682デフォルトの名無しさん
NGNGだからexe実行時かどうか知りたいんでしょ？
デバック時にも２重起動禁止が働いて、２重起動してないのに走らないんじゃ不便だから
0683デフォルトの名無しさん
NGNGMSの技術情報ではApp.ExeNameで判定するのが
紹介されていたような気がする。
でも、条件付きコンパイルとか、EXEを作る時に初めて
チェックルーチン呼び出しを組み込んでもいいんじゃない？
0684デフォルトの名無しさん
NGNG0685672
NGNGアプリケーション側で終了していればQueryUnloadが呼び出されてMutexが解放されるけど、
VB側で終了させてしまうとMutexが解放されないので以降実行できなくなってしまうんですよ。
VBを終了させてプロジェクトを開き直さないといけません。
>>683
条件付コンパイルですか。なるほど。
それでもいいかな。
0686デフォルトの名無しさん
NGNGなんで終了処理の方で使い分けようとするの？
終了時ではなく、起動時のMutex作成を
(開発環境での実行時は)行わないようにした方が
よいのでは？
0688デフォルトの名無しさん
NGNGどこに書いておけば、そのコードが「VB側で終了させてしまうと」の時に走るんだ ?
(ったく、誰がチェック/対処 の仕方を聞いてるんだよ...。)
(しかも、Unload Me したってダメだし。)
0689672
NGNGそうですね。そうします。
ところで、Mutexの作成元のウィンドウはどうやったらわかるのでしょうか？
二重起動の時には既に起動しているウィンドウをアクティブ表示にしたいのですが。
0690デフォルトの名無しさん
NGNG0691デフォルトの名無しさん
NGNGそれこそウィンドウタイトルやクラス名でウィンドウを検索して
アクティブにすればいいのでは？
Mutexの作成元プロセスを取得する方法があるのかどうか知らないけど、
仮に方法があったとしても、多分、NT系OS限定(セキュリティ関連)
ではないかと思う。
それと、688の意味はわかった？ 彼の言ってることは正しいと思うよ。
0692672
NGNGいや、別にVBで終了させるときに走らせる必要はなくて
VB上なら問答無用で起動させるようにすりゃよいだけです。
というか686さんの方法でばっちりなのですが。
0693デフォルトの名無しさん
NGNGwin2000は環境変数があってそこから取得すればよいと思うんですが、
win95の場合はどうやって取得すればよいと思いますか？iniファイルとか？
なにかよい案をください。
お願いします。
0694デフォルトの名無しさん
NGNGパスワードは、ポストイットに書いたのをモニタに貼り付けておく。
それを見ながら、画面上でパンチすればよい。
iniファイルを使うのはセキュリティ上問題があるので、不可逆暗号化した方がよい。
0695デフォルトの名無しさん
NGNGあなたと同じようなソフトを作りたいと思ってるんですが、
まったくのプログラム初心者ですが、私にも出来るでしょうか？
0696630
NGNG0697693
NGNGありがとうございます。
自分の書き方が悪かったのですが、情報に持ちたいのは
DB接続に使うためのサーバー名,DB名,ユーザーID,パスワードなんです。
なにか良い案はありますか？
0698デフォルトの名無しさん
NGNG0699デフォルトの名無しさん
NGNGメディアプレイヤーコントロールは
コードで直接ファイル名を指定して再生するのは簡単ですけど、
実行時にエクスプローラの動画ファイルをメディアプレイヤーコントロールにドラッグして
FileNameプロパティをドラッグファイルに設定する方法がわかりません。
メディアプレイヤーコントロールに
DragDropというものがありましたがそこに何を書いたらFileNameを設定できるのでしょうか。
Private Sub MediaPlayer1_DragDrop(Source As Control, x As Single, y As Single)
End Sub
↑こんなかんじにDragDropがなってました。
0700デフォルトの名無しさん
NGNG0701デフォルトの名無しさん
NGNG0702デフォルトの名無しさん
NGNG0703デフォルトの名無しさん
NGNG合意の上なら、「合姦」。(ｗ
0704デフォルトの名無しさん
NGNG痛がらせてから「じゃああっちの平らな所にする？」と聞き、
「うん」と答えさせたら強姦じゃなくなるとかいう話聞いたな。
激しくどうでもいい上にスレ違いだが。
0705デフォルトの名無しさん
NGNG0706デフォルトの名無しさん
NGNGんなわけねーだろ。
0707デフォルトの名無しさん
NGNG当方、プログラマと言うわけでは無く、単純に仕事の流れの１部分を
楽にして他の作業に時間をかけようと思ってるので作ろうと思ってる
わけなんですが、過去プログラムで挫折クチであります。
女性も多い職場なので合コンぐらいだったらいくらでも用意しますが、
まずは私と友達になった上で信頼が置けるようであればいくらでも合コン
程度で良ければ用意できます。さすがに掲示板で知り合って初対面での合コンは
厳しいですね。と、マジレスはさておき、
ファイル選択には、TextBoxにとファイル参照用のCommandBoxの配置まで
やった上で、グーグル検索しコモンコントロールを使用するらしいという
ところまで来ました。
FTP送信部分には>>624のdllを組み合わせてみようかなと思ってます。
暖かく見守ってください。今日中に出来るかな？！
0708630
NGNGそこまでできてんなら、俺の出番は無いな。
完成したら>614 にあげれば。
0709695=707
NGNGいい線まで行けてますか？
私も初心者なんで勉強にもなってますから、上手く行ったらUPしても良いとは思ってますが
はてさて成功するでしょうか…。
コモンコントロールでいつも見慣れてるファイルの参照ようのBOX表示までは成功したんですが、
それをTextBox表示させる部分に来て、グーグル検索繰り返してます。
１０日で覚えるとかって本を見たことが有ったので、それでも買ってこようかな…。
0710デフォルトの名無しさん
NGNG女性が多い職場かー
いいな。俺んとこには一人もいねー
0711630
NGNGPrivate Sub Command1_Click()
Call Me.CommonDialog1.ShowOpen
Me.Text1.Text = Me.CommonDialog1.FileName
End Sub
0712695
NGNGおぉ。ありがとうございます。
追加でこういう風に変更してみました。
----------------command box------------------
Private Sub Command1_Click()
CommonDialog1.DialogTitle = "ファイル選択"
CommonDialog1.FileName = ""
CommonDialog1.Filter = "テキストファイル *.txt|*.txt;|アプリケーション *.exe|*.exe"
Call Me.CommonDialog1.ShowOpen
Me.Text1.Text = Me.CommonDialog1.FileName
End Sub
----------------text box------------------
Private Sub Text1_Change()
Text1.Text = CommonDialog1.FileName
End Sub
------------------------------------------
なんとなくあぷりっぽくなってきました。ありがとうございます。
今度は、送信ボタンを押せばtextbox内のファイルを送信させる
と言うcommand box部分に入ってみようと思います。
0713デフォルトの名無しさん
NGNGFTPとサンプルをキーワードに検索エンジンで探せばいろいろ見つかるが
WinInetを使用したVBによるこのサンプルがお薦め
http://www.aland.to/~e-biac/programming/library/index.html#bwFtp
0714695
NGNGありがとうございます。今、見てる最中ですが、
初心者の私には何とも長いコードのように思えてf(^^;
イベントプロシージャをさっき理解したところでして…（汗
長い目で見て勉強になりそうです。
できれば単純にFTPコネクトしてputしてそれが成功したか、
その途中のどこかで失敗かをダイアログで出す所まで行きたいんですが…。
basファイルの標準モジュールが何なのかを調べ漁ってます。
0715デフォルトの名無しさん
NGNGxmlファイルを読み込んで処理したいのですが、
何か簡単な方法は無いでしょうか？
0716デフォルトの名無しさん
NGNG外注に○投げする。
0717715
NGNGいや、仕事ではないので。
0718デフォルトの名無しさん
NGNG0719デフォルトの名無しさん
NGNG（ようするにネットワーク接続があるときにタスクトレイに出てくるやつに表示されるバイト数）
を求めたいのですがどうやればよいでしょうか？
送受信共にです。
転送量モニターを作りたいのです。
WinSockとInetコントロールはみたところ送受信自体をやるもののようなのですが。
0720デフォルトの名無しさん
NGNGほい！
http://netpassport-wc.netpassport.or.jp/~whkama/vbasam/IfInfo.htm
0721
NGNGプログラム開始から終了までを計測したいのですが
マルチスレッドにしないとできないような事を言われました。
・ＶＢでミリ秒単位の管理は可能？
・ＶＢでマルチスレッドってどうやって実現する？？
どなたか教えてください。
0722デフォルトの名無しさん
NGNGGetTickCountとか。
マルチスレッドは無理。
てか、プログラム開始から終了はかるのにマルチスレッドなど何に使うっつんだ？
0723デフォルトの名無しさん
NGNG0724デフォルトの名無しさん
NGNGほう、マルチタスクなハードリアルタイムOSはやたらとあるが。
0725デフォルトの名無しさん
NGNG例を出してみ
0726デフォルトの名無しさん
NGNGつーかウィンドウズ上で正確にexeの実行開始から終了までの時間なんて
計測できない
0727
NGNGありがとうございます。ついでに質問なのですが、こいつを使えば
起動後、正確に５秒後とかにイベントを発生させるような
事が可能でしょうか？
タイマーオブジェクトだと、微妙にずれてしまって
うまく行かなかったので・・・。
0728デフォルトの名無しさん
NGNGフォームロード時にGetTickCountして適当な変数にぶち込んでおき、
終了するときにまたGetTickCountして、そこから起動時に変数に入れた奴を引き算した奴で
上等なんだろ。
そんな細かい屁理屈こねるなよ。
0729デフォルトの名無しさん
NGNGその正確ってのがまた微妙だなぁ。
誤差100msくらいなら正確と捕らえるのか、
1msでもズレたらあかんのか。
0730
NGNGありがとうございます！
これで難しいプログラミングしなくてすみます！！
>>729
外部デバイスの動作時間を計測したいので、
できれば正確なものがよいのですがー
それっぽい数字が出ればいいので、100msぐらいの
誤差ならかまわないです。
もっと正確に計測できる方法をご存知ならば
教えていただきいのですが・・・。
0731デフォルトの名無しさん
NGNGだったらそれこそGetTickCountでいいべ。
0732
NGNGありがとうございます！！！
これですっきり解決です。
0733デフォルトの名無しさん
NGNG0734デフォルトの名無しさん
NGNG0735デフォルトの名無しさん
NGNG> 再起動させるコードが知りたいのですが…
コンパイルエラー：
主語がありません。
0736デフォルトの名無しさん
NGNGhttp://www.google.co.jp/search?sourceid=navclient&hl=ja&q=VB+%8D%C4%8BN%93%AE+tips
0737デフォルトの名無しさん
NGNGリンク先に行って見ましたが、自分の探しているものは見つからないのです。
私が望んでいるものは、VisualBasicで作ったボタンで、Windowsを再起動させる為のVBのソースコードが欲しいのです。
どうか教えて下さい。お願いします。
0738デフォルトの名無しさん
NGNGほれ！
http://www.cc.rim.or.jp/~namas/vb/vb_api.html
0739デフォルトの名無しさん
NGNGどこに目ぇついてんの？>>736を52回読め
0740デフォルトの名無しさん
NGNG>>739
警告：
反復回数は2のべき乗で指定してください。
0741デフォルトの名無しさん
NGNGマジですかΣ(ﾟДﾟ)
0742614
NGNGもう、心底疲れました。
VB超初心者向け入門本とかには、簡単な計算プログラムとか載ってて
「やっぱ最初はこういうのからやるだよなぁ」と、いきなりファイル転送の
プログラムを作ってる自分の愚かを改めて感じます。
今、PDFのファイルをCmnDialogで拾ってきて、そのファイル名（パス）をlistboxに表示させ、
それをuploadするところを考えているのですが、
CmdBtnでCmnDialogを表示させ、ｐｄｆファイルを選択するとBOXに１つ表示。
で、また同じボタンを押して同様にｐｄｆファイルを選択するとBOXの2段目に表示。
という具合にしたいのです。3回繰り返しで3つのファイル名を表示させたいんです。
で、それをInet1.Execute , "PUT"でuploadしようと思うのですが。
なんか695さんも私と似たようなものをお作りのようで、712とかもみて
みたんですが、ちょっと違うようなのでお聞きしたいと思って書きました。
それでは宜しくお願いします。
0743デフォルトの名無しさん
NGNG0744614
NGNGpdfファイルを選択するディレクトリが、
異なることも考えられるので、
別々に３回になるのかな？と思ったんですが。
あと、パスを表示させて、その内容を使って送信をしたい時は、
何のボックスを使えば良いのですか？
はぁ、ホントにダメ人間だな。(泣
0745デフォルトの名無しさん
NGNG１．エクセル、ｃｓｖ、ｍｄｂなどからの任意データのインポート
２．項目の自由な設定
３．一覧、宛名ラベル、伝票などの印刷
１，２は適当にいぇれそうですが、３で困っています。なんかツールとか
サンプルPGないでしょうか・・・困ったです。
0746デフォルトの名無しさん
NGNG子フォームを表示しない状態だと正常なんですが
子フォームを表示した状態だとMDIフォームにあるメニューを
クリックしてもメニューが表示されません。
なぜかWクリックすると表示されます。
この状態をなんとかしたいのですがどうすればいいのよいでしょうか？
ちなみに子フォームは BorderStyle無しでメニューもありません。
0747デフォルトの名無しさん
NGNG0748695
NGNGお疲れ様です。
私の考えてたのよりも複雑な作りをしてるようですね。
私は、超初心者ですのでサンプルの寄せ集めのような感じになってしまってます。
単純にファイルを参照できるボタンとそれを表示させるボックス
それに対して、送信するボタンと終了のボタンのみです。
送信ボタン(Command)部分に次の行を入れてやりました。
-------------送信ボタン-------------------------
Private Sub Command2_Click()
Dim rCode As UDT
Dim lll As Long
lll = TsureFTP("ホスト名", "ユーザid", "パスワード", "リモートファイル名", "ローカルファイル名", _
"コマンド", "リモートのディレクトリ")
MsgBox rCode.sfatrv
MsgBox CStr(lll)
End Sub
--------------------------------------------
これでOKなのかどうかも謎なんですが、ホスト名・ユーザーid等は、自分のUPしたい
場所を記述するんだろうなと言うところまでは解かりました。
ローカルファイル名にCommonDialog1.FileName辺りを入れてやれば良いところまで
予想はつくんですが、同じくUPするサーバーへも同じ名前にする場合は、CommonDialog1.FileName
を追加してやれば良いのでしょうか？
コマンドにはもちろんputを置いてみます。
後、戻り値でエラーが出る際に数字だけでるので、それの数値をdllftpのbasに書かれてある
エラー表示と同じようにしたいと思ってます。
1日で作ろうと思ったけど間に合わなかった（涙
0749デフォルトの名無しさん
NGNG本にはDirectXを使う方法しか書いてないのですがそれが一番早い方法なのでしょうか。
それも一冊だけであまりサウンド再生について触れている本が見つかりません。
VisualBasicでDirectXを使うなんて思いもしなかったんですが･･･
0750695
NGNG実際デバッグしてみると、どうもPUTでエラーが返ってきてるようです。
ファイル名辺りのエラーだと思うのですが、どなたかお解りになる方宜しくお願いします。
ローカルファイル名部分を参照したファイルにして、UPしたファイルも同じ名前にしたいんですが…。
0751695
NGNG初心者の聞きかじりですが、DirectShowのことじゃないでしょうか？
http://www.microsoft.com/japan/msdn/directx/japan/dxvb/dxvbdshow.asp
0752695
NGNG初心者なんでほんと申し訳ない。こちらが正解のようです。
http://www.microsoft.com/japan/msdn/directx/japan/dxvb/dxvbdmusic.asp
0753厨房マン
NGNGハッカーって仕事?
0754749
NGNGありがとうございます。
参考にやってみます。やはりそれなりに面倒みたいですね。
0755デフォルトの名無しさん
NGNGゲームキャラの著作権をもったグラフィックデザイナ（ただしメジャーなゲーム）だ。
わかったか。
くれぐれもプログラマとかになろうとするなよ。
迷惑だから。
0756厨房マン
NGNGそれ嘘なんでしょ?
本気でいまから一流大の情報学科目指してんのに( `_ゝ´)ﾌﾟﾝﾌﾟﾝ
0757デフォルトの名無しさん
NGNGアフォ？ 社長に決まってんじゃん。
0758デフォルトの名無しさん
NGNGmciSendStringかPlaySoundあたりのが全然簡単
0759デフォルトの名無しさん
NGNGいや，社長は会社が潰れたら責任とらなきゃならんので，
実際は偉くない．
0760初心者
NGNG方法がわからなくて困ってます。
わかる方教えてください。
0761デフォルトの名無しさん
NGNGListview(listview.listindex)
0762デフォルトの名無しさん
NGNGMe.Text1 = List1.List(Me.List1.ListIndex)
0763デフォルトの名無しさん
NGNG責任を取らなきゃならないから偉くないってアフォ？
責任を取らない奴が偉いのかよ。
0764佳美
NGNGメモ帳での編集が終了するまで待ってることって
できるでしょうか。
0765デフォルトの名無しさん
NGNG株式会社の代表より、合資会社の無限責任社員の方が偉いわけか…
0766デフォルトの名無しさん
NGNGできますよ
0767初心者
NGNGありがとうございます。
早速試してみます。
0768佳美
NGNG( ﾟoﾟ) ｴｯ！ できるんですか！
0769佳美
NGNG0770デフォルトの名無しさん
NGNG0771デフォルトの名無しさん
NGNGそのネタ前にもどこかで見たことある・・・
最初はﾜﾛﾀが、二度目はつまらんよ
>>770
Call ItteYoshi()
0772デフォルトの名無しさん
NGNGWaitForSingleObjectをググれ
0773630
NGNGリモートファイルとローカルファイルがPUTの時は置き換わるらしいので注意。
エラー値から変数名に戻すのは無理なので、関数を用意した。
Private Sub Command2_Click()
Dim nRet As Long
Dim sHostName As String
Dim sUserId As String
Dim sPass As String
Dim sFromFileName As String
Dim sToFileName As String
Dim sCommand As String
Dim sRemotePath As String
Me.MousePointer = vbHourglass
Me.Command2.Enabled = False
sHostName = "127.0.0.1"
sUserId = "ftp"
sPass = ""
sFromFileName = Me.Text1.Text
sToFileName = GetFileNameFromFullPath(sFromFileName)
sCommand = "PUT"
sRemotePath = ""
nRet = TsureFTP(sHostName, sUserId, sPass, sFromFileName, sToFileName, sCommand, sRemotePath)
Debug.Print "Ret=" & GetFtpErrorName(nRet) & "(" & nRet & ")"
Me.Command2.Enabled = True
Me.MousePointer = vbNormal
End Sub
0774630
NGNGDim sError As String
Select Case n
Case 1: sError = "OPEN_ERROR"
Case 2: sError = "CONNECT_ERROR"
Case 3: sError = "FILE_GET_ERROR"
Case 4: sError = "SUCCESS"
Case 5: sError = "FILE_PUT_ERROR"
Case 6: sError = "FILE_DEL_ERROR"
Case 7: sError = "CHNG_DIR_ERROR"
Case 8: sError = "CLOSE_ERROR"
Case 9: sError = "BUT_COMMAND"
Case 999: sError = "ERROR"
Case Else: sError = "UNKNOWN ERROR"
End Select
GetFtpErrorName = sError
End Function
Private Function GetFileNameFromFullPath(sFullPath As String) As String
Dim nPos As Long
For nPos = Len(sFullPath) To 1 Step -1
If (Mid$(sFullPath, nPos, 1) = "\") Then
GetFileNameFromFullPath = Mid$(sFullPath, nPos + 1)
Exit For
End If
Next
End Function
0775佳美
NGNG769 はわたしぢゃありませんよ。 WaitForSingleObjectですね！
ありがとうございました。さっそくググってみます。
でもググるってどーゆー意味？？
0776デフォルトの名無しさん
NGNG> Case 9: sError = "BUT_COMMAND"
しかしコマンド
0777デフォルトの名無しさん
NGNGGetFileTitle()だったような
0778デフォルトの名無しさん
NGNGwww.google.co.jpで検索しろってことだ。＞ググれ
0779佳美
NGNG(ﾉﾟοﾟ)ﾉ おー すばらしい！ こんなサイトがあったんですね！
WaitForSingleObject の第一引数のハンドルは
shell関数が返すタスクＩＤぢゃないですよね、やっぱ。
とにかくいろいろやってみますよ。ありがとうございますた。
0780630
NGNG>777 ｵﾒ GetFileTitle()では、漏れには機能が想像つかん。
汚いコード読んでくれてありがと。
0781614
NGNGVBにかかりきりで４晩目に突入しました。
コモンダイアログからファイルをListBoxに表示させるところまできました。
ListBoxに表示してあるﾌﾙﾊﾟｽの情報で、複数のファイルをFTP送信（PUT）
したいと思うのですが、ここが分かりません。
よろしくお願いします。
0782佳美
NGNGあり。でございます。
0783デフォルトの名無しさん
NGNGなんだか本当にかわいそうになってきたなー
まじで作ってやるか。
0785614
NGNGPrivate Sub Command1_Click()
Dim GetUrl As String
Dim GetName As String
Dim GetPass As String
Dim i As Integer
'処理が終了するまでコマンドボタンを無効化
Command1.Enabled = False
'FTPサーバ名の取得
GetUrl = Combo1.Text
'ログインユーザネームの取得
GetName = Text1.Text
'パスワードの取得
GetPass = Text2.Text
0786614
NGNG'URLを指定
.URL = "ftp://" & GetName & ":" & GetPass & "@" & GetUrl
'ルートディレクトリへ移動
.Execute , "CD /"
'ビジー待ち
Do While Inet1.StillExecuting = True
DoEvents
Loop
'ルートディレクトリの一覧を要求
.Execute , "DIR /"
End With
'コマンドボタンを有効化
Command1.Enabled = True
End Sub
0787614
NGNG'処理が終了するまでコマンドボタンを無効化
Command2.Enabled = False
Dim Fname As String
'ファイルを選択するためにダイアログを開く
With CommonDialog1
.ShowOpen
Fname = .FileName
End With
If Fname = "" Then
Exit Sub
End If
'選択したファイルをList2に表示
List2.AddItem Fname
'コマンドボタンを有効化
Command2.Enabled = True
End Sub
0788614
NGNGPrivate Sub Command3_Click()
'【疑問】Command1で接続しているのですが、ここの部分は再度必要ですか？
> Dim GetUrl As String
> Dim GetName As String
> Dim GetPass As String
> '処理が終了するまでコマンドボタンを無効化
> Command3.Enabled = False
> GetUrl = Combo1.Text
> GetName = Text1.Text
> GetPass = Text2.Text
>
> With Inet1
> 'URLを指定
> '.URL = "ftp://" & GetName & ":" & GetPass & "@" & GetUrl
> 'ルートディレクトリへ移動
> 'ビジー待ち
> 'Do While Inet1.StillExecuting = True
> ' DoEvents
> .Execute , "CD homepage/A"
> 'ビジー待ち
> Do While Inet1.StillExecuting = True
> DoEvents
> Loop
'List2に表示されたファイルのパスでアップロードをする。
.Execute , "PUT" & List2.Text 【疑問】･･･← ここがよくわかりません
End With
MsgBox "アップロード完了！"
'コマンドボタンを有効化
Command3.Enabled = True
End Sub
0789614
NGNG'終了ボタン
On Error Resume Next
Inet1.Execute , "CLOSE"
Unload Me
End
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vntGetData As Variant
Dim strSplit() As String
Dim lngBufSize As Long
Dim lngCounter As Long
0790614
NGNGList1.Clear
'Excuteメソッドによる処理要求が完了したら、
If State = icResponseCompleted Then
'1回で取得するデータサイズを指定
lngBufSize = 1024
Do
'サーバから返されたデータを取得
vntGetData = Inet1.GetChunk(lngBufSize, icString)
'戻り値が長さ0の文字列だったらループを抜ける
If Len(vntGetData) = 0 Then Exit Do
'取得したデータを基に配列を作成
strSplit = Split(vntGetData, vbNewLine)
'配列の各要素を調べる
For lngCounter = 0 To UBound(strSplit)
'長さ0の配列要素を除く
If Len(strSplit(lngCounter)) <> 0 Then
'リストボックスへ追加
List1.AddItem strSplit(lngCounter)
End If
Next
Loop
End If
MsgBox "接続しました"
End Sub
0791614
NGNG’リストBOX１
'処理が終了するまでコマンドボタンを無効化
Command1.Enabled = False
With Inet1
'選択されたディレクトリに移動
.Execute , "CD " & List1.Text
'ビジーの間待つ
Do While Inet1.StillExecuting = True
DoEvents
Loop
'現在のディレクトリのファイルと
'ディレクトリの一覧を要求
.Execute , "DIR"
End With
'コマンドボタンを有効化
Command1.Enabled = True
End Sub
0792630
NGNGDim n As Long
For n = 0 To Me.List1.ListCount - 1
Debug.Print Me.List1.List(n)
Next
0793614
NGNG今、良く分かってないのは、
connect1で接続した後、connect3で再度接続が必要なのか？
Listに表示したパス名をPUTで使うにはどうすれば良いのか？
というところです。
すみません、宜しくお願いいたします。
0794614
NGNGそれを、どこへ書き足せばよいのですか？
0795デフォルトの名無しさん
NGNG接続は1回でいい。
フルパスからファイル名だけを取り出すＡＰＩはＧｅｔＦｉｌｅＴｉｔｌｅ()
0796デフォルトの名無しさん
NGNG新しいバージョンのデータベースってないの？
0797630
NGNGいろいろまずいな。自分の力量以上に複雑にし過ぎ。
>618 のすっきりした仕様とぜんぜん違うじゃん。
FTPクライアントを再開発したいの?
送信を楽にするソフトを作りたいの?
StateChangedイベントハンドラがぜんぜん駄目。
これじゃあ、DIRの時しか対応できないし、
Executeが終わってないのに、各Buttonのイベントハンドラが終わっちゃうし。
ところで、同名のファイルがサーバに存在した時はどうする? 上書き?
0798614
NGNGすいません。
StateChangedイベントは、サンプルのパクリです。
とりあえず、ここまできたのでちゃんと動くものにするのが先ずの目標です。
最後の最後で動かずに、力が抜けそうです・・・。
サーバのファイル上書きは問題ないです。
（デモ用APなんで）
0799614
NGNG涙が止まりません（泣
さっきのUpされなかったのは、ファイル名を繰り返して入れてなかった
からでした。
Listからのファイル名取得はまだ出来ていませんが、コードに固定パス
打ち込みで、あたかもそのファイルを選んで送信しているかのように
見せかけようと思います。
（間に合うようなら、もう少しがんばってみたいのですが、本来の仕事も
全然停滞しているため）
皆様には大変お世話になりました。
ありがとうございました。
0800630
NGNGPrivate Sub Command3_Click()
Dim GetUrl As String
Dim GetName As String
Dim GetPass As String
Command3.Enabled = False '処理が終了するまでコマンドボタンを無効化
GetUrl = Combo1.Text
GetName = Text1.Text
GetPass = Text2.Text
With Inet1
'''''いきなりこのボタンを押してしまうかもしれないので一応やっとけ。
.URL = "ftp://" & GetName & ":" & GetPass & "@" & GetUrl 'URLを指定
Do While Inet1.StillExecuting = True 'ビジー待ち
DoEvents
Loop
Call .Execute(, "CD homepage/A") 'ルートディレクトリへ移動
Do While Inet1.StillExecuting = True 'ビジー待ち
DoEvents
Loop
'List2に表示されたファイルのパスでアップロードをする。
Dim n As Long
For n = 0 To Me.List2.ListCount - 1
Debug.Print Me.List2.List(n)
Call .Execute(, "PUT " & Me.List2.List(n))
Do While Inet1.StillExecuting = True 'ビジー待ち
DoEvents
Loop
Next
End With
MsgBox "アップロード完了！"
Command3.Enabled = True 'コマンドボタンを有効化
End Sub
0801630
NGNG自分の仕事やる気無し、今日も進みませんでした マル
0802614
NGNG神様です。すごいです。
ありがとうございました。
＃本当に初歩的なことで恐縮なんですが、保存した.vbpファイルと.frmファイル
を別なマシンで実行しようとすると「パスがみつかりません」とエラーが
出ます（実行できない）。
これは何故なんでしょうか？
0804デフォルトの名無しさん
NGNGよかったですね
他人事ながら、なんだか嬉しいです
0805630
NGNGちゃんとVBをインストールした端末?
プロジェクトを開く時にエラーが出るの?
それともF5キーで実行する時にエラーが出るの?
エラーのおこった行は表示されないの?
VBPファイルをメモ帳にドラッグしてフルパスで書かれたものが
その端末に存在するかチェックしてみ。
0806695
NGNGおぉ。ざっと過去ログみてたんですが、何か関数まで用意していただいて・・・（汗
ありがとうございます！！日曜プログラマ化してるんですが、
今から過去ログをしっかり見直してみたいと思います！
戻り値からのメッセージ化は、古典的ですがIf構文でこうやってみてたんです。
----------------------------------------
Private Sub Command2_Click()
Dim rCode As UDT
Dim lll As Long
lll = TsureFTP("ホスト名", "ユーザid", "パスワード", "", "Me.CommonDialog1.FileName", _
"コマンド", "ディレクトリ")
If CStr(lll) = 1 Then MsgBox "FTPのオープンに失敗しました"
If CStr(lll) = 2 Then MsgBox "サーバとのコネクトに失敗しました。"
If CStr(lll) = 3 Then MsgBox "ファイルのGETに失敗しました。"
If CStr(lll) = 4 Then MsgBox "処理に成功しました。"
If CStr(lll) = 5 Then MsgBox "ファイルのPUTに失敗しました。"
If CStr(lll) = 6 Then MsgBox "ファイルのDELETEに失敗しました。"
If CStr(lll) = 7 Then MsgBox "ディレクトリの移動(cd)に失敗しました。"
If CStr(lll) = 8 Then MsgBox "FTPセッションのクローズに失敗しました。"
If CStr(lll) = 9 Then MsgBox "不正なコマンドを発行しました。"
If CStr(lll) = 999 Then MsgBox "不明なエラー"
End Sub
-------------------------------------------------
今から、ちゃんと過去ログ読まさせていただきます。
ご丁寧にありがとうございました！
0807 ◆LL.98XOPJI
NGNGVisualStudio開発環境についてくる「Spy++」ってありますよね。
あれの機能でメッセージを監視できるじゃいですか。
ひとつのウィンドウハンドルを見張るようにして、
送られてきたメッセージを書き出していくっていう。
あれはどうやってやっているのでしょうか？
また、VBにてあれと同じような事がやりたいです。
ヒントでもヨロシクお願いします。
0808デフォルトの名無しさん
NGNGどうやれば２列、３列の指定ができるのかわかりません。。。どうか
ご教授のほどよろしくお願い致します(__)。
0809732
NGNG紹介されたサイトを見ました。が、あれを使ったのですが、ビルドエラーがでます。
何故でしょうか？VB6とVB.netとはコードが変わったのでしょうか？
変わっていたら、変更した無いようにしてください。お願いします。
0810デフォルトの名無しさん
NGNGSetWindowsHookEx
ただし、他のプロセスのウィンドウを監視するなら
DLL内にフックプロシージャ(コールバック関数)を
用意する必要があるので、VBでは無理かも。
(9x系OS限定ならexeだけでもなんとか動くけど)
0811デフォルトの名無しさん
NGNGＤｅｌｐｈｉだとそんなことない。
0812デフォルトの名無しさん
NGNGWinXPでSSTABのタブに改行コードを含む文字列を入れると正常に
改行されて表示されるのですが、
Win2Kで同じことをやると改行コードが「・・」で表示されてしまいます。
Win2Kで「・・」が表示されないようにするには、
なにかテクニック等ありますでしょうか？
先輩方、ご教授お願い致します。
0813デフォルトの名無しさん
NGNGに代入してみたのですが、MSゴシックなんかのCharSetが128になり
ません。
これは最近私の頭髪がうすくなりはじめたことと何か関係があるの
でしょうか？
どなたかご教授ください。
環境は、Win2k+SP2 VB6.0+SP5です。
0814デフォルトの名無しさん
NGNG拡張子がmdbだと、hProcessが０しか返してくれないのですが、
これは何が原因なのでしょう？
解決方法をお願いします。
Const PROCESS_QUERY_INFORMATION = &H400&
Const SW_SHOWNORMAL = 1
Dim hProcess As Long
Dim lret As Long
lret = ShellExecute(Me.hwnd, vbNullString, _
"ファイル名パス\sample.mdb", vbNullString, _
"c:\", SW_SHOWNORMAL)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 1, lret)
0815デフォルトの名無しさん ◆Ez1ZxZMJoU
NGNG0816デフォルトの名無しさん
NGNGハードコーディングじゃ無しに
動的配列を渡せますか？
いろいろ試してみたのですが、
関数内ではからっぽのVariant型になってしまうのですが‥
0817デフォルトの名無しさん
NGNG配列を格納した Variant が 1 つ渡るんだろ。
0818デフォルトの名無しさん
NGNGダメだった。
hProcess取得してくれない。
0819デフォルトの名無しさん
NGNGDim strtest() As String
ReDim strtest(0 To 2)
strtest(0) = "a"
strtest(1) = "b"
strtest(2) = "c"
Call test(strtest())
End Sub
Private Function test(ParamArray vntArr() As Variant) As Boolean
MsgBox UBound(vntArr())
End Function
て感じで UBound(vntArr()) = 0 になってしまうんですよ
VB6なんですが。根本的にボケてますか？
0820デフォルトの名無しさん
NGNGその場合ParamArrayを使う理由がない気が...
Private Function test(var As Variant) As Boolean
MsgBox UBound(var)
End Function
0821デフォルトの名無しさん
NGNGShellExecuteの戻り値はプロセスIDではないよ。
つまりShellExecuteでは不可能。
ShellExecuteExならプロセスハンドルも取得できるが、
Shell関数で起動した方が簡単だと思う。
0822デフォルトの名無しさん
NGNG人様の作った関数‥そういう仕様なんです‥
使えんからラッパー作りたいんですが(｡´Д⊂)
0823デフォルトの名無しさん
NGNGんじゃ
MsgBox UBound(vntArr(0))
0824822
NGNG「諸々の都合」ってやつですね
私も大したもんではないですのでハイ
0825デフォルトの名無しさん
NGNG実はその方法も考えたのですが、
起動させるファイル（拡張子）がmdbである為
lret = Shell("c:\winnt\notepad.mdb", vbNormalFocus)
のような起動だとエラーが発生してしまい
lret = Shell(SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE " & "ファイルパス名", vbNormalFocus)
のようにするとmdbは起動するのですが、
指定mdb以外にもう1つmdbが起動してしまいます。
0826821
NGNGこのコードをVB側に書いてんの？
だったらSysCmd()の呼び出しでAccess.Applicationの
暗黙のインスタンスが作られるんだから当たり前。
ShellでやるならAccessのパスを別の方法で取得するか、
または
CreateObject("Access.Application").SysCmd(acSysCmdAccessDir)
のように一時的なインスタンスからパスを取得するか、
またはいっそのことShellでなくオートメーションで
Accessを起動してhwndAccessAppプロパティからプロセスIDを得る。
0827デフォルトの名無しさん
NGNGペイントブラシ（MSPaint.exe）よりも簡易な描画・bmp保存ツールを作成中なのですが、
Picture Box上の絵を任意の位置に移動するという処理方法で、
Psetで１ピクセルづつ描き移すというのしか思いつかず、
これだと処理速度が遅く、困っております。
何か良い方法がないものでしょうか？
0829デフォルトの名無しさん
NGNG１．response header をText2 に表示
２．htmlソースを text3 に表示
３．htmlを解釈したものを???に表示
という動作をやりたいんですが、
１．２．を Inet、３を WebBrowser と２動作に分けてやれば出来るんですが、
一度の request にて上記１２３を満たすにはどうすればいいでしょうか？
0830デフォルトの名無しさん
NGNGScreen.Fontsでフォント名を取得して、StdFont.Nameにセットしてみる。
Win2k以外はこれでうまくいきます。
Win2kの問題の回避方法をご存知の方いませんか？
0831デフォルトの名無しさん
NGNG件数が1000とかになるとメモリに格納できなくなります（当たり前ですが
そこで配列が100を超えると101件目からDatファイルなどに書き込んでそこから読み取ろうと思うのですがどうしたらいいでしょうか？
現在のやり方
リストボックスからX件前を表示
履歴(X)をTEXT1に表示。IEコントロールでページをプレビュー表示
やりたいやり方
履歴が100を超える
1件目のデータをDATの一行目に書き込む
さらにもう一度履歴を取る
DATカウント+1
2件目のデータをDATの2行目に書き込む
DATカウント+1
でリストボックスで1件目を選択
（DATカウント）行目を参照し
TEXT1に表示。IEコントロールでページをプレビュー表示
ってな感じにしたいのですが・・・・
説明が長文＆わかりにくくてすいませんがご助言宜しくお願いします。
検索もしたつもりですがお勧めの参考ページなどありましたらそちらも教えていただけるとありがたいです。
0832614
NGNGができました。
.Execute , "PUT " & Me.List2.List(n) & " " & Me.List2.List(n)
現在、Upするときに付けるファイル名もフルパスになっているのですが、
これをファイル名だけにするには、どうしたらよいのですか？
（上の行の後ろのMe.List2.List(n)を工夫すれば良いはずなんですが。
0833デフォルトの名無しさん
NGNG.Execute , "PUT """ & Me.List2.List(n) & """ """ & Me.List2.List(n) & """
ってしといたほうがいいよ。
フォルダにスペースとかはいってたらうまくいかないから。
0834デフォルトの名無しさん
NGNGOption Explicit
Private Declare Function GetFileTitle Lib "comdlg32.dll" Alias "GetFileTitleA" _
(ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer) As Integer
Private Sub Form_Load()
Dim fileName As String
fileName = String(256, vbNullChar)
GetFileTitle "c:\hoge.txt", fileName, 256
MsgBox fileName
End Sub
0835デフォルトの名無しさん
NGNG0836デフォルトの名無しさん
NGNGおぃおぃ
0837デフォルトの名無しさん
NGNGげっ！
動くじゃん。参りますた。
0838630
NGNGIISでは"PUT ローカルフルパス"だけで、自動的にファイル名だけになったので
確認せんかった。
対処は>833 >834のとおり。
0839825
NGNGShellExecuteExで動作しました。
ありがとうございます。
Shellの方は
パス名が取得できませんでした。
lret = Shell(パス名, vbNormalFocus)
この時点でパス名が狂い、エラーになってしまいます。
0841デフォルトの名無しさん
NGNG1000件くらい余裕だと思うが。10000件でも余裕だと思うが。
0842デフォルトの名無しさん
NGNG0843807 ◆LL.98XOPJI
NGNGありがとうございます。早速ぐぐってみました。
やはり、ローカルフックならVBでも可能だけれど
グローバルフックをするにはDLLを必要とするみたいですね。
しかもそのDLLをVBで、って訳にはいかないそうで・・・。
ちなみに自分がやりたいのは
他のプロセスのウィンドウ一つについて監視したいだけなのですが
それでもやはり自アプリ内の事ではないのでVBでは無理ですかねぇ。
調べていたら http://www.int21.co.jp/pcdn/vb/vb5/vb5adrof.html
にて、丁度自分がやりたい事のようなサンプルがありました。
そしてそこで使われているのは「SetWindowLong」なのですが
これでも外部プロセスのウィンドウを監視することは出来ないのでしょうか。
0844デフォルトの名無しさん
NGNG一つ厳しい事聞いていいか？
SetWindowLongの意味もわからないのに
メッセージフックしてなにがやりたいんだ？
他プロセスのメッセージ取得したいだけなら
VBから使えるフックOCXなんていくらでも転がってると思うぞ。
0845695
NGNG>>630さんのお蔭様でプログラムらしくなってきました。本当に有難うございました。
>>614さんのソースを見てて、TextBoxに何も入ってない時には送信ボタンを無効化させないと
まずい事に気づいてそれに関して調べたりしてます。
プログラムって完成に近づくにつれて不具合が見つけたり、問題点が分かったりして奥深いですね。
今まで使ってたソフトのプログラマの皆様には感謝感謝です。自分でプログラム始めて初めてわかる
有難さ。
さて、今日は自分が使いやすくする為にTextBoxをドラッグ＆ドロップに対応させてみました。
ソースはこんな感じにしました。
-------------------------------------------------------------
Private Sub Text1_OLEDragDrop(Data As DataObject, Effect As Long, _
Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = Data.Files(1)
End Sub
-------------------------------------------------------------
段々らしくなってきたので、アイコンを付けてみようかなとも思ってます。
後少し！頑張ります！
0846810
NGNG> 他のプロセスのウィンドウ一つについて監視したいだけなのですが
個数は関係ないよ。
> そしてそこで使われているのは「SetWindowLong」なのですが
> これでも外部プロセスのウィンドウを監視することは出来ないのでしょうか。
SetWindowLongは別プロセスで作られたウィンドウの
プロシージャを書き換えることはできないし、
そもそもアドレス空間が異なるという大前提は理解してるの？
その外部プロセス側のコードを変更できないとすれば、
とにかくVBだけでやろうとするなら、DLLの中に
静的なコールバック関数を作る方法を考えること。
(俺には方法が考えつかない)
0847これではきっと何も解決しない
NGNG標準モジュールの関数ポインタはAddressOfで取得できる
ActiveX DLLを作成
標準モジュールの関数ポインタを取得するCOM用の関数を作成
ActiveX DLLをCOM経由で関数ポインタを取得
ActiveX DLLをLoadLibraryでロードしDLLのハンドル取得
0848デフォルトの名無しさん
NGNGそれじゃ一個しか登録されないから、
For i=1 to Data.Files.Count
List1.additem Data.Files(i)
Next i
と。
何もみずに書いたので間違ってるかも
ん？TextBoxなの？？
0849デフォルトの名無しさん
NGNGPaintPictureかAPI
0850
NGNGメディアプレイヤーコントロールを使っていて、フォームにファイルをドラッグすると再生するのはうまくいきました。
mediaplayer1.filename = data.files(1)
このときのdata.files(1)の中身はドラッグしたファイルのフルパスです。
でもアイコンにドラッグして再生するのはエラーが出てしまいました。
'フォームロードの中に記述
mediaplayer1.filename = command()
mediaplayer1.filenameの中は空文字でした。でもcommand()の中はdata.files(1)と同じフルパスが入っていました。
もしかしたらフォームロード時にはまだmediaplayer1オブジェクトがないのかなとおもって、いったんグローバル変数に入れてから
mediaplayer1.filename に入れてみましたが、同じ結果になりました。
なんでmediaplayer1.filenameに同じストリング型を代入しても入るときと入らないときがあるのでしょうか？
0851デフォルトの名無しさん
NGNGいちいち空行入れるな、ボケ
0852↑↑↑↑↑↑↑↑↑↑
NGNGなんてありきたりなんでしょうね♪
誰もが皆、一瞬つけてみたくなる発想のレスです♪
しかし、賢明な人はその自らの短絡的思考を野放しにする事を嫌がり、
こういうレスは控えます♪
しかし、この人はしてしまったのです(^^;ﾜﾗ
「誰もが思い付くような事」を堂々と♪
この人にとってこのレスは何なのでしょうか♪
このレスをしている間にも時間は刻々と 過ぎ去っているのです♪
正にこの人のした事は「無意味」「無駄」でしかありません♪
ああ・・・何ていう事でしょう(^^;ﾜﾗ
図星で泣いちゃうかも(^^;ﾜﾗ
0853デフォルトの名無しさん
NGNG0854デフォルトの名無しさん
NGNGお前も同レベル。
0855デフォルトの名無しさん
NGNGいちいち空行入れるな、ボケ
0856デフォルトの名無しさん
NGNG>>852
0857デフォルトの名無しさん
NGNG（ ´,_ゝ`）ﾌﾟｯ
コピペに（略
0858デフォルトの名無しさん
NGNG動物園の猿からかうようにちょっかいを出したくなる気持ちは分かるが、相手をしてはいかんよ。
いったいどんな人間と思っているのかな。学校の時クラスにいた変な奴とか職場にいる変わった奴とか、
そんなレベルで考えてたら大間違いちゃう？
そういうのはあくまでも健常者。カキコしてるのは、養護教育とか精神医療の対象者だよ。
興味の対象が固着して、前スレからエンドレスに同じ行動を繰り返してる。正常な人間ならとてもでき
ない。明らかに精神障害者でしょ。こういう人間は、健全な自我とか自尊心とかは、形成されていない
か崩壊してる。だから揶揄しても無駄。
精神科の個室に閉じこめられた患者が、孤独と退屈を紛らすため、廊下をとおる看護師や雑役婦を振り
向かせようとするにはどうするか。こいつは、ネットでそれと同じようなことをしているだけ。
無秩序な人格が、反応を求めて彷徨っているのよ。画面に反応が現れるという、その一点に興味と関心
が集中し、ずっとそのまんま。精神の荒廃は相当進んでいると思う。
何かポイントを突いたようなカキコをする場合もあるが、それは模倣によるもの。
他人を模倣する能力は、幼児など人格自律性が薄弱な者ほど高い。こういう人たちは、健常者の言った
立派な挨拶をそのまま他所で真似して喋り、その場の人をビックリさせるようなことがある。
>>855
こいつのカキコも、真似の結果たまたま意味のある内容になっているだけ。効果的と思われる幾つかの
パターンを学習しているにすぎない。意味にこだわってはいけない。
このスレでは、他の健常者との区別は截然としているのだから、別に支障もないでしょ。
憐れみつつ、放置しておきましょう。それが一番。
0859デフォルトの名無しさん
NGNG日本語版でそのような事が可能でしょうか？
ちなみにＯＳは９８の２ndエディションです。
ＩＭＥもダウンロード済みですがＶＢを立ち上げると選択できなくなってしまいます。
宜しくお願いします。
0860デフォルトの名無しさん
NGNGほんとに入ってるのか？
0861デフォルトの名無しさん
NGNG0862デフォルトの名無しさん
NGNGOSから入れなおせ
0863デフォルトの名無しさん
NGNG諦めれ。
0864 ◆.OZsf3JbRk
NGNGMSNメッセンジャーで、右下に出るような
ポップアップウィンドウを出したいです。
具体的には、枠無しのWindowで
最前面表示固定のWindowsで
表示されてもフォーカスは一切奪わないWindow
と、これだけの条件を満たすWindowを表示したいです。
現にこれを実装しているアプリを多く見かけるので
どうにか出来ると思うのですが、何故か上の3つが上手く噛み合ってくれません。
どうしたら↑のようなウィンドウを作成できるでしょうか。
0865デフォルトの名無しさん
NGNG上位下位にわかれた64ビット変数に値が格納されています。
これはどうやったら処理できるのでしょうか？
DiskSize=(FreeSize.HighPart * 2147483647) + FreeSize.LowPart
ってやるとオーバーフローになってしまいますし
0866デフォルトの名無しさん
NGNGこんなのあったよ
http://www.remus.dti.ne.jp/~y-mac/apilib/drvchkex.htm
0867デフォルトの名無しさん
NGNGプレビューができず困っています。良い方法とかツールってないでしょうか？
あと、リストボックスのアイテムをドラッグして任意のテキストボックスに
ドロップってできないでしょうか？
もしよければお教え下さい。
0868デフォルトの名無しさん
NGNGプレビューするには、PictureBoxに出力するしかない。
共通ルーチンに対してオブジェクト変数を渡すようにすれば、
コードもムダにはならない。これ基本中の基本。
アイテムのドラッグは自分で実装すればよい。
0870デフォルトの名無しさん
NGNGVS-VIEWもいいよ。
0871865
NGNGつかってみますたが、オーバーフローでてダメですた。
0872デフォルトの名無しさん
NGNGサンキューです。さっそく試してみます。ドラッグ＆ドロップもよろしくお願いします。
（一応ぐぐってはみたのですが見落としてますね・・・）
0873デフォルトの名無しさん
NGNGさっそくトライアル判をダウンしたけど
VSPrinterって自由に使っても良いのかな？
結構良さそうです。謝謝♪
0874デフォルトの名無しさん
NGNG再配布にライセンス料とかは必要ないはずだよ。
0875デフォルトの名無しさん
NGNG0876デフォルトの名無しさん
NGNGDim DiskSize As Variant
DiskSize = CCur(HighPart) * 2147483647 + LowPart
あたりでどうだろう。
0877695
NGNGレス頂きありがとうございます♪
Txtboxなの？と書かれてて頭に「？」が浮かんでたんですが、通常はListboxの方なのですね…。
全く解かって無いままでした。これからLISTに変えてみます！
皆さんのおかげで段々プログラムらしくなってきました。
アイコンは、32X32のBMPの拡張子をicoとすれば良いと思ってたんですが、大違いだったんですね（汗
32X32で作成したBMPのコンバーターはこれを使用しました。
フリーで高機能なグラフィック閲覧ソフト「XnView」です。
http://www.xnview.com/
0878デフォルトの名無しさん
NGNGCurrency型とか浮動小数点に変換して計算しな。
dim w@
w=ccur([下位３２ビットが格納されている変数])
if w<0 then w=w+4294967296@
w=w+ccur([上位３２ビットが格納されている変数])*4294967296@
hogehoge.caption=format$(w,"#,###0")+" Bytes"
bogeboge.caption=format$(w/1024@/1024@,"#,###0")+" MBytes"
こんな感じ。試してないけどうまくいくだろ、たぶん。
0879876
NGNGじぶん、符号の処理わすれてますた。
めんどくさいけど
if w<0 then w=w+4294967296@
は必要な処理ですね。。。
0880デフォルトの名無しさん
NGNGこのsendmail
と、上のWAUを使いたいです。
宜しくお願いします。JAVAアプレットオフの人をとばす文字列も教えてください・・
noscriptみたいな感じでしたっけ・・
又、CGIボーイのアクセス解析いれたら、
左下にGETIPIPPLET と表示されます、クリックしたときに。
これはCGIボーイですか？それとも関係ないでしょうか。宜しくお願いします。
CGIボーイって、アクセス売ってるって話ありますが、裏にどこがついてるんでしょう・・お願いします
もう一回はります。
http://www.tripod.co.jp/guides/cgi2.html
このsendmail
と、上のWAUを使いたいです。
宜しくお願いします。JAVAアプレットオフの人をとばす文字列も教えてください・・
noscriptみたいな感じでしたっけ・・
又、CGIボーイのアクセス解析いれたら、
左下にGETIPIPPLET と表示されます、クリックしたときに。
これはCGIボーイですか？それとも関係ないでしょうか。宜しくお願いします。
CGIボーイって、アクセス売ってるって話ありますが、裏にどこがついてるんでしょう・・お願いします
0881デフォルトの名無しさん
NGNGというか、わざわざULARGE_INTEGERなんて用意しなくても
64ビット整数であるCurrency型で直接処理すればいいと思うが。
Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" _
Alias "GetDiskFreeSpaceExA" _
(ByVal lpRootPathName As String, _
lpFreeBytesAvailabelToCaller As Currency, _
lpTtoalNumberOfBytes As Currency, _
lpTtoalNumberOfFreeBytes As Currency) As Boolean
戻されたCurrency型引数に10000を掛ければ本当の数値が得られる。
0882881
NGNG0883デフォルトの名無しさん
NGNG逆に質問させてください。
1)Perlの質問と思われるのに、WebProg板(http://pc.2ch.net/php/index.html)で聞かずに、
VB初心者スレッドで質問したのは何故でしょうか?
2)「上のWAU」「とばす文字列」「CGIボーイ」「アクセス売ってる」とは何でしょうか?
不勉強ですいません。
3)日本人ですか?
0884865
NGNGPrivate Function fLowBit2HighBit(HighBit As Large_Int) As Currency
Dim cFlg As Currency
Dim w As Currency
cFlg = 0
w = HighBit.HPart
If HighBit.LPart < 0 Then
HighBit.LPart = HighBit.LPart - &H80000000
cFlg = 1
End If
fLowBit2HighBit = HighBit.LPart + (cFlg * &H7FFFFFFF) + (w * 4294967296#)
End Function
っての作ってあげたらうまくいきました。
>>881
それだと型が一致しませんですですっていわれます
0885デフォルトの名無しさん
NGNGDLL作って文字列で返すとか
0886デフォルトの名無しさん
NGNGhttp://ww3.enjoy.ne.jp/~kazu.ohara/SampleCode.html
みてやってみたけど
double型で/ 4.94065645841247E-324 で取れたよ。
Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" _
Alias "GetDiskFreeSpaceExA" _
(ByVal lpRootPathName As String, _
lpFreeBytesAvailabelToCaller As Double, _
lpTtoalNumberOfBytes As Double, _
lpTtoalNumberOfFreeBytes As Double) As Boolean
Private Sub Command1_Click()
Dim strRootPathName As String
Dim lintFreeByteAvail As Double
Dim lintByteSize As Double
Dim lintByteSpace As Double
Dim blnRet As Boolean
strRootPathName = "c:\"
blnRet = GetDiskFreeSpaceEx(strRootPathName, _
lintFreeByteAvail, _
lintByteSize, _
lintByteSpace)
MsgBox lintByteSize / 4.94065645841247E-324
End Sub
0887デフォルトの名無しさん
NGNG単にLeft(DriveName,2)だとネットワークドライブ名が取得できませんし、
文字列操作だと区切りが\とか/、はたまたウォンとかあるようです。
ファイル名を取得するのはAPIがあるようですが。
VBScriptは使用しない方法がよいです。
0888デフォルトの名無しさん
NGNG区切り文字がChr(&H5C)以外のWindowsってみたこと無いんだけど。
0889デフォルトの名無しさん
NGNGネットワークドライブの場合ドライブレターという概念がないのでは？
まぁ、どっちにしろ初めから一つの\までだろうけど。
0890887
NGNG「/」(文字コード42)でもいけちゃうじゃないですか。
0891デフォルトの名無しさん
NGNG使う人いません。それでエラーが出て文句言う人はいません。
0892881
NGNG> それだと型が一致しませんですですっていわれます
はあ？ 何言ってんの？
Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" _
Alias "GetDiskFreeSpaceExA" _
(ByVal pDirectoryName As String, _
lpFreeBytesAvailabelToCaller As Currency, _
lpTtoalNumberOfBytes As Currency, _
lpTtoalNumberOfFreeBytes As Currency) As Long
Sub Sample()
Dim a As Currency, b As Currency, c As Currency
If GetDiskFreeSpaceEx("C:\", a, b, c) Then
Debug.Print "使用可能", a * 10000
Debug.Print "全容量", b * 10000
Debug.Print "空き容量", c * 10000
End If
End Sub
これだけでできるんだが。
0893デフォルトの名無しさん
NGNG0894デフォルトの名無しさん
NGNGわざわざ書くな。部外者は他所言ってくれ。
0895デフォルトの名無しさん
NGNGわざわざ書くな。部外者は他所言ってくれ。
0896デフォルトの名無しさん
NGNGわざわざ書くな。部外者は他所言ってくれ。
0897デフォルトの名無しさん
NGNG0898デフォルトの名無しさん
NGNGさぶすぎるー
0899ワン
NGNGいろいろなスポーツに型があるようにＶＢにも
やはり型は存在します。型は、とくに日本古来の
武術において重要視されています。
たとえば弓道。これなどは、型がきっちりと
決められるようになるまでは矢を射ることが
禁じられているのです。そして、型を決めることが
できるようになった暁には、もうその矢がどこへ
飛んでいこうが知ったことではないのです。
ここに真の行き当たりばったりとはなにか、という
問いに対する答えのすべてがあるのですね。
ＶＢの型もおなじです。まず型を徹底的に極めなさい。
そのあとはおのずとあなたの前にはすばらしい人生が
開けてくるはずです。
0900デフォルトの名無しさん
NGNG0901デフォルトの名無しさん
NGNGＤ ｅ ｌ ｐ ｈ ｉ マ ン セ ー ！
0902デフォルトの名無しさん
NGNGVB暦、6日目にして、明日今作ってるものの期限の者です。
FTPサーバー上から、フォルダを取得したいんですけど、
どうしたらよいんでしょうか？
自分なりに調べてみたんですけど、どうしても見つかりません。
なんでも良いんで、情報をお願いします。
今日は、会社に泊まりです。
0903630
NGNGDIRをExecuteして、後ろに / がついてるのがディレクトリ。
>>785-791 あたりにソースが出てたぞ。
0904リンク房
NGNGttp://support.microsoft.com/default.aspx?scid=kb;ja;JP175179
VBマニア - FTPでファイルダウンロード (INETコントロール)
ttp://homepage2.nifty.com/inform/vbmania/source/ftpdownload.htm
google [VB FTP サンプル]
http://www.google.com/search?q=FTP+VB+%83T%83%93%83v%83%8B&hl=ja&inlang=ja&ie=Shift_JIS
0905デフォルトの名無しさん
NGNGlabelでは、「文字に合わせてラベルのサイズを変更」はAutosizeで出来ますよね
逆に「ラベルのサイズに合わせて文字の大きさを変更」っていうのはできるのでしょうか？
0906デフォルトの名無しさん
NGNG通常、動的にラベルの大きさ変えるヤツいないですから。
0907デフォルトの名無しさん
NGNG0908デフォルトの名無しさん
NGNG取りあえずResizeイベント捕まえて高さと幅取得してもごもごすれば？
0909デフォルトの名無しさん
NGNG君と同じ方法を思いついた。それでいけ。
もう一つ思いついたが、内緒。
0910デフォルトの名無しさん
NGNGありががとうございました。
さっそく見ています。
0911デフォルトの名無しさん
NGNG0912デフォルトの名無しさん
NGNGまず日本語の勉強からな。
0913デフォルトの名無しさん
NGNGネギでも巻いておけ
0914デフォルトの名無しさん
NGNGそのﾃｷｽﾄﾎﾞｸｰｽからﾌｫｰｶｽ外すと文字列の右側が切れますが、
これを左側が切れるようにはできますでしょうか。
具体的には文字列が「http://www.din.or.jp/~chorokin/laputa.mp3」
だとしたら、
・通常
http://www.din.or.jp|
・こうしたい
horokin/laputa.mp3|
よろしくおながいします。
0915デフォルトの名無しさん
NGNG0916デフォルトの名無しさん
NGNGところでVS-VIEWで手に入るVSPrinterですが、使用すると
バージョン情報なるダイアログが表示されて激うざです。
製品を購入しないと消えないのでしょうか？
0917デフォルトの名無しさん
NGNG0918デフォルトの名無しさん
NGNGネタじゃなく教えてほしいんなら、ふざけた態度を改めよ。
0919914
NGNGじゃあ、テキストボックスってことでひとつお願いいたします。
0920905
NGNG>取りあえずResizeイベント捕まえて高さと幅取得してもごもごすれば？
"もごもご"の部分っていうのは、高さと幅に合わせてフォントサイズを拡大するっていうことですか？
"もごもご"の部分ってどうすれば？
0921デフォルトの名無しさん
NGNG頭を使わないプログラマってさ、
PC初心者でも出来る！簡単な宛名の入力のお仕事です。
仕事をしながらPCに強くなれます。
とレベルが変わらないと思うんだがどうか？
0922デフォルトの名無しさん
NGNG例えば、ボタンがクリックされたなどの判定をするにはどうすればいいんでしょうか・・・
どなたかお願いします。
0923デフォルトの名無しさん
NGNG純粋にClickイベントをハンドリングすればいいのでは？
0924デフォルトの名無しさん
NGNG0925デフォルトの名無しさん
NGNG0926デフォルトの名無しさん
NGNGなるほど、ラベルとレベルをかけている訳か。
おい920君、座布団もってきてやれ。
920に言っておく。
こうすればできるかなと少しでも思ったら試してみろよ。
仕組みを確認するための小さなプログラムとか
みんな星の数ほど書いて技術を身に付けてきてんだぞ。
ここはVB初心者スレだが人間初心者スレじゃないぞ？
俺もかなり偉そうな事言ってるのはわかってるが、
「自分ができるけど面倒だから他人にやらせよう」ってスタンスのお前は
そんなに偉いのか？
0927デフォルトの名無しさん
NGNGプログラムって言うのは文章を書くという行為に非常に似ている。
まず、文法を覚え、どういう表現が存在するのか把握する。
次に、いろいろなモノを参考にいろいろ書いてみる。初めはもちろんうまくいかない。
しかし、書き続けていればうまくなっていく。
彼女に気持ちを伝えたいんですがどんな文章を書けばいいですか？
ん？だから相手を好きになった経緯とかごにょごにょ書けば？
それはどうやって書けばいいんですか？
お前の手紙だ。お前の好きなように書けよと。
後、ついでに本厨にも言っておく。
初めのうちから「うまい文章の書き方」なんぞ読んでも文章はうまくならん。
自分のスタイルを理解しその問題点をきちっと把握してから読むものだ。
そんなんで育ったら融通の利かないお役所書類しか書けなくなるぞ。
0928905
NGNGResizeで高さと幅を取得して、それをどうやってフォントサイズに生かすかがわからないんで試そうと思ってもできないんです。
0929デフォルトの名無しさん
NGNGなぜ生かせないのかがわかりません。
0930デフォルトの名無しさん
NGNGふざけた態度を改めてるとは思えんな。
「じゃあ」ってなんだよ。おめぇは消防か？
とか言っておきながら回答つけてみたりｗ
LostFocusイベントにでもこれいれてみて。
Text1.SelStart = Len(Text1.Text)
要はカーソルを一番後ろにもっていってやってるわけ。
ちなみにオイラの環境では文字列の右側が切れたりしないよ。
環境やプロパティの状態によっても違ってくるかもしれないから
今度からはそこら辺も書いた方がいいね。
わかったかボケ
0931922
NGNGもしよろしければ、コードを・・・
自分がやるとVBのフォーム内ではマウスイベントが発生するのですが
アクティブにしたIEなどではマウスイベントが発生しなくて困ってます。
0932デフォルトの名無しさん
NGNG高さと幅の取得方法は知ってるんだね？
フォントサイズって数値だってのはわかるよね。
高さと幅も数値だよね。
つまり数値から数値への変換な訳だよ。
で、どんな係数や式で変換できるか、これが問題だよね。
初めに戻るけど高さと幅の数値はわかる訳だよね。
そのときの君が最適と考えるフォントサイズってのもわかるよね。
まぁAutoSize=Trueしてみて値をとってみてもいいよね。
そうやっていくつかの組み合わせを「試して」
その数値の組み合わせを紙に書いて見てみよう。
どうだい？中学の数学の時間にやったような記憶はないかい？
数列とかの時間に等差数列とか等比数列とかやったような気がするでしょ。
（君がまだ中学生や小学生だというなら僕の見当違いだったかもしれないね。
そのときは学校の先生に聞いてみるか、あと数年待った方がいいね）
別の考え方もしてみよう。
ヘルプにちゃんと書いてあるからわかっていると思って話してなかったけど、
フォントサイズってのはポイント単位だってのは知ってるよね？
高さや幅の単位はどうなってるかな？
君がコンテナオブジェクトのScaleModeプロパティをなににしているかは
僕にはわからないんだよ。とっても残念だけどね。
で、ScaleModeプロパティをよくみてみると・・・
おや？「2-ポイント」ってのがあるよね。
ってことは高さや幅の単位とフォントサイズの単位を同じにできるかも！
同じ単位ならあとはそのまま代入でいけるかもしれないね～
さぁレッツ・トライ！「試せる」よ！
0933デフォルトの名無しさん
NGNGIEって、他アプリ上でのクリックを取得したいってこと？
それならフックするのが一番かな。
システムフックをする必要があるからVBだけでやるのは茨の道。
VCとかでちょちょいっとDLLを書いてやるか、
システムフック可能なＯＣＸとかあちこちで見かけるから
それ使わせてもらうのが簡単だね。
どんなアプリ作ろうとしてるのか知らんけど、
複数のアプリを動かせる仕掛けのＯＳでは
他アプリの情報は簡単には取得できないようになってるもんだよ。
もちろん裏技というか抜け道は必ずあるけどね。
そういう普通じゃないアプリ作成にはＶＢは向かんよ。
0934905
NGNGなるほど。ScaleModeプロパティと言う手があったんだ
ありがとうございました
0935デフォルトの名無しさん
NGNG目障りだから氏ねよ。
さ、会社逝こうっと。
0936デフォルトの名無しさん
NGNGSetTextColor は効かんようだ
方法を教えてくれ
0937936
NGNGスマソ無視してくれ
0938デフォルトの名無しさん
NGNG0939デフォルトの名無しさん
NGNGいちいち空行入れるな、ヴォケ
0940デフォルトの名無しさん
NGNGそりゃ、評価版なんだからしかたないんじゃない
0941936
NGNGWin98 は問題ないが Win2000/XP だとハンドルが取得できん
方法を教えてくれ
0942おまえしね
NGNG謝れとは言いませんがこちらもちょっと大人気ないのですが
ムカついたので友達のハッカーに頼んであなたの個人情報を
探してもらうことにしました。あ、もう遅いですよ。
もうすでに友達解析始めちゃってますから・・・(^^;
ちなみにこれは自慢じゃないんですがその友達は日本でも
5の指に入るくらいの凄腕のハッカーです。
この前彼の家に遊びに行ったらものの5分で他人の個人情報を
抜き取っていました。
彼にとってそれくらい赤子の指をひねるくらいの行いなんですよね(爆)
これであなたもいっかんの終わりってやつですね(^^;
まあせいぜい後悔してくださいね。
それからもう二度と荒らしはしないこと(その友達は荒らしが大嫌いらしいです。
荒らしを見つけたら即解析に入るみたいです。(^^;)
それでは、う～ん二日後くらいかな?また例のところに来てくださいね。
あなたの住所本名住所その他もろもろのせておきますんで(笑)
あ、警察とかに言ったって無駄ですよ。
あなたは荒らし(犯罪)なんだから通報したところで捕まるのは アナタです
友達は掲示板のログを自在に操ることができるんです。
と、いうことでbye♪(^O^)/~~
0943デフォルトの名無しさん
NGNG大まかなポイントは押さえてあるので，ほぼ良いのではないでしょうか．
欲を言うと，もう少し文章に力が欲しいところです．
0944デフォルトの名無しさん
NGNGこれを非表示にするには、どうしたらいいのでしょうか？
0945デフォルトの名無しさん
NGNG0946デフォルトの名無しさん
NGNG指定しないで（exe名のみで）、起動させたいのですが、うまくいきません。
Shell("calc.exe")とかShell("notepad.exe"）は、これだけで起動するんですが、
Shell("c:\Program Files\Afolder\Bfolder\client.exe")は、
Shell("client.exe")だけでは、「実行時エラー53ファイルがみつかりません。」
となってしまい、うまく動作しません。
どうすれば解決できるのでしょうか？
0947デフォルトの名無しさん
NGNG0948デフォルトの名無しさん
NGNGが、どんなプロパティやメソッドがあるのか、わかりません。
どこを探したら良いでしょうか。
0949デフォルトの名無しさん
NGNGヘルプ＆マクロの記録
0950デフォルトの名無しさん
NGNGVCでタイプライブラリをインポートする
0951デフォルトの名無しさん
NGNG0952デフォルトの名無しさん
NGNGエクセルのVBAのヘルプ
0953946
NGNGありがとうございます。
WinXPを使っているのですが、
システム→詳細設定→環境変数→ユーザ環境変数と辿っていき、
pathのところに「;c:\Program Files\Afolder\Bfolder\client.exe」と追加
してみたのですが、状況が変わりません。
何かのバッチファイルとかを書かなくてはいけないのでしょうか？
それとも書き方がおかしいんですかね？
そもそもが良くわかっていないので、よろしくお願いいたします。
（何かに何かの設定をすれば、フルパスを打たずに実行できるように
なりそうだ、というのは理解しているのですが・・・）
0954デフォルトの名無しさん
NGNGclient.exeはいらないと思うがどうだろう
0955630
NGNG分かってない割には的確だな。中途半端だけど。
「;c:\Program Files\Afolder\Bfolder」でよし。
0956デフォルトの名無しさん
NGNGフルパス指定を避けたいんだろう？
0957デフォルトの名無しさん
NGNGはダメ？
0958デフォルトの名無しさん
NGNGレスありがとうございました。
いろいろ見てみます。
0959デフォルトの名無しさん
NGNG0960946
NGNG言われた通りにしてrebootしたら出来ました。
>>956
今作ってるアプリを使うのが特定のマシンとは限らないんです。
で、呼び出すEXEが格納されているディレクトリはマシンによって異なる
可能性があるんで、何か回避方法はないかな？と思ったのです。
ありがとうございました。
0961デフォルトの名無しさん
NGNGiniファイルとかレジストリとかに絶対パスを設定するようにしたほうがｲｸﾅｲ?
0962デフォルトの名無しさん
NGNG> 今作ってるアプリを使うのが特定のマシンとは限らないんです。
> で、呼び出すEXEが格納されているディレクトリはマシンによって異なる
だったら別にフルパスのままでいいじゃん。
s = "c:\Program Files\Afolder\Bfolder\"
( ↑ 実際にはレジストリや設定ファイルから取得)
Shell s & "client.exe"
わざわざシステムの設定を書き換える必要はないと思うが。
0963962
NGNG0964デフォルトの名無しさん
NGNGどうするんでしょうか？
0965デフォルトの名無しさん
NGNG何で開きたいのかによるがな
Shell "EXPLORER.EXE C:\WINDOWS", vbNormalFocus
0967デフォルトの名無しさん
NGNGフォーム１の「開始」みたいな感じのボタン
Dim frm2 As New Form2()
frm2.ShowDialog()
Me.Hide()
フォーム１の「終了」ボタン
Me.Close()
フォーム２の「メニューに戻る」みたいな感じのボタン
Dim frm1 As New Form1()
frm1.Show()
Me.Close()
とするとプログラムが終了してくれないんですけどどうしてでしょうか？
VB.NETです。
0968デフォルトの名無しさん
NGNGVB.NET?
とりあえずフォーム１がフォーム２によって新規に作られてるかなじゃない？
Dim frm1 As New Form1()
0969デフォルトの名無しさん
NGNG答えていただいてありがとうございます
確かにForm1がもうひとつ作られて、「終了」で閉じられているのは
１つだけになっているようです。
新しく作らないようにするにはどうやってfrm1を宣言すればいいのでしょうか。
As NewのNewを何かに変えればいいのですか？
>>VB.NET?
ごめんなさい勝手に略しました。VisualBasic.NETです。
6.0と.NETではだいぶ違うらしいので･･･
（最近やり始めたので6.0はわかりません）
0970デフォルトの名無しさん
NGNGVB.NETわかんない
http://pc3.2ch.net/test/read.cgi/tech/1025848458/l50
できいてみそ
0971967
NGNGそっちで聞いてきます。
0972デフォルトの名無しさん
NGNG0973デフォルトの名無しさん
NGNGhttp://pc3.2ch.net/test/read.cgi/tech/1036154952/
0974デフォルトの名無しさん
NGNG小津。
0975デフォルトの名無しさん
NGNG削除しようとしたのですが、
REGSVR32ではActiveX Dll,Ocxなどはレジストリから削除できるのですが、
ActiveX EXEはできないようです。
どなたか方法知っていたら教えてください
0976デフォルトの名無しさん
NGNGhoge.exe -Unregserver
(hoge.exeがそのActiveX EXEのフルパス名ね)
0977デフォルトの名無しさん
NGNG解決しました!!
ありがとうございました。
0978デフォルトの名無しさん
NGNG要素がある場合にも、「実行時エラー"340" コントロール配列の要素"xxxx"がありません」
となることがあります。
一度終了して、再実行すると直りますが、
何でこのエラーが発生する場合とそうでない場合があるのでしょうか。
このバグの修正方法はコントロール配列を使用しないことなのでしょうか。
どなたかアドバイスいただけませんか。
0979デフォルトの名無しさん
NGNGソースにバグがあると思われ
0980デフォルトの名無しさん
NGNGソースはこのようになっています。
コントロール配列(txtMenu(0)～txtMenu(3)まであります。
Dim MenuStr(3, 3) As String
Dim StaffStr(10, 1) As String
For i = 0 To 3
If Len(txtMenu(i).Text) > 0 Then
rsSalesInfo.AddNew
rsSalesInfo!stfStatus = StaffStr(i, 1)
rsSalesInfo!stfID = StaffStr(i, 0)
rsSalesInfo!mpID = Val(MenuStr(i, 0))
rsSalesInfo!mpName = MenuStr(i, 1) + " " + MenuStr(i, 2)
rsSalesInfo!mpPrice = Val(MenuStr(i, 3))
rsSalesInfo!mpQnt = 1
rsSalesInfo.Update
End If
Next
このような感じでデータベースに新規レコードを追加しています。
発生するときと発生しないときがあり、どうしても解決できません。
0981小人
NGNG0982小人
NGNG0983小人
NGNG0984小人
NGNG0985小人
NGNG0986小人
NGNG0987デフォルトの名無しさん
NGNGまもなくここは 乂1000取り合戦場乂 となります。
＼∧＿ﾍ ／￣￣￣￣￣￣￣￣￣￣￣￣
,,､,､,,, / ＼〇ノゝ∩ ＜ 1000取り合戦、いくぞｺﾞﾙｧ！！ ,,､,､,,,
/三√ ﾟДﾟ) / ＼＿＿＿＿＿＿＿＿＿＿＿＿ ,,､,､,,,
/三/| ﾟＵﾟ|＼ ,,､,､,,, ,,､,､,,,
,,､,､,,, Ｕ （:::::::::::） ,,､,､,,, ＼オーーーーーーーッ！！／
//三/|三|＼ ∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
∪ ∪ （ ） （ ） （ ） ）
,,､,､,,, ,,､,､,,, ∧＿∧∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
,,､,､,,, （ ） （ ） （ ） （ ）
0988デフォルトの名無しさん
NGNG0989小人
NGNG0990小人
NGNG￣￣￣￣￣∨￣￣￣ (´´
∧∧ (´⌒(´
⊂（ﾟДﾟ ）≡≡≡(´⌒;;;≡≡≡
⊆⊂´￣ ⊂ソ (´⌒(´⌒;;
￣￣￣ ｽﾞｻﾞｰｰｰｰｰｯ
0992デフォルトの名無しさん
NGNG0993デフォルトの名無しさん
NGNG0994デフォルトの名無しさん
NGNG0995デフォルトの名無しさん
NGNG0996デフォルトの名無しさん
NGNG0997デフォルトの名無しさん
NGNG0998デフォルトの名無しさん
NGNG0999デフォルトの名無しさん
NGNG1000小人
NGNG人 ││ ●＼ ●＼
ノ二＼ ナ ゝゝ Ｖ ●●● ●＼ ●＼
/ / 乙 つ Ｏ ●＼ ●＼ ●＼ ●＼
●●● ●＼ ●＼ ●＼ ●＼
●＼ ●＼ ●＼ ●＼ ●＼ ●＼
●●＼ ●＼ ●＼ ●＼ ●＼ ●＼ ●＼
●＼ ●＼ ●＼ ●＼ ●＼ ●＼ ●＼
●＼ ●＼ ●＼ ●＼ ●＼ ●＼ ●＼
●＼ ●＼ ●＼ ●＼ ●＼ ●＼ ●＼
●＼ ●＼ ●＼ ●＼ ●＼ ●●● ＼
●＼ ●＼ ●＼ ●＼ ●＼ ＼＼
●＼ ●＼ ●＼ ●●● ＼
●＼ ●＼ ●＼ ＼＼＼
●＼ ●●● ＼ ┌┐ ┌┐
●＼ ＼＼＼ ┣━┳┃┃ ┃ ││ ││
●●●＼ ┃ ┃┃┃ ┣┓ ━╋ ━╋ Ｖ Ｖ
＼＼＼＼ ┛ ━┛ ┃ ┏┫ ┏┫ Ｏ Ｏ
(´´
／■＼ ） (´⌒(´
⊂（ﾟДﾟ⊂⌒｀つ≡≡≡(´⌒;;;≡≡≡
￣￣ (´⌒(´⌒;;
1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。