Keskustelu: Ohjelmointikysymykset: VB6: Top Load

Miten san tehtyä sillai, että Form4 näkyy kokoajan Form1 päällä ja Form4 Top ja Left on aina sama kun Form1?

Eli jos Form1 liikutetaan Form4 liikkuu sen mukana ja Form4 näkyy Form1 päällä?

Itse tein näin, mutta ei toimi...

Form4.Left = Form1.Left
Form4.Top = Form1.Top
Form4.Show

Onnistuis kait form4.focus kikkailulla. En nyt varmaks mene sanomaan, kun en koskaan ole tarvinnut.

form4.focus mitä tämä tekee käytännössä?
Paha mennä testaanaan, jos ei tiedä mitä form4.focus tekee...

Toki voisit luoda jonkun timerin ja sen sisälle pistää toi yllä oleva koodi. Mutta mihin monta formia? Itse olen ainaskin aina pärjännyt yhdellä, enintään usercontrolleja käytössä.

Itse asiassa olin lievästi sanottunta tosi tyhmä, kun ajattein tehä progress bar:in form4:een...Tajusinkin, että ohan toi ActiveX:in olemassa ja ajettelin tehä Progress bar:in sillä...

Itse alotain jo tekemään sitä, mutta tuli sellainen ongelma, että miten saan "MunProgress" baariin laitettua valuen?
Eli siis jos tekee niin et MunProgress.Value nii miten saan
tehtyä niin,että MunProgress.Value = MunProgress lähde koodin value muuttuja.

Ymmärrätte varmaan paremmin tämän avulla mitä tarkoitan...

MunProgress:

Dim value As Long 'Miten saan tämän linkitettyä ---->

Private Sub UserControl_Paint()
Line (0, 0)-(value, 10), RGB(255, 0, 0), BF
End Sub

Form1:

MunProgress.Value  'Tähän? Eli siis MunProgress.Value = ylläolevan MunProgress koodin Dim value as Long muuttuja?

Apuja..Toivottavasti ymmärsitte..

Käytä Dimien sijasta Publiceja, sama pätee myös aliohjelmiin;
progressi-jutussa:

Public sub Value(arvo as long)
 msgbox "meijä superarvo on: " & arvo
End Sub

Miten saan tehtyä niin, että Line päivityisi kokoajan? Jos laitna CLS ohjelma lagittaa ihan simona...