mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: vbmaximized

ciao a tutti, vi volevo chiedere se è possibile intercettare l'evento del 
form, windowstate, vbmaximized in modo da inserire un msgbox quando 
qualcuno ingrandisce il form, grazie x l'attenzione =)

evento resize del form e poi fai un test su WindowState
form_resize
if windowsstate = vbmaximized then
    msgbox "ciao"
end if
Ciao
L2K

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo

Salve,
esiste un controllo che mi permette di caricare e visualizzare un file .doc?
Il controllo OLE non mi piace perché per consentirmi di vedere tutto il file 
pretende poi di lanciare il Word, ma non mi serve in qaunto devo solo 
visualizzare il testo.
Avevo pensato al rich textbox che non so come funziona in quanto non si fa 
inserire sul form.
Qualche suggerimento?
A proposito perché il "rich" non si fa inserire?
LuGa 

 LuGa
Forse qualche problema di licensing/versioning.... però potresti scrivere
che messaggio ti da.
Cosi è come dire ad un dottore che non stai bene; ma se non gli dici
esattamente cosa ti ti senti e dove ti fa male...come farà mai a farsi
un'idea della tua malattia?
--
Greg

 Qualche suggerimento?
gratuiti, no. c'erano dei controlli specifici per i doc, ma costavano
abbastanza. non ricordo il nome, ma se cerchi un po' li trovi senz'altro.
ciao, a.

 ha scritto nel messaggio
news:9rUqe.1014187$b5.43...@news3.tin.it...

Forse hai problemi di Licenza....?
Nel tuo caso credo che sia la soluzione piů
corretta, sperando che vengano rispettate tutte
le formattazioni.
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:d8hgkq$3ni$1...@domitilla.aioe.org...> "LuGa"
Dimeticavo di dire che probabilmente devi passare il contenuto del
File DOC per la ClipBoard e sfruttarne la conversione in RTF.
In qualunque modo, devi aprire Word(magari non Visibile)
tramite Automazione e fare il Copy in ClipBoard, per poi
fare un Paste nella RichText,  a meno di non far fare alo stesso
Word un SaveAs in formato RTF e quindi caricare quello.


 .doc?
Devi studiarti il formato del file ( 
http://www.wotsit.org/search.asp?s=text
 )
Poi fai tutte le operazioni del caso per visualizzarlo correttamente dove 
vuoi.
Ciao
Umbe

In effetti il mio è proprio un problema di licenza...
...credevo ci fosse in giro qualcosa di semplice.
Mi sono convinto!! Trasformerò tutti i file in txt e poi... basta un normale 
textbox.
Peccato che i file da trasformare sono un migliaio (sic!)
Grazie a tutti.
LuGa 

 Peccato che i file da trasformare sono un migliaio (sic!)
E allora? fatti una macro vba da word...mica vorrai farteli a manina tutti 
uno per uno ehhh???
ciao
Umbe
Newsgroup: it.comp.lang.visual-basic
Titolo: NO ALLA GUERRA

BUSH
Bisogna Uccidere Saddam Hussein
BLAIR
Bisogna Leccare A Intervalli Regolari
No WAR
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 No WAR
Stop here, please... Abbiamo già dato e detto.

Bisogna Uccidere Saddam Hussein
Vecchia come sigla
<NO WAR
D'accordo.
Andrea.

> No WAR
Appoggio...
--
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità

Esistono ng appositi per questi argomenti.
Per favore non continuate.

 No WAR
Concordo

