グラデーションフォームを作成する方法

◆概要


このホームページは、Visual Basic 6.0でグラデーションフォームを作成する方法について記載しています。


グラデーションフォームを作成するには、フォームの背景を明るい青から黒までさまざまな暗度の青い四角形を使って塗ります。

◆Sample code

Option Explicit

Private Sub Form_Paint()
    Dim lY As Long
    Dim lScaleHeight As Long
    Dim lScaleWidth As Long
    
    ScaleMode = vbPixels    'フォームのScaleモードをピクセルに
    lScaleHeight = ScaleHeight
    lScaleWidth = ScaleWidth
    
    DrawStyle = vbInvisible '境界線を表示しないため
    FillStyle = vbFSSolid
    For lY = 0 To lScaleHeight
        FillColor = RGB(0, 0, 255 - (lY * 255) \ lScaleHeight)
        Line (-1, lY - 1)-(lScaleWidth, lY + 1), , B
        
    Next lY

End Sub
　　

◆実行結果


グラデーションフォーム

▼ページトップへ