まったくの初心者です。初歩的な質問で申し訳ありません。
カラーのところでクリックが実行できません。
なぜなのかよくわかりません。お暇なときご教授下さい。
そしてもう一つ質問ですが以下のコードを追加したいの
ですがどこに挿入すればいいのですか。
→private sub image_click()
ccolor = 7
end sub ここまでのコードを追加したいです。
ーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub Command1_Click()
Form1.Cls
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.DrawWidth = 3
If Button = 1 Then
PSet (X, Y), QBColor(ccolor)
End If
End Sub
Private Sub Label1_Click()
cccolor = 14
End Sub
Private Sub lavel2_click()
cccolor = 0
End Sub
Private Sub label3_click()
ccolor = 9
End Sub
Private Sub label4_click()
ccolor = 12
End Sub
Private Sub label5_click()
ccolor = 10
End Sub
No.3ベストアンサー
- 回答日時:
#2です。
1も2も分からないといった状況ということですね。>コードと作ったオブジェクトをどうつなぐのかがわかりません。
まずプログラムを実行した時、何かしらの[アクション]により実行される部分の
最小単位を[プロシージャ]と呼びます。
例えば[Private Sub Label1_Click()]から[End Sub]までの部分です。
意味としては、[Label1]というオブジェクトが[Click]されたら、この間にある
コードを実行しなさい。という命令です。
ここで注意しなければならないのは、[Label1]という名前です。
[Label1]というのは[オブジェクトを識別する名前]であり、太郎さんなのか次郎
さんなのか、という区別する名前です。
例えば[ボタン]オブジェクトに[Label1]という名前を付けることも出来ますし、
[ラベル]オブジェクトに[List1]という名前をを付けることも出来ます。これはち
ょうど、犬に[タマ]、猫に[ポチ]という名前を付けることに良く似ています。
話を戻しまして、[Label]オブジェクトをフォーム上に配置すると標準で[Label1]
…[Label2]…[Label3]、という風に名前が付けられます。この名前は通常[重複]
してはいけませんが、VB6の場合はオブジェクト配列として扱う事が出来ます。
しかしここでは深く語りません。
この[オブジェクトを識別する名前]を理解したところで、本題です。
>コードと作ったオブジェクトをどうつなぐのかがわかりません。
>カラーのところでクリックが実行できません。
ということなので、配置したオブジェクトとコードの名前が一致していないので
はないでしょうか?
例えば、プロパテイの[オブジェクト名]が[OBJ]という名前のオブジェクトを
クリックアクション時に実行する[プロシージャ]は[Private Sub OBJ_Click()]
とする必要があります。
>コードをどこに挿入すればいいのですか?
基本的に順番はありませんのでどこに記述してもかまいませんが、一点だけ注意が必要です。
[プロシージャ]はネストすることは出来ませんので、例えば
[Private Sub Label1_Click()]から[End Sub]までの間の部分には記述出来ません。
お分かり頂けましたでしょうか?
二番さん、詳しい説明有り難うございました。一番さんにも感謝です。ようやくつかめてきました。また質問するときは宜しくお願い致します。
No.2
- 回答日時:
少しスマートに手直し(labelは全てimage1の配列に,Command1も配列)
Option Explicit
Dim ccolor As Long
Private Sub Form_load()
Form1.DrawWidth = 2
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Static X2, Y2 As Single
If Button = 1 Then Line (X, Y)-(X2, Y2), QBColor(ccolor)
X2 = X: Y2 = Y
End Sub
Private Sub image1_Click(Index As Integer)
Select Case Index
Case 0: ccolor = 0
Case 1: ccolor = 7
Case 2: ccolor = 9
Case 3: ccolor = 10
Case 4: ccolor = 12
Case 5: ccolor = 14
End Select
End Sub
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0: Form1.Cls
Case 1: Unload Me
End Select
End Sub
この回答への補足
お返事有り難うございます。一番さんの補足に書いた通り
のことで今悩んでおります。コードと作ったオブジェクトをどうつなぐのかがわかりません。実行をしても黒いカラーだけがでてしまいます。お時間があるときご存知でしたらアドバイス下さい。
No.1
- 回答日時:
質問がわかりづらいです。
何となく想像はつきますが...
>カラーのところでクリックが実行できません。
カラーのところって?
Labelxx_Clickのところでしょうか?
実行できませんとは?
???という動作を期待しているのに、
???なってしまうのでしょう?
cccolor と ccolor の違いと型は?
単に転記ミス?(lavel2_clickってなってるし...)
余談1
>Private Sub Command2_Click()
>End
>End Sub
Endは使わない方が良いです。
終わらせたいなら、Unload Meにしましょう。
余談2
私の場合は、ラベルはコントロール配列にして...
Private Sub Label1_Click(Index as Integer)
Select Case Index
case 0: cccolor = 14
case 1: cccolor = 0
・
・
・
End Select
End Sub
この回答への補足
お返事有り難うございます。ご指摘されたところを手直ししました。ソースを記述しなおしたものと+プロパティウィンドウをさわりながらつくったオブジェクトを実行してもできませんでした。アドバイス、お時間があるとき下さい。
補足日時:2005/01/21 11:49お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VBA】別シートにデータ転記
-
EXCEL vbaでシート上に配置した...
-
Excel VBA 定義されたプロージ...
-
VBA 別ブックからコピペしたい...
-
【ExcelVBA】インデックスが有...
-
vbaにてseleniumを使用したedge...
-
VBA 別ブックから条件に合うも...
-
配列のペースト出力結果の書式...
-
郵便番号検索APIにてget Elemen...
-
エクセルのマクロについて教え...
-
【ExcelVBA】値を変更しながら...
-
2つのマクロでチェックボックス...
-
エクセルのマクロについて教え...
-
VBA実行後に元のセルに戻りたい
-
Outlookにて既にウィドウ単体で...
-
VBA 入力箇所指定方法
-
エクセルのマクロについて教え...
-
メールの件名をデコードしたい
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA 別ブックからコピペしたい...
-
Vba ファイル書き込み時に書き...
-
Excel_VBAについて質疑です。(...
-
VBAの間違い教えて下さい
-
VBA コードどこがおかしいですか?
-
VBA 円グラフ 特定条件に一致し...
-
VBA 別ブックから条件に合うも...
-
pdfファイルの複数添付 引数の型
-
【ExcelVBA】インデックスが有...
-
ExcelVBAマクロで実行した時の疑問
-
Vba UserformからExcelシートの...
-
VBA初心者です。次のVBAコード...
-
Outlookの「受信日時」「件名」...
-
Excel 範囲指定スクショについ...
-
vbs ブック共有を解除
-
配列のペースト出力結果の書式...
-
Excel VBAで値を変えながら、pd...
-
VB.net(VB)で、フォームにExcel...
-
vbaにてseleniumを使用したedge...
-
ExcelVBA シート名を複数セルか...
おすすめ情報