Keskustelu: Ohjelmointikysymykset: VB6: Omanmuotoinen formi

Bill Keltanen [26.03.2004 14:25:12]

Miten saisin omanmuotoisen (niinkun Windows Media Player 9) formin tehtyä VB:llä? Vai saako sitä ollenkaan?

sooda [26.03.2004 14:28:21]

https://www.ohjelmointiputka.net/keskustelu/3310-pyöreä-formi

Bill Keltanen [26.03.2004 17:05:43]

Höh, kuitenki tulee pyöree :( ku pitäis saada iha joku ihme

petrinm [26.03.2004 17:30:15]

Tolla tavalla ne muotoillaan eri muotoiseksi kuin pyöreäksi. Silti samalla tavalla eli muuttamalla noiden XP arvon Y:tä ja X:sää.

Private Sub Form_Load()
Dim xp(43) As POINTAPI
xp(0).x = 0
xp(0).y = 35
xp(1).x = 26
xp(1).y = 18
xp(2).x = 57
xp(2).y = 8
xp(3).x = 86
xp(3).y = 3
xp(4).x = 115
xp(4).y = 0
xp(5).x = 115
xp(5).y = 8
xp(6).x = 109
xp(6).y = 11
xp(7).x = 108
xp(7).y = 16
xp(8).x = 110
xp(8).y = 21
xp(9).x = 116
xp(9).y = 23
xp(10).x = 119
xp(10).y = 21
xp(11).x = 122
xp(11).y = 16
xp(12).x = 119
xp(12).y = 11
xp(13).x = 115
xp(13).y = 8
xp(14).x = 115
xp(14).y = 0
xp(15).x = 141
xp(15).y = 3
xp(16).x = 171
xp(16).y = 8
xp(17).x = 203
xp(17).y = 18
xp(18).x = 226
xp(18).y = 35
xp(19).x = 233
xp(19).y = 90
xp(20).x = 235
xp(20).y = 205
xp(21).x = 233
xp(21).y = 300
xp(22).x = 226
xp(22).y = 410
xp(23).x = 199
xp(23).y = 425
xp(24).x = 172
xp(24).y = 435
xp(25).x = 141
xp(25).y = 443
xp(26).x = 115
xp(26).y = 447
xp(27).x = 115
xp(27).y = 439
xp(28).x = 119
xp(28).y = 437
xp(29).x = 121
xp(29).y = 432
xp(30).x = 119
xp(30).y = 427
xp(31).x = 116
xp(31).y = 425
xp(32).x = 109
xp(32).y = 427
xp(33).x = 107
xp(33).y = 432
xp(34).x = 109
xp(34).y = 437
xp(35).x = 115
xp(35).y = 439
xp(36).x = 115
xp(36).y = 447
xp(37).x = 86
xp(37).y = 443
xp(38).x = 57
xp(38).y = 435
xp(39).x = 26
xp(39).y = 425
xp(40).x = 0
xp(40).y = 410
xp(41).x = 5
xp(41).y = 400
xp(42).x = 5
xp(42).y = 45
arec = CreatePolygonRgn(xp(0), 43, 2)
SetWindowRgn Me.hWnd, arec, True
End Sub

HUOM:tarvii sen saman modulin

petrinm [26.03.2004 17:44:18]

Tai tossa "pieni" sekamelska. Pienillä muutoksilla voi tehdä kivan lisäyksen pilailu ohjelmaan.

Private Sub Form_Load()
    Me.WindowState = 2
    Timer1.Interval = 100
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
a = Int(Rnd * 255)
b = Int(Rnd * 255)
c = Int(Rnd * 255)
    Me.BackColor = RGB(a, b, c)
    Dim xp(49) As POINTAPI
    Randomize Timer
        For o = 1 To 49
            xp(o).X = Int(Rnd * 1000)
            xp(o).Y = Int(Rnd * 700)
        Next o
    arec = CreatePolygonRgn(xp(0), 50, 2)
    SetWindowRgn Me.hwnd, arec, True
End Sub

Fisher [27.03.2004 16:04:36]

H-I-E-N-O!

Bill Keltanen [27.03.2004 16:11:37]

Huh, pitkät koodit, täytyy kokeilla :P

Bill Keltanen [27.03.2004 16:20:45]

Joo, kyllä toimii, kiitooos

miiro [27.03.2004 17:16:41]

wow - aika paha joo...

miiro [27.03.2004 17:19:01]

Eikö tuollaisen (siis omanmuotoisen formin) pystyisi tekemään jotenkin silleen - että formi olisi läpinäkyvä ja sitten joku label/picture vaan näkyisi vai onko se mahdollista?

sooda [27.03.2004 18:15:41]

toki voi miiro, mutta jos haluaa vaan jonkun neliskulman näkymään niin voi tehdä helpommpinkin: borderstyleksi vaan none ja label/picture koko formin kokoiseksi.

Bill Keltanen [27.03.2004 18:36:31]

No mut miten sen saa sitten läpinäkyväksi?? :P

sooda [27.03.2004 18:39:21]

ai kato joo läpinäkyväksi :D nojoo on täällä tollanenki: https://www.ohjelmointiputka.net/koodivinkit/23996-vb6-osittain-läpinäkyvä-formi
tyhmää ku toimii vaan 2k:ssa ja uudemmissa :(

Bill Keltanen [27.03.2004 18:45:26]

No mut sitte se piilottaa kaikki labelit ja sen semmoset... :(

miiro [29.03.2004 15:28:20]

nii ja toimii vaa win2000 >
kato mul o 98se!

peki [29.03.2004 18:52:19]

.Net:ssä on PALJON helpompaa. Muoto ei vaadi ku muutaman rivin(sisäänrakennettu) täytyy vain määrtittää, että yliluokan paint -metodi korvataan omalla...
läpinäkyvyys ei vaadi riviäkään(voi asettaa formin asetuksista(prosenteissa))

Sivun alkuun

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät