Newsgroup: it.comp.lang.visual-basic
Titolo: R: Per chi arriva prima tra Jabba e The Wizard !!!

 richiede la presenza ??
Sì, si può.
Ma siccome questo msg non è indirizzato a me non ti dò la soluzione.
Ciao

ahecco...
ineccepibile :)))
-> GbC
http://www.gbcweb.com
Hola Zanna...

 richiede la presenza ??
Prova con l'Api SetParent
Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal
hWndNewParent As Long) As Long
Nella form che deve ricevere il combo dichiari
Dim WithEvents mycombo As VB.ComboBox
in modo da ricevere gli eventi, e poi al caricamento della form
Private Sub Form_Load()
 Dim ret as Long
    Set mycombo = frmMain.Combo1
    ret = SetParent(mycombo.hWnd, Me.hWnd)
End Sub
per posizionarla nella nuova Form dovrebbe funzionare la SetWindowPos, ma
puoi sempre fare in modo che occupi la stessa posizione in tutti i form che
ne richiedono l'utilizzo ;)
Ciao, Silv:o)

Bene,
ti sei aggiudicato un nuovo quesito, un pò più difficile del precedente...
Allora ho una combobox che carica i nomi degli 8000 comuni italiani  che con
un PIII 550 MHz impiega qualche secondo (3-4). Questa combo compare anche in
altri form creando ovvi disagi.
Non volendo ( e potendo...!) caricare i form e nasconderli con HIDE  c'è un
modo per caricarlo una sola volta e spostarlo nel form attivo che ne
richiede la presenza ??
Grazie della vostra risposta!!
Pino

 altri form creando ovvi disagi.
Che codice usi per caricare la combo ?
Bye, G.

"Paperino" <non...@lo.dico> ha scritto nel messaggio
news:9thnh8$20ni$1...@stargate1.inet.it...

Sub CARICA_COMUNI()
Dim PVALUE%
cmbLISTACOMUNI.Clear
With rsCOMUNI
        .MoveFirst
        Do While Not .EOF
              PVALUE = PVALUE + 1
              cmbLISTACOMUNI.AddItem !COMUNE
             cmbLISTACOMUNI.ItemData(cmbLISTACOMUNI.NewIndex) = !ID
            .MoveNext
       Loop
      cmbLISTACOMUNI.ListIndex = -1
End With
End Sub
Dici questo ??
Pino

"Paperino" <non...@lo.dico> ha scritto

sembra strano anche a me.
questo e' un 800, ma portatile, quindi disco lento.
ho fatto 3 prove.
la prima e' il codice qui sotto.
la seconda commentando il doevents.
la terza come la seconda, ma aprendo il rs con select * order by nome.
(avevo provato un select top 6000 ma prob l'ora non aiuta e a vb non e'
piaciuto molto).
tempi di sotto:
Private Sub Command1_Click()
    Dim rs As Recordset, j As Integer, time1
    time1 = Timer
    Combo1.Clear
    Set rs = db.OpenRecordset("persone")
    rs.Index = "nome"
    With rs
        .MoveFirst
        For j = 1 To 8000
            Combo1.AddItem !nome
            .MoveNext
            Label1 = j & " -- " & Format(Timer - time1, "###,##0.00")
            DoEvents
        Next
        .Close
    End With
    Set rs = Nothing
    Combo1 = Combo1.List(0)
    Debug.Print "dao - doevents: ", Label1
End Sub
dao - doevents:        8000 -- 4,53
dao - no doevents:      8001 -- 1,12
sql - no doevents:       8001 -- 1,23
dao - doevents:        8000 -- 4,00
dao - no doevents:      8001 -- 1,16
sql - no doevents:       8001 -- 1,23
dao - doevents:        8000 -- 4,14
dao - no doevents:      8001 -- 1,11
sql - no doevents:       8001 -- 1,22
ciao, a.

 ha scritto
| Bene,
| ti sei aggiudicato un nuovo quesito, un pò più difficile del precedente...
Grazie :)
Pare sia arrivato prima di Mago, ma dopo tutti gli altri... :))))
| Allora ho una combobox che carica i nomi degli 8000 comuni italiani  che con
| un PIII 550 MHz impiega qualche secondo (3-4). Questa combo compare anche in
| altri form creando ovvi disagi.
|
| Non volendo ( e potendo...!) caricare i form e nasconderli con HIDE  c'è un
| modo per caricarlo una sola volta e spostarlo nel form attivo che ne
| richiede la presenza ??
Hai cosi' tanti form che richiedono l'uso di quella combo?
Beh, puoi mettere la combo in un form a parte, rendendola disponibile a tutti gli altri. Se vuoi
esagerare in generalità, puoi anche aggiungere un modulo (.bas) che serva a gestire la combo (dal
caricamento all'accesso ai dati) e se un domani volessi cambiare posizione alla combo, basta che
modifichi il codice del .bas!
Semplice, no?
;-)

"Jabba The Hutt" <Jabba....@Alderaan.SW> ha scritto
| Beh, puoi mettere la combo in un form a parte, rendendola disponibile a tutti gli altri. Se vuoi
Ovviamente la combo la carichi una sola volta (magari quando parte il programma).
Ma non c'era bisogno di dirlo, vero? :-))))))

siccome questo msg non č indirizzato a me non ti dň la soluzione.
;-)


ZANNA POSSO DIRTI UNA SOLA COSA ???
HAI LA CAZZIMMA CHE TI ESCE DALLE ORECCHIE !!!

ZANNA POSSO DIRTI UNA SOLA COSA ???
[snip]
Saro' ancora piu' breve:
gdec->PLONK

 ha scritto

si'.
e arriva fino alle mie.
plonk.

 HAI LA CAZZIMMA CHE TI ESCE DALLE ORECCHIE !!!
Peccato che io capisca solo l'italiano (a differenza di altri qui dentro che
non parlano nemmeno quello: il prefisso "it." non significa proprio niente
vero?).
Comunque, smettila di lusingarmi, mi fai arrossire :)
Continuerň cosě se proprio ci tieni.
P.S.: mi sembrava di averti fatto capire  che i messaggi personali non sono
ben visti qui.
Ciao

ZANNA MA CHI CAZZO TI HA CHIAMMAT' ??
(sotto titolo per i coglioni :
Zanna vai a farti fottere !!!)
Plonk Plonk Plonk

 PLONK! e segnalazione ad abuse.
dall'imbecerimento generale, temo.
si vede che in tv c'e' troppo poco calcio.
altre 6-7 ore quotidiane sommate alle 18-20 attuali e forse il ng torna
vivibile.

 Plonk Plonk Plonk
Sě, per ora ne hai collezionati 3, ma non ti preoccupare: qui c'č la
classica "maggioranza silenziosa"
Ciao pistola.



E poi mi chiedono perché non ho più voglia di postare... (se arrivo a 20
post 'sto mese son tanti...)
Ma cazzo, 'sti beep non hanno di meglio da fare che rompere i beep qui?
Trovatevi una donna/uomo, scoprite il vostro corpo, prendetevi una
sbronza, lavorate, producete, cazzo!
Il mondo è bello perché é avariato... (non so chi l'ha detto, ma di
certo è un filosofo...)
Ciao,
Mor...@one.of.his.last.post
-- 
sirri at morenosoft dot com
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo
NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 ZANNA POSSO DIRTI UNA SOLA COSA ???
Io ne dico una a te, tanto per uscire dalla "maggioranza silenziosa"
e passare alla "minoranza rumorosa":
VAFFAN*PLONK* !
Addio, G.

 certo è un filosofo...)
Mia sorella nel 73-74 lo diceva già :-)
Bye, G.

> X-Complaints-To: 
ab...@libero.it
T'è sfuggito questo piccolo dettaglio
-- 
Nato nel vizio, morto nel supplizio
Nato nel peccato, ad entrare sia invitato