Newsgroup: it.comp.lang.visual-basic
Titolo: Help impaginazione form principale con win 95

Sto realizzando una applicazione con VB3 (i miei clienti amano ancora WIN
3.11) fatta solo di un form principale con menù, come un CAD.
1)    Il form viene caricato nella dimensione e posizione max con questi
comandi che seguono in Form_load:
    princ.Top = 0
    princ.Left = 0
    princ.ScaleWidth = Screen.Width
    princ.ScaleHeight = Screen.Height
il risultato su 3.11 è buono, ma su WIN95 il form finisce con il coprire la
barra in basso.
Come faccio a risolvere il problema?
2)    Visto che il caricamento del form è un po lento, come faccio a far
visualizzare subito un piccolissimo form riportante solo un messaggio tipo
"Prego attendere il caricamento"?
Attendo una gradita risposta urgente
Grazie
Sebastiano Floridia
Siracusa
arch...@sistemia.it
freew...@aspide.it
http://freeweb.aspide.it/freeweb/windsurf
http://www.freeweb.org/sport/windsurf



"Prego attendere il caricamento"?
1) Prova con
    princ.Width = Screen.Width
    princ.Height = Screen.Height
Che tra l'altro č piů corretto, dalla mia esperienza ho capito che
ScaleWidth/Height vanno bene solo per leggere le dimensioni della
client-area di un oggetto (ma posso sbagliarmi)
2) Prendi un form con scritto "Prego attendere il caricamento" e in
FormMain_Load ci metti prima di tutto frmSplash.Show ed alla fine Unload
frmSplash

Newsgroup: it.comp.lang.visual-basic
Titolo: Come prelevare dati da excel

Qualcuno puo dirmi come fare per copiare i valori contenuti nelle celle di
un foglio Excel, creato in precedenza o comunque esistente, e trasportarle
nelle caselle di testo?
Grazie anticipatamente
E-mail: 
labf...@libero.it

 wrote in message
t6dM5.538$fx4....@news.infostrada.it...


 wrote in message
t6dM5.538$fx4....@news.infostrada.it...
: Qualcuno puo dirmi come fare per copiare i valori contenuti nelle celle di

:
:
:

 Qualcuno puo dirmi come fare per copiare i valori contenuti nelle celle di
un foglio Excel, creato in precedenza o comunque esistente, e trasportarle
nelle caselle di testo?
Per esempio:
    <...>
    Dim xlWks As Excel.Worksheet
    <...>
    With xlWks
      Text1.Text = .Range("A1").Value
    End With
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 Purtroppo non sono molto esperto. Dove metto il nome del mio foglio excel
che devo aprire, per esempio "PROVA.XLS"?
Grazie Fulvio

 > Purtroppo non sono molto esperto. Dove metto il nome del mio foglio
excel che devo aprire, per esempio "PROVA.XLS"?
  Dim strWbkFileName  As String
  Dim strWksName      As String
  Dim strRngTest      As String
  Dim xlApp           As Excel.Application
  Dim xlWbk           As Excel.Workbook
  Dim xlWks           As Excel.Worksheet
  strWbkFileName = "C:\Documenti\PROVA.XLS"
  strWksName = "Foglio1"
  strRngTest = "A1"
  Set xlApp = New Excel.Application
  Set xlWbk = xlApp.Workbooks.Open(strWbkFileName)
  Set xlWks = xlWbk.Worksheets(strWksName)
  With xlWks
    Text1.Text = .Range(strRngTest).Value
    <...>
  End With
  xlWbk.Close SaveChanges:=False
  xlApp.Quit
  Set xlWks = Nothing
  Set xlWbk = Nothing
  Set xlApp = Nothing


 wrote in message
K2yM5.8065$fx4.2...@news.infostrada.it...
