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

Nel mio programmino avviene la creazione di un file random
Come posso fare in modo che il file venga installato nella cartella nella
quale risiede l'exe?
per il momento ho
OPEN "c:\mioProg\file.dat" FOR RANDOM #1
Ma se sposto il programma in un altra cartella? Come gli indico che la
creazione del file deve avvenire in una directory nuova?
So che potrebbe esere banale, ma non sono un esperto
grazie, carloV

 OPEN "c:\mioProg\file.dat" FOR RANDOM #1
Non so se fa al caso tuo ma io userei la funzione App.Path che restituisce
il percorso che porta alla posizione dove è stato lanciato l'eseguibile.
Davide

 > OPEN "c:\mioProg\file.dat" FOR RANDOM #1
Puoi farlo anche con una classe...eccola qua...fa anche qualcosa in
piu'....ma c'è anche quello che ti serve...
Ciao
Alex
Option Explicit
Private m_db As String 'nome archivio mdb
Private m_strfolder As String 'directory archivio mdb
Private m_strWbk
Public Property Get db() As String
    db = m_db
End Property
Public Property Get folder() As String
    folder = m_strfolder
End Property
' FUNZIONE DI LETTURA DEL FILE .INI (modulo di classe)
Public Function ReadIniFile() As Boolean
On Error GoTo ReadIniFile_Err
  Dim strFile   As String
  Dim intFile   As Integer
  Dim strBuffer As String
  With App
    strFile = .Path & "\" & CStr(.EXEName) & ".txt" 'legge il file INI e
ricava il path
  End With
  intFile = FreeFile(0)
  Open (strFile) For Input As #intFile
  Line Input #intFile, strBuffer
  Line Input #intFile, strBuffer
  m_db = Mid$(strBuffer, Len("Db=") + 1) 'percorso della cartella
  Line Input #intFile, strBuffer
  m_strfolder = Mid$(strBuffer, Len("Folder=") + 1) ' nome del database
  Close #intFile
  ReadIniFile = True 'restituisce vero, la lettura è ok
  Exit Function
ReadIniFile_Err:
End Function


devi solo aprire il file cosě:
OPEN app.path+"\file.dat" FOR RANDOM #1

 ha scritto nel messaggio
news:rVG38.2526$vh.9...@twister1.libero.it...


Per creare il mio file nella cartella contenente l'exe ho usato:
Private Sub Form_Load()
    'Creazione file
    Dim stPath As String
    stPath = App.Path & "\mioFile.dat"
    Open stPath For Random As #1
End Sub
Funziona, ma volevo sapere se, siccome mi sembra un metodo un po rozzo, se
c'era qualche cosa di meglio
grazie Carlo

 c'era qualche cosa di meglio
Rozzo?
A me non sembra rozzo, penso che sia il sistema utilizzato dal 90% dei
programmatori.
Davide

 wrote in message
IXY38.797$761....@twister1.libero.it...


CarloV ha scritto:

Il tuo codice, leggermente modificato per tener conto
degli imprevisti:
Private nFile As Integer
Private Sub Form_Load()
	'Creazione file
	Dim stPath As String
	stPath = App.Path & "\mioFile.dat"
	nFile = FreeFile()
	On Local Error Resume Next
	Open stPath For Random As #nFile
	If (Err.Number) Then
		MsgBox Err.Description
		nFile = 0
	End If
	On Error Goto 0
End Sub
-- 
hth, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: differenze vb & emvb