Morfeus wrote:
:: BUSH
:: Bisogna Uccidere Saddam Hussein
:: BLAIR
:: Bisogna Leccare A Intervalli Regolari
MOR tacci tua
FE rmati
U n altra volta no!
S top!
abbiamo giŕ dato!
(Wodka con l'elmetto e la baionetta!)

Newsgroup: it.comp.lang.visual-basic
Titolo: Win NT + Services

Hi
I've got a service on a Win NT Server running when Win NT Start ( Auto ) but
this one crash abnormaly when it want with no reason, Or stop ...
So i want to make an app who find the service in the service list, find if
this service is running, ( with a timer on 2 min for exemple with a
function ) and if not, set the service on START ( run it ) .
the Server run a Win NT4 + SP6 and i know the name of the service ( to do a
'findservice NameOfTheService' )
i need to know how to run a service ('Call StartService NameOfService')
                        How to Find his Status ( Stopped or Started )
                        How to Stop a Service too .
thank's for peoples who can help me !
Hauguel...@wanadoo.Fr ou 
Arnaud_...@goodyear.com
----------------------------------------------------------------------------
--------------
Voila j'ai un service Win NT qui se lance au demarrage de windows mais celui
ci parfois bug et se ferme sans raison ...
enfin le tout est que je veux faire une appli qui verrifie si le service
tourne ( verification toute les 2 min par exemple avec un timer +
procedure )
puis si celui si est coupé, le relance ( donc service + Start )
cela tourne sous NT 4.0 SP6 et je connais le nom complet du service si cela
peut m aider ( par exemple une procedure du genre 'call StartService
NomDuService' )
enfin si quelqu'un peux m'aider sur les service et vb ... merci
Hauguel...@wanadoo.Fr ou 
Arnaud_...@goodyear.com
Newsgroup: it.comp.lang.visual-basic
Titolo: RECORSET CON TABELLA: ORDINAMENTO?

Salve a tutti e auguri!
Il mio problema è il seguente:
Ho creato un DB con una tabella contenente tra gli altri campi, un contatore
con autoincremento, campo cognome e campo nome.
Ho creato due indici, uno solo con il campo cognome.
All'apertura del DB però se eseguo un movefirst mi si posiziona sul primi
record fisico, non diciamo su un cognome che inizia per A!
Se però creo un recorset di tipo DYNASET con una stringa SQL anche se non
specifico l'ordine, dopo il movefirst si va a posizionare sul record giusto!
WHY ?
Grazie per le cortesi risposte.
PS un'altra piccola curiosità a chi l'ha notata.
I controlli checkbox hanno in VB5 i valori di zero (non selezionato) e uno
(selezionato) mentre mi è sembrato di notare che in access 97 il valore uno
abbia bisogno di essere -1!   E' giusto o è una mia allucinazione
passeggera?
Grazie ancora.
Francesco

 wrote





 dalla finestra di debug, come per magia il tutto sembra funzionare.
temo di non aver capito: "modificando da programma" come ?

Newsgroup: it.comp.lang.visual-basic
Titolo: visualizzare immagine non da file

Ciao a tutti, se ho i dati di un'immagine jpeg in una stringa,come
faccio a visualizzare l'immagine in un'imagebox o picturebox senza
passare i dati su file, poi caricare da file l'immagine?
Grazie

 ha scritto nel messaggio 
news:1120580648....@g14g2000cwa.googlegroups.com...


quindi estrarre l'rgb ed usare la funzione drawdibdraw suppongo...
e come converto da jpeg a bmp senza passare dal disco?
su internet si trovano molte librerie di conversione ma passano tutte
tramite disco :(
Grazie per il suggerimento
Andrea Fontana ha scritto:


  poi caricare da file l'immagine?
eh?
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Porte disponili su TCP/IP?

Volendo sviluppare una applicazione Client/Server che sfrutti come
protocollo di comunicazione il TCP/IP quale porte posso usare senza creare
problemi al sistema? Esiste una RFC in cui trovare le porte da utilizzare?
Ciao e grazie
Stety
st...@freenet.hut.fi

 
RFC1700.txt
Ma ci sono solo quelli assegnati e non mi e' parso di verere zone libere chiamate es: "free for user use".
Se vuoi te lo invio
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: Risoluzione

Dopo aver costruito una form, mi ritrovo che i diversi computer che
l'utilizzano, hanno
diverse impostazioni di risoluzione video rispetto alla mia; con conseguenti
visualizzazioni
dei vari oggetti non perfettamente allineati rispetto a come li avevo
impostati originariamente nel mio ambiente di sviluppo.
Che soluzioni posso/devo adottare?
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Che soluzioni posso/devo adottare?
Prova a dare uno sguardo:
http://www.it-lang-vb.net/archivio.asp?subMenu=Tutte&FullText=on&TypeRic=AND&keyword=clresize
Ave
giuseppeD
---
CCR 


Grazie 1000 :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Insert a line new string at the top of the text file using vb

I need to insert a new line string at the top of the existing text
file using vb. The only way to add, is by using the write or print
function, which will insert the string at the bottom of the text. I
really hope someone can solve this problem. thanks.

 ha scritto

open the old txt for reading
put it in a var
close it
open it for writing
print your line in it
print your var in it
close it
hth, ciao, a.


    Open "OldFile" For Binary As #1
        Open "NewFile" For Output As #2
            Print #2, "New Line" + vbCrLf + Input(LOF(1), #1)
        Close #2
    Close #1
    Kill "OldFile"
    Name "NewFile" As "OldFile"
--
Ciao Fede
By Chicco Production
http://www.webalice.it/bychicco/

Thanks for solving the problem, but won't this be quite inefficient?
Because my text file is veri big. Or is there a better solution to my
question? Still a million thanks to the both of u.

 question? Still a million thanks to the both of u.
hello
"the both of you" -- who ? :)
anyway, you also can open a console window and type in it
C:\Windows\system32>copy /?
COPY [/D] [/V] [/N] [/Y] [/-Y] [/Z] [/L] [/A | /B] origine [/A | /B]
     [+ origine [/A | /B] [+ ...]] [destinazione [/A | /B]]
f.i.:
C:\Windows\system32>cd \users\MyUser\desktop
C:\Users\MyUser\Desktop>copy file1.txt + file2.txt file3.txt
file1.txt // "abc
file2.txt // "def"
        1 file copiati. // file3.txt="abcdef[1A]"
C:\Users\MyUser\Desktop>
it's rather quick, so you can try to shell out to a windows copy from your 
program. just care that the os tails the new file with a 1A hex char, EOF 
i'd say.
as for the slowness, how big ?
on this computer it takes a couple seconds both for writing and for 
reading/rewriting a 1,000,000 line textfile, 28mb.
code enclosed here below.
ciao, a.
Option Explicit
Dim startTime As Long
Dim fName As String, fNum As Long, s as String
Private Function FormatHMS(t) As String
    FormatHMS = Format$(DateAdd("s", t, 0), "hh:mm:ss")
End Function
Private Sub Command1_Click()
    startTime = Timer
    Dim j As Long
    s = "abcdefghijklmnopqrstuvwxyz"
    fNum = FreeFile
    fName = App.Path & "\file1.txt"
    Open fName For Output As #fNum
    For j = 1 To 1000000
        Print #fNum, s
    Next
    Close #fNum
    MsgBox FormatHMS(Timer - startTime) & " - " & FileLen(fName)
End Sub
Private Sub Command2_Click()
    startTime = Timer
    Dim sIn As String
    s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    '1
    fNum = FreeFile
    fName = App.Path & "\file1.txt"
    Open fName For Input Shared As #fNum
    sIn = Input$(LOF(fNum), #fNum)
    Close #fNum
    '2
    fNum = FreeFile
    fName = App.Path & "\file1.txt" ' or write to a new file here
    Open fName For Output As #fNum
    Print #fNum, s
    Print #fNum, sIn
    Close #fNum
    MsgBox FormatHMS(Timer - startTime) & " - " & FileLen(fName)
End Sub

haha. The both is referring to you and Alice. Thanks for solving the
problem.

 problem.
alice in wonderland? that's why i cant see her.
there was another alice here, but i just plonked it :)
Newsgroup: it.comp.lang.visual-basic
Titolo: Agg.VB6 SP5 [PROBLEMI]

--
ELETTRONIC SYSTEM
WWW.ELETTRONICSYSTEM.COM
in...@elettronicsystem.com
ICQ N.: 27427846

 ha scritto nel messaggio
news:9b4pju$fuq$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Pacchetto installazione: problemi con ADO

Salve a tutti,
ho un problema con il programma di installazione: mi installa il programma,
ma al momento dell'avvio riscontro il seguente errore
"Impossibile trovare il provider specificato" in seguito all'secuzione delle
seguenti istruzioni:
Con.CursorLocation = adUseClient
Con.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=DBConf.mdb;"
Vorrei sapere quale ocx/dll va inserita nel pacchetto e perche' non viene
inserita automaticamente.
Grazie

 inserita automaticamente.
Negli ADO 2.1 il Provider 3.51 non c'è più.
Tu sul tuo computer ce l'hai perchè era negli ADO 2.0 che sono stati
installati con il VB.
Sostituisci nel progetto la tua stringa di apertura della connessione con
Con.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=DBConf.mdb;"
e dovrebbe funzionare tutto anche sulle macchine dove fai il setup.
Ciao,
   <--< Nik >-->

Newsgroup: it.comp.lang.visual-basic
Titolo: Per Jabba

 
Questo dovrebbe funzionare, che ne dici ?
-- 
Questa è la firma.
Non c'è niente di interessante, non perdere
tempo a leggerla.

"Paperino" <non...@lo.dico> ha scritto

<g>

"Paperino" <non...@lo.dico> ha scritto
|
| Questo dovrebbe funzionare, che ne dici ?
Io me ne sono accorto. Del programmillo. ;-))))
Sono curioso di vedere il codice (anzi, agogno alla mera proprietą; ma solo a scopo educativo: per
imparare!). ;-)))))
Rimane il problema: se un giorno non sono in sede e non posso accedere (ho scritto giusto: accedere,
non accendere; ma fa lo stesso, il senso e' sempre quello) al computer (che rimarrebbe spento) chi
posterebbe il messaggio?
Si, ok, un PC di qualcun altro su cui mandare in esecuzione il programmillo lo si trova: ma costui
dovrebbe incaricarsi anche di modificare il documento spedito (che sto aggiornando molto lentamente
aggiungendo i link alle soluzioni + comuni e interessanti). Non penso di poter postare vita
naturaldurante su questo NG e quindi cmq la palla va passata a qualcun altro. Se ti fai avanti te,
non posso che accettare la cortese disponibilitą.
:-)))))
Ovviamente non mi sto facendo i "film", nonostante l'ora. Ho letto l'altro tuo post... ;-)))))

 a scopo educativo: per imparare!). ;-)))))
