Zdravým.
Vo VB 6.0 potrebujem použiť API funkciu SetPixel. Je to to iste ako PSet ale je rýchlejšia. Deklaruje sa nasledovne:
Kód:
Private Declare Function SetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
Ked ju chcem vyvolať pomocou Form_Load() tak neni problem:
Kód:
Private Sub Form_Load()
For i = 1 To 200
SetPixel Form1.hdc, i, 200, RGB(250, 0, 0)
Next i
End Sub
Ale akonahle ju chcem vyvolať pomocou hocicoho inšieho napr Command1_Click() tak sa nič nestane. Nevipíše ani chybu, ale ani nič nevykresli:
Kód:
Private Sub Command1_Click()
For i = 1 To 200
SetPixel Form1.hdc, i, 200, RGB(250, 0, 0)
Next i
End Sub
Skušal som aj ine veci ako CommandButton. Dokonca aj Timer ale nič.
Vlastnosť formulára AutoRedraw mam na True...
POMÓC.
Vopred Ďakujem...
