castman741
New member
- Katılım
- 9 May 2006
- Mesajlar
- 2
- Reaction score
- 0
- Puanları
- 0
bu vısual basıcde yazdıgım bır programın tabanına nasıl resım yerleştirebilirim.
Picture1.Picture = LoadPicture("c:xxxxxx.bmp")
Picturebox'tan çalisma aninda nasıl resim silinir?
Picture1.Picture = LoadPicture("")
Form konfetti ile nasıl doldurulur?
DrawWidth = 5 ' noktaciklarin genisligi
Dim x As Long
Dim y As Long
Dim r As Integer
Dim g As Integer
Dim b As Integer
Randomize
Do
x = Val(Screen.Width) * Rnd
y = Val(Screen.Height) * Rnd
bir sonraki noktacigin rengi rastgele seçilir
r = 255 * Rnd
g = 255 * Rnd
b = 255 * Rnd
Form1.PSet (x, y), RGB(r, g, b)
Loop