OK, il tempo di ripulirlo. Domani te lo mando, ora vado a casa a dormire. :-)
Bye, G.

 Sono curioso di vedere il codice
Mandato, fammi sapere :-)
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Allocazione grandi quantità di memoria [TEORIA]

Hola gente,
stamattina mi sono alzato con il pallino di provare un po di progetti sul
calcolo combinatorio e di disposizioni con ripetizioni...
Non starò qui a tediarvi su come stavo facendo i miei test...erano solo una
cosa di sfizio più che altro, ma mi sono trovato davanti ad una cosa del
genere
se alloco
Dim Array(999999999) As String
mi dà un errore di out of memory
esiste un modo per ovviare questo tipo di problema ?!?!
Onestamente sto googleggiando ma non ho idea precisa di come fare la
ricerca...avete qualche suggerimento ?!?!
Grazie Giuseppe
p.s. So bene che il problema può essere aggirato con qualche magagna, ma mi
chiedevo se ci fosse un modo ,dal punto di vista tecnico, per ovviare questo
problema ... ancora grazie :D

 esiste un modo per ovviare questo tipo di problema ?!?!
Mettere tanta, tanta, tanta, RAM.
Ma 7.4GB secondo me devi cambiare macchina, e forse anche SO...
Alberto
-- 
A questo punto hanno trovato un muro,
un muro duro, molto molto duro,
che siamo noi.


Cambia sistema.
Anche ammesso che tu riesca a fornirgli tutta quella ram, solo per 
l'allocazione ci metterebbe almeno una mezz'oretta (e altrettanto per la 
deallocazione).
Prova con numeri più piccoli per verificare la cosa.
Ciao 

Vi ringraziodelle risposte, ma pių che altro il mio era un esempio per
sapere se c'era un qualke modo per dire al programma di swapare o robe
simili...
Grazie comunque
Giuseppe
Newsgroup: it.comp.lang.visual-basic
Titolo: Attendere la crezione di un file...

Salve a tutti...qualcuno sa gentilmente dirmi il modo mogliore per fare
"attendere" un programma in esecuzione
finché non è stato creato un certo file?
Mi spiego...ho un programma in runtime...lancio un'altra applicazione, la
quale deve creare un file...ma il mio programma ha bisogno di quel file, e
auindi non deve procedere finché non sarà stato creato il file..chiaro?
Grazie mille
Emanuele

beh, puoi fare un ciclo Do...While che prova ad aprire il file. Se per
qualche motivo non si riesce ad aprire, allora vuol dire che il file non c'è
ancora, oppure è aperto da un altra applicazione, o cose del genere.....
prima che cominci il ciclo metti la On Error Resume Next, e poi verifichi
Err.Number all'interno del ciclo e continui a ciclare finchè il valore è
<>0.
Se è 0, vuol dire che il file è stato aperto, e quindi ci puoi lavorare
su.....
Oppure, un'altra soluzione sarebbe quella di "temporizzare", cioè far fare
una pausa al primo programma, in attesa che il secondo porti a termine la
creazione del file.
spero di averti dato qualche dritta, ok?
Buon lavoro!!!
--
Damiani Liborio Igor
idam...@hotmail.com
 - 
igor.d...@light.it
http://www.igordamiani.it
ICQ : 11847262

 finché non è stato creato un certo file?
Adattato dal solito AllApi:
-----------------------------------
'Dichiarazioni:
Private Const FILE_NOTIFY_CHANGE_ATTRIBUTES = &H4
Private Const FILE_NOTIFY_CHANGE_DIR_NAME = &H2
Private Const FILE_NOTIFY_CHANGE_FILE_NAME = &H1
Private Const FILE_NOTIFY_CHANGE_SIZE = &H8
Private Const FILE_NOTIFY_CHANGE_LAST_WRITE = &H10
Private Const FILE_NOTIFY_CHANGE_SECURITY = &H100
Private Const FILE_NOTIFY_CHANGE_ALL = &H4 Or &H2 Or &H1 Or &H8 Or &H10 Or
&H100
Private Declare Function FindFirstChangeNotification Lib "kernel32" _
Alias "FindFirstChangeNotificationA" (ByVal lpPathName As String, _
ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long) As Long
Private Declare Function FindCloseChangeNotification Lib "kernel32" _
(ByVal hChangeHandle As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
'Codice
    Dim Ret As Long
    Do
        If Len(Dir("C:\pippo\pippo.txt")) > 0 Then Exit Do
        'Set the notification hook
        Ret = FindFirstChangeNotification("C:\pippo\", &HFFFFFFFF,
FILE_NOTIFY_CHANGE_FILE_NAME)
        WaitForSingleObject Ret, &HFFFFFFFF
        Debug.Print "Event Triggered"
        'Remove our hook
        FindCloseChangeNotification Ret
    Loop
    MsgBox "Adesso esiste!"
-------------------------------------
Ciao, Silv:o)
Newsgroup: it.comp.lang.visual-basic
Titolo: Apertura file