ciao,sto iniziando a sviluppare con Embedded Visual Basic 3.
Ho notato che ci sono piccole differenze di codice con il Vb 6.....
Ad esempio,mi è stato suggerito di non utilizzare n form nel mio
progetto,bensì di creare una "mega" form iniziale con tanti frame,uno per
ogni maschera,per poi renderlo attivo e visibile solo al momento del
richiamo.
Cio' perchè il caricamento delle form....non va.......
Comandi tipo Screen.MousePointer=vbDefault.....non sono rionosciuti.....
Ma addirittura?????? .-(
Utilizzo il sito 
www.debuzz.com
 ke è molto utile nei momenti di paniko e
anke il ng, ma qualcuno sa se esiste della documentazione sulle sostanziali
differenze?
Grazie
Beba

 differenze?
Io ho rinunciato, anche perchè mi sono accorto che tra eseguibile e database
vuoto riempivo tutta la Ram del palmare....
Newsgroup: it.comp.lang.visual-basic
Titolo: RichTextBox

Ciao a tutti!
Ho bisogno di creare una richtextbox con scritte di vari colori, font e
dimensioni una di seguito all'altra come si puņ ad esempio fare su word ma
ho trovato problemi con le proprietą selstart,sellength,selfontname, ecc di
visual basic. Mi sono creato una funzione che allego qui sotto per scrivere
un testo dentro la RichTextBox con qualche personalizzazione ma il risultato
č che fa casino con colori e font e tutto ciņ non ha tanto senso. Deve
esserci un motivo... mi date qualche consiglio? Grazie!
Ciao!
Alessio
Sub AggiungiScritta(Testo As String, Colore As Long, Dimensione As Integer,
Bold As Byte, Italic As Byte, Font As String)
    RTB.Text = RTB.Text & Testo
    NumCar = Len(Testo)
    PosStart = Len(RTB.Text) - NumCar
    RTB.SelStart = PosStart
    RTB.SelLength = NumCar
    RTB.SelFontName = Font
    RTB.SelFontSize = Dimensione
    If Bold = 1 Then RTB.SelBold = True Else RTB.SelBold = False
    RTB.SelColor = Colore
    RTB.SelAlignment = rtfLeft
    If Italic = 1 Then RTB.SelItalic = True Else RTB.SelItalic = False
    'posizione cursore alla fine del testo, azzera selezione
    RTB.SelStart = Len(RTB.Text)
    RTB.SetFocus
End Sub

 casino con colori e font e tutto ciò non ha tanto senso
(snip)
scusa la domanda, hai provato a fare una cosa del tipo:
 Sub AggiungiScritta(Testo As String, Colore As Long, Dimensione As
 Integer, Bold As Byte, Italic As Byte, Font As String)
     rtb.selpos = len(rtb.text)
     RTB.SelStart = PosStart
     RTB.SelLength = NumCar
     RTB.SelFontName = Font
     RTB.SelFontSize = Dimensione
     If Bold = 1 Then RTB.SelBold = True Else RTB.SelBold = False
     RTB.SelColor = Colore
     RTB.SelAlignment = rtfLeft
     If Italic = 1 Then RTB.SelItalic = True Else RTB.SelItalic = False
     rtb.seltext = testo
     'posizione cursore alla fine del testo, azzera selezione
     RTB.SelStart = Len(RTB.Text)
     RTB.SetFocus
 End Sub
se sì, qual è il risultato?
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

     PosStart = Len(RTB.Text) - NumCar
Prova a sostituire le precedenti con:
    RTB.SelStart = Len(RTB.Text)
    RTB.SelText = Testo


Ora funziona perfettamente grazie!!
Evidentemente mi devo studiare meglio le proprietą SelLength, SelStart,
SelText .. ma non ho ancora capito perchč non funziona la mia versione
comunque.
Ciao!
Alessio

Si ho provato ma la proprietą SelPos non esiste su VB6 e forse volevi
scrivere SelStart come nella versione inviata da Lupo...cmq grazie!
Ciao!
Alessio

 mia versione comunque.
Perchè assegnare al RTB la sua proprietà Text (e non TextRTF) equivaleva a
perderne tutta la formattazione, tipica della sintassi RTF...

Newsgroup: it.comp.lang.visual-basic
Titolo: Netstate e Tracert?

E' possibile in VB avere accesso alle funzioni NetStat e Trace di Dos?
grazie anticipatamente
pica...@labnet.it

...

Newsgroup: it.comp.lang.visual-basic
Titolo: word.application

è possibile utilizzare word.application da una pagina asp?
Grazie
Ciao

č possibile utilizzare word.application da una pagina asp?
Teoricamente si', praticamente no perche' Microsoft stessa
sconsiglia di usare Office nel codice server-side per vari
motivi, fra cui la elevata interattivita' della suite con
il desktop.
Cerca su MSDN
INFO: Considerations for Server-Side Automation of Office
PSS ID Number: Q257757
Article Last Modified on 07-10-2002
da cui cito:
Microsoft does not currently recommend, and does not support,
Automation of Microsoft Office applications from any unattended,
non-interactive client application or component (including ASP, DCOM,
and NT Services), because Office may exhibit unstable behavior and/or
deadlock when run in this environment.
-- 
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: query ado.open su mysql sintassi sbagliata ?

Sto usando vb 6 ado codice e odbc 3.51 con mysql 4.0.13 è possibile che una
query di questo tipo non restituisca nessun record nonostante ve ne siano 6
?
select * from utenti
direi proprio di no ma allora che faccio dato che usando l'adodatacontrol
invece mi restituisce tutti i record ?
ma è necessario impostare qualcosa di particolare nella connection ado e
nell'impostazione del recordset tipo
adocon.open "DSN=mysql","login","password"
adorec.locktype = adlockoptimistic
adorec.cursortype = adopendynamic (l'ho abilitato dal myodbc) ?

Perdonatemi ho appena avuto l'idea di non utilizzare il recordcount per il
conteggio dei record infatti mi restituisce sempre -1 (perchè boh ?) ma in
effetti la select funziona e restituisce tutti i record scusate ancora


 effetti la select funziona e restituisce tutti i record scusate ancora
Caratteristica del Dynamic.
Usa adOpenStatic. Vivrai più tranquillo.

 Usa adOpenStatic. Vivrai più tranquillo.
Caratteristica del cursore imho... se lato server il recordcount per ovvie
ragioni non può essere noto al provider!


Vero il cursore è lato server anche se ormai ho ovviato registrando una
variabile contatore e ciclando il record provo lato client cmq
Grazie
Dani
Newsgroup: it.comp.lang.visual-basic
Titolo: Perchè non funziona?

Salve a tutti,
date un'occhiata al seguente codice:
Dim RispostaSetCurrentDirectory, RispostaCreateFile, RispostaWriteFile,
RispostaReadFile, RispostaDeleteFile, NumeroByte As Long
Dim StringaIn, StringaOut As String
Dim SA As SECURITY_ATTRIBUTES
With SA
    .nLength = Len(SA)
    .lpSecurityDescriptor = 0
    .bInheritHandle = False
End With
StringaIn = "Prova di scrittura."
RispostaSetCurrentDirectory = SetCurrentDirectory("g:\")
RispostaCreateFile = CreateFile("prova.mio", GENERIC_WRITE, 0, SA,
CREATE_ALWAYS, FILE_ATTRIBUTE_ARCHIVE, 0)
RispostaWriteFile = WriteFile(RispostaCreateFile, StringaIn, Len(StringaIn),
NumeroByte, 0)
RispostaReadFile = ReadFile(RispostaCreateFile, StringaOut, Len(StringaIn),
0, 0)
If StringaIn <> StringaOut Then
    MsgBox ("Schifezza")
End If
CloseHandle (Handle)
RispostaDeleteFile = DeleteFile("prova.mio")
E' molto semplice... ma allora perchè l'operazione di WriteFile mi genera un
file di quasi 2Mb e quella di lettura non ne vuole sapere di funzionare???
In pratica questa routine deve scrivere e leggere un piccolo file in una
serie di directory per vedere se sono accessibili... ma NON funziona!
Dimenticavo: le intestazioni delle API sono quelle trovate con il
Visualizzatore Testo API di VB4 con l'unica eccezione che, come riporta
Appleman nel suo libro, la WriteFile e la ReadFile hanno come ultimo
paramentro un long e non il tipo OVERLAPPED.
Grazie anticipatamente...
Bye Attilio.

 RispostaReadFile, RispostaDeleteFile, NumeroByte As Long
Magari e` semplicemente un problema di dichiarazione.
In questo caso, sono tutti variant eccetto l'ultimo che e` un long.
--
Bye. __Andy__
AntiSpam: Remove gongolo from E-Mail address

Prova a dichiarare le variabili in questo modo:
Dim RispostaSetCurrentDirectory as long, RispostaCreateFile as long,
RispostaWriteFile as long,
RispostaReadFile as long, RispostaDeleteFile as long, NumeroByte As Long
+AD4-Dim RispostaSetCurrentDirectory, RispostaCreateFile, RispostaWriteFile,
+AD4-RispostaReadFile, RispostaDeleteFile, NumeroByte As Long
+AD4-Dim StringaIn, StringaOut As String
Newsgroup: it.comp.lang.visual-basic
Titolo: Realizzare un editor

Ciao,
vorrei fare un programma x realizzare siti, stile frontpage, il
problema stà nel realizzare la finestra dove inserire gli elementi che
nell'editor sono grafici, tipo la visualizzazione delle tabelle, i
contorni x la form ecc.ecc.
Programmo da poco in vb, la soluzione che penso è questa :
Realizzo una picture e dentro tramite le api della gdi inserisco gli
oggetti grafici, con la possibilità di spostarli con il mouse (semplice
a parole.... non so come si fà :((( ), questo x disegnare tabelle,
inserire immagini ecc.ecc. x la visualizzazione poi genero un html e lo
passo ad un browser.
Che ne pensate di questa soluzione ?  (fa cagare ??)
c'è una soluzione migliore ?
Ciao e grazie
Joy
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 a parole.... non so come si fà :((( ), questo x disegnare tabelle,
se fai come ho detto è molto facile
ciao
xAERO

,

Ciao, grazie del consiglio,
in effetti così diventerebbe molto più facile gestire tutto, ma le
picture supportano la trasparenza ?

Newsgroup: it.comp.lang.visual-basic
Titolo: datagrid per form

ciao a tutti
ho fatto qualcosa in asp e mi è piaciuto molto il datagrid, veramente
molto potente. Lavorando con form invece,
anche se ha lo stesso nome, il datagrid non ha nessuna
delle funzionalità dell'ambiente web. A me interessava
in particolare l'inserimento di link all'interno delle
celle o la possibilità di generare un evento al click di
una cella. Sapete se si può fare?
un saluto
nervo

ovviamente mi riferivo al datagrid di un winform
un saluto
nervo

 ovviamente mi riferivo al datagrid di un winform
Esempio,
utilizando l'evento CurrentCellChanged,
nella griglia DG1, rilevo il valore delle rispettive colonne della riga dove 
ho eseguito il clic
Private Sub DG1_CurrentCellChanged(ByVal sender As Object, ByVal e As 
System.EventArgs) Handles DG1.CurrentCellChanged
        Dim r As Int32 = DG1.CurrentCell.RowNumber
        MessageBox.Show(DG1(r, 0) & " / " & DG1(r, 1))
    End Sub
Ave
giuseppeD
---
CCR 

 CCR
Grazie 1000

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi gestione file! [principiante]

Salve a tutti,
avrei un problema nella gestione di un file, dopo aver eseguito le
operazioni di scrittura (andate perfettamente), una volta riavviato il
programma, al posto di aggiungere recordo nelle nuove fasi di scrittura, il
programma cancella i record esistenti e sovrascrive il tutto.
Come posso fare per non far sovrascrivere il file ma aggiungere ogni volta
nuovi record a quelli preesistenti?
grazie per le risposte
ToM_

 ha scritto nel messaggio
news:8p5fms$333$1...@pegasus.tiscalinet.it...

se, per aprire il file, hai usato l'istruzione
Open "file" For Output as #2
dovresti usare invece
Open "file" For Append as #2
ciao
Enrico
Newsgroup: it.comp.lang.visual-basic
Titolo: vb6 o vb.net per newbie?

Salve,
so programmare in c e c++
per imparare visual basic mi consigliate vb6 o 
vb.net
 ?
la express di 
vb.net
 è adatta allo scopo apprendimento?
che guide/tutorial mi consigliate?
Grazie
saluti
andrea

so programmare in c e c++
per imparare visual basic mi consigliate vb6 o 
vb.net
 ?
*****************************************
Perchč vb con le tue conoscenze?
Meglio C#
la express di 
vb.net
 č adatta allo scopo apprendimento?
*****************************************
C# Express 2005 o 2008
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
 

 che guide/tutorial mi consigliate?
In rete trovi moltissime guide, ma io ti consiglio di comperarti un bel 
libro cartaceo.
Magari aspetta che escano le edizioni aggiornate al nuovo VB 2008.
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL

 per imparare visual basic mi consigliate vb6 o 
vb.net
 ?
sicuramente .NET,
ma come ti ha già detto Andrea, perchè VB?
Con il tuo background è sicuramente più logico il C#,
se non altro perchè almeno non devi neanche star lì a imparare una nuova 
sintassi.
Ancora meglio ... proprio volendo ottimizzare, potresti passare a C++ 
.NET, anche questa in versione express quindi gratuita.
 > la express di 
vb.net
 è adatta allo scopo apprendimento?
eccome, oltretutto potrai anche usarlo per scopi commerciali.
ciao
stefano

 .NET, anche questa in versione express quindi gratuita.
Ma come è messo C++/CLI in salute? Mi sa che la versione 2008 dell'IDE, 
almeno nell'incarnazione Express, non ha neppure il designer WPF. Vabbè 
che per quello che serve...
Io punterei senz'altro su C#, anche solo per la mole di documentazione 
ed esempi che è possibile reperire.
Ma, visto che chiedeva esplicitamente di VB, ho supposto che avesse le 
sue ragioni :-)



Andrea?
Ehi amico, vuoi provocarmi disturbi psichici... 8-)


 Ehi amico, vuoi provocarmi disturbi psichici... 8-)
ehm, mi sa che i problemi psichici ce li ho io ... e pure belli grossi.
:-)
chiedo venia.
ciao
stefano

 ed esempi che è possibile reperire.
ah su questo concordo perfettamente.
Che io sappia però, ma prendi col pinze l'info, in c++ puoi scegliere se 
usare managed/code oppure no.
Non so se questo si possa fare anche con gli altri linguaggi.
ciao
stefano


;-)


 Non so se questo si possa fare anche con gli altri linguaggi.
No, non si puň fare. Attualmente per Microsoft solo C++ puň compilare 
codice nativo.

Newsgroup: it.comp.lang.visual-basic
Titolo: Per inviare immagini o file multimediali con winsock

Chiedo alcuni suggerimenti per inviare immagini o altri file multimediali
con il controllo Winsock di VB5 in applicazione Client/Server:
-dal momento che non mi sembra di aver visto esempi espliciti a riguardo
sulla documentazione, ho pensato che un metodo per inviare un file (ad
esempio un'immagine jpg) da un server ad un client sia forse quello di
inviare il contenuto del file(come se fosse un file di testo) e ricostruirlo
dall'altra parte scrivendo quindi i byte ricevuti in un file.
Secondo voi, si rende la cosa + complicata di quello che in realtà è?
esistono dei metodi + veloci o tali da ottimizzare il tutto?
eventualmente dove potrei trovare della documentazione sulla rete utile a
riguardo?
Grazie anticipatamente!

...

Dai un'occhiata all'esempio HTTP.ZIP presente sul Sito Comune
http://www.murialdo.it/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://www.maronese.com/mes
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

 Secondo voi, si rende la cosa + complicata di quello che in realtà
è?
No. Così è, anche se in realtà si spedisce in formato binario, non 
testo.
---
News2000 1.0b Beta tester version 
http://socket2000.8m.com
Newsgroup: it.comp.lang.visual-basic
Titolo: ?Cancellare database

  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Carico.mdb;"
  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "Select * From bolle order by data", db, adOpenStatic,
adLockBatchOptimistic
E' possibile cancellare tutti i record del database connesso con un solo
comando, senza dover scorrere recor per record e cancellare?
grazie a coloro che avranno tempo e pazienza da dedicarmi
Un saluto Paolo Testi

 comando, senza dover scorrere recor per record e cancellare?
Forse dirņ una cavolata, ma un comando Sql del tipo Delete From Tabella o
Truncate Table, non va bene?
Ciao
Alberto


Fatti un adodb.Command
(se non sai non chiedere... premi F1 e guarda l'oggetto command)
 ed esegui
DELETE * FROM bolle
ti spariscono le bolle ...meglio che col Clerasil!!!
bye man!

Se le bolle sono procurate da zanzare... va bene molto bene il Polaramin
;o))
LOL da solo :o))))
--
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
Fondatore di free.it.comp.lang.csharp
E' iniziato il corso di C# !

 
Come mai questa _insicurezza_? :-)
ciao
		maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!

 Come mai questa _insicurezza_? :-)
Perchè il codice postato da Paolo non è male (ci sono un paio di cavolate
che non mi piacciono, ma più di tanto non entro nel merito), per cui mi
sembra che non sia del tutto un newbie di Ado e di Sql.
E da uno che non sia un newbie, una domanda come quella che ha posto mi
mette sul chi va là: è troppo scontata, e troppo facilmente risolvibile con
qualunque help.
Temevo la classica risposta "Si, questo lo so, ma il mio problema è
che....."
Ciao
Alberto

 senza dover scorrere recor per record e cancellare?
Ancor meno sicuro di Albe (e, di conseguenza, di Massimo), domando:
Volevi davvero scrivere DATABASE o, più plausibilmente, RECORDSET?

Vedo che avete risposto in molti e vi ringrazio.
Per le vostre curiosità:
Sono un dilettante di VB ho fatto qualche programma per uso personale.
Le mie imprecisioni e a volte scorrettezze derivano dal mio passato "sempre
da dilettante" di utilizzatore di db4.
Ancora grazie per la vostra pazienza
Un saluto Paolo Testi


Fa caldo ... ogni occasione e' buona per scherzare (e distrarsi)!


 ti spariscono le bolle ...meglio che col Clerasil!!!
driiin!
"La finanza? Haia! caffè come se piovesse!"
Ciao
--
y = f(
http://neodatatype.interfree.it/index.html
)

 "La finanza? Haia! caffč come se piovesse!"
ma sei pazzo!!!!
mai nominare l'innominabile!!!!
.......
sgrat sgrat! toc fer!cuorne bicuorne....sput sput!
cut
le bolle le deve tenere sul supporto cartaceo no?
ma non so neanche piů se venendo meno il ddt obbligatorio...
...una volta fatta la fatturazione mensile ed aggiornate le statistiche le
puo ( e per me deve seguita da una bella compattazione archivio )
cancellare!...almeno anche io faccio cosě!...
:-)
Newsgroup: it.comp.lang.visual-basic
Titolo: CURIOSITA'

Ciao,
volevo sapere se con VB è possibile creare un exe, senza creare per forza
una maschera.
Grazie

 volevo sapere se con VB è possibile creare un exe, senza creare per forza
una maschera.
Option Explicit
Public Sub Main( _
)
  Call MsgBox( _
      "Siamo mica a carnevale!..." _
    , vbExclamation + vbOKOnly _
    , "Giu` la maschera - v. 0.00.000")
End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

End Sub
Meglio un programma senza maschera che una maschera di sangue nel fare il
programma...
Ciao

 programma...
a volte anche una maschera di ferro a chi scrive certi pseudoprogrammi non
starebbe male...

 starebbe male...
Ergo, tu non hai mai scritto pseudoprogrammi. Beato te, io quasi tutti.

"?" <?@?.?> ha scritto nel messaggio

e chi si escludeva ? temo di averne scritti e di persistere pure... :)
il punto pero' e' il sempre il come...
ps -- nick e email sono in crisi di identita' ? :)

Newsgroup: it.comp.lang.visual-basic
Titolo: DLL Urgente!!!!

Ho un progetto VB nel quale voglio cambiare con facilità la lingua delle
label visualizzate.
Vorrei fare una DLL che contenga una lista di costanti di tipo stringa della
lingua specificata e poi richiamare nel mio progetto tali stringhe.
Potrei fare una DLL per ogni lingua oppure inserire solo in una DLL le
stringhe in tutte le lingue e poi selezionare la lingua giusta da programma.
Il problema è che non so come svilupparlo! Riuscite a darmi un esempio
semplice che dica come sviluppare questa DLL e come utilizzarla nel
progetto?
Vi ringrazio per i vostri suggerimenti.
Marco

 wrote in message
87u6fh$2nb$1...@serv1.iunet.it...


 MG> Ho un progetto VB nel quale voglio cambiare con facilità la lingua delle
 MG> label visualizzate.
Penso che ti convenga dare uno sguardo alla soluzione trovata dalla defunta
Commodore per l'OS dell'Amiga usata efficacemente a partire dalla versione
2.1 in poi. Il sistema si basa su una locale.library ed  un file ad essa
esterno detto catalogo che contiene le stringhe. Ogni applicativo può essere
corredato da più di un catalogo, uno per ogni lingua. A lancio l'applicativo,
attraverso la locale.library, verifica la lingua settata per l'OS dall'utente
e prova ad aprire quel catalogo, nel caso non esista, usata le stringhe di
default (di solito in inglese). Per tradure un applicativo in un'altra lingua
è sufficiente editare il solo catalogo.
Volendo tutto ciò può essere fatto all'interno dell'applicativo senza aver
bisogno di librerie esterne, cosa che però renderebbe possibile riciclare la
tecnica per altri applicazioni.
Se ti servono altre info, continuiamo via e-mail.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: ACCESS -> VISUAL BASIC

Ho un programma di ACCESS da cui si ricava una variabile che contiene un
indirizzo di file, esempio:  PERCORSO = "C:\LISTA\ELENCO\FILE.JPG". Ho un
programma di Visual Basic (richiamato da ACCESS) che deve ricevere questa
variabile per aprire il file. Come faccio a passare la variabile da ACCESS a
Visual Basic????
Ciao e grazie.

> raffaele:

Da come ci racconti la cosa sembra che tutto sia gia` esistente: il
programma in Access e il programma in Visual Basic. Come si fa quindi a
rispondere senza sapere come sono fatti questi due programmi? Ancora: dici
che richiami da Access il programma in Visual Basic. Come?
Se invece la partita e` ancora aperta... se ne puo` parlare con un approccio
diverso, ma penso tu debba fornirci qualche altra informazione. Per esempio,
cosa intendi con "aprire il file" nel caso di un file *.jpg? Aprirlo per
leggere cosa c'e` scritto dentro? Per scriverci? Per visualizzare
l'immagine? E, in questo caso, dove?
Quando parli di "programma di Access" e di "variabile" intendi veramente un
programma e una variabile o, per caso, intendi un database, un campo, il
valore di un campo?... Scusa questo mio dubbio ma e` la formulazione del tuo
quesito che me l'ha fatto venire.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto

se ho capito, e se il vb e' tuo, puoi metterla
-- nel clipboard, se da access si puo' (ma non e' molto sicuro, potrebbe
cambiare)
-- in una tabella
-- in un txt
ciao, a.

 wrote in message
97qh9f$q37i1$1...@ID-52090.news.dfncis.de...


 Grazie di nuovo e BUONA DOMENICA...
Anche a te. :-)


 ha scritto nel messaggio
news:jo5o6.4986$zH1....@news1.tin.it...


 wrote in message
97qsn0$qc1jr$1...@ID-52090.news.dfncis.de...


 wrote in message
97qs2o$ool$1...@pluto.sm.dsi.unimi.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: MS access database

Hi,
i want to make a project with VB 6.0 as frontend and MS Access as the database.
does the user need to have MS Access installed on his computer to use this software.
Can it work if i give him only the database file.
Gaurav Jain

 Gaurav Jain
btw, in this group's name 'it' means 'italian'.
-- 
hth, ciao, j.
http://www.sundaysw.com

 Gaurav Jain
Newsgroup: it.comp.lang.visual-basic
Titolo: Cronometro e scatto.

Salve col computer portatile uso un abbonamento internet a tempo ma il 
programma di gestione non conta come dovrebbe.
L'abbonamento č da 100 ore  ma hai a disposizione 400 scatti  di 15 minuti 
ciascuno.
Se la connessione dura 2 minuti il programma deve contare come se ne avessi 
fatto 15.
Il mio problema č questo.Ho la funzione che si accorge della connessione e 
che fa partire il cronometro.
Adesso nel label1 stanno camminando i minuti io vorrei che ogni 15 minuti 
segnasse un punto sul label2 poi dopo altri 15 minuti segnasse 2  e cosě via 
come se contasse gli scatti . qualcuno ha qualche idea? Grazie :-)) 

 
ma da quello che ho capito la label 2 è semplicemente il modulo della 
label 1. Dicesi modulo il resto della divisione intera.
es: 45 mod 15 = 3
saluti MVB

 ma da quello che ho capito la label 2 č semplicemente il modulo della 


Alis ha scritto:
allora label2 mod 15 +1...
es. 13 mod 15 =0 +1 =1
     28 mod 15 =1 +1 =2
     43 mod 15 = 2 +1 = 2
ecc ecc
saluti MVB

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

Sapete indicarmi un distributore che venda ancora il visual basic 6
enterprise?
purtroppo trovo solo il .net!!!
grazie

 purtroppo trovo solo il .net!!!
Perchè VB6 non è più in commercio da un'annetto.
Devi chiedere in qualche NG se c'è qualcuno che vuole vendere la sua copia.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] SaveSetting

Ciao a tutti!
Sto creando una DLL che dovrebbe salvare alcuni parametri...
Una volta avrei usato SaveSetting e GetSetting, però pare che Microsoft
abbia deviato dall'uso così massiccio del registro ed adesso bisognerebbe
creare dei file .config (che sarebbero poi degli XML).
Leggere il file di configurazione della propria applicazione é relativamente
facile mediante la classe:
System.Configuration.AppSettingsReader
Ma scriverlo????
Io non ho controlli (é una DLL) e quindi niente dynamic properties...
Come faccio?
Dovrei usare System.Xml.XmlDocument?
Non mi sembra che sia altrettanto facile del precedente, qualcuno può darmi
una dritta?
                                    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à!

Non hai molte alternative o ti crei una classe per salvare la
configurazione in XML (credo che in rete esista già qualcosa di pronto)
oppure puoi
sempre utilizzare i famosi files .Ini utilizzando Interop.
HTH
--
Corrado Cavalli
UGIdotNET - 
http://www.ugidotnet.org

 Una volta avrei usato SaveSetting e GetSetting,
Dalla guida di 
VS.NET
Funzione SaveSetting
Consente di salvare o creare una voce relativa all'applicazione nel Registro
di sistema di Windows.
Funzione GetSetting
Viene restituito il valore di un'impostazione di chiave dalla voce del
Registro di sistema di Windows
relativa a un'applicazione.
Non ho provato , ma se la guida riporta il sopra presumo che l'utilizzo è
consentito.
Prova a scrivere SaveSetting e dai un spazio .......
giuseppeD

 ha scritto nel messaggio
news:gJ3k9.139139$ub2.3...@news1.tin.it...


                                                             Allanon
-- 
 __   __  ___   
|  | |  |/ __|  ICQ@Home #7317603sette 
|  |_|  |\__ \  ICQ@Work #16285702tre
|____|__||___/ 

 Ovviamente nessuno ti impedisce di usarle... ;-)
Concordo.
Passiamo al pratico.
Che le applicazioni siano portabili  riguarda il futuro (mia
considerazione).
La soluzione mi necessita adesso.
Rendere 
VB.NET
 indipendente da Windows , riguarda il futuro.
Diverso il discorso del passaggio da VB6 a 
VB.NET
; le modifiche sono
sostanziali; il tempo da dedicare al passaggio è
notevole.
Se il tempo è limitato , scontato il passaggio a 
VB.NET
 , utilizzerei la
"dedicata" , perchè la conosco;
in considerazione che imparare ad utilizzare una nuova funzione , in un
ambiente che conosco , impegnerà poco tempo.
giuseppeD

Mhmhmhmhhmhhhh...
Di questo passo non finirai mai la migrazione...
Io appoggio Corrado Cavalli...
Se sviluppi .NET fallo fino in fondo...

Newsgroup: it.comp.lang.visual-basic
Titolo: Apertura file txt

in vb5 devo:
- aprire un file txt
- leggere un singolo carattere
- controllare se è quello che mi serve
- passare al successivo carattere
- etc.
ehmm ... come faccio ?
Lor.

Open "NomeFile.Txt" For Binary As 1
         For C=1 to Lof(1)
                w$=Input(1,1)
                If w$='quello_che_ti_serve' Then
                    'fai quello che devi fare nel caso c'è il carattere che
ti serve
                End if
         Next C
Close 1
Gianni Moretti

 - etc.
Scrivi etc, poi lo selezioni e premi...  Opps Questo non lo trovi 8-)
8-))))
Naturalmente la risposta di Gianni tič piů utile nell'immediato, ma questa
forse ti fa capire piů cose 8-))
Ciao VB

Valter And Gianni Moretti wrote:
[zac]
...azz, Input !! (non Get)
Vi Bacio ;-)
Lor.



 ha scritto nel messaggio
news:9uRg6.23505$GM6.1...@news.infostrada.it...

Se lo apri in binario va bene anche Get:
stringa = " "
Get #numerofile, i, stringa 'i è l'indice del carattere, in stringa ci
finisce il carattere
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Ma che errore strano! Probs con la chiusura di un form.

Ciao a tutti!
Mi capita una cosa alquanto strana... (e sinistra...)
Ho una mia form che contiene una griglia (al solito la True DB Grid 7.0
Pro).
Ho gestito l'evento KeyPress nella griglia, quindi quando premo Invio faccio
fare una serie di cosucce interessanti. Però, quando finisco di fare le mie
cose interessanti e faccio l'Unload Me Windows mi dice:
------------------------------------
L'istruzione a "0x0719023a" ha fatto riferimento alla memoria a
"0x0000c105". La memoria non poteva essere "written".
Fare click su Ok per terminare l'applicazione
Fare click su annulla per eseguire il debug dell'applicazione
------------------------------------
Ogni tanto invece di "written" mi dice read.
Questo errore me lo dice sia se eseguo il programma da VB che se creo l'exe
e lo lancio.
Se invece di Unload Me gli passo Me.Hide tutto funziona, ma naturalmente il
form resta caricato in memoria...
Allora: in questa mia maschera creo un Oggetto (classe) ed accedo ad un
database (la tabella contiene 15000 record circa) con ADO.
Uso VB 6.0 pro SP 4 con Win2000 pro.
Qualche idea o consiglio alternativo per chiudere la form?

 wrote in message
92hq0l$43ao$1...@stargate1.inet.it...


 Mi capita una cosa alquanto strana... (e sinistra...)...

 wrote in message
news:92hq0l$43ao$1...@stargate1.inet.it...

La tua classe ha un riferimento alla griglia, magari WithEvents, oppure apre
il recordset da passare come datasource alla griglia ?
Ho il sospetto che ci sia qualcosa che non riesce a scaricarsi, hai provato
a mettere dei Debug.Assert False (funzionanti solo nell' ide, ahime') negli
eventi terminate per accertare che il codice passi da li' ?
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Rep. 3.0 32 bit e i campi memo

Ciao, ho un campo memo  (file mdb con creato con Access 97)che viene creato
in Visual Basic tramite una casella RTBox.
Ora quando mando la preview della stampa del report creato con Crystal nel
campo memo oltre al testo vengono stampati anche i caratteri dei controllo
e formazione.
Come si fa a stampare solo il testo digitato ????
Grazie in anticipo a tutti.
Ciao Riccardo

Ok ma la casella di testo,se impostata a multilinea si ferma a 255
caratteri e purtroppo sono pochi.
Ciao Riccardo.
Newsgroup: it.comp.lang.visual-basic
Titolo: float type & IEEE standard

Buonasera a tutti,
ho un problema da risolvere.
Ho un numero single rappresentato da quattro  numeri memorizzati in
altrettante variabili di tipo byte. Le prime tre rappresentano la mantissa e
l'ultima l'esponente. Ad esempio il numero 14,90 è rappresentato dai
seguenti quattro numeri in esadecimale:  66,  66,  6E,  41. Sapete dirmi se
esiste una funzione che trasformi questi quattro numeri in 14,90?
Ringrazio tutti quelli che mi aiuteranno.

 dim numero as string
e' un clamoroso refuso:
dim numero as single
come string provochi solo un crash :-PPP
-- 
ciao, hal

 esiste una funzione che trasformi questi quattro numeri in 14,90?
Copi l'array di byte direttamente nell variabile single:
Dim arr(0 to 3) as byte
dim numero as string
arr(0) = &h66
arr(1) = &h66
arr(2) = &h6e
arr(3) = &h41
copymemory numero, arr(0), len(numero)
---> numero = 14.90
Trovi la dichiarazione di CopyMemory nell' API viewer.
-- 
hth, hal

Grazie per l'aiuto. Funziona

Newsgroup: it.comp.lang.visual-basic
Titolo: [vb6 e word] doppio clic su un pulsante

ho un pulsante che mi apre un file word..lo modifica..e lo salva con un
altro nome...e poi chiude tutti gli oggetti word aperti (ovviamente)
solo che quando clicco la 2° volta il pulsante mi da questo errore
il computer server remoto non esiste o non è disponibile
io uso queste stringhe per aprire il file di word
    Dim objWord As Word.Application
    Set objWord = New Word.Application
    objWord.Visible = False
    Dim objDoc As Word.Document
    Set objDoc = objWord.Documents.Add
    objDoc.Activate
e alla fine chiudo objdoc e objword e li imposto a nothing
qual'è quindi il problema?
grazie

ok
ho risolto togliendo activedocument e usando solo l'oggetto objdoc
Newsgroup: it.comp.lang.visual-basic
Titolo: numeri

Ciao a tutti
Io ho un piccolo problema.
dovrei controllare in un database dei numeri da 1 a 5
senza saltarne uno (esempio 1,2,3,4,5
e non 2,4,1,5,2) ,come posso fare.
confidando in un vostro aiuto vi ringrazzio anticipatamente.
ciao Claudio

 e non 2,4,1,5,2) ,come posso fare.
Penso di non essere l'unico a non aver capito il problema!
MIk


Il problema è che non devo scrivere dei numeri a caso nel
database ma solo progressivi
il fatto è che non sò come controllarli
ciao grazie ancora

 ha scritto nel messaggio
news:bcuji4$n5ubi$1...@ID-165476.news.dfncis.de...


 ciao grazie ancora
Puoi usare una variabile....
che incrementi da codice!
Ho fare una MAX e estarre l'ultimo...
Boh....non ho ancora capito!
MIk

 come controllarli
A proposito di numeri: se serve, ti do il numero di uno
bravo.
Mah!
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

 ha scritto nel messaggio
news:9BAIa.104292$Ny5.3...@twister2.libero.it...


el-modifica ha scritto:

Se devi controllare i numeri in un DB non puoi farci niente: sono già 
scritti!
Se devi scriverci puoi usare il Count(CAMPO) + 1
Se devi recuperare dei buchi... beh, questo non l'hai detto.
Ciao
P.S.: quando ci viene chiesto di essere più chiari, si dovrebbe essere 
più chiari.

 bravo.
Happy ROTFLASTIK ! 

 più chiari.
non ho capito potresti essere piu' chiaro ?
:p

Scusate la mia ignoranza, cercherň di spiegarmi megio.
Io sono in fase di creazione di un programma per gestire
le gare di " MOTO TRIAL", e quando devo segnare i punteggi
per giro devo anche a che giro sono,perchč č facile sbagliarsi,
nel digitare il numero del giro, ed č per questo chč vi ho
chiesto il vostro aiuto.
Spero di essermi spiegato abbastanza bene, nenň non so come
fare per garmi capire
ciao a tutti

 ciao a tutti
No, sul fatto di esserti fatto capire ho molti dubbi, comunque:
Due bottoni che agiscono su una variabile che indica il numero del giro in
corso (n_giro). Il primo la incrementa di 1, il secondo (da usarsi per
"correggere") la decrementa di 1.
Quando il giro viene concluso dal primo che passa, clicchi il primo bottone
e metti i vari punteggi.

Newsgroup: it.comp.lang.visual-basic
Titolo: Ottimizzare Velocità

Ciao a tutti,
ho bisogno di ottimizzare la velocità di un programma scritto in vb2005 
express, in particolare mi servirebbe tantissimo un tool che mi permetta di 
sapere quante volte una procedura viene chiamata e per quanto tempo occupa 
il processo.
Esiste qualcosa del genere?
Grazie
Xndr! 

 il processo.
Prova questo:
http://www.softprodigy.com/ProfileSharp/Download.aspx
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL


Bello cio'
Pure open source
RobertoA

 ha scritto nel messaggio 
news:5ouo2oF...@mid.individual.net...


 ha scritto nel messaggio 
news:472c476a$0$4785$4faf...@reader4.news.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Comandi AT

Devo inviare una serie di comandi AT al modem (nell'ordine: risposta
ad una chiamata, invio di uno o più toni DTMF,
disconnessione) ma solo il primo di questi viene eseguito (il comando
"ATA"): sto usando un modem GSM collegato alla
seriale del PC che ad ogni comando risponde con la stringa "OK".
I comandi li invio attraverso il controllo MSComm e l'evento OnComm.
Ho provato ad inserire un ciclo di attesa della risposta OK dal modem per ogni
comando inviato ma non ha risolto il problema..
Qualcuno può aiutarmi?
Alessandro
Private Sub MSComm1_OnComm()
Dim confronto as String
Dim RispostaDalModem$
    Do
      DoEvents
       ' Se ci sono dati nel buffer allora leggiamoli.
        If MSComm1.InBufferCount Then
         RispostaDalModem = RispostaDalModem & MSComm1.Input
           Do While.................
           confronto = RS.Fields("NumeroTelefonico")
 
          'Controlla se la stringa è presente in quella ricevuta
            If InStr(RispostaDalModem, confronto) Then
 
              RispostaDalModem = ""
               MSComm1.Output = "ATA" + vbCr
               MSComm1.Output = "AT+VTS=1" + vbCr
               MSComm1.Output = "ATH" + vbCr
 
                Exit Do
              End If
            Loop
 
        Exit Do
    End If
 
    Loop

 ha scritto nel messaggio
news:9f6b39f5.02030...@posting.google.com...


 essere attivata la modalità di risposta verbose (ATV1 mi pare di
ricordare).
Potrebbe sembrare ovvio ma QUOTARE correttamente il testo sarebbe buona
norma! :-(
[...]

Newsgroup: it.comp.lang.visual-basic
Titolo: metodo più veloce per il travaso di file in rete

Ciao,
ho la necessità di travasare in rete locale attraverso del codice
vb.net
 cartelle con centinaia di file di dimensione eterogenea.
Secondo la vostra esperienza sul campo, qual'è il metodo più veloce ?
WEB service ?
System.io.file.Copy ?
StreamReader /StreamWriter ?
Ftp ?
??????
Grazie a tutti,
Vincenzo.

 wrote:
API
http://pinvoke.net/search.aspx?search=CopyFileEx&namespace=[All]
oppure (meglio)
http://pinvoke.net/search.aspx?search=shfileop&namespace=[All]
...come ai tempi del vb6....hai un sistema operativo sotto le chiappe
del tuo sw...perchè non lo sfrutti????

 del tuo sw...perchè non lo sfrutti????
sorry i link sono corrotti
http://pinvoke.net/default.aspx/kernel32/CopyFileEx.html
http://pinvoke.net/default.aspx/shell32/SHFileOperation.html
questi vanno!

Piccioni viaggiatori no?
Se fra le macchine c'è possibilità di usare un sistema SMB (gli share di 
rete...) non c'è nemmeno da porsi la domanda, la namespace System.IO.File 
sta li per quello, mica per pettinare le bambole :-)
Newsgroup: it.comp.lang.visual-basic
Titolo: risoluzione video

Scusate forse sarà una domanda gia postata e stupida ma non so dove prendere
questa informazione:
quando creo un .exe o con o senza Autocompisizione Installazione è lancio o
installo l'applicazione su un altro PC con una risoluzione video diversa i
form non si adattano alla risoluzione corrente.
Sapete dirmi come fare ad ovviare a questo problemino?
Un grazie anticipato

 Sapete dirmi come fare ad ovviare a questo problemino?
di sicuro posso dirti che non č un problemino, poi posso consigliarti questa
ricerca su google:
http://groups.google.it/groups?as_q=adattare%20risoluzione%20form&ie=ISO-8859-1&
as_ugroup=it.comp.lang.visual-basic&lr=&hl=it
Da riportare, ovviamente, su una sola riga.
Buona lettura
--
Salutoni
Sergio

 :-))))))))))))))))))
I ng sono fatti per eliminare le false illusioni :-)
(e non solo quelle sulla programmazione, purtroppo :-( )
--
Salutoni
Sergio

Grazie cmq pensavo fosse una cosa più semplice :)
ma ho trovato il sistema sicuro (o quasi) farò cambiare la risoluzione all'
utente.
Di nouvo grazie per il materiale su cui studiare
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto testo

Ciao, scusate ho un problema, vorrei fare in modo che da una casella di
testo o una combo possa dividere la parte numerica dal testo, cioè, ad es.:
Telefono Pippo 123456
Come posso visualizzare su una Label "Telefono Pippo" e su un'altra
"123456"?
Spero di essermi spiegato.
Grazie e Ciao
Massimo

Il modo piu' banale di risolvere il problema e' il seguente:
    Dim sParteAlfa As String
    Dim sParteNum As String
    Dim i As Integer
    For i = 1 To Len(Text1)
        If IsNumeric(Mid(Text1, i, 1)) Then
            sParteAlfa = Left(Text1, Len(Text1) - i + 1)
            sParteNum = Right(Text1, i - 1)
            Exit For
        End If
    Next i
Text1 e il Text che contiene la tua stringa alfanumerica.
Naturalmente funziona solo se la prima parte del testo è costituita da
caratteri e lultima solo da numeri.
Daniele

Scusami nella funzione precedente c'e' un errore. Arrossisco dalla vergogna e
ti chiedo scusa!
    Private Sub Command1_Click()
    Dim sParteAlfa As String
    Dim sParteNum As String
    Dim i As Integer
    For i = 1 To Len(Text1)
        If IsNumeric(Mid(Text1, i, 1)) Then
            sParteAlfa = Left(Text1, i - 1)
            sParteNum = Right(Text1, Len(Text1) - i + 1)
            Exit For
        End If
    Next i
Ancora scusa.
Daniele

 wrote in message
387F2AA3...@tiscalinet.it...


Bene, allora le cose si complicano!
Analizziamo un paio di strade alternative:
1) Possiamo cominciare la lettura del testo dal fondo, quindi fermarci
appena incontriamo il primo carattere non  numerico:
Vantaggi:
- La prima parte del testo puo' contenere anche dei numeri.
Svantaggi:
- La prima parte del testo deve finire per forza cun un carattere e non con
un numero. Naturalmente il carattere puo' essere lo spazio. Si presenta
pero' ancora un problema nel momento in cui si vorrebbe separare il
prefisso con uno spazio o con un'altro carattere es.: "/", "-" ecc..
Quest'ultimo problema lo si puo' risolvere ignorando il primo carattere
incontrato se e' seguito da almeno due numeri.
2) Si puo' introdurre il numero con il prefisso tel., a questo punto
l'utente sarebbe costretto a far precedere il numero telefonico da "tel."
punto compreso. Attenzione il punto ' fondamentale per discriminere i casi
come: "Telemaco 039 567656545". La parte numerica in questo caso si estrae
nel seguente modo:
    Dim iPosTel As Integer
    Dim sNum As String
    Dim sAlf As String
    iPosTel = InStr(LCase(Text1), "tel.")
    sNum = Right(Text1, Len(Text1) - iPosTel - 3)
    sAlf = Left(Text1, iPosTel - 1)
Otterremo, quindi, il seguente risultato:
"Filippo Rossi Tel. 02 45604367"
sNum = " 02 45604367"
sAlf = "Filippo Rossi "
Spero di esserti stato di aiuto.
Ciao
Daniele


 wrote in message
3882DEA2...@tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: File exe

Ho un problema:  nella compilazione del file exe il programma si ferma
dicendo che la memoria è esaurita;  poiché il codice occupa effettivamente
tanta memoria, come posso fare per ottenere l'eseguibile?
Grazie.

 Grazie.
solo a livello statistico quanto è grande questo file?
--
Morfeus®
Free Joint
:PII

 ha scritto nel messaggio
news:baffmt$sj91n$1...@ID-191912.news.dfncis.de...


 Il form principale frx è 7M!
7Mb di FRX?
Prendi in considerazione l'ipotesi di caricare il meno possibile da
progetto, in particolare le immagini, e di farlo invece in esecuzione.

Newsgroup: it.comp.lang.visual-basic
Titolo: Maledetta DLL

Provo a ripostare ragazzi.. mi sta facendo impazzire e quindi riscrivo:
perchč mi da questo errore quando chiamo una routine all'interno di una dll
?
"Punto di ingresso non trovato"
La mia routine č cosě dichiarata all'interno della DLL:
Public Sub Aggiorna(l_strUrl As String, l_strFile As String)
end sub
Forse devo usare un proprety get o proprety let ?
Ciao


Potrebbe essere un problema di registrazione della DLL.
Prova a creare un gruppo di progetti e ad aggiungere il progetto in cui si
trova la DLL per vedere se cosě funziona.
In tal caso io proverei ad eseguire una pulizia del registro per togliere
eventuali registrazioni di precedenti versioni della stessa DLL, e poi
proverei a riregistrare la DLL.
Ciao
-- 
Skysurfer

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

Ciao a tutti,
qualcuno mi può aiutare su come collegare Vb6 con una cassa Sweda.
Aiuto
Grazie e Ciao
Paolo Russignan


Allora ditelo....
Ma cazzo.... proprio qualche giorno fa ho scritto tutto il programma per
Paolo (che aveva fatto la tua stessa domanda) e tu non ti sei degnato
minimamente di guardare i vecchi post!
Guarda i post del 22/06 e la prossima volta fai una ricerca.
Ciao, Vincenzo

 > qualcuno mi può aiutare su come collegare Vb6 con una cassa Sweda.


Newsgroup: it.comp.lang.visual-basic
Titolo: Semplice richiesta su Vb6 , aiutatemi please

mi potreste scrivere il codice esempio per caricare all avvio di un form ,
in una textbox , un intero file txt ( composto quindi da più righe ) ? qualè
la procedura esatta ?
P.S : è importante che venga richiamato in una TextBox , cosi da poter
essere modificato e salvato .
Grazie

P.S : č importante che venga richiamato in una TextBox , cosi da poter


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Passaggio parametri alla partenza dell'applicazione

Vorrei sapere se esiste la possibilità in VB di eseguire un programma
passando nella riga di comando alcuni parametri e come devo implementare la
cosa ?
Quello che vorrei sapere è ( se la cosa è fattibile)  in quale routine devo
mettere i parametri che raccoglieranno i valori che passo nel momento in cui
lancio l'applicazione.
nella Form_Load (del form di startup) non mi pare funzioni.
Grazie a chi mi saprà dare informazioni utili.

Guarda command() nell'help.



...


Newsgroup: it.comp.lang.visual-basic
Titolo: ZETAFAX API

C'e' qualcuno che ha gia' affrontato l'argomento????

Puoi essere più chiaro?