VB初心者質問スレ Part4
■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん
NGNGhttp://pc.2ch.net/test/read.cgi/tech/1000523122/
0263クリスタルレポート
NGNG参照先のＤＢ名を変更出来なくこまっています。
下記のコードのように幾つか試しているのですがうまくいきません。
ご存知の方がいらっしゃいましたら、是非教えて下さい。
バージョンは、VB6.0、Crystal Reports8.5
ＤＢは、ＤＢ２、バージョン７で、ＲＤＯ接続です。
初心者ではありませんが、どうかよろしくお願いします。
Dim Report As New CrystalReport1
Public rEn As rdoEngine
Public rEv As rdoEnvironment
Public rCn As rdoConnection
Public rRs As rdoResultset
Public sCnct As String
Public str_SQL As String
Private Sub test_Click()
sSQL = SQL_MAKE() 'SQL作成
sCnct = "DSN=DB2TEST2; UID=ADMINISTRATOR; PWD=******" ' システムDSN
Set rEn = rdoEngine
Set rEv = rEn.rdoEnvironments(0)
Set rCn = rEv.OpenConnection("", rdDriverNoPrompt, False, sCnct)
Set rRs = rCn.OpenResultset(sSQL)
'レコードセットを与える
Report.Database.SetDataSource rRs, 3, 1
'システムDSNを与える
Report.Application.OpenReport("Report1.rpt").Database.Tables.Item(1).SetLogOnInfo (sCnct)
CRViewer1.ReportSource = Report
CRViewer1.ViewReport
CRViewer1.Zoom (2)
End Sub
0264デフォルトの名無しさん
NGNGテキストボックスにマウスが入ったら
キャプチャーして、出て行ったら色直して
解放してやるのが一番無難ではないかと思われ。
0265デフォルトの名無しさん
NGNGPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print "Form_KeyDown"; KeyCode; Shift; GetKeyState(vbKeyMenu)
If KeyCode = vbKeyR And (Shift And 4) = 4 Then
Debug.Print "Enterを押下したことにする"; KeyCode; Shift; GetKeyState(vbKeyMenu)
Call KIS_keybd_event(vbKeyMenu, 0, KEYEVENTF_KEYUP, 0)
Call KIS_keybd_event(vbKeyReturn, 0, 0, 0)
Call KIS_keybd_event(vbKeyMenu, 0, 0, 0)
ElseIf KeyCode = vbKeyReturn And (Shift And 4) = 4 Then
Debug.Print "フルスクリーン"; KeyCode; Shift; GetKeyState(vbKeyMenu)
ElseIf KeyCode = vbKeyReturn And (Shift And 4) <> 4 Then
Debug.Print "Enter押下時の処理"; KeyCode; Shift; GetKeyState(vbKeyMenu)
End If
Exit Sub
どうもGetKeyStateは254さんの思ったとおりの動作をしていないようです。
使用しないほうがよさげ。
0266デフォルトの名無しさん
NGNGScaleModeは関係ないかと
0267デフォルトの名無しさん
NGNG確かに。ｽﾏｿ。鬱氏。
0268デフォルトの名無しさん
NGNG＞ところで、FormのStartUpPositionプロパティで「画面の中央」じゃ駄目なの？
これで解決しました。勉強不足でした。
>>261
>パスワードを暗号化して保存するぐらいは
暗号化とはどういうことをするのでしょうか
初心者ですので、もしできれば詳しく説明してただければと思います
レスサンクスです
0269デフォルトの名無しさん
NGNG初心者だからと行って何でも許されるわけではない。
0270デフォルトの名無しさん
NGNGパスワードを逆にしたり全バイト1足したり
Xor使ったり色々。
要は暗号化後には暗号前が分からなくすれば良い。
どう実装するかは自分で考えようね。
0271デフォルトの名無しさん
NGNG接続しているデータベース・テーブルが更新・追加等された際の
イベントってあるんでしょうか？
これがわからない為に、ロード時にadodb.connectionを
バインドして、タイマー毎にadodb.commandでsp_whoやsp_lock、自前の
ストアドを走らせて確認し、イベントを発生させています。
ここが出来れば、ADO関係はActiveXDLLにして
実行プログラム自体にはraiseeventしてやるだけで
済むので大分楽になるなーっていう手抜きしたさのみでこれに
ついて調べています。
日本語が不自由ですみませんがこの辺実践してる方
いましたらご教示ください。お願いいたします。
0272271
NGNG0273268
NGNG暗号化の目的がよく理解できないんですが
例えばパスワードが１２３４としたら
テキストファイルには４３２１と書いて保存すると言うことですよね
１２３４と暗号化しないで書いても特に不都合はないように思うのですが
0274デフォルトの名無しさん
NGNGパスワードなんて物騒なもんが平文でその辺に置いてあることの
危険性が理解できない奴の作ったプログラムなんか使えねえよ。
0275デフォルトの名無しさん
NGNGXOR演算でやってみたけど、いまいちうまくいかないです。
日本語を暗号化するときも、表示可能な文字に暗号化したい。
暗号前の文字列が長さ0の時でも、暗号化ルーチンを見破られないようにしたい。
自前より、APIのCryptを使ったほうがいいのかな。
んじゃあ、オマエのインターネットのIDとパスワード教えろ（ｗ
0277デフォルトの名無しさん
NGNG例えば、8bit×3をxorしたあと、6bit×4として取り出せば必ず表示可能な
範囲に収まる。
0278261
NGNGunixのパスワードなんかは暗号化して保存しているから
その辺を調べてみると参考になるかもしれません。
簡単なサンプル。
'復号化は自分で作ってね。
'パスワードが正しいか判定するだけなら、ユーザが入力したパスワードを
'暗号化して、ファイルに保存してある暗号化パスワードと比較すれば判定
'できるから、必ずしも復号化は必要じゃないけどね。
Function crypt(src As String) As String
Dim l As Long, i As Long, ret As String, c As Long
Rnd -123
l = Len(src)
For i = 1 To l
c = Asc(Mid$(src, i, 1)) Xor Int(Rnd * &H10000)
ret = ret & Right$("0000" & Hex$(c), 4)
Next
crypt = ret
End Function
0279デフォルトの名無しさん
NGNG>暗号前の文字列が長さ0の時でも、暗号化ルーチンを見破られないようにしたい。
長さが一定以下なら末尾にゴミを突っ込んでから暗号化するとか。
0280275
NGNGDB接続のユーザ名とパスワードをIniファイルに保存したかったもので。
0281265
NGNG正)keybd_event
ｳﾂ...
0282263クリスタルレポート
NGNGお騒がせして申し訳ありませんでした。
0283デフォルトの名無しさん
NGNG文字列を比較してきたいんですけど、うまくいきません。
MidB$とかやっても内部でUniCodeしてるみたいなんで。
助けてください。
0284デフォルトの名無しさん
NGNGdim wk() as byte
wk()=Strconv( "文字列",vbFromUnicode )
後はバイト配列を一つづつ比べれ。
バイト配列の最大はubound(wk())とかやで。
0285デフォルトの名無しさん
NGNGファイルを読み込むにはInputかGetを普通使うが、
どちらを使うかでUnicodeとANSIに分かれる。
注意しようね。
0286デフォルトの名無しさん
NGNGVBでできますか？
0287デフォルトの名無しさん
NGNGできる。API必須。
0289286
NGNGできれば、モスウコ氏具体的にやり方など教えてくださいませんか・・・？
0290286
NGNG0291286
NGNG0292287
NGNGまず、タスクトレイにアイコンを登録するために
Shell_NotifyIconが必要。
次にタスクトレイのクリックを取得するために
サブクラス化が必要。
サブクラス化には
SetWindowLongとCallWindowProcが必要。
んで、最小化の時にタスクトレイのアイコンを表示。
タスクトレイのクリック時にフォームを表示。
・・・ってな感じで。
サブクラス化もタスクトレイのアイコンの登録の仕方も
ネットに山ほどサンプルあるからGoogleあたりで検索してみな。
あと、落ち着け。(w
0293デフォルトの名無しさん
NGNGキーボード入力を取得するにあたり、それが「確実に」
キーボードから入力されたかどうかを判定する方法はあるでしょうか？
仮想キーコードを独自に送出するツールなんかからの
入力は無視したいんですが。
GetKeyStateは試してみましたが、うまくいきませんでした。
なんかハードウェアを直接制御するしかないのかなぁとか思ってるんですが。
（そのやり方もよく分かってませんが・・）
0294デフォルトの名無しさん
NGNGマルチスレトにするには、どのＡＰＩを使えばいいですか？
教えてくれたら人は、売れたらお金をあげます。
あと、デュアルＣＰＵのＡＰｉも教えてください。
0295268
NGNGサンプルまでありがとうございます
コピペして試しました
ただ、一つだけ
Rnd -123
これの意味がわからないです
あとは調べたら理解できました
0296261
NGNG乱数系列を初期化しています。
その行が有る時と無い時で
debug.print crypt("ABCDE") , crypt("ABCDE")
の出力を見比べると解ると思います。
0298ラーニング
NGNGアクセスで作成したＤＢを操作したいのですが、どうコーディングしたらよいのか
さっぱりわかりません。
参考書はＢＤグリットの使い方しか、載ってません。
具体的にしたいことは
１．ファイルをオープンし、データを追加する。
２．ファイルをオープンし、データを修正する。
３．ファイルをオープンし、データを削除する。
（なんそ命令が違うらしいと聞いたので）
４．クローズ
すいません、どなたか教えてください。
0299デフォルトの名無しさん
NGNGそのやりたい操作とDBGridに何の関係が...?
0300ラーニング
NGNGフォームでデータが関連付けできるから、楽なんです。
しかし、ラーニングではできない（プロフェッショナルならできるんだけど）
ので、教えてもらいたいんです。
0301デフォルトの名無しさん
NGNG0302ラーニング
NGNGＤＢグリッとがあれば、オープンもクローズもしないで
ＤＢへ書き込んで、次のレコードへブックマークセットして・・・
みたいなコーディングで終わるんでしょうが、
１対ＮでＮ側のＤＢをＤＢグリッと無しで操作しようとする場合、
ＤＢオープンして内容を操作してクローズするといった処理が必要になると
思うのですが、参考書はＤＢグリッとの使用方法しか載ってないんですよね。
だから、知っている人がいれば、教えてもらえたらなと・・。
0303ラーニング
NGNGアクティブＸの機能は使えない。いたーいです。
0304デフォルトの名無しさん
NGNGちょっと感動。
0305
NGNGおいらも使ってるよ。金が無かったんだよ。激しく後悔。
0306デフォルトの名無しさん
NGNGLearningEditionって、ほんと何もできないのね…。
使ってても学習になるのかどうか疑問だ。
すまんね、ADOもDAOも使わずにDB操作したことないんで
役に立てそうにないわ。
0307301
NGNG...そうか。疑ってｽﾏｿね。
DBGridを使う場合、普通はデータコントロールを対にして使う。
折れはSQL鯖との組み合わせしか知らないけど一応参考にしてくれ。
まず、グリッドと対になるデータコントロール(ADODC)をフォームに貼り付ける。
んで、DBGridのDataSourceプロパティには連結するADODCを指定する。
ADODCには、接続するDBやテーブルに関するプロパティを設定してやる。
実行すると、ADODCの設定に応じてDBへのConnectなどが行われて
結果がGridに反映される。
こんな感じ。
0308デフォルトの名無しさん
NGNG●カスタムコントロールが使用不可
●ネイティブコンパイルが使用不可
●配布不可
だったっけ？
うーむ・・・確かにきついな。
んで、>>298
DAOは使っていいんだよね？
あと、参照設定って使えたっけ？
使えるんなら参照設定で
「Microsoft DAO 2.5/3.0・・・」
をチェックして、
Function a()
Dim DB as DAO.DataBase,RS as DAO.Recordset
Set DB=DAO.OpenDataBase("C:\Hoge.mdb")
Set RS=DB.OpenRecordSet("HogeHoge")'テーブル名
MsgBox(RS!HogeHogeHoge)'フィールド名
RS.Close
Set RS=Nothing
Set DB=Nothing
End Function
は駄目？
0309デフォルトの名無しさん
NGNGもらったのですが、どうもうまくいきません。
↓サンプル（JAVA)
http://hp.vector.co.jp/authors/VA006860/hako/sample1.html
サンプルはJAVAですが、どうしてもVBかVCで作りたいのです。
なにがうまくいかないか、というと、駒をマウスでドラッグアンドドロップで
動かす時に他の駒の上に重ならないようにしたいのです。
ドラッグアンドドロップ中のオブジェクトの動きって制限できるものなの
でしょうか？私はFormの上にImageコントロールを置いているのですが、
そのやり方自体、間違っているのでしょうか？
どなたかどうか教えてください。
0310ラーニング
NGNG正味８日。子供がいるので時間的にきつかった。
ＶＢ初めてだし。
どうしても、ＤＢの直接操作の部分がうまくいかない。
オープンができても、フィールド名が取れなかったりと、
参考書もプロフェッショナル版の内容で書いてあるから、
どれが使えて、どれが使えないか判らない。
エラーがでても、自分が悪いのか、サービスされてないのか、
それを解明するのにかえって時間がかかりました。
しかし、プロフェッショナルは８万。ラーニングが２万４千。
う〜ん。価格の差があるだけのことはあると思いました。
0311ラーニング
NGNGありがとうございます。
オープンは何とかできるようになりました。
現在フィールド名が認識されないので、作業がストップしてます。
0312デフォルトの名無しさん
NGNGこないだレスした者ですが、そのやり方自体は間違ってないです。
置けるか置けないか判定するのに、XY座標の２次元配列を使います。
で、Masu(1 to 4, 1 to 5)だと、娘がMasu(2, 4)まで来たらゴール。
0313デフォルトの名無しさん
NGNGうーん・・・。
サンプル→http://hp.vector.co.jp/authors/VA006860/hako/sample1.html
みたいに、「移動できる方向」も判定したいのです。
ドラッグアンドドロップだと、とりあえず置けはしないけど、
どこにでも行けてしまう！（MouseDownイベントで座標取得、後ドラッグアンドドロップ）
サンプルのJAVA解析しろやゴルｱって話もあるんですが、
あいにくJAVAを知らないので・・・。
これがVBの限界なんですかね・・・。
0314312
NGNG置けないところにいったん置いてから、「そこには置けません！」で
元に戻すのじゃなくて、最初からドラッグの方向を制限したいわけね。
DragOverイベントで、マウスの座標を監視するだけよ。
0315313
NGNGなるほど、そういう方法があったのかー・・・・。
勉強になりました！
0316301
NGNGちなみに、VBでゲーム製作なら、コントロールは何も使わずに
Formに直接Bltとかしてやったほうが細かく制御できるよ。
コーディング自体はちょっとメンドくなるけど。
0317309
NGNG>Formに直接Bltとかしてやったほうが
それってBitBlt関数のことですね。
今、MSDN見て初めて知りました。
確かに大変そうだけど、VBでやるなら
しょうがないか・・・・・。
0318デフォルトの名無しさん
NGNG0319１９２
NGNGすごく遅れましたが、ありがとうございました。
フォントを変えるたび値を設定しなおしてやりました。
それでも若干縮んでしまいますが・・・。なんでなんでしょうねえ
0320デフォルトの名無しさん
NGNG一応BitBltはWindowsの基本なんで。
慣れるとむしろそっちの方が簡単だよ。
今更コントロールでゲームを作れっていわれても
ピンとこない。（ｗ
0321デフォルトの名無しさん
NGNG何を買うのがベスト？
Microsoft Visual Basic 6.0 Learning Edition
とか買おうかｹｿﾄｳ中。
0323デフォルトの名無しさん
NGNG上でもLearning使って難儀してる人いたよ。最低でもProにしとけ。
高い！って思うなら、Delphiとかは？
Personalは確かに機能限定はあるけど、なにしろタダだし...
0324デフォルトの名無しさん
NGNGマウスカーソルの移動をさせる動作が、どうしても
うまくゆきません。
Call mouse_event(MOUSEEVENTF_MOVE, x, 0, 0, 0)
とやったら、Ｘピクセルほど移動してくれなくてなんか変な場所に
カーソルが行ってしまったりします。
ともかく、ディスプレイ上の(x,y)の座標にカーソルを移動させる方法
を誰かお願いします。
0325321
NGNG＞323
ｻﾝｸｽｺ
何か作ったらｳﾌﾟするよ。
0326３１４
NGNGドラッグで処理しようっていうこと自体がどうも間違いだったみたい(汗)。
MouseMoveは使わない方がいいよ。コードによってはスタック不足になりやすいから。
DragOverもふさわしくなかった。動けない方向へは動けないようにするために、
１ドットでもマウスの移動を検知したら、ドラッグを即キャンセルするんだけど、
斜めの場合、XY方向のどちらを重視するかとか、余計な処理が必要になる。
で、解決法だけど、Image上のクリックだけで空いてる方向に動かすのはどう？
スライドパズルの場合、動ける方向はほとんど決まってるわけだから。
ただし、１コマ大が左右または上下の２方向に動ける場合とかは、
そのつど、Imageのどちら半分がクリックされたか判定すればオッケー。
0327３１４
NGNGｘ座標と変な場所の法則性は？
ｘの型と値は？
ピクセル座標系に変換してるかな？
これが一番間違いやすいと思う。
0328箱入り娘作成中
NGNGImage上のクリック・・・・。
確かにBitBltを使いこなすのは初心者の私には
難しいかもしれない。
でもー、サンプルのJAVAのソース↓
http://hp.vector.co.jp/authors/VA006860/hako/HakoApplet.java
だと、MouseDownとかMouseDragとかいう関数が・・・。
JAVAアプレットだと作りやすいのかな？
よくよく考えたらWindowsアプリじゃないしー。
同じ方法でやろうとしてたって事が間違ってた・・・・。
うんうん、理解、理解。
0329箱入り娘作成中
NGNGImage上のクリック・・・。
そっかー、そのやり方がいまのところ
ベストかもしれないです。
BitBltはVB初心者の私には難しすぎるっ
でもー、サンプルのJAVA(アプレット?)は
mousedownとかmousedragとかあるんですけど、
やっぱり、全然作り方が違うのかなー。
よくよく考えるとJAVAのサンプルはWindowsアプリじゃないし、
やっぱりマウスの制御でやろうというのは方向性が
間違っていたんだー。うんうん、理解、理解。
0330デフォルトの名無しさん
NGNGText1に手打ちで「C:\Windows\aaa」などとパスを書いて、
そのフォルダが有るか無いか判断するにはどうしたら良いですか？
お願いします。
0331ヒッキー＠プログラミング
NGNGDir関数を使われてはどうでしょう？
0332なつかしいね〜
NGNG私もVB6.0PROを買いたかったんだけど
アカデミックと通常版の値段を見て買う気
をなくした。
別に金が無かったわけじゃないけど、ムカツイテ
Delphi6.0PROを買ったよ。
0333デフォルトの名無しさん
NGNGあと7000円ほど出せばEntも買えましたけど。
0334デフォルトの名無しさん
NGNG0335デフォルトの名無しさん
NGNG安くしているんじゃなくて、それがコスト+儲けなんだよ。
商用利用に使えるやつ(通常版)は、そのソフトを使って儲けるわけだから高いんだよ。
0336ひどいよマイクロソフト
NGNG0337335
NGNG0338デフォルトの名無しさん
NGNGガキを洗脳するのが重要なんだよ。
将来の大事な金づるだ。
0339ひどいよマクロメディア
NGNG0340デフォルトの名無しさん
NGNG0341箱入り娘作成中
NGNGほとんど同じ内容でカキコしてしまった。
スマソ
0342ひどいよマイクロソフト
NGNG0343デフォルトの名無しさん
NGNGなんてMSがやるわけないだろｺﾞﾙｧ
金がある奴からは搾り取る
ガキはどうせ払えないんだから、他社より安くして洗脳する
そのうちアカデミックフリーとかやりだすかもな
0344VB使い
NGNG今日は休みなんでサンプル作ってみた。
フォームにコマンドボタン貼り付けて
フォームにこのコードを貼り付けること。
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
ByVal DX As Long, ByVal dy As Long, ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Const MOUSEEVENTF_MOVE = &H1
Private Sub Command1_Click()
Dim x&, y&
x = 1200: y = 300 '移動したい座標
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, _
x * (65535 / (Screen.Width / Screen.TwipsPerPixelX)), _
y * (65535 / (Screen.Height / Screen.TwipsPerPixelY)), 0, 0
End Sub
もしかしたらもう解決済みか？(w
昨日の話だしなあ。
0345>
NGNG0347
NGNG2つのキャラクターとかがぶつかったときの
あたり判定とかってどうやって設定したらいいんですか？
0348デフォルトの名無しさん
NGNGhttp://www.microsoft.com/japan/developer/vstudio/
毎日チェックせれ。
0349３１４
NGNG自前ドラッグのサンプル。フォームにイメージを１個貼って実行。
右方向に１コマ分しか動かせないという条件です。
Dim DragX As Single, DragY As Single
Dim OrgX As Single, OrgY As Single
Dim MoveFlag As Boolean
Private Sub Form_Load()
Image1.Appearance = 0 '' フラット
Image1.BorderStyle = 1 '' 実線
OrgX = Image1.Left: OrgY = Image1.Top
MoveFlag = False
End Sub
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveFlag = True '' ドラッグ開始
DragX = X: DragY = Y
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim NowX As Single
If MoveFlag = True Then '' ドラッグ中？
NowX = Image1.Left + X - DragX
If NowX >= OrgX And NowX < OrgX + Image1.Width Then '' 範囲内？
Image1.Move NowX, OrgY
End If
End If
End Sub
Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveFlag = False '' ドラッグ終了
End Sub
0350VB使い
NGNG基本は矩形（四角形）処理。
APIにもそれ用の関数がある。
つまり、矩形１と矩形２とを比べて、
重なっていたらヒット。
重なってなかったらはずれ。ってな感じで。
キャラごとに矩形をいくつか設定すると
複雑なキャラでも結構それなりに使える。
格闘ゲーム系も同じやり方でやってる。はず。(w
0351デフォルトの名無しさん
NGNGHotTrackingプロパティの説明に
「ﾏｳｽすﾌﾟﾛﾊﾟﾃｨ・・・」と書かれているんですけど、これが普通ですか？
Microsoftに言ったら何かもらえますか。
0353デフォルトの名無しさん
NGNGコンパイルする度に.obj生成してlinkしてcleanしてるような気がする
C2.exeとLink.exeの引数解ればnmake.exeで
コンパイルする事は可能ですかね？
教えてちょ
0354>345
NGNG0355デフォルトの名無しさん
NGNGデータへのアクセスというところででてきた、フレキシブルグリッドというコンポーネント
が使用できなくて困ってます。
プロフェッショナルをインストールしてあるのに、
フレキシブルグリッドを使用するためのライセンスがありませんといわれます。
なぜ？？
0356３１４
NGNG２時間ぐらいで、例のJavaアプレットをVBに移植しました。遊べます。
コマはまだ色の四角形ですが、GIF画像ファイルを入手すれば
即置き換えられます。
マウス座標の取得がFormと別々になるので、Imageコントロールは使わず、
Formだけにして、非表示のPictureBoxからPaintPictureします。
Java固有のスレッドやイベントの制御コード部分は無視してかまいません。
ほか
１．あのままではマウス移動の判定が鈍いので、改良。
２．手数を表示。←これは必須
0357箱入り娘作成中
NGNGん？板チェックしに来たら、もう出来てる？！
私はまだ完成してません。
もしかしてImageコントロールをFormにペタペタ貼ってた
のが、ただでさえ初心者の私をさらに追い込んでたとか・・・。
そんな気がしてきた！
0358とて〜も初心者
NGNG私のパソコンでは（VAIOノートのPCG-FX33G/BP）DLLがないとか
言われたことはありません。
DLLを入れた記憶はないのですが、メーカー製のものってDLLとかが標準で
入ってるってことですか？
0359デフォルトの名無しさん
NGNG0360箱入り娘作成中
NGNG作ってる私も解けません。
0361箱入り娘作成中
NGNGファイルのパスは合ってるのに。なんで？
Private Sub Form_Load()
Dim Pic_Waku As Picture
Set Pic_Waku = LoadPicture("C:\〜省略〜\koma0.gif")
frmMain.PaintPicture Pic_Waku, 0, 0
End Sub
0362デフォルトの名無しさん
NGNGfrmMainにじかに書いているわけですね。
恐らくfrmMainのAutoRedrawがFalseになってるせいです。
この辺はWindowsの仕組みを理解していないとわからない所ですね。
■ このスレッドは過去ログ倉庫に格納されています