Salve,
Vi espongo velocemente il mio problema,
Ho creato un database di canzoni, con i campi titolo e autore.
Però volevo anche inserire un bottone per goni record in modo che quando
clicco sopra apra un file .txt contenente il testo della canzone.
Non voglio assolutamente che visualizzi il testo in un form no!
Voglio solo che apra il notepad e visualizzi il file che gli specifico io!
Grazie
                                                                Gabriele
gab...@isa.it


wrote:


 Perņ volevo anche inserire un bottone per goni record in modo che quando


Voglio solo che apra il notepad e visualizzi il file che gli specifico io!
Potresti usare la funzione API ShellExecute (la dichiarazione e' nel
Visualizzatore API).
Con ShellExecute apri qualsiasi documento con l'applicazione associata (Es.
txt -> Notepad, doc -> Word...)
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Ottimizzazione ADO

Ho scritto un programma che accede ad un database Access passando da ADO.
Visto che fino ad ora avevo sempre utilizzato DAO e la sintassi è un pò
diversa,
ho scopiazzato un pò di codice dall'help, da internet, ecc. ecc. ecc.
Solo che, finché ci sono tabelle medio-piccole non ci sono problemi, ma,
cavoli,
ho una tabella di oltre 30.000 records (indicizzata) che tra l'altro è
collegata ad altre
due tabelle. Bene, anzi, male, quando accedo ad un record (tramite indice)
su questa
benedetta tabella il pgm ci mette 1/2 secondi (questo in locale, ma visto
che il pgm
dovrà girare in rete, m'immagino che questi due secondi diventeranno 20!!!).
Inoltre quando ho aperto questo record devo accedere ad altre due tabelle
per reperire
altre informazioni: e qui il pgm si mette proprio in ginocchio mettendoci
tra i 3 ai 10 secondi
a reperire tutte le informazioni.
Ma come cavolo si deve fare per ottimizzare questo ADO !!!
Io ho cercato di usare le SELECT più mirate possibile (invece di usare
SELECT * uso
SELECT campo1, campo2 prendendo solo i campi che mi servono), ho cercato di
NON usare le ORDER BY, ho cercato di usare l'opzione "adOpenStatic" che
secondo
l'help è l'accesso più veloce, ma non sono riuscito ad ottimizzare il
codice.
AIUTOOOOOOOOOOOOOOOOOOOOOOOOOOOO!!!!!!!!!!!
Grazie tantissime a chi mi aiuta!

 ha scritto nel messaggio
news:RvD88.38774$nI1.1...@twister1.libero.it...


In generale... sarà sempre più lento ad accedere ad un DB Access... perché
DAO é basato sullo stesso motore di Access: Jet...
ADO va meglio in altri DB...
Cmq...
Hai dei tempi un po' troppo alti...
Che OLEDB Provider usi?
                    Ciao
                                            Allanon

 Ma come cavolo si deve fare per ottimizzare questo ADO !!!
Io ho provato or ora con una tabella access 2000 con circa 80000 record con
una ricerca su Primary Key di 10 campi , cursore lato Client, Static e
aperto in modo ottimistico... e le prestazioni sono soddisfacenti (meno di
0.2 secondi)...
Il mio pc è un PIII 800 con 128 Mb di ram...
Hai verificato che effettivamente i campi della clausola WHERE facciano
parte della Primary Key ?
Hai provato (sempre che tu non debba modificare il record) ad usare il
cursore ForwardOnly e come modalità ReadOnly ?
--
                  \/
                 -   -
                 (.) (.)
----o0O0o--(_)--o0O0o----
<<Oh Grande Spirito,
Concedimi la serenità
Di accettare le cose
Che non posso cambiare,
Il coraggio di cambiare le cose
Che posso cambiare,
E la Saggezza di capirne la differenza.>>
               (Preghiera Cherokee)
Ciao
Franco

> Che OLEDB Provider usi?
Uso "Microsoft.Jet.OLEDB.4.0"
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] conversione db da access in sql srv2000

ciao a tutti,
ho fatto un programmino con db access2000 e ADO. trovandomi sotto mano la
versione trial di MS Sql Srv 2000 ho importato i db di access su sql e
riconfigurato i dsn dei client e tutto si è messo a funzionare a meraviglia
quasi subito.
ora la mia domanda è questa: come è possibile che io con un misero libro
(azz misero 145000lire) e dieci minuti del mio tempo sono riuscito a far
funzionare tutto non è che che ho tralasciato qualcosa????
voi che ne dite????
grazie ciaooo
masc

 ha scritto nel messaggio
news:ZOk87.2103$%7.2...@news6.giganews.com...

Beh, sai:
1) La semplicità d'uso è uno dei motivi per cui Vb è tanto usato.
2) La portabilità del codice tra diversi Dbms è uno dei punti di forza di
Ado (fatte salve le solite raccomandazioni sulle differenze tra i provider)
3) La migrazione tra Access e Sql Server è tenuta in grande considerazione
in casa Ms...
Che poi:
1) Il codice che hai ritoccato possa essere considerato ottimizzato,
portabile e scalabile
2) Sia necessario comunque considerare le differenze di fondo tra diversi
dbms per ottimizzarne le prestazioni
3) Gli automatismi di solito costruiscano qualcosa che "funziona" solo fino
a che non tocchi una sola riga...
tutto questo è un'altra questione...
ciao
ugo

 ha scritto nel messaggio
news:ZOk87.2103$%7.2...@news6.giganews.com...


 risparmiato anche le 145000 de libro :)
Ah, perchč?
Non ha fatto cosě?
In effeti in questo modo ho fatto tutto il porting di un DB in un paio di
minuti, perň mi ha dato anche un paio di errori.
Vabbeh, nessuno č perfetto :)
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Bloccare il ridimensionamento di una finestra

Salve a tutti!
Vorrei impedire che un form dimensionabile ( BorderStyle = 2 - Sizable )
venisse ridotto oltre una certa dimensione.
Se io gestisco l'evento Form_Resize cosě:
    Private Sub Form_Resize()
        If Me.WindowState = vbMinimized Then Exit Sub
        If Me.Width < 1500 Then Me.Width = 1500
        If Me.Height < 1500 Then Me.Height = 1500
    End Sub
č vero che riesco a limitarne la riduzione, ma il continuo ridimensionamento
della finestra provoca uno "fliccherio" sullo schermo.
Piů che correggere il dimensionamento, dovrei prevenirlo!
Come posso fare?
Grazie.

         If Me.WindowState = vbMinimized Then Exit Sub
mi sembra che molto tempo fa, su questo ng, fosse stata data una soluzione
al problema, ma era piuttosto complicata, tant'č che di solito si utilizza
una cosa simile a quella cha hai fatto tu, sopportando lo sfarfallio. ti
invito comunque a fare attenzione, oltre al caso della form minimizzata
anche a quello della form massimizzata, in quanto, anche in quel caso,
tentare di modificare da codice la dimensione produce un errore.
--
Salutoni
Sergio
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB5] programma con + form

Ciao a tutti, come lo gestisco un programma con più di un form?
Sembra che siano dei programmi a se stanti l'uno dall'altro.
Per es, se passo dal 1° form al 2° con "form2.show=vbmodal" tutto ok, ma se
(sto visualizzando il 2° form) minimizzo il programma mi resta su il form1
:(
Ma come si fa???
ciao e scusate la banalità delle domande.
Ale

 ha scritto nel messaggio
news:MKRVa.214376$lK4.6...@twister1.libero.it...


 ha scritto nel messaggio
news:MKRVa.214376$lK4.6...@twister1.libero.it...



Non sono sicuro della sintassi, ma...
Hai provato qualcosa tipo:
Dim frm as Form
For Each frm in Forms
    frm.Hide
Next frm
, oppure più esplicitamente, nella Form2
Private Sub Form_Minimize
   Form1.Hide
End Sub
, ?
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:MKRVa.214376$lK4.6...@twister1.libero.it...
| Ciao a tutti, come lo gestisco un programma con più di un form?
| Sembra che siano dei programmi a se stanti l'uno dall'altro.
| Per es, se passo dal 1° form al 2° con "form2.show=vbmodal" tutto ok, ma
se
| (sto visualizzando il 2° form) minimizzo il programma mi resta su il form1
| :(
|
hai provato con form2.show vbmodeless?

 ha scritto nel messaggio
news:151Z42Z76Z244Y1...@usenet.libero.it...

Ok funziona :)  grazie 1000 a tutti.

Newsgroup: it.comp.lang.visual-basic
Titolo: Menu stile outlook 97 (non Express)

Vorremmo sapere se esiste un controllo di gestione menu come quello
utilizzato da outlook  97 (nella finestra di sinistra appaiono tasti
cliccabili ed espandibili che mostrano icone).
Se esiste vorremmo sapere come si chiama e dove si trova.
Rispondere anche all'indirizzo di posta elettronica 
fcan...@tiscalinet.it
.
Grazie.

 cliccabili ed espandibili che mostrano icone).
Esiste. E' un control storico, in qualche modo, perche' e' stato il
vincitore del "control contest" indetto da Microsoft contestualmente al
rilascio della prima versione di VB6, ovvero la "Control Creation Edition",
che non poteva compilare eseguibili ma permetteva di creare ocx.
Si chiama VertMenu.Ocx, e con altavista lo trovi in fretta.
-vibino
Newsgroup: it.comp.lang.visual-basic
Titolo: winsock e SMTP

Ho fatto un programmino per spedire delle e-mail via SMTP
Il problema è che quando il server mi dà un errore dopo RCPT TO
come per esempio se l'indirizzo è sbagliato o il server non autorizza
un relay il server (o winsock?) non chiude la trasmissione percui se
provo a spedire un nuovo messaggio il server si aspetta di nuovo RCPT
e mi da un errore 501 sintax error, l'unico modo per spedire qualcosa
d'altro è
chiudere il programma e riaprilo.
ho provato a :
-reare una nuova istanza winsock prima di rispedire (unload ws(1), load
ws(1))
-cambiare chudiconnessione mettendo vbcrlf davanti a QUIT
infine lavorando da telnet immettendo i comandi come fa il mio programma
funiona e quando digito quit esce dalla sessione...
Ringrazio anticipamente a chiunque mi aiuti
allego la parte del programma incriminata
 'spedisci l'indirizzo destinatario
    Ws(1).SendData ("RCPT TO:<" & txtTMail.Text & ">" & vbCrLf)
    RisposteServer
    If Left$(Dati, 1) <> "2" Then
        lblConnect.Caption = "***Errore destinatario*** " & Dati
        Call ChiudiConnessione
        Exit Sub
    Else
        Dati = ""
    End If
Public Sub RisposteServer()
    Dim Tempo As Single
    Tempo = Timer
    Do While Dati = "" Or Abs(Timer - Tempo) > 30
        DoEvents
    Loop
    If Abs(Timer - Tempo) > 30 Then Dati = "Tempo scaduto"
    lblConnect.Caption = Dati
End Sub
Private Sub Ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
'aspetta che sia connesso prima di aspetare qualcosa
While Ws(Index).State <> sckConnected
    DoEvents
Wend
    Ws(Index).GetData Dati, vbString
End Sub
Private Sub ChiudiConnessione()
'chiude la connessione
    Ws(1).SendData ("QUIT" & vbCrLf)
    RisposteServer
    Ws(1).Close
End Sub
-- 
Ciao, ciao
Alberto

Ciao!
Prova a scaricare smtp.zip dal sito comune...
                        Ciao
                                                            Allanon
-- 
- SPAMKILLER
 L'indirizzo delle risposte é 
itlangv...@michele.sytes.net
 LASCIATE il NOSPAM fa parte dell'indirizzo :-)
  Per superare le impostazioni di protezione antispam scrivete
  nel testo del messaggio la scritta "SPAMKILLER"
Scusate il disturbo, ma non posso più di pubblicità

Newsgroup: it.comp.lang.visual-basic
Titolo: INIZIALIZZAZIONE DBGRID

Nell'evento Load della form carico i dati nella griglia (DBGrid).
Problema:
Dopo questo evento dovrebbe andare all'inizializzaizone della griglia e
visualizzare i dati ma in esecuzione non lo fa. Cosa puň essere?
GRAZIE L@ur@

Con delle TrueDBGrid ho riscontrato anche io dei problemi,
ad esempio, nella migrazione di un applicativo VB, ho
riscontrato un problema con la versione 3 delle TrueGrid
della Apex, queste avevano la possibilita di selezionare
per ogni singola colonna se: BOUND, UNBOUND, o CALCULATED.
Nella versione 5 questo mi risulta un po'problematico,
sapreste indicarmi se, e come è possibile ottenere lo
stesso risultato?
* Sent from AltaVista 
http://www.altavista.com
 Where you can also find related Web Pages, Images, Audios, Videos, News, and Shopping.  Smart is Beautiful
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] TWain Video on From

Salve.
Ho una scheda Miro PCTV e DEVO trovare il modo di fare un Overlay tra il
video-in e una croce (2linee) per delle prove di centraggio mediante
telecamera.
Prima di tutto dovrei infilare la sorgente video (TWain) in un form ma non
trovo info al riguardo nell help.
Dove si trovano queste info/esempi ? ( Web / NG )
Grazie123000, FenixX. (A buon rendere)
|:-D| FenixX |(-:|
ICQ: 16201896
http://skyscraper.fortunecity.com/online/888/WebStation.html
http://space.tin.it/scienza/dfelisar/
http://www.angelfire.com/ok/fenixx
http://webstation.webjump.com
FenixX=Visual=Book=Marks=System:[Meteos]-[SuperBarZell]-[MangAnime]-[Music]
WebStation: Main Menu
[SearchEngines] [HotPages] [InternetServices] [MessagesServices]
[Hardware] [Software] [InternetSoftware]
[Friends] [People] [Audio-Music-Radio] [Video-Live-Cam-TV]
[MangAnime] [Doc-Info] [NewsPapers] [Lombardia] [Links2Links]
  ("`-''-/").___..--''"`-._
   `6_ 6  )   `-.  (     ).`-.__.`)
   (_Y_.)'  ._   )  `._ `. ``-..-'
     _..`--'_..-_/  /--'_.' ,'

Nel sito comune c'è un piccolo sorgente per la gestione di schede di cattura
video... se non erro si chiama VIDCAP.ZIP.
Dato che quello che stai facendo mi inseressa molto vorrei sapere se hai già
trovato il modo per salvare il filmato in AVI.
Spero in una tua risposta.
Ciao Raffa.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Zip di Icone

Ciao Gente!!
Mi ricordo che avevo scaricato da qualche parte sul sito comune, uno o più
files zip "zeppi" :) di icone di windows 2000 e xp, mi pare. Erano una
marea! Ora sono andato a vedere se le trovavo ancora, ma niente! :(.
Nessuno sa o si ricorda dove si prendono?
Grazie!
Starla

 Nessuno sa o si ricorda dove si prendono?
umm umm prova a cercare "Whistler ICO" mi pare di averle trovate cosi su
"GUGOL"

Newsgroup: it.comp.lang.visual-basic
Titolo: Evidenziare in MsFlexGrid

Ho un MsFlexGrid con 5 colonne è n righe, quando con il mouse seleziono una
riga mi succede una cosa strana: tutte le celle della riga diventano in
reverse eccetto la seconda(gli compare intorno una cornice di colore rosso).
A livello di programmazione non mi cambia nulla ma esteticamente non è un
gran che.
Esiste la maniera di rendere reverse l'intera riga selezionata?
Non so se si tratta di un bug di VB6 o uno mio.
Grazie
Sb

 Esiste la maniera di rendere reverse l'intera riga selezionata?
Prova con la proprietą FocusRect.

 Esiste la maniera di rendere reverse l'intera riga selezionata?
CUT
se hai i bordi grigi (alla Excel).....con...uno...
Sporco bastardo trucco...
lasciati la prima colonna bianca (con indice uno quindi...visto che la
grigia è la zero)
e imposta
nel form load nella proc chedisegna la griglia...insomma dove vuoi....
Me.MSFlexGrid1.ColWidth(1) = 0
Ta Dah!
purtroppo molte volte con VB bisogna esercitare il "pensiero laterale"!
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Aiuto per VB6 e access 2000

Ciao a tutti, sono molto arrugginito è da anni che non uso più VB6 e non ho 
il tempo per ringiovanire il software:
Il mio problema è che non riesco con VB6 ad aprire un database access 2000 
attraverso un banale controllo DATA.
Prima di formattare il PC!... tra le selezioni della proprietà CONNECT 
vedevo anche ACCESS 2000 e ora non più.
Sul PC è installato office 2000 completo.
MI AIUTATE PER FAVORE ?
Grazie
Roberto

Nel suo scritto precedente, BOB ha sostenuto :

Installa Jet4.0 SP8.
Ciao
Alberto
-- 
Si è visto di meglio,
ma si è scopato di peggio,
qualche volta a pago
e non erano neanche sempre donne
[Paolo]

 ha scritto nel messaggio 
news:mn.1d907d5c1...@hotmail.com...


 
http://support.microsoft.com/?scid=kb%3Bit%3B239114&x=8&y=11

 vedevo anche ACCESS 2000 e ora non più.
Il controllo data di VB6 viene aggiornato con il SP5 di VisualStudio6.
Cercalo sul sito Microsoft.
Ciao

 ha scritto nel messaggio 
news:4392adff$0$13269$4faf...@reader2.news.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore automazione

dice piu o meno: la classe non supporta l'automazione .....
su questa riga di codice:
xlApp.Range("A4").CopyFromRecordset Data2.Recordset
Su un pc con excel 2003 sp1 nnessun problema, su un pc con 2003 sp2 salta 
fuori l'errore
Come rimediare, oltre sostituire il metodo con un mio ciclo sui record e sui 
campi?
greg 


Io lo uso comunemente su Excel2000/XP(2002)/2003/2007
(sulle versioni precedenti non va)e non ho mai riscontrato l'errore.
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
http://blog.maurogsc.eu/

 (sulle versioni precedenti non va)e non ho mai riscontrato l'errore.
E infatti è sempre andato, non riesco a capire quale possa essere la novita 
che ne impedisce il funzionamento :(
greg 


Sei in una cosa *tutta Excel* o chiami
Excel da un'applicazione VB6?
E' solo una curiosità.


 E' solo una curiosità.
Da dentro VB6, eccola tutta:
Dim xlApp As Object
Set xlApp = CreateObject("excel.application")
xlApp.Workbooks.Open App.Path & "\temp.xls"
xlApp.Range("A4").CopyFromRecordset Data1.Recordset
greg 

greg scriveva il 17/12/2008 :

Io prenderei un riferimento al workbook, al momento dell'open, e userei 
quello come padre di range...
Alberto
-- 
Georges Pompidou: Un uomo di stato è un politico che dona se stesso al 
servizio della nazione. Un politico è un uomo di stato che pone la 
nazione al suo servizio.

 Alberto
Ok, provo a evitare le proprieta di default e a metterla piu esplicita, ma 
devo aspettare domani per avere il responso.
Merci, ogni info è buona :)
-- 
Greg 


Io la scriverei cosě(per la parte che riguarda
la chiamata ad Excel ed il passaggio dei valori
recuperati dal recordset):
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objWorksheet As Object
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("C:\tuoFile.xls")
    Set objWorksheet = objWorkbook.worksheets("Foglio1")
    'objExcel.Visible = True
    With objWorksheet
        .Select
        .Range("A1").CopyFromRecordset tuoRecordset
    End With


    End With
Provato anche cosi ma permane l'errore di "automazione o interfaccia non 
supportata" sul CopyFrom.
Non capisco come mai un errore del genere, e vorrei saperne di piu, poiche 
il CopyFromRec l'ho usato  diverse volte e in diversi posti.
In questo caso caso potrei risolvere con un ciclo per ogni record e per ogni 
campo prendere il valore e metterlo nella cella appropriata, ma mi scoccia 
farlo senza sapere cosa č successo e perchč debba farlo.
greg 

 il CopyFromRec l'ho usato  diverse volte e in diversi posti.
Risolto con: regsvr32  c:\.........\dao360.dll
quindi ri-registrando la libreria che comuqnue era gia presente e registrata 
(prima) sul pc. Cosa mai l'avrà de-registrata?
greg
Newsgroup: it.comp.lang.visual-basic
Titolo: Timer....

Devo incrementare una variabile ogni volta che il timer finisce il conteggio
come devo fare??
Grazie
Gabry

 wrote in message
8i5s1e$fb3$1...@lacerta.tiscalinet.it...


Public Contatore As Long
Public Sub Timer1_Timer()
Contatore = Contatore + 1
End Sub


Grazie a tutti!!!
Avete ragione era banale non ci avevo pensato
Ciao Gabry


Usa una variabile Statica nel codice del Timer oppure una variabile
Private/Public nelle dichiarazioni del form/modulo
---------
Ciao
sabba
Newsgroup: it.comp.lang.visual-basic
Titolo: percorso file

Capisco che serva dare il percorso del file per essere trovato ma quando
installo un programma con un report di crystall se cambia la directory
da cui il report è stato settato per il recupero dei dati il report stesso
non funziona. Cio' limita un po' la possibilita' dell'utente nell'installe
dove
vuole l'applicativo. Come poter ovviare al problema ?

Copia il record nella dir dell'applicazione (o subdir).
La dir dell'appl. (dove sta l'exe) la trovi con  app.path
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
Home Page - 
http://www.geocities.com/SiliconValley/Bridge/1414/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------

La dir dell'appl. (dove sta l'exe) la trovi con  app.path
Perdonami, forse non mi sono spiegato .App.path trova il percorso
dell'applicazione ma il report no' .E' l'accesso stesso al database che non
trova nonostante che tutti i file rpt e mdb siano nella directory
dell'applicazione. In effetti e' strano , che sia un problema intrinseco di
Crystal ?


Nei tuoi report rimane il path originario di dove si trova il database se
non specifichi diversamente.
Ovvero se in fase di progettazione tu hai il tuo database su :
c:\MyProg\Myapp\Database.mdb
il report continua a puntare alla dir sopra descritta anche se durante
l'installazione un utente mette il programma in :
C:\PincoPallino\
Detto questo passiamo alla soluzione.
Innanzi tutto database e Rpt debbono risiedere possibilmente nella stessa
DIR
Devi aprire tutti i tuoi Report, andare su Menu' :
Database ==> Set Location
quindi selezionare le tabelle elencate e cliccare su :
SAME AS REPORT.
Spero di aver risolto i tuoi prob.
Ora puoi essere sicuro che il tutto funzioni indipendentemente dalla Dir di
installazione del tuo programma su altre macchine.
Ciao
Ven.

Newsgroup: it.comp.lang.visual-basic
Titolo: Delete adAffectAll

Non funziona...  restituisce l'errore: "Operazione non consentita nel
contesto corrente"
Credo dipenda dal modo in cui apro il recordset, 
il che avviene in questo modo:
Set rsFormula = New ADODB.recordSet
rsFormula.CursorType = adOpenStatic
rsFormula.CursorLocation = adUseClient
rsFormula.LockType = adLockPessimistic
sqlFormula = "SELECT Formula.* " & _
    "FROM Formula; "
rsFormula.Source = sqlFormula
rsFormula.ActiveConnection = connArchivio
rsFormula.Open
--
Ho trovato un sito eccezionale: te poi scarica' la coscienza. 
S. Disegni
Clicca sul link per contattarmi direttamente da ICQ
http://msg.mirabilis.com/scripts/contact.dll?msgto=32405502

 contesto corrente"
Note   adAffectAll and adAffectAllChapters are not valid arguments to
Delete.
--
hth, hal
--------------------------------
Inviato via 
http://usenet.libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Usare ADO con ODBC.

Dunque,
vorrei provare ad usare Firebird come Database Server ma non ho idea di come fare tramite VB.
Penso che l'unico modo sia passare tramite ODBC.
Ho scaricato i suoi driver ODBC e mi chiedevo se potessi usare ADO tramite ODBC.
Il problema che non l'ho mai fatto...
Avete qualche consiglio?
Tnx.
LeleB.

 ha scritto nel
messaggio news:TKc8d.23633$N45.6...@twister2.libero.it...

"DRIVER=Firebird/InterBase(r)
driver;UID=SYSDBA;PWD=masterkey;DBNAME=D:\FIREBIRD\examples\TEST.FDB"
Ciao, Vincenzo

 
Grazie!
Due curiositŕ:
1- Dove hai trovato come si fa? (Nel senso...c'č documentazione sui driver ODBC?)
2- Una volta aperta la connessione tratto il DB come qualsiasi altro DB giusto?
Grazie mille!!
LeleB.


http://www.connectionstrings.com/index.asp
Ciao, Vincenzo

 Penso che l'unico modo sia passare tramite ODBC.
Se ti interessa usare interbase puoi provare:
http://www.sibprovider.com/en_us/default.asp
Supporta ADO e ADOX.
Non so che tipo di licenza sia però...
-- 
Freccia@Buldozzer63 :D

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo righello

Saluti, volevo sapere se qualcuno ne e' a conoscenza e se esiste free.
Per intenderci se avete presente Paint shop pro o Word potete avere dei
righelli in alto o su due lati che misurano le dimensioni.
Ciao!

 dei righelli in alto o su due lati che misurano le dimensioni.
bha guarda hanno gia' postato una domanda simile, io a sto punto me lo
costruirei con una picturebox e il comando Line
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 > dei righelli in alto o su due lati che misurano le dimensioni.
quello in alto c'č tra le propietą del controll microsoft rtf box
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.471 / Virus Database: 269 - Release Date: 10/04/2003

ho scritto due righe
dopo devi svilupparlo meglio tipo oriz-vert una linea che si muovecol mouse
ecc.....
Private Sub DisegnaRighello()
nrighe = Picture1.Width / 56.7
num = -1
For n = 0 To nrighe
   If Right(n, 1) = 0 Then
          ' disegna riga cm
           Picture1.Line (n, 0)-(n, 5)
          ' scrive il numero del cm
           Picture1.CurrentX = n
           Picture1.CurrentY = 0
           num = num + 1
           Picture1.Print num
      ElseIf Right(n, 1) = 5 Then
           ' disegna riga  1/2 cm
            Picture1.Line (n, 1)-(n, 5)
      Else
             ' disegna riga mm
            Picture1.Line (n, 3)-(n, 5)
    End If
Next n
ciao Ilario

 ha scritto nel messaggio
news:ylDOa.782$it4....@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: manuali visual basic italiano

vorrei sapere se qualcuno può indicarmi quali sono i libri migliori per
iniziare a programmare in visual basic.
ciao grazie a tutti.
--
Automatic posted from 
mta1.iol.it
 [195.210.91.151]
via Mailgate Server - 
http://www.mailgate.org

...


...
vorrei sapere se qualcuno può indicarmi quali sono i libri migliori per
iniziare a programmare in visual basic.
ciao grazie a tutti.
--


Secondo me la doumentazione in linea compresa nel VB5 è molto completa e
piena di esempi, pero' non tratta minimamente le API.
Per le API io mi sono trovato molto bene con la guida ( è in inglese) del
C++ Builder della borland, la versione di prova la si trova spesso nei cd
che si comprano in edicola.
In questa guida c'e' una sezione dedicata alla programmazione in ambiente
win32, e le api vengono spiegate molto bene.
Vabbe' avevi chiesto libri, questi non sono libri, ma c'e' di buono che non
costa quasi nulla, se poi devi cominciare proprio da zero ti assicuro che me
la doumentazione in linea compresa nel VB5 è più che suff.
Prodigy2
Newsgroup: it.comp.lang.visual-basic
Titolo: winsock multipli e passaggio tipi definiti dall'utente

Salve a tutti,
premetto che non voglio una soluzione bella e pronta ma qualche spunto.
Ho un progetto che utilizza un oggetto winsock e fin qui tutto bene.
Ora vorrei far evolvere questo progetto e poter avviare dallo stesso
progetto piu' comunicazioni verso lo stesso server per ricevere dati
differenti. Ho inserito l'oggetto winsock in un form (formWS) e nel
form principale ho creato diversi bottoni a seconda dei dati da
scaricare. All'interno dei bottoni dichiaro:
Dim frmWS_1 As frmWS
Set frmWS_1 = New frmWS
in maniera da avere diverse istanze dello stesso codice senza dover
creare n oggetti winsock e senza replicare il codice n volte.
Il problema nasce perche' quando lanciavo un comando per volta, per
gestire le differenze dei vari comandi utilizzavo diverse variabili
globali e degli array con struttura definita dall'utente (cioe' io
;-p). Purtroppo non riesco a passare come parametro in una funzione
della formWS un array di questo tipo.
Mi spiego meglio. In realta' ogni tipo di comando viene ripetuto n
volte cambiando determinati parametri scelti dall'utente da una
listbox. Nel caso al primo tentativo il comando non vada a buon fine
salvo il comando in un array con una struttura particolare e finito di
lanciare tutti i comandi rilancio solo quelli non andati a buon fine.
Quando gestivo un comando per volta l'oggetto winsock si trovava nella
form principale con il codice dell'evento dataarrival e la funzione di
rilancio dei comandi era contenuta in un modulo.
Creando invece la formWS ora mi appare l'errore: "Impossibile
utilizzare i tipi Enum e i tipi definiti dall'utente privati come
parametri o tipi restituiti per routine pubbliche, membri pubblici di
dati o campi di tipo pubblici definiti dall'utente."
Spostando la funzione, del rilancio dei comandi non andati a buon fine,
dal modulo alla formWS e/o spostando la dichiarazione Type nella formWS
non risolvo il problema.
Ho anche pensato di creare un modulo di classe senza conoscere bene a
cosa serva ma ho letto che i parametri si possano passare byref e non
byval quindi il secondo comando lanciato potrebbe modificare i dati
dell'array che sto usando per il primo comando o no?
Grazie a tutti per qualsiasi suggerimento
Chris

Ciao a tutti,
sono sempre io.
Volevo capire se non ho ricevuto nessuna risposta a questo quesito
perche' non sono stata chiara, perche' non e' mai capitato a nessuno o
semplicemente perche' voglio fare una cosa assurda...
Grazie
Chris ha scritto:


Newsgroup: it.comp.lang.visual-basic
Titolo: command button

Susate la domanda probabilmente banale, ma ho appena iniziato a 
smanettare in visual basic: come si fa ad inserire in un progetto un 
command button che faccia passare da una form  all'altra?
Grazie mille!!!
 :-)
-- 
Elwood

 ha scritto nel messaggio 
news:mn.6d667d555...@libero.it...


Link ha spiegato il 13/05/2005 :

Perfetto!!
Grazie molte.
-- 
Elwood