Fading backcolor
Make the backcolor property of a form acts like a VB-Setup Program
AI
AI 요약: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
소스 코드
Option Explicit Private Sub Form_Paint() Dim lngY As Long Dim lngScaleHeight As Long Dim lngScaleWidth As Long Dim WhatColor As String ScaleMode = vbPixels lngScaleHeight = ScaleHeight lngScaleWidth = ScaleWidth DrawStyle = vbInvisible FillStyle = vbFSSolid For lngY = 0 To lngScaleHeight FillColor = RGB(0, 0, 255 - (lngY * 255) \ lngScaleHeight) Line (-1, lngY - 1)-(lngScaleWidth, lngY + 1), , B Next lngY End Sub
원본 댓글 (3)
Wayback Machine에서 복구됨