VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2005/02/01(Tue) 14:11
投稿者： 花ちゃん
Ｅメール：
ＵＲＬ：
タイトル： Re: (解決)特定の線だけを消す方式を教えてください

> .DrawMode = vbXorPenがミソでしたか。
> .ForeColor = .BackColor (.は書き忘れと思う)については、効果が分かりません。

Formに書いていたものをPictureに書き直したので、どちらでも動作は同じですが
.BackColor の方が正解ですね。

> つけたりつけなかったりして、効果を見比べているのですが同じように見える。。
（投稿したコードでは、カラーコードを指定しているので無くてもいいのですが）

下記のコードだけで試して見て下さい。
Private Sub Form_Load()
    With Picture1
        .AutoRedraw = True
        .ScaleMode = vbPixels
        .DrawMode = vbXorPen
        .DrawStyle = vbSolid
        .DrawWidth = 10
        .BackColor = vbRed　　　　 'この部分をコメント化して試して下さい。
        .ForeColor = .BackColor　　'この部分をコメント化して試して下さい。　
    End With
    Picture1.Line (10, 10)-(200, 100)　　'何色で表示されましたか？
End Sub

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -