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

Visto che le soluzioni precedenti non funzionano, ripartiamo da zero.
Allora io ho una funzione alla quale passo il puntatore ad una UDT che
varia ad ogni chiamata.
Poi ho una stringa di lunghezza fissa (precisamente 1023bytes) nella
quale vengono letti dati tramite la BTRCALL del BTRieve.
Nella funzione devo copiare i dati, inseriti sequenzialmente nella
stringa, nella UDT in questione.
ho provato con la Copymemory ma forse non č la strada giusta.
Il problema principale sicuramente č caratterizzato dal fatto che le
stringhe sono rappresentate in formato UNICODE e un carattere non
occupa piů un byte bensě due.
Come posso fare per fare in modo che i dati vadano al loro posto nella
UDT.
P.S. Consideriamo che le UDT hanno dati misti (String, Long, Integer).
GRAZIE.

 UDT.
Ci si riprova ?
Mi è venuto in mente di tentare di sfruttare Vb e il suo metodo
di trattare le stringhe, quindi prova questo:
Public Declare Function lstrlenWide Lib "kernel32" _
        Alias "lstrlenW" _
        (ByVal lpString As Long) As Long
'Chiami la funzione
    chrString = WideStringToVBString(NomeStringa)
Public Function WideStringToVBString(lpszBuff As String) As String
Dim btBuff() As Byte
Dim nLen As Long
Dim lpszPointer As Long
   lpszPointer = StrPtr(lpszBuff)
   If lpszPointer Then
      nLen = lstrlenWide(ByVal lpszPointer) * 2
      If nLen Then
         ReDim btBuff(0 To (nLen - 1)) As Byte
         CopyMemory btBuff(0), ByVal lpszPointer, nLen
         WideStringToVBString = btBuff
      End If
   End If
End Function
A questo punto si è sicuri che la stringa sia nel formato
double-byte di VB. Copiando la stringa nella struttura, ottieni
il risultato voluto, ma solo per i membri dichiarati come String.
I membri dichiarati Long e Integer non possono ricevere un valore
valido, come sai bene. Quello che potresti fare, mi viene in mente,
è dichiarare tutti i membri della struttura come string ed in un secondo
momento assegnare il valore contenuto in questi membri a delle
variabili Long e Integer con CLng(UDT.NomeMembroLong) e
CInt(UDT.NomeMembroInt)
E' una possibilità !? Vedi un po' tu.

Newsgroup: it.comp.lang.visual-basic
Titolo: E' possibile stampare un file .PRN o .TIFF

Devo stampare un file .PRN o .TIFF, sapete dirmi se č possibile farlo senza
andare
a richiamare il programma che lo ha generato?
Grazie
Carlo


Un file prn è un file processato dal driver della stampante.
Come tale basta "spararlo" alla stampante per cui è stato scritto.
Un file Tiff è un file di uno specifico formato grafico, quindi necessita di
un programma grafico per essere aperto e stampato, tuttavia, facendo "2
click", potrebbe anche essere che succeda qualcosa no?
:-)
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema Molto Strano

Chiedo scusa ma è la prima volta che partecipo ad un Newsgroup spero di
essere chiaro:
Mi si è presentato questo problema:
Compilato un mio applicativo scritto con VB 5.0 Enterprise (SP3) e
distribuito con il tool InstallShield 5.1 mi si è verificato questo errore
all' apertura di una delle Form che avevo scritto:
Errore 13: Tipo non corrispondente (type mismatch)
La cosa strana è che in fase di Sviluppo questo errore non si è mai
presentato !!!!
Sono andato ad indagare aggiungendo i numeri di riga al codice di Form_Load
è ho scoperto che l'errore succedeva all'esecuzione della riga:
SetDataControl COMUNE
Dove SetDataControl è una Sub:
SetDataControl (Byval iEnte as Long)
e COMUNE è un menbro di una Public Enum ......
Vorrei sapere se qualcuno mi può dire perchè in fase di design l'errore non
si presenta e soprattutto come mai se io installo Visual Basic 5.0 sul PC
dell'utente tutto funziona !!!!
Grazie per l'aiuto e la collaborazione
Guido
gu...@garelli.com


A me ogni tanto vengono riportati errori strani, a volte proprio lo
stesso errore 13, prodotti da un programma che in molti altri computer
funziona perfettamente.
Non so se sia il tuo caso (il programma funziona su qualche altro
computer?) ma si tratta probabilmente di incompatibilità tra versioni
di DLL. La cosa diventa sempre più preoccupante. Figurati che un
mesetto fa ho installato un programma che conteneva un reference di
HTML in formato compiled help e dopo non funzionava più VB5! Per
fortuna che mi ero copiato tutta la directory di Windows e ho potuto
ripristinare la situazione preesistente...
Morale: la sostituzione di chissà quale versione di chissà quale
DLL/OCX può portare ed errori stranissimi. In due casi i campi valuta
di alcune tabelle venivano visualizzati divisi per 1000, e questo
anche in Access. Per la precisione in Access i campi venivano mostrati
correttamente quando erano in editing, ma tutto tornava come prima
cambiando riga. In questi casi ogni tanto usciva anche l'errore 13.
La strada che sto esplorando (c'è un mio messaggio di una paio di
giorni fa) è quella di una doppia installazione di Windows (sempre
meglio che riformattare tutto...)
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------


Grazie dell'aiuto ....
Credo che effettivamente il problema possa essere di quella natura, infatti
ho provato l'eseguibile su più PC e si presentato sempre l'errore quello che
però ho trovato strano e che su alcuni appariva in Italiano su altri in
inglese ( tipo non corrispondente oppure type mismatch ).
Mi chiedo però una cosa:  i tool che creano i pacchetti di installazione non
dovrebbero ovviare a questi problemi ???? Io già mi trovo ad usare
InstallShield perchè trovo che sia più facile scrivere nel registry e
registrare le Dll di servizio alle mie applicazioni. Ancora non basta.
A risentirci
Guido
gu...@garelli.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa di un Form





come posso fare per settare la stampa orizzontale 
senza utillizare il CommonDialog poiche' devo stamapre orizzontalmente il 
contenuto, anche grafico, di un Form?


Grazie


e-mail:dpan...@to.alespazio.it



[  ] (Attachment)
1.
NON postare in html, per favore.
2.
Printer.Orientation = vbPRORLandscape
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: [Quasi OT] A che oggetto appartiene il metodo Name?

Il VB cercando il più possibile di seguire la filosofia degli oggetti,
trasforma quelle che in passato erano semplici funzioni in metodo di
oggetti. Quelle istruzioni che non trovano una precisa collocazione in
un oggetto (vedi Mid$, chDir, ABS, ecc.) sono comunque metodi
dell'oggetto VBA che non è necessario esplicitare.
Scusate l'introduzione, ma vorrei essere sicuro di aver inteso bene la
filosofia degli oggetti. Questa è la domanda: Dove è finito il metodo
Name. Nella guida on-line è presente ed è indicato come mezzo per
rinominare o spostare un file.
Mi aspettavo di trovare il metodo nella libreria VBA insieme al metodo
FileCopy, ma non è così. In effetti il codice
VBA.Name .....
produce un errore.
Eseguendo una ricerca con visualizzatore oggetti su tutte le librerie
del progetto, ottengo lo stesso risultato...cioè niente, non c'è! Come
fà a funzionare allora? Non è certo una dichiarazione API!
Avete mai notato, inoltre, il modo particolare che ha di prendere gli
argomenti:
    Name SourceFile AS DestFile
Da quando gli argomenti sono separati da "AS". Non ho mai visto
equivalenti in VB. Perché tanta particolarità per un metodo così
semplice?
Grazie a tutti quelli che sapranno spiegarmi la stranezza.
Ciao
--
Paolo De Laurentiis
E.Mail: 
pd...@tin.it
HomePage 1: 
http://space.tin.it/io/pdelau
HomePage 2: 
http://www.freeweb.org/freeweb/pdelau

1) Name non e' un "Metodo", e' una "Proprieta'";
2) Questa proprieta' appartiene ai controlli OCX e a qualche oggetto.
ciao
Roberto

Per quanto possa essere una proprietà è strano che la si possa usare
senza qualificatore di oggetto e rimane ancora più strano l'uso della
formula
Name Source AS Dest
"Roberto G." wrote:

--


Name Source AS Dest
Mi sa che Roberto G. non ha capito quale "name" intende Paolo.
Il "name" di Paolo è il comando che serve per rinominare un file,
mentre il "name" che intende Roberto è la proprietà name dei controlli
OCX :-)
Per rispondere alla domanda originaria di Paolo direi che, molto
probabilmente, il COMANDO name è un vero e proprio comando di VB (come
for, if, while, wend, call, ecc...) anzichè essere, come hai
giustamente notato, un metodo implicito dell'oggetto VBA.
CIAO!
Marco F.

semplice?
Che sia uno dei tanti avanzi riciclati, retaggio di versioni obsolete del
Basic Microsoft? >:-)
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Form e file .WAV

Mi piacerebbe sentire una musichetta automaticamente all'avvio di una form.
Qualcuno saprebbe aiutarmi?
Grazie.
Francesco
--
E-mail: 
franco....@spm.it

Usa l'API mciSendString.
Private Declare Function mciSendString Lib "winmm.dll" Alias
"mciSendStringA" (ByVal lpstrCommand As String, ByVal
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal
hwndCallback As Long) As Long
e poi la usi cosě:
Sub Form_Load()
  Dim lngReturnVal As Long
  lngReturnVal = mciSendString("play " & PATH_COMPLETO_DEL_FILE_WAV,
0&, 0, 0&)
End Sub
Ciao,
Riccardo


...


E l'API PlaySound !?!?

Newsgroup: it.comp.lang.visual-basic
Titolo: ADO: aggiornare 2 tabelle correlate

salve, sono alle prime esperienze con ADO.
vorrei sapere come si fa ad inserire una nuova riga in due diverse 
tabelle che sono però correlate.
devo creare 2 recordset differenti?
ringrazio in anticipo
--
avast! Antivirus: In partenza messaggio pulito.
Virus Database (VPS): 0531-3, 04/08/2005
Controllato il: 05/08/2005 10.09.34
avast! - copyright (c) 1988-2005 ALWIL Software.
http://www.avast.com

 devo creare 2 recordset differenti?
Io ci andrei con due insert per mezzo di comandi sql. Ma non so se gli 
altri abbiano idee migliori in mente...

 altri abbiano idee migliori in mente...
si ci avevo pensato....
una di queste tabelle ha un campo contatore, il cui valore mi serve come 
link per gli elementi della secondatabella.
come posso fare a sapere il valore del campo contatore per l'ultimo 
inserimento effettuato, dato che lo dovrò scrivere come campo nella 
nuova riga della seconda tabella?
grazie ancora

Webm@n ha scritto:


Prova nel seguente modo:
Dim codice As Long
'esegui il primo inserimento
 cn.Execute "INSERT INTO TabAutonumber (Descrizione) VALUES ('prova')"
 Set rs = New ADODB.Recordset
 Set rs = cn.Execute("SELECT @@IDENTITY AS nuovo") 
 Codice = rs.Fields(0)
 cn.Eecute "INSERT INTO Tab2 (codice, campo2) VALUES ( " & cstr(codice) &
",'valorecampo2')"
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ",'valorecampo2')"
Codice = rs.Fields(0)
E' auspicabile che il contatore sia il primo campo, ma per tutta una 
serie di motivi io scriverei il nome di campo adeguato, senza con questo 
voler sminuire la bontą della soluzione fornita, della quale farņ un 
brutale copia incolla.
-- 
Emanuele Torrenti

 brutale copia incolla.
Hai preso una cantonata! :))
 "SELECT @@IDENTITY" RITORNA UN SOLO CAMPO per cui fields(0) benissimo!.


 
Che cazzone che sono, stavo per copiaIncollare una cosa che avevo letto 
approssimativamente! Mi cospargerò il capo di cenere nel pomeriggio...
-- 
Emanuele Torrenti
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Errore di runtime 5 con MsgBox

Ho un problema in una applicazione con il MsgBox:
Nell'ambiente di sviluppo tutto funziona correttamente, ma una volta
compilato, in alcuni casi e non su tutte le macchine subito dopo la
visualizzazione di un MsgBox salta fuori Errore di runtime 5: Chiamata di
routine o argomento non valido.
Uso VB5 SP3 e richiamo il MsgBox passando semplicemente il messaggio, la
costante del punto esclamativo e la caption.
A qualcuno è mai capitato qualcosa di simile ?
Nell'applicazione utilizzo anche dei controlli di terze parti: il FormulaOne
(gestione spreadsheet) e il TX Text Control (gestione Word Processor)
Potrebbe essere un problema legato ad uno di essi dato che in genere il MsgBox
non funziona in form che contengono entrambe i controlli ?
Grazie.
---
Daniele Grison
gri...@tin.it

...

----------
Ciao!
Puoi postare la linea di codice incriminata? Aiuterebbe molto avere di
fronte qualcosa di concreto.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

fronte qualcosa di concreto.
Il MsgBox incriminato è il seguente:
Fai conto di avre il seguente codice in una sub richiamata in un
Button_Click()
Private Sub MySub
If bolMoved Then
    dblDiff = CheckCIncr(intRow(bytCS), intCol(bytCS))       ' Questa esegue
solo dei calcoli.
    If dblDiff <> 0 Then
        MsgBox "La differenza tra il totale caricato e quello riportato del
quadro" & _
               vbCrLf & "è diverso da 0.", vbInformation, "Controlli
incrociati"
    End If
End If
Return
Sembra però che il problema non lo desse proprio il MsgBox ma un'istruzione
F1Grid.SetFocus
( F1Grid è un controllo esterno tipo spreadsheet ) richiamata subito dopo la
sub, come se in run time il MsgBox non fosse modale e l'esecuzione del
programma continuasse senza però restituire il focus al form:
Button_Click()
MySub                            ' Quella sopra
F1Grid.SetFocus            <<< Questa riga dava l'errore
Return
Ho risolto con:
if F1Grid.Visible and F1Grid.Endbled then F1Grid.SetFocus
ma non ho comunque capito perchè andasse in errore.
---
Daniele Grison
gri...@tin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Per favore, mi mandereste il file CMDLG96.HLP ?


Nuovamente grazie a tutti per l'aiuto.

Se qualcuno ce l'ha ed ha anche voglia di postarlo, č meglio che lo
mandi a it.binari.files, cosě lo possono prelevare anche altri..oltre
me.
 
Saluti, Tizio

Newsgroup: it.comp.lang.visual-basic
Titolo: SaveBitmap question (vb4)

	Esiste un modo o una funzione che permette di salvare in bitmap o
in altri formati con risoluzioni inferiori ai 24bit con cui viene salvata
normalmente un immagine in una form o in un picture box ?
	Grazie !


Non con i controlli standard di VB: o si scrive a manina il
programma che fa il lavoro o si usano OCX 3e parti che
fanno il lavoro (di convertire l'immagine in formati diversi).
Saluti, Massimo.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Mostrare il carattere "&" in una label

Ecco il mio problema:
da una textbox inserisco dei caratteri (ad esempio "Pippo & Topolino") e li
memorizzo in una variabile.
Se asseggno il contenuto della variabile alla caption di una label la "&"
viene mostrata come un carattere di sottolineatura "_".
Poi se stampo la label.caption, stampa la "&" correttamente anche se a video
č visualizzato un "_".
So che se inserisco un "&&" va bene, ma poi mi sballa tutto il resto.
E' un bug della label o c'č qualche modo per ovviare a ciň?
Ringrazio in anticipo chi mi aiuterŕ.
Mirco.

 E' un bug della label o c'č qualche modo per ovviare a ciň?
non č un bug, č normale che faccia cosě...
potresti mettergli && per visualizzarla, poi quando stampi usi un Replace
(se usi VB6) sostituendo && con &
Ciauz
Faber

 
non e' un bug  e' una scelta fatta da MS per rappresentare la
sottolineatura ( sarebbe piu' giusto dire lo shortcut alla label) alla
stessa maniera si comportano i testi dei pulsanti o dei menu!
per ovviare il problema del raddoppia/dimezza i '&' puoi salvarti in una
variabile il testo esatto da usare poi per le stampe



 impostando la proprietà UseMnemonic a False.
sei troppo il migliore    :)
questa non la sapevo proprio...
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: windows ce

Vorrei creare un programma in v.b. per il sistema operativo windows CE
siccome sto‘ incontrando parecchie difficoltá vorrei sapere se qualcuno ha
esperienza in merito
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 esperienza in merito
Io ho creato un gestionalecon Embaded VB + Sql CE.
Che problemi hai?

 ha scritto nel messaggio
news:1EtJ7.113116$sq5.5...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] test xxx

sorry
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 sorry
it.test
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com
Newsgroup: it.comp.lang.visual-basic
Titolo: Save automatico xls --->> csv

Un saluto a tutta il NG
Ho convertito un file xls in csv
Quando chiudo il file excel (ObjExcel.Workbooks.Close) mi appare il
messaggio che salvando il  da xls a csv il file perde la formattazione, a
questo punto
do la conferma e poi mi si chiede
di sostituire il file csv già esistente.
Logicamente il problema non è bloccante,
c'è un modo per aggirare l'ostacolo.?
------------------------------------
Const sXls As String = "xlsFile"
Const sCsv As String = "xlCSV"
ObjExcel.ActiveWorkbook.SaveAs FileName:=xlCSV, FileFormat:=xlCSV,
CreateBackup:=False
ObjExcel.Workbooks.Close
Set ObjExcel = Nothing
--------------------------------------
grazie
Roberto.

 ha scritto nel messaggio
news:a57lbn$tfu$1...@lacerta.tiscalinet.it...

Non credo sia possibile (da codice VBA), dovressi subclassare le finestre e
mandare un WM_COMMAND sul bottone che ti interessa.
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

 c'è un modo per aggirare l'ostacolo.?
Salvalo come xls e usa questo codice adattato "su misura" (attento ai Return
indesiderati):
Sub ExportExcelSheetToCSV(sSheetName As String, sExcelPath As String,
sCSVPath As String)
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    conn.Open "Provider=MSDASQL.1;Persist Security Info=False;Extended
Properties=""DSN=File di Microsoft
Excel;DBQ=C:\DataBase.xls;DefaultDir=C:;DriverId=790;MaxBufferSize=2048;Page
Timeout=5;"""
    Call rs.Open("SELECT * FROM [Foglio1$];", conn, adOpenStatic,
adLockReadOnly)
    Call Save_Recordset(sCSVPath, rs)
    Set rs = Nothing
    Set conn = Nothing
End Sub
Private Sub Save_Recordset(Filename As String, rs As Recordset)
    'Esporta i dati in formato .csv
    On Error GoTo Save_RecordSet_Err
    Dim i, j As Integer
    Open Filename For Output As #1
    rs.MoveFirst
    For j = 0 To rs.RecordCount - 1
        Print #1, Chr(34) & Trim(rs.Fields(0)) & Chr(34);
        For i = 1 To rs.Fields.Count - 1
            Print #1, "," & Chr(34) & Trim(rs.Fields(i)) & Chr(34);
        Next i
        Print ""
        Print #1, Chr(13) & Chr(10);
        rs.MoveNext
    Next j
    Close #1
    Exit Sub
Save_RecordSet_Err:
    If Err.Number = 76 Then
        Resume
    ElseIf Err.Number = 3021 Then
        Resume Next
    Else
        MsgBox Err.Number & " " & Err.Description, , _
            MsgCaption
    End If
    Close #1
End Sub
Si usa così:
Call ExportExcelSheetToCSV ("Foglio1", "c:\database.xls", "c:\prova.csv")


 Call ExportExcelSheetToCSV ("Foglio1", "c:\database.xls", "c:\prova.csv")
Dimenticavo devi Aggiungere nei riferimento ADO ("Microsoft
ActiveX.....Object)

Newsgroup: it.comp.lang.visual-basic
Titolo: button  su tab

Ciao
Chi è che mi spiega come mai un button standard
su di un TAB  mi appare sempre e solo standard
e invece spostato sul form  posso trasformarlo in system
o flat ?
Mi sembra un bug dei TAB !
grazie in anticipo

 o flat ?
mah, o ho capito male la domanda oppure hai sbagliato qualcosa tu.
Io con VB 2008 Express su Win XP Pro non ho questo problema, posso 
settarlo standard, system o flat sia nella form che nel tab, ho appena 
provato.
ciao
Mauro

"Innuendo" <prova@b.c> ha scritto nel messaggio 
news:308mo.210080$9f6.4...@twister1.libero.it...

Ciao mauro
A me succede proprio questo !
durante la costruzione del FORM  e il riempimento del  TAB
tutto bene.....In runtime  invece  mi appare solo flat .... boh

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con dischi di installazione.

Saluti a tutti,
ho riscontrato un'anomalia durante l'installazione di un
applicativo scritto in vb5 e installato su una macchina
windows 95 (ver 4.00.950); durante l'installazione mi
compare il messaggio: "Setup cannot continue because some
system files are out of date on your system."
Mi viene proposto di aggiornare il sistema, ma quando confermo,
dopo che la macchina ha lavorato per alcuni secondi, comprare
un altro messaggio di errore che mi informa che: " c:\windows\temp\
RBTA111.TMP cannot read source file. The file could not be installed";
a questo punto non si puo' far altro che desistere.
La mia domanda e': devo per forza aggiornare il sistema (aggiornamento che
purtroppo non ho a disposizione ...) o basta copiare qualche DLL da una
macchina con sistema operativo piu' recente ? O,infine, devo re-installare
windows 95? (sigh!)
Notare che ho creato i dischetti di installazione con l'apposita utility
fornita con vb5: con applicativi tipo install-shield e' possibile creare
distribution piu' "robusti" ?
Ringrazio infinitamente chi potra' darmi qualche dritta per questo problema
a dir poco ostico.
Buon lavoro a tutti, Aldo.

>windows 95 (ver 4.00.950); durante l'installazione mi
DUnque.... questa versione e' in assoluto la prima di W95, io l'ho
avuta per un po', ma non ho mai riscontrato problomi del tipo. Non
stai lavorando su un'unità di rete, vero?
Ciao.
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.geocities.com/colosseum/loge/2151
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.
Per rispondermi via E-Mail togli STOPSPAMMERS.
Guarda la RFD per it.comp.prog.collaborazione !

Assolutamente no.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Come faccia a stampare una finestra di cui ho il hwnd,hdc,hrc??

Salve premetto che uso VB5 sp3.
vorrei stampare il contenuto di un controllo (della grafica) di cui ho:
    hWnd
    hDC
    hRC <--- scusate l'ignoranza cosa significa l'acronimo?
se uso Printform (ovviamente del form che contiene il controllo) il
contenuto del controllo non viene stampato.
Se è possibile siate molto precisi perchè è la prima volta che devo stampare
usando questi dati ( solitamnete stampo direttamente sulla stampante...)
grazie a tutti e buona programmazione !
                                                                Davide


Prova semplicemente cosě
Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long,
ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC
As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As
Long
BitBlt(Printer.hDc,x,y,width,height, Contollo.hDC, x, y, SRC_COPY)
Se devi ridimensionarla c'č la sorella
Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal X As Long,
ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC
As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal nSrcWidth As Long,
ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Ciao
P.s.: Mai sentito di un hRC (non esiste neanche nell'object browser!)

BitBlt(Printer.hDc,x,y,width,height, Contollo.hDC, x, y, SRC_COPY)
....
SRC_COPY è una costante? che valore deve avere?
ciao&grazie

...

In realta' e' SRCCOPY (senza l'underscore).
La trovi nel Visualizzatore API, Costanti:
Public Const SRCCOPY = &HCC0020
--
Roal Zanazzi
z...@iol.it

ho provato ma mi ritorna sempre "0" [   tragico fallimento =(  ]...
ho provato anche con altri oggetti (magari il mio in particolare è s*****o)
ma niente da fare..
cosa ci può essere di sbagliato?

Newsgroup: it.comp.lang.visual-basic
Titolo: help pulisci i campi

Ciao a tutti,
he messo a punto una gui per la compilazione di un ipotetico piano di studi;
in uno dei form che utilizzo ci sono ovviamente dei campi da compilare anche
con l'uso dei drag&paste etc..
Vorrei ora implementare una procedura che mi consenta di pulire tutti i
campi modificati in fase di run e riportarli nelle condizioni iniziali
(precedenti cioč alla compilazione); una sorta di pulisci i campi appunto...
Tale procedura puņ essere implementata solo da codice campo per campo o si
puņ usare un'unica opzione che consenta di effettuare tutto ciņ
automaticamente?
Vorrei riportare tutti i campi in una situazione tipo default ma non proprio
dato che comunque i campi in questione li ho gią modificati nel codice.
Spero di essere stato chiaro,
Grazie,
ntonjfi

 ntonjfi
Se non ho capito male puoi fare un ciclo di questo tipo
Dim Ctrl As Control
For Each Ctrl In Form1.Controls
    If TypeOf Ctrl Is TextBox Then
         Ctrl.Text = ""
     End If
Next
In questo modo pulisci tutti i campi di tipo testo contenuti nella form.
--
Ciao
   Sharkman
-----------------------------
Rimuovere NOSPAM per risposte
Newsgroup: it.comp.lang.visual-basic
Titolo: Spostare dll

Ciao a tutti...
    devo effettuare degli spostamenti di alcune dll dal mio pc a un server
con win2000server e mi chiedevo una cosa... nello spostamento le dll si
registrano da sole appena le copio nella cartella oppure le posso sostare su
una cartella temporanea e spostarle in seguito senza rischiare nulla... Poi
la registrazione la farei tramite i servizi di MTS (servizi dei componenti).
Grazie!!!

una cartella temporanea e spostarle in seguito senza rischiare nulla... 
Le registrazioni devono essere imposte da te.
Nota che se intendi "spostare", cioe' eliminare dalla vecchia
locazione, devi *prima* deregistrare le dll activeX, quindi spostarle
dove ti serve, altrimenti ti rimane il registro "sporco".
-- 
ciao, hal

 Grazie!!!
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 dove ti serve, altrimenti ti rimane il registro "sporco".
No devo solo prendere una o 2 dll spostarle in rete su un server in una
cartella temporanea e lasciarle li in attesa di darle un path fisso... se
faccio questa operazione di copia incolla non si registrano se ho capito
bene...
Grazie...
P.S se li metto nella "cartella" di MTS le dll si registrano da sole... mi
conviene fare così oppure usare prima il regsvr32 e poi metterle li dentro?
P.S.2 per deregistrarle non esiste una procedura + veloce che usare il
regsvr32 /u ? chesso tipo eliminandole da MTS aggiungendo qualche tipo di
opzione?
Grazie ancora...

Newsgroup: it.comp.lang.visual-basic
Titolo: Limitazioni di VB con COM+????

Ciao a tutti,
forse VB ha limitazioni su alcuni controlli e su COM+.....
Allora, ho il Project1 che è un form con dentro un command e una
treeview:
Private Sub Command1_Click()
 
    Dim MyDll As Object
 
    Set MyDll = CreateObject("Project2.Class1")
 
    Call MyDll.MySub(TreeView1)
 
End Sub
_____________________________________________________
e un Project2 che è una DLL con una classe (Class1):
Public Function MySub(ByRef TW As Object)
 
    Dim NodX As Object
 
    Set NodX = TW.Nodes.Add(, , "ROOT", "TEST")
 
End Function
_____________________________________________________
Domandone! Perche sia in modalità debug che mettendola nei references
del
primo progetto funziona benissimo caricandomi la TreeView sul
Project1, ma registrata con Component Services su un Server Win NT
2000, e poi create nel Progect1 si impianta tutto!!! :((
Mi da questo errore: Permission Denied ERROR NUMBER:70
ma non ci capisco molto, chissà perche.....
Se qualcuno ha qualche illuminazione, o ha già sperimentato sulla
propria pelle....
Grazie
Ciao
Fabio

 ha scritto nel messaggio
news:f4a20e3c.02100...@posting.google.com...


 ciao
Ho finito di fare i test in questo momento, ma purtroppo non cambia molto :(((
Grazie
ciao
Fabio
Newsgroup: it.comp.lang.visual-basic
Titolo: Connessioni Socket e Servizi NT

Ho sviluppato un servizio NT, che accetta connessioni tcp/ip da
computer remoti che possono collegarsi ad esso per monitorarlo o
tramite una finestra telnet, o tramite un'altra applicazione VB. Mi
sono accorta però, che in alcuni casi, se il servizio viene
interrotto, la connessione rimane attiva, infatti, nel caso sto
eseguendo il monitoraggio tramite finestra telnet, questa non viene
chiusa, mentre se sto eseguendo il monitoraggio tramite l'apposita
applicazione, noto che lo stato della connessione è proprio uguale a 7
ossia CONNESSO. Com'è possibile?
P.S.
La macchina su cui è installato il servizio ha come sistema operativo
Windows 2000.

 ossia CONNESSO. Com'è possibile?
sei sicura che il servizio sia davvero terminato e non
abbia lasciato qualcosa di appeso?
-- 
ciao, hal

 ciao, hal
ciao Rary

se può essere utile, voglio anche aggiungere che quando si esegue lo
stop di un servizio, non si passa per il Form_Unload.
Newsgroup: it.comp.lang.visual-basic
Titolo: Estrazione di stringhe (URGENTISSIMO)

Devo esatrarre una stringa di valori da una stringa più lunga, escludendo
però i punti.
Cioè da 12.3456.78 devo estrarre 12345678
come devo fare?
Grazie anticipatamente
--
_________________________________


Fai l'analisi della stringa carattere per carattere e man mano la travasi in
un'altra se il carattere in esame non è un punto.
private function travasa(stringa as string) as string
    dim i as integer, j as integer
    dim s as string
    j=1
    for i = 1 to len(stringa)
        if stringa(i)<> "." then
            s(j)=stringa(i)
            j=j+1
        end if
    next i
    'restituisce s
    travasa = s
end sub

Cioè da 12.3456.78 devo estrarre 12345678
se lavori in VB6:
Replace("12.3456.78", ".", "")
Ciao
Faber

Cheope sei sicuro di cio' che hai scritto ????????????????? o velevi
scrivere una cosa del tipo :
Private Function FNsRemovePoint(sStringa As String) As String
        Dim i As Integer
        Dim sNewString As String
        For i = 1 To Len(sStringa)
            If Mid$(sStringa, i, 1) <> "." Then sNewString = sNewString &
Mid$(sStringa, i, 1)
        Next i
        FNsRemovePoint = sNewString
End Function
In VB6 esiste la funzione REPLACE .......
Ciao
Ven.


oppure con altri parametri del comando format, dovrebbe essere sufficente
io userei il comando replace
st2 = replace (st1, ".", "")
funziona sicuramente.
CIao, Claudio.

funziona sicuramente.
con VB6... con VB5 devi fare manualmente....
Un'idea potrebbe essere una funzione tipo questa:
Function Sostituisci(stringa As String, originale As String, nuova As String)
 
    Dim pos As Integer
    Dim prima As String, ultima As String
    pos = InStr(1, stringa, originale)
    If pos > 0 Then
        prima = Left(stringa, pos - 1)
        ultima = Right(stringa, Len(prima) + Len(originale) - 2)
        Sostituisci = prima & nuova & ultima
    Else
        Sostituisci = stringa
    End If
 
End Function
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Arrotondamento, mi correggo

In effetti il mio problema è questo, ho convertito due valori sommati
da un recordset in questo modo:
totimpon = Format(totimpon + CDbl(rsU!colimponibile.value), "###0.00")
totimpos = Format(totimpos + CDbl(rsU!colimposta.value), "###0.00")
Come posso sommare totimpon e totimpos? Se faccio:
totaledoc=totimpon+totimpos mi accoda le stringhe.
Come faccio?

 totaledoc=totimpon+totimpos
Yachi ... sei qui da un bel po di tempo ... e questo quasi non te la passo
^_^
se col "+" si concatenano vuol dire che non stai sommando numeri ma stai
concatenando ________ ?
Quindi devi trasformare ________ in ________ e poi sommarli !
Oppure devi tipizzare le variabili lasciando a vb le conversioni implicite
( :-/ )
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 faccia la concatenazione
magari anche evitare il variant e distinguere tipizzando
totimp, per il valore, da stotimp, per la stringa formattata, se necessaria,
aiuterebbe...

 E chi ha parlato di variant?
yachi:
totimpon = Format(totimpon + CDbl(rsU!colimponibile.value), "###0.00")
quel totimpon usato all'interno come numerico e all'esterno come stringa...
un modo quasi certo di chiamarsi addosso casini.
ciao


 ciao
pensa che neanche avevo guardato le due somme prima, mi ero concentrato solo
sulla domanda finale (quindi la concatenazione)
e comunque avresti dovuto rispondere al post di yachi e non al mio, cosě
avrei capito! :))
ciaociao

Newsgroup: it.comp.lang.visual-basic
Titolo: TabControl nascondere pannello

Ciao,
mi tocca chiedere nuovamente aiuto...
ho un TabControl con 4 pannelli, e vorrei che uno di questi non fosse visibile.
le ho provate tutte, da Visible = False a Hide ma lo vedo sempre.
con Add e Remove lo mette o lo toglie io voglio solo nasconderlo!
 
Dim Level1 As String = My.Settings.frmLoginLivelloUtente
 
        Select Case Level1
 
            Case 1  'Amministratore
               Me.TabControlDati.TabPages.Item(3).Show
 
            Case 2  'Utenti 
               Me.TabControlDati.TabPages.Item(3).Hide
        End Select
 
qualche idea?
grazie
Marco

 con Add e Remove lo mette o lo toglie io voglio solo nasconderlo! 
 
Funzionalmente, è la stessa cosa... aggiungere/togliere una pagina dalla collection dei pannelli non la distrugge, nè perde lo stato e i valori dei vari controlli contenuti nella pagina stessa, per cui alternare tra visibile/invisibile diventa semplicemente 
 
    If TabControl1.TabPages.Contains(TabPage2) Then
      TabControl1.TabPages.Remove(TabPage2)
    Else
      TabControl1.TabPages.Add(TabPage2)
    End If
Newsgroup: it.comp.lang.visual-basic
Titolo: Esiste una funzione.....

Ciao,
prima di tutto grazie a quelli che hanno risposto alla mia precedente
domanda ma, aimè, le vostre risposte non mi sono servite a molto, mi spiego:
Sto realizzando un'applicazione che deve accodare n file in uno solo, senza
lanciare ne shell ne programmi esterni e deve essere il più veolce possibile
con il minor numero di accessi al disco (quindi niente copy file1 + file2 e
niente Line Input......Print).
Se qualcuno ha qualche idea, o conosce funzioni, anche oggetti o dll di
terze parti, che fanno una cosa del genere, vi prego di rispondermi o quì o
tramite mail.
Grazie ancora a tutti
Ciao
Cristiano

niente Line Input......Print).
l'unico modo è aprire ciascun file in binario, prendere "n" caratteri alla
volta
ed accodarli ad un file di destinazione...
prova con il classico OPEN
Micio

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

Qualcuno mi sa dire perchè quando mi collego tramite DDE a un foglio di
excel e importo dei dati numerici in una TextBox mi importa anche due
simboli che sembrano due "pipe"?
Es. invece di 900 mi importa nella TextBox 900||
Grazie anticipatamente a chiunque mi risponderà!
Saluti a tutto il newsgroup.
Alessia

 wrote in message
news:9jjsnd$qh9$1...@fe1.cs.interbusiness.it...


 Es. invece di 900 mi importa nella TextBox 900||
Tiro a sensazione, ma 99 su 100 sono i caratteri di ritorno a capo (CR+LF),
prova a impostare il TextBox come Multiline e guarda se compaiono ancora; se
scompaiono erano proprio loro e puoi decidere tu come filtrarli...
Ciao
--
Luca Dormio
luca....@tin.it

 ha scritto nel messaggio
news:9jjsnd$qh9$1...@fe1.cs.interbusiness.it...

Sui caratteri ti hanno già risposto, io vorrei chiederti perchè usi il DDE,
tecnologia vecchia, instabile e non più supportata quando potresi fare:
dim pippo as excel.application
set pippo = new excel.application
pippo.open "tuo file"
pippo.worksheets("tuo foglio").select
miatextbox= pippo.activeworksheet.cells("tua cella")
ecc. ecc.
Risparmieresti righe di codice, problemi, e guadagneresti in affidabilità e
molte altre cose.
Per non dire che potresti fare molte più cose rispetto al DDE.
my five cents...
ciao
Alfonso
Newsgroup: it.comp.lang.visual-basic
Titolo: secondo problema Midi

é difficile tanto far suonare un midi o un wave all'apertura di un form ?
( il file musicale dura 1,32secs ..:)
Ho cercato su google ma non ho trovato una ceppa ..
Esistono ocx decenti che funzino ?
Se esiste un modo vi dispiace dirmi come potrei fare ?
Grazie
:)
I love you a lot
( akuma 'mbriako... )

 Se esiste un modo vi dispiace dirmi come potrei fare ?
Assurdo, le 4 del mattino, ... no9n ho trovato davvero nulla..
di esempi ce ne sono.. ma vedo che sono tutti al di fuori delle mie capacità
..
cazzo, ragazzi mi serve saperlo ... in qualunque modo ...
davvero, se vi fanno male le dita a scrivere magari vi chiamo a casa ..:)
plz .:)
Ho bisogno di far partire un midi che sta nella stessa cartella
dell'eseguibile
il midi si chiama xxx.mid e dura 1,32 minuti ...
Se partisse in form.load sarebbe bellissimo
tuttavia va benissimo anche al click di un bottono,
on mouse over,
on double click
on rutto detected
on bestemmia recorded ...
insomma basta che funzioni !
(San U.Mangini me lo fa il miracolo ? :D eheheh )
Firmato
un' [Akuma] disperato e insonnolito

 wrote in message
news:9eschp$qst$1...@diesel.cu.mi.it...


 wrote in message
news:9es8bo$p5u$1...@diesel.cu.mi.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: listview con bug (windows common controls 6.0 SP4)

Allineo una colonna a destra, imposto l'icona nell'intestazione e
l'allineamento torna a sinistra anche se la proprietà relativa di fatto non
è cambiata.
Allora forzo un aggiornamento impostando l'allineamento a sinistra e poi di
nuovo a destra.
Sapete cosa succede?
Sparisce l'icona nell'intestazione. Logico no?
Chissà se è capitato anche a voi e come avete risolto il problema?
Ciao
Giovanni
http://www.cactofilia.com


è capitato anche a me, decisamente fastidioso... se qualcuno ha una
soluzione al problema è una gran cosa  :)
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con query

Ciao a tutti.
In access ho realizzato una query di questo tipo:
SELECT Mid([CODCOMM],4,1) AS [Service Line], Sum(Fatturato.IMPORTO) AS
SommaDiIMPORTO
FROM Fatturato
WHERE (((Year([DATA]))=[?]))
GROUP BY Mid([CODCOMM],4,1)
Questa serve a sommare gli importi del fatturato raggruppandoli per
ServiceLine e in base all'anno di fatturazione.
   Service Line   |  SommaDiIMPORTO
      0                 |  229335
      1                 |  101750
      2                 |  168080
Vorrei però realizzare una query che mi restituisca una tabella con le somme
degli importi per service line di 2 anni (impostati come parametri).
Faccio un esempio:
Mettiamo che la query precedente con il parametro anno 2001 dia i seguenti
risultati:
   Service Line    |  SommaDiIMPORTO
      0                  |  125000
                          |
      2                  |  130000
e con il parametro anno 2002:
   Service Line   |  SommaDiIMPORTO
      0                 |  229335
      1                 |  101750
      2                 |  168080
Vorrei una query unica che mi visualizzi sia i dati del primo parametro che
del secondo:
Service Line   | SommadiIMPORTO1  |  SommadiIMPORTO2 |   Differenza
0                    |            125000             |               229335
|    104335
1                    |                                     |
101750           |    101750
2                    |           130000              |              168080
|     38080
Come potrei fare?
Vi ringrazio
Ciao

 parametri).
Alla brutta, io farei cosě: due query, ciascuna per ogni anno che ti interessa,
poi una query che effettua il join tera le due precedenti legandole con il campo
service line e l'inserimento di un campo calcolato
Salutoni
Sergio
--
Salutoni
Sergio

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi con XArrayDB

Ho copiato da un progretto un progetto una form in cui viene utilizzato
XArrayDB se apro il progetto da cui ho copiato la form tutto funziona
mentre se apro quello l'ho inserita non mi riconosce il tipo XArray ho
controllato i componenti utilizzati ed č tutto uguale nei due progetti
Grazie a tutti coloro che vorranno rispondermi
Andrea
--------------------------------
Inviato via 
http://usenet.iol.it

 Grazie a tutti coloro che vorranno rispondermi
Hai copiato anche le definizioni dei tipi utente e la classi impiegate???
ciao
ugo

devi dichiarare i riferimenti, presumibilmente...
Ciao, Luciano.
Newsgroup: it.comp.lang.visual-basic
Titolo: Come usare Fax come stampante ?

Ciao a tutti.
Ho un problema che mi assilla da diversi giorni.
Come faccio ad usare un Fax come una stampante, e quindi inviarci un
documento.
Se è possibile mi fate un esempio !!
Grazie.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Errore 401 ... Impossibile visualizzare form non a scelta obbligatoria

La mia applicazione genera il seguente errore...
Impossibile visualizzare form non a scelta obbligatoria se è già
visualizzato un form a scelta obbligatoria (Errore 401)
Non sarebbe nemmeno tanto difficile risolvere il problema se non fosse che
questo errore appare solo se faccio eseguire l'applicazione su un portatile
(con NT 4 + SP 6), mentre questo errore non è generato se la testo sulla
macchina di sviluppo.
Qualcuno ha idea del perchè e di cosa fare per risolvere il problema ?
Grazie anticipatamente


Questo errore si verifica quando es. hai due form e fai:
Form1.Show vbModal
Sub Form1_Activate
    Form2.Show 'Errore: c'è un form modale visualizzato!
End Sub
Controlla se il caso è questo.
Se sì potresti evitarlo con     Form2.Show vbModal
Ciao


Grazie per l'aiuto, perň la cosa che non capisco (come ho scritto nel post
iniziale) č che questo errore si verifica solo sulla macchina dove ho
installato l'applicazione, e non si verifica sul pc di sviluppo.

Se sě potresti evitarlo con     Form2.Show vbModal
ma fare per una form normale Form.Show vbModal cosa comporta? 
perche' si potrebbe sempre usare il vbModal se non fosse diverso il
comportamento tra quando c'e' una form modale e quando non c'e'... no?


Con l'opzione vbModal l'utente è obbligato a chiudere quella finestra per
poter passare alle altre parti del programma. Quando in un programma chiami
Form.Show vbModal, l'esecuzione passa al Form e l'utente è vincolato nelle
operazioni che il Form visualizzato gli consente. Quando poi il Form viene
chiuso il programma riprende l'esecuzione dall'istruzione seguente alla
chiamata Form.Show vbModal

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

Salva a tutti e la prima volta che scrivo e mi servirebbe un buon
tutorial avanzato. Qualcuno sa dove posso reperirlo. Possibilmente in
lingua italiana.
Grazie
Emilio 

lingua italiana.
Come prima cosa, posso consigliarti di fare un salto sul Sito Comune di
questo NG,
Ci sono un sacco di cose interessanti.
http://www.murialdo.it/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 - Cambiare risoluzione.....

Ciao, passo subito al problema.
Ho creato un'applicazione sul mio pc con risoluzione 1024*768.
L'applicazione girerà su pc vecchi, vecchissimi e più nuovi, con,
ovviamente, SO vari. C'è la possibilità di adattare alle varie risoluzioni
supportate i miei form in modo che tutti li vedano nel modo corretto?
Io non saprei da dove cominciare.
Grazie,
Michele
--------------------------------
Inviato via 
http://usenet.libero.it

Ho avuto lo stesso problema a suo tempo , e la soluzione migliore
è quella di Farsi un form640, un form 1024, un form blablblla-....
Con le varie risoluzioni e i vari output
Poi, tramite una routine in form1_load leggi la risoluzione utilizzata
e loadi i form di coneguenza.
Un lavoro un po' meccanico , ma quando avrai finito, avrai il miglior
risultato possibile
e error free :)
AKUMA

Newsgroup: it.comp.lang.visual-basic
Titolo: Evento Unload per MDIform e Childforms

Buona sera a tutti.
Ho un problema che vi propongo. Uso VB5 e sono solo un appassionato novizio.
Nel mio progetto ho un MDIform e diversi Childforms.
Vorrei controllare l'evento unload del MDIform e ho inserito questo codice
Private Sub MDIForm_Unload(Cancel As Integer)
    If MsgBox("Uscire?", 20) = vbNo Then
        Cancel = 1
    End If
End Sub
La cosa funziona, nel senso che il MDIform non si chiude se clicco su "NO",
ma mi si chiudono tutti i Childforms!!
Domanda:
Come posso inpedire che mi si chiudano i form secondari della mia
applicazione?
Grazie e Ciao!
*frankyz

 applicazione?
L'evento _Unload viene generato nel momento in cui l'oggetto MDIform
deve essere distrutto. Gli oggetti figli devono quindi essere già morti :)
Se inserisci lo stesso codice nell'evento _QueryUnload, i figli
restano in vita e hai l'opportunità di evitare un strage cliccando "No".

 ha scritto

o fuggendo in egitto :)

Un Grazie a Pal (onnipresente) e Jimi!
*frankyz

 Un Grazie a Pal (onnipresente) e Jimi!
hai optato per la fuga in egitto ?
mi sembrava piu' praticabile la jimi's way...
:)

 wrote in message
news:8v6vm7$3jbck$1...@ID-51318.news.dfncis.de...

Per ora sono in ufficio, ma la cosa mi alletta un po'.
*frankyz

 applicazione?
Hai provato a usare l' evento QueryUnload, invece ?
Ciao
Aldo
Newsgroup: it.comp.lang.visual-basic
Titolo: Icona sul Desktop

Salve a tutti
Vorrei mettere un'icona sul desktop dopo aver installato una procedura.
Finora sono riuscito a posizionarla nella barra dei comandi, ma per quanto
riguarda il desktop....ciccia.
Ho sfogliato e risfogliato API-Guide, ma senza trovare (almeno io) nulla.
Se avete qualche idea o link vi sarei molto grato.
grazie, maurizio

 Se avete qualche idea o link vi sarei molto grato.
ESP0INST ti dice nulla? <eg>


UUUHHHHMMMM!
Very good.
Tu lo sai che ho dovuto imparare 3 linguaggi in uno per programmare in VB,
vero????
I primi due sono ***facili***, ma il terzo č come la fede.
O ce l'hai o non ce l'hai.  ;-)
Io ho guardato ESP0INMF e lě non c'č nulla di tutto ciň.
Ora guardo anche l'altra se ce l'ho in .VBP
Domani vado a sciare. Vieni con me?

 Domani vado a sciare. Vieni con me?
Domani vorrei scopare.
Vattene a sciare (e non far squillare il telefono che mi si smolla come un
formaggino). :-P
PS: Ora saremo accusati di uso privato di mezzi d'ufficio... Fanculo, č
venerdě.

 formaggino). :-P
E CHE CA##O, LUPO ! >:-|
Ancora non impari... ?
...a staccarlo o spegnerlo, quel cacchio di telefono ? :-))))))))
Un Paperino e i fondamentali.

[*Paperino* = 
gaet...@hotmail.com
 in
news:btmitj$8tdar$
1...@ID-108681.news.uni-berlin.de
] ha scritto:

No, no, che vale è la prima che hai detto... :-(
La prima, ho detto la prima.

 No, no, che vale è la prima che hai detto... :-(
beh, alla tua età, bisognerebbe sopperire con la tecnica e l'esperienza
laddove la natura ormai latita...
segui i consigli paperottici.
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 l'esperienza laddove la natura ormai latita...
Magari mettere la vibrazione, così non dà fastidio e, in mancanza di
esperienza e tecnica, uno stimolino può anche aiutare :-P
Ciao, SK
--
La pasienzia non è mai troppo (Totò)
<><><>
Esistono 10 tipi di persone: chi conosce il binario e chi no

 segui i consigli paperottici.
Maddai, dici che se spengo il telefono funziona? Sarà 'na roba di onde
elettromagnetiche? :-P

 elettromagnetiche? :-P
si sa mai, con queste diavolerie moderne.


 non me lo avevi mai detto... prenderň provvedimenti.
'stard!!! ;-)

URCA! Che casino per un post.
Io volevo solo mettere un'icona sul Desktop e non su Novella 2000.
NON temere, non telefonerò MAI più!
Mandami una cartolina a COSE FATTE!
E VOI, brutti e cattivi .......... non strapazzategli quel che resta della
coda a quel povero lupo!
Addio.
PS
°|_°|  Dal cucuzzolo °°|_°| della montagna °|°|_°°| con la neve ......