[ zeljo @ 13.08.2002. 10:17 ] @
Postavio sam na Form1 :

Image1, Image2, Image3, Image4

Postavio sam Combo1

Napisao kod da to radi kada kliknem na Combo1 dobijem naziv ulica i kada izaberem naziv ulice i kliknem na njega otvara mi se Form2 ( u velicini 500X500) i uvecava Image1 sa Form1 a u isto vrijeme na Form1 selektuje se Image 1 pomocu Shape kontrole..

To radi isto i naprincipu kada izaberem neku dr. ulicu onda otvori i selektuje nap. Image3

Mene muci to kako da podesim posto imam na Image1 vise ulica-naziva koje treba da prikazem u Combo1 i kada kliknem na njih nap. ulica Beogradska da mi selektuje i otvori Image1, i ponovo kada kliknem u Combo1 na ul. Nikole Tesle ako se ona nalazi u podrucju Image1 ponovo da otvori Form3 uvexca 500X500 i selektuje pomocu kontrole Shape Image1.

U sustini vise naziva u Combo1 a isto vrijeme da selektuje samo jednu sliku nap. Image1 pomocu Shape kontrole.

Ja sam sav kod napisao ali nemogu nikako da podesim to da mi selektuje pomou Shape vise naziva ulica samo u recimo Image1 pa onda u Image2, Image3 ....


Unapred havala na svim odgovorima !

[ jc denton @ 13.08.2002. 10:22 ] @
Zeljo, dugo te nije bilo na ovom forumu :)
Nije mi bas jasno sta si mislio kada kazes da selektujes Image pomocu Shape kontrole ?
Najbolje bi bilo da postujes kod, pa da pogledamo sta te muci.

pozdrav
[ gio1000 @ 13.08.2002. 11:36 ] @
Ako sam blizu:
Imas u Image1 sliku nekog kvarta i kad kliknes na Image kazi
If Image1.Picture=ImageList1.ListImage(x).Picture Then
Combo1.AddItem sve nazive ulica u tom kvartu,
a onda kad kliknes na Nikole Tesle u image1 stavi sliku gdje je ulica
Image1.Picture=ImageList1.ListImage(x).Picture
[ zeljo @ 13.08.2002. 13:44 ] @
Pokusao sam objasniti sto jasnije ali jako je komplikovano ovako tekstualno objasniti ja cu postaviti povdje kod da vidite kako izgleda ali mislim da bi najbolje bilo ako je neko zainteresovan da mu posaljem jedan primjer mali na E-Mail da vidi kako to izgleda, pa ako je ko zainteresovan neka mi se javi "POMOC ZA VB" na E-Mail : [email protected]

A kod ide ovako :

Private Sub Combo1_Click()
' Trazi odabranirecord
Data1.RecordSource = _
"SELECT * FROM Karta WHERE NNU='" & _
Combo1.Text & "'"
Data1.Refresh
Label5.Caption = Data1.Recordset.Fields("RB").Value
Label6.Caption = Data1.Recordset.Fields("SNU").Value
Dim i
For i = 0 To 14
'Napravim da nestanu svi
Shape1(i).Visible = False
Next
'sad prikazujem Shape ciji index odgovara
'indexu cobmo box-a

Shape1(Combo1.ListIndex).Visible = True

Load Form3
Select Case Combo1.ListIndex
Case 0
Form3.Image1.Picture = Image1.Picture
Case 1
Form3.Image1.Picture = Image2.Picture
Case 2
Form3.Image1.Picture = Image3.Picture
Case 3
Form3.Image1.Picture = Image4.Picture
Case 4
Form3.Image1.Picture = Image5.Picture
Case 5
Form3.Image1.Picture = Image6.Picture
Case 6
Form3.Image1.Picture = Image7.Picture
Case 7
Form3.Image1.Picture = Image8.Picture
Case 8
Form3.Image1.Picture = Image9.Picture
Case 9
Form3.Image1.Picture = Image10.Picture
Case 10
Form3.Image1.Picture = Image11.Picture
Case 11
Form3.Image1.Picture = Image12.Picture
Case 12
Form3.Image1.Picture = Image13.Picture
Case 13
Form3.Image1.Picture = Image14.Picture
Case 14
Form3.Image1.Picture = Image15.Picture
Case Else
End Select
Form3.Show
End Sub


Private Sub Form_Load()
Dim dbname As String
Dim db As Database
Dim rs As Recordset

' Otvara DataBase
dbname = App.Path
If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
dbname = dbname & "db.mdb"

Set db = OpenDatabase(dbname)
Set rs = db.OpenRecordset( _
"SELECT NNU FROM Karta ORDER BY NNU", _
dbOpenSnapshot)

' Puni Combo
rs.MoveFirst
Do While Not rs.EOF
Combo1.AddItem rs!NNU
rs.MoveNext
Loop

rs.Close
db.Close
End Sub


NAPOMENA : Uz ovaj kod kreirao sam jednu bazu u Accessu, koju sam povezao kroz kod kosto mozete da vidite ....

Pozdrav !