|
 | | |
| Autor | Správa |
|---|
Wpegb
Užívateľ
Založený: 29.06.2009
Príspevky: 61
 |  Zaslal: Ut 14.07.09 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... |
| |
  |
|
Wpegb
Užívateľ
Založený: 29.06.2009
Príspevky: 61
| | Zaslal: Ut 14.07.09 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... |
| |
|
|
|
Nemôžete pridávať nové témy do tohto fóra.
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.
Nemôžete hlasovať v tomto fóre.
|
| |
