| | |
| Stránka: 1 z 1
| [ Príspevkov: 2 ] | |
Autor | Správa |
---|
Registrovaný: 29.06.09 Prihlásený: 23.02.11 Príspevky: 61 Témy: 13 | Napísal Wpegb: 14.07.2009 12:42 | |
|
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...
|
|
Registrovaný: 29.06.09 Prihlásený: 23.02.11 Príspevky: 61 Témy: 13 | Napísal autor témy Wpegb: 14.07.2009 15:25 | |
|
A to nieje všetko. Zistil som, že aj ostatne funkcie API idu iba cez Form_Load() (Teda nie všetky ale len tych par čo som skušal. Všetko to boli funkcie na vykreslovanie napr. uhlov)
Skušal som to aj tak že sa procedúra uskutočni pri načítani druhého formulára ktory sa načíta pri stalačeni CommandButtonu na prvom formuláry a tak to funguje normálne bez problemov...
|
|
| Stránka: 1 z 1
| [ Príspevkov: 2 ] | |
| Nemôžete zakladať nové témy v tomto fóre Nemôžete odpovedať na témy v tomto fóre Nemôžete upravovať svoje príspevky v tomto fóre Nemôžete mazať svoje príspevky v tomto fóre
|
|