|
Дарова всем. Взял контрол прогресс-бара на vbnet: http://www.vbnet.ru/activex/zip/ProgressBar.zip (всего 2 кб). В контролах я мало разбираюсь (я вообще в VB чайник) и не могу понять, как сделать так, чтобы ползунок проходил не с лева на право, а наоборот? На всякий случай кину код: Form1:<font color = green> Dim n Private Sub Form_Load()
n = 100
End Sub Private Sub timer1_timer()
n = n - 10
ProgBar1.DrawProgress n
End Sub</font> ProgBar(ProgBar.ctl):<font color = green> Public Event OnEnd()
Private Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long
Dim Rm, V1
Public Function DrawProgress(VaLuE, Optional Text = "", Optional Max = 100, Optional PrgClr As Long = vbBlack, Optional TextColor As Long = vbBlack, Optional x = 0, Optional y = 0, Optional TextSize = 8, Optional TextBold As Boolean = False, Optional TextItalic As Boolean = False, Optional TextUnderLine As Boolean = False, Optional TextFont As String = "MS Sans Serif")
If VaLuE > Max Then LREF: RaiseEvent OnEnd: Exit Function:
V1 = ScaleWidth / Max
Rm = V1 * VaLuE
Cls
Line (0, 0)-(Rm, ScaleHeight), PrgClr, BF
On Error GoTo obr
UserControl.ForeColor = TextColor
UserControl.FontBold = TextBold
UserControl.FontItalic = TextItalic
UserControl.FontUnderline = TextUnderLine
UserControl.FontSize = TextSize
UserControl.FontName = TextFont
obr:
Call TextOut(UserControl.hdc, x, y, Text, Len(Text)) LREF
End Function
Property Let backColor(BClr As Long)
UserControl.backColor = BClr
End Property Private Sub UserControl_Initialize()
Cls
LREF
End Sub Private Sub UserControl_Resize()
Cls
LREF
End Sub
Private Sub LREF()
Line (0, 0)-(0, ScaleHeight), &H808080
Line (ScaleWidth - 1, 0)-(ScaleWidth - 1, ScaleHeight), &HFFFFFF
Line (0, 0)-(ScaleWidth, 0), &H808080
Line (0, ScaleHeight - 1)-(ScaleWidth, ScaleHeight - 1), &HFFFFFF
End Sub</font>
Помогите если можете.
Ответить
|
FairGhosT
AASoft
