mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: R: Creare una stampante in VB

 wrote in message
MPG.146cebdc4...@news.interbusiness.it...
: Vorrei sapere se è possibile e come fare per creare una stampante sotto
: Win ME - 95/98 e Win 2000 Pro.
: Cosi da poter vedere la stampante sotto altri programmi tipo Word/Excel
: ecc...
: Cosi quando stampo catturo il file di stampa
:
: Grazie per l'aiuto
:
: Marco

 Ciao, Luca.
Scusate mi sono espresso male, vorrei creare una stampante nel pannelo 
di controllo delle stampanti con posso fare ???
Grazie a tutti.
Marco
PS. Cosa è Jimi

Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Aprire un documento con Word

Ciao a tutti
sono un principiante di VB5 e da qualche settimana frequento "in
ombra" questo newsgroup. Complimenti a chi lo ha organizzato. Qui ho
già trovato molte risposte utili.
Ho una domanda da porre.
C'è qualcosa di errato in queste righe di codice?
Dim WordApp As Word.Application
Set WordApp = New Word.Application
WordApp.Visible = True
WordApp.Documents.Open ("C:\Documenti\Save.doc")
il codice, inserito in un commandbutton, non viene eseguito perchè VB5
sostiene che Word.Application è un "Tipo definito dall'utente non
definito". Lo stesso accade con excel...
Grazie in anticipo
Dario
_________________________________________________________
DO YOU YAHOO!?
Get your free @
yahoo.com
 address at 
http://mail.yahoo.com
--
Posted from 
send1e.yahoomail.com
 [205.180.60.64]
via Mailgate.ORG Server - 
http://www.mailgate.org


Hai incluso i riferimenti agli oggetti Word? (in VB5 menu'
Progetto|Riferimenti, aggiungi "Microsoft Word ?.0 Object Library")
Altrimenti usa il late-binding, al posto di:
Dim WordApp As Word.Application
Set WordApp = New Word.Application
usa:
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
ciao
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: List View

Ciao a tutti.. ho un problemino..
non riesco ad usare il controllo List View.. qualcuno di voi mi dice come
faccio ad inserire in colonne diverse i miei dati..
proprio elementare, ma non ci riesco !!!! ..
ciao e grazie..

 ha scritto nel messaggio
news:9836it$7q0$1...@nreadB.inwind.it...

Aggiunta di un nuovo elemento:
Dim L as ListItem
...
  With <NomeListView>
    Set Li = .Add()
    With Li
      .Text = <Testo nella prima colonna>
      .Key = <Chiave della prima riga>
      .SubItem(<Indice>) = <Testo colonna di indice <Indice> >
    End With
  End With
Bye by Massimo 8-]
Newsgroup: it.comp.lang.visual-basic
Titolo: command button

Come posso fare per far si che il command button i alzi ed evidenzi al
passaggio del mouse? tipo quelli di explorer o outlook?
Grazie a chi mi risponderà

Imposta a Flat lo stile dei bottoni...
All'evento mousermove li fai alzare impostando lo stile a 3D... dovrebbe
andare...
            Ciao
                    Allanon


Questa cosa faceva impazzire anche me...per fortuna ho trovato la soluzione!
MODULE1.BAS
Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As
Long
Public Sub oo()
            SetCapture Form1.Command1.hwnd
End Sub
Public Sub rr()
ReleaseCapture
End Sub
FORM1.FRM
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
If X >= 0 And X <= Command1.Width And Y >= 0 And Y <= Command1.Height Then
           Call oo
           If (Button = 0 And Command1.BackColor <> QBColor(10)) Then
           Command1.BackColor = QBColor(10)
           End If
        Else
            Call rr
            Command1.BackColor = QBColor(12)
        End If
End Sub
p.s. imposta il command1.backcolor=qbcolor(10) in form_load

Per ottenere quel tipo di effetto non devi fare altro che caricare il
controllo Common Control 6.0 e inserire all' interno del Form la ToolBar
Impostazioni ToolBar :
- Vai al controllo Style e lo imposti su 1-tbrFLAT
- Crea i tuoi pulsanti ed ecco che il mistero si è risolto.
Bye Bye

Newsgroup: it.comp.lang.visual-basic
Titolo: [HELP DLL] registrazione dll

Come faccio ad installare (quindi registrare) delle dll di sistema in
windows tramite VB?
Marco

 ha scritto nel messaggio
news:1o7R7.86$2A4....@twister1.libero.it...


 windows tramite VB?
se fai un programma di installazione sotto VB per un programma che usa certe
DLL, quelle vengono installate nel sistema al momento dell'installazione,
quindi...

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore creazione relazine

Perche quanto provo a creare una relazione
mi da questo errore
                        Indice gią esistente.
Mi potete aiutare?
Ciao Enzo
www.scozzaro.it

 Mi potete aiutare?
Postare il codice no? Sarebbe + semplice aiutarti...


Anch'io quando cerco di iniziare una relazione, mia moglie (con l'indice
puntato) dice che é già esistente....
Scherzi a parte, che tipo di database ? Posta un pò di codice....
Sal

                         Indice già esistente.

Newsgroup: it.comp.lang.visual-basic
Titolo: Polygon

Ciao a tutti;
dovrei utilizzare la funzione polygon di gdi32 per realizzare delle zone
riempitein una picturebox; il mio problema sta nel fatto che la picture è
caratterizzata da drawmode=0, cioè definita dall'utente, mentre la
funzione polygon la vuole fissata a 3 (pixel); so che posso utilizzare la
conversione con scalex e scaley, ma non riesco a capire a che punto la
debba inserire, prima o dopo la funzione suddetta? Cioè devo prima
disegnare il poligono e poi spostarlo? Se si come?
Aiutoooooo!!!!
Ciao e grazie
Peter
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 disegnare il poligono e poi spostarlo? Se si come?
La Polygon non č altro che una Line ripetuta (la LineTo per la precisione).
Se proprio vuoi mantenere il tuo scalemode per la pb devi convertire le 
coordinate in questo modo:
' Ammesso che i tuoi punti iniziali siano espressi
' in scalemode 0
x = PB.ScaleX(x, PB.ScaleMode, vbPixels)
y = PB.ScaleY(y, PB.ScaleMode, vbPixels)
per ogni punto del poligono prima di passarlo a Polygon.
Ciao

 y = PB.ScaleY(y, PB.ScaleMode, vbPixels)
Ho provato ad utilizzare questo accorgimento, ma purtroppo non funziona;
mantiene sempre la configurazione in pixel;
la routine che utilizzo č:
Sub DrawPolygon(P As Control, Size As Integer, FColor As Long)
Dim nPoints As Integer, i As Integer
Dim SoldMode, SoldTOP, SoldLeft, SoldWidth, SoldHeight
Dim PLY(1 To 5) As POINTAPI
'save current attributes
SoldMode = P.ScaleMode
SoldTOP = P.ScaleTop
SoldLeft = P.ScaleLeft
SoldWidth = P.ScaleWidth
SoldHeight = P.ScaleHeight
'setup scaleMode, fill style, ...
P.ScaleMode = 0 ' PolyGon needs everything in pixels
P.FillStyle = 0 ' Sold Fill
P.FillColor = FColor ' Fill Color
P.DrawWidth = 1 ' Border width in pixels
'build coordinates for shape
PLY(1).X = P.ScaleX(0, P.ScaleMode, vbPixels)
PLY(1).Y = P.ScaleY(0, P.ScaleMode, vbPixels)
PLY(2).X = P.ScaleX(10, P.ScaleMode, vbPixels)
PLY(2).Y = P.ScaleY(0, P.ScaleMode, vbPixels)
PLY(3).X = P.ScaleX(10, P.ScaleMode, vbPixels)
PLY(3).Y = P.ScaleY(-10, P.ScaleMode, vbPixels)
PLY(4).X = P.ScaleX(0, P.ScaleMode, vbPixels)
PLY(4).Y = P.ScaleY(-20, P.ScaleMode, vbPixels)
PLY(5).X = P.ScaleX(-10, P.ScaleMode, vbPixels)
PLY(5).Y = P.ScaleY(-5, P.ScaleMode, vbPixels)
nPoints = 5
Polygon P.hdc, PLY(1), nPoints
'restore old attributes
End Sub


 'restore old attributes
Visto così dovrebbe andare.
Dovrei provare un attimo.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] recupero dati

se qualcuno conosce ditte zona modena che recuperino dati, e' esploso un pc 
e direi siano andati i controller dei due dischi. non so esattamente cosa 
sia successo, ci dev'essere stato un corto e il pc ha fatto da scarico. lo 
strano e' che direi fosse spento.
i dati erano stati appena copiati da c: a d:, ma tutti e due i dischi, messi 
in un cassetto usb, sembano prendere velocita' regolarmente, poi cominciano 
a fare un clok a intervalli regolari, e ne' vista ne' xp li riconoscono. 
riconoscono il cassetto usb, parte l'installazione, ma poi non riescono 
proprio a vedere il disco. dai rumori spererei che sia andato il controller 
ma non la meccanica.
se avete un numero di telefono e me lo potete mandare in mail, senza stare a 
disturbare il ng, l'indirizzo e' buono.
grazie mille, a.

 fare un clok a intervalli regolari
SPEGNILI IMMEDIATAMENTE E NON RIACCENDERLI.
Ci sentiamo in mail appena raccolgo qualche info.
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Compilazione, situazione anomala

Buongiorno a tutti!
    Utilizzo VStudio 2002 x sviluppare un sito web. Utilizzo dei Web User
Control e sembrava tutto OK. Di punto in bianco, senza aver effettuato
modifiche, ho ricompilato il progetto e mi vengono dati errori di
sovrapposizione di namespace:
'wuc_CBLSedi' is ambiguous in the namespace 'projectName'.
La cosa mi è sembrata assurda... Ma ho creato un nuovo User Control con nome
diverso, ripristinato il medesimo codice, ho cambiato i riferimenti in tutte
le pagine del progetto e ricompilato... Tutto funzionava perfettamente....
Ricompilandolo, di nuovo lo stesso errore!!!!!!! La trovo una cosa assurda!
Ringrazio qualsiasi buon anima che abbia un'idea di cosa possa essere...
Edoardo

'wuc_CBLSedi' is ambiguous in the namespace 'projectName'.
Esiste per forza una duplicazione di nomi. Se hai gia' verificato i
nomi del custom control e degli aspx, verifica anche le references
all'interno del file web.config.
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: N. di telefono per stampa su fax

Come posso dire da VB5 quale numero voglio comporre per la stampa su fax.
Cioč vorrei mantenere un archivio (MDB) di numeri di fax, scegliendone uno
mandare un fax automaticamente senza doverlo inserire a mano nel wizard...
grazie in anticipo
Martina
mart...@geocities.com
http://www.geocities.com/Wellesley/6853/

mandare un fax automaticamente senza doverlo inserire a mano nel wizard...
Scarica le specifiche MAPI 1.1 dal sito M$ e ... divertiti!
~~
Roberto Colmegna
roberto...@login.it
Ipotesi su di un linguaggio `multicromatografico`:
 
http://members.tripod.com/~roberto1972/

 ~~
A quale URL ?
Newsgroup: it.comp.lang.visual-basic
Titolo: Come fare per creare una applicazione costantemente in background che attende degli eventi?

Come si fa a creare un'applicazione che sia costantemente in background
in attesa che si verifichi un determinato evento nel sistema? (come ad
esempio che un determinato file cambi dimensione originale, oppure che
venga lanciata una determinata applicazione e che ne venga spinto un
determinato pulsante).
Grazie mille.

 wrote in message 375A999E...@freemail.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?2] Chi mi usa?

Ciao a tutti.
Vorrei sapere se e possibile dall'interno di un ActiveX-exe sapere chi e
connesso all'Ax stesso.
Vorrei conoscere l'hInstance o il percorso dell'eseguibile che crea
un'istanza/si connette ad una classe esposta dall'Ax.
E' possibile? Come?
Ciao


Se non te lo dicono direi che non puoi, un ActiveX EXE e' out-of-process
quindi non hai modo di risalire al chiamante... Considera che (per come e'
strutturato il COM) potrebbe anche trovarsi su un'altra macchina!
Ciaotutti,
*

Newsgroup: it.comp.lang.visual-basic
Titolo: VB e ASM

sono nuovo al vb ed avrei bisogno di collegarlo con un programma
sviluppato in asm ma non riesco a capire come e se si puo fare
qualche aiuto???
grazie e in bocca al bug

Credo non si possa fare.
Se puoi compilare prg asm in .com o .exe puoi poi eseguirlo come programma
esterno; sul sito comune trovi esempio su come eseguire programma ed
attendere che termini.

 wrote in message
37E90315...@hint.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: write #

devo stampare una stringa su di un .txt, ho scritto questo codice ma c'è un
errore che non so trovare..
Dim sfile As Integer, nFile As String
Dim Variabile as string
    sfile = FreeFile
    nFile = App.Path & "\Stat.txt"
    Open sFile For Input As #nfile
            Write #nfile, Variabile
    Close #nfile
grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

     Open sFile For Input As #nfile
:)
-- 
MAX
http://www.birreonline.net
Chi beve birra campa cent'anni

 :)
questo di sicuro.
ma anche aprire in input per scrivere, non mi sembra il massimo :-)
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 grazie
prego
ciaociao

 ma anche aprire in input per scrivere, non mi sembra il massimo :-)
grazie..
e cosa consiglieresti?


 e cosa consiglieresti?
:) :) :)


> ciaociao
a te..
sempre a fare figure di cacca io
ringrazio di nuovo


> ciaociao
a te..
sempre a fare figure di cacca io
ringrazio di nuovo
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 e cosa consiglieresti?
guarda il post di marg, in questo stesso thread.
marg è uno che predica male, ma poi razzola bene ;-)


 e cosa consiglieresti?
Stai scherzando, vero?!
Open percorso_e_nome_del file For Output Shared As #numero_canale
...
Print #numero_canale, stringa_da_scrivere

 marg è uno che predica male, ma poi razzola bene ;-)
eheheheh....;-)
beccato!
ciaociao

 Open sFile For Output As #sfile  '<------- BEEEEEEEEP
SYNTAX ERROR "sFile" ...
-- 
-Gigio@Work(?)-

 SYNTAX ERROR "sFile" ...
ah, giusto!
Open nFile For Output As #sfile
(azz...ma sei proprio pignolo!) ;-)
ciaociao


me ne ero accorta :-)
ma non mi sarai mai permessa
ossequi


 ossequi
la prossima volta permettiti,
sono queste le piccole gioie della vita ! ^_^;
OsseQuolo !
-- 
-Gigio@Work(?)-

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] funzioni dispositive SEPA

Qualcuno di voi conosce i tracciati dei files
XML per comunicare con la banca?
 
Grazie e saluti.
Sauro 
 
 


Hai trovato informazioni relativamente a quanto richiesto?
Perche' interessa pure a me
 

 ha scritto nel messaggio 
news:neiigs$hgd$1...@virtdiesel.mng.cu.mi.it...



Si se avessi documentazione o altro di utile per affrontare l'argomento 
mi e' ancora utile
Grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Byte <=> Binario

Esiste una Api o una fun. di VB.net per trsformare un byte in una stringa
binaria e viceversa?
Oppure un algo di bassa complessita' ?
Grazie
Ciao


Certo, tutto sta nel capire cosa tu intenda con stringa binaria...
Ciaotutti,
*

 wrote in message
news:a605f2$agtft$1...@ID-68324.news.dfncis.de...

Credo he intenda accedere ai singoli bit di un byte
es. ottenere dal byte 3   00000011
Intendendo che l' output binario sia una stringa
o un array di interi o boolean cn valori 0, 1 o true false per poterci
lavorare
ciao

 
Una stringa, un array di interi o un array di boolean? :)
Vedi che non e' chiaro? :)
Ciaotutti,
*

 Oppure un algo di bassa complessita' ?
loop sulle potenze di due in {0..128} per ogni char della stringa.
ciao

 ha scritto nel messaggio
news:a6076n$abqat$1...@ID-68324.news.dfncis.de...

Una stringa di variant :-)
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

non conosco .net ma puoi mutuare senz'altro il codice da vb
numero = Asc("x")    'dove x č il tuo byte
Do Until numero < 1
    stringa = numero Mod 2 & stringa
    numero = numero \ 2
Loop
carlo

 Oppure un algo di bassa complessita' ?
Prova questo:
Sub Main()
    MsgBox(Binario(57)) ' o qualunque altro numero fra 0 e 255
End Sub
Function Binario(x As Byte) As String
    y = ""
    For i = o to 7
        y = Trim((x And 2^i) / (2 ^ i)) & y
    Next i
    Binario = y
End Sub
--
Er Roscio.
Newsgroup: it.comp.lang.visual-basic
Titolo: Database Lento

Salve a tutti, ho fatto un programma in VB che utilizza un archivio MDB. Il
programma funziona bene, ma quando i recordo incominciano a diventare
100'000 diventa molto lento.
Chi mi può aiutare, per far in modo che il programma risulti più veloce da
consultare?
Grazie

 100'000 diventa molto lento.
Di solito se un db diventa lento al crescere del numero di record, e' un
problema di indici.
Verifica nel tuo programma che tutte le select che fai sul db li usino
correttamente, per farlo devi controllare che siano indicizzati i campi
della clausola where.
Ti faccio un esempio:
SELECT [campi] FROM [tabella] WHERE [campo1]=x AND [campo2]=y AND [campo3]=z
perche' sia sempre performante deve esserci su [tabella] un indice con le
prime tre colonne impostate su campo1,campo2,campo3 in quest'ordine.
Sarebbe inutile invece avere indici cosi' composti:
campo2,campo1,campo3
campo1,campo3,campo2
campo4,campo1,campo2,campo3
Ciao.

Ciao,
	credo che l'unica via sia usare un altro data base. 
Access non regge tanto facilmente quei tipi di carico.
ciao,
	Matteo.
-- 
Posted from 
selftrade-4.rev.fr.colt.net
 [195.42.250.4] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Se porto tutti i campi del database come testo, si migliora qualcosa?
"Mela" <e.me...@infogroup.it_REMOVE> ha scritto nel messaggio
news:94jj06$id4$1...@fe2.cs.interbusiness.it...


> Se porto tutti i campi del database come testo, si migliora qualcosa?
non mi risulta, anzi teoricamente dovrebbe peggiorare.

 ha scritto nel messaggio
news:pWbb6.19188$dD2.2...@twister2.tin.it...

Alcune soluzioni indicate per Jet 3 ma penso valide anche per le versioni
successive:
Salvare le query nel Database
Evitare l'usi di espressioni tipo IIF nella SELECT
Evitare i GROUP BY su molte colonne
Cercare di indicizzare tuti i campi utilizzati nelle Join (Questo può
diventare un problema in fase di inserimento dati, in quanto + indici ci
sono + è lento l'inserimento)
Utilizzare Count(*) anziché Count(NomeCampo)
Compattare ogni tanto il DB
Usare indici numerici
Inibire i valori NULL nei campi che fanno parte di Join
Evitare di ordinare troppi campi o campi non ottimizzati
Utilizzare chiavi crescenti non decrescenti
Evitare operatori Like *pip* se puoi usare Like pip*
Seleziona solo i campi che ti servono (Evita SELECT * , selezionando, magari
10 campi, se puoi usare SELECT Campo,)
Se devi solo spazzolare il recordset dal primo all'ultimo record utilizza
recordset forward only
Apri i recordset in modalità Read only
Queste sono solo alcuni consigli per quanto riguarda le query, se me ne
vengono in mente altre o le trovo da qualche parte le aggiungo.
Inoltre bisognerebbe vedere come visualizzi i dati , quali controlli usi, se
bound o unbound etc.,
Ciao VB
Newsgroup: it.comp.lang.visual-basic
Titolo: [vb2005 expr] DataConnector

Leggendo il libro "Introduzione a Microsoft Visual Basic 2005" ho trovato un 
esempio di creazione Form master-detail che prevede la configurazione di un 
oggetto DataConnector che, nella versione Express, non riesco però a 
trovare.
Si tratta di un controllo non previsto in questa versione oppure occorre una 
configurazione particolare?
Grazie
vtt 

 ha scritto nel 
messaggio news:471dc1c7$0$17940$4faf...@reader1.news.tin.it...

Scusate.
Riposto al giusto Posto.

Newsgroup: it.comp.lang.visual-basic
Titolo: ? Capire API

Qualcuno mi ha detto che le Api sono abbastanza intuitive.
Ho provato ad aprire il Visualizzatore Api, e lě ci trovo il testo da
copiare per la dichiarazione delle API,
la mia domanda č come faccio a capire a cosa serve una determinata API
selezionata nel visualizzatore???
Grazie per la Vs. Pazienza, confido in una risposta,
Ciao CESARE

selezionata nel visualizzatore???
A intuito!
A parte gli scherzi, a me ha aiutato molto la lettura, poi la rilettura, poi
la ri-rilettura di (in una parola, 'studiare') Appleman, Daniel _Visual
Basic Programmer's Guide to the Windows API_ (che non credo sia stato
tradotto in italiano). L'edizione aggiornata a Win32, VB4 e VBA e'
pubblicata in Italia da Mondadori Informatica (L. 120.000 nel 1997) col
titolo _Visual Basic Win32 API. Guida del programmatore_ (piu' volte citata
in questo ng). Penso ne esista una versione piu' recente.
Scusa se non posso essere piu' preciso ma abitualmente lavoro in VB4 (ho
ancora 'roba' che gira in VB3) ed il grosso della mia piccola esperienza
l'ho fatto in Win16 e VB3. Al tempo il pacchetto comprendeva il file
..\WINAPI\WIN31WH.HLP, ovvero 'Windows 3.1 SDK' (Software Development Kit)
che Microsoft ha incluso anche in VB4, 'dimenticando' la versione a 32 bit
(almeno nella versione che ho io, senza SPqualcosa).
Da quello che ho letto in vari post tale versione e' compresa
(ovviamente...) in VB5 e VB6.
--
Ciao.
Maurizio

 wrote in message
news:7bv314$cjf$1...@nslave1.tin.it...


Anche se è praticamente introvabile!
Abito a Varese, non in Tanzania, ma tutte le librerie della zona manco
sapevano cosa fosse, l'unica che lo conosceva 'forse' riuscirà a
procurarmelo.
Lo stò aspettando da tre settimane, ma pare difficile da reperire anche in
Mondadori.
Buona Fortuna!

 wrote in message
news:01be6943$e577edc0$0e000001@inf...


Un saluto...
Idem
Gabriele

Ragazzi, sono nei guai!!!!
Un paio d'anni fa ho fatto un'applicazione in vb4 di cui non ho più i
sorgenti!!
Come posso fare visto che ho l'eseguibile al quale dovrei fare modifiche e
che vorrei ricompilare con il vb6??
Vi prego aiutatemi, sono disperato!
Marco Botta
Newsgroup: it.comp.lang.visual-basic
Titolo: Sempre a proposito di Combo

e questa  volta il completamento caratteri voglio farmelo da me :
Io popolo una combo con i dati di una tabella di un db Access, delle nazioni
. L'idea era che ad ogni KeyPress della combo andavo sulla tabella con il
FindFirst e chiave la lettera digitata e il primo trovato lo caricavo nella
Combo.Text .
Il programma sarà pesante di brutto, allora mi chiedo: visto che ho già i
dati nella Combo che arrivano dalla tabella, c'è un modo per effetttuare il
FindFirst direttamente nelle voci della Combo?
Grazie mille
Ronny

 ha scritto nel messaggio
news:acb39f$pqn$1...@lacerta.tiscalinet.it...


Ciao.
Avevo il tuo stesso problema per quanto riguardava le città italiane, con in
più il fatto che non si poteva scrivere una città che non esisteva
nell'elenco.
Ti posto la mia soluzione.
Private Sub cboComuni_KeyPress(KeyAscii As Integer)
    Dim l_l         As Long
    Dim l_sString   As String
    Dim l_iLen      As Integer
    Dim l_sComune   As String
    Select Case KeyAscii
        Case vbKeyBack
            Exit Sub
    End Select
    l_sString = LTrim$(Mid(cboComuni.Text, 1, cboComuni.SelStart) &
UCase(Chr(KeyAscii)))
    l_iLen = Len(l_sString)
    For l_l = 0 To cboComuni.ListCount
        l_sComune = cboComuni.List(l_l)
        If UCase(Left(l_sComune, l_iLen)) = UCase(l_sString) Then
            cboComuni.Text = l_sComune
            cboComuni.SelStart = l_iLen
            cboComuni.SelLength = Len(cboComuni.Text) - l_iLen
            Exit For
        End If
    Next l_l
    KeyAscii = 0
End Sub
Byez
Tango

Newsgroup: it.comp.lang.visual-basic
Titolo: intercettare il tasto TAB

Salve.
come posso intercettare la pressione del tasto tab su una textbox?
se ci sono altri controlli il focus passa a quello con tabindex successiva.
con keypress non riesco ad intercettare il codice 9 che sarebbe il tab in
avanti.
Grazie.

 ha scritto nel messaggio
news:8qnrj4$8p7$1...@lacerta.tiscalinet.it...


Per VB5 in LostFocus inserisci il controllo sulla validatà del testo,
invece per VB6 usa  l'evento Validate
By
Carlo Alberto






oppure utilizzi GetKeyState, o 
KeyUp/KeyDown.


 


Mario


 


 



 
  wrote in message 000801c02719$9cd14540$2cef2dd5@h2k6e7...

Newsgroup: it.comp.lang.visual-basic
Titolo: MDI background tiled

Ciao a tutti,
vorrei "piastrellare" il background di un form MDIParent.
Per essere ci sono riuscito con l'api bitblt, ma dato che l'api
ricopia la "piastrella" in alto a sx questo metodo non fa al caso mio,
perche' se il bordo di una form copre quel punto succede un manicomio.
Mi affido speranzoso a Voi sperando mi possiate suggerire un metodo
alternativo.
La questione e' piuttosto urgente.
Grazie
Ciao

Esempio tratto completamente da MSVBSite (di prossima apertura, questione di giorni... ^___^)
Descrizione: 
Questo codice permette di creare uno sfondo ad una finestra MDI, affiancando più volte una stessa immagine (allo stesso
modo del Desktop di Windows). 
Funzionamento: 
La funzione AffiancaImg disegna, nella finestra specificata da MDIForm l'immagine Immagine. Per far questo si serve di
una form temporanea (frmTemp) con una PictureBox (Picture1, contenente l'immagine da usare come sfondo) che rempie con
il contenuto della PictureBox stessa e poi copia l'immagine di tale form nell'MDI di origine. 
Dichiarazioni: 
Public Sub AffiancaImg(MDIForm As Form, frmTemp As Form, Immagine As String)
    Dim ScX%, ScY%
 
    If Immagine = "" Then Exit Sub
 
    ScX = Screen.Width / Screen.TwipsPerPixelX
    ScY = Screen.Height / Screen.TwipsPerPixelY
    Load frmTemp
    With frmTemp
        .Height = Screen.Height
        .Width = Screen.Width
        .ScaleMode = 3
	.Picture1.Top = 0
        .Picture1.Left = 0
        .Picture1.ScaleMode = 3
        .Picture1.Picture = LoadPicture(Immagine)
    End With
    For i = 0 To ScX Step frmTemp.Picture1.ScaleHeight
        For j = 0 To ScY Step frmTemp.Picture1.ScaleWidth
            frmTemp.PaintPicture frmTemp.Picture1.Picture, i, j
        Next j
    Next i
    MDIForm.Picture = frmTemp.Image
    Unload frmTemp
 
End Sub
Utilizzo: 
AffiancaImg Me, Form1, "c:\windows\bollicine.bmp" 
Note: 
Form1 è la form contenente la PictureBox (Picture1) da usare come origine, "c:\windows\bollicine.bmp" è l'immagine da
utilizzare per lo sfondo. 
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)
---------------------------------------------------------------------------
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: date...

se è vero che il tipo di dato Date può contenere sia una data che un'ora, 
come faccio a costruirmi una variabile di tipo Date con giorno, mese anno, 
ora, minuti e secondi che voglio io?
Grazie per le risposte
-- 
by \ \/ /\/
PerezDeQueya80 on AzzurraNET.org
http://digilander.iol.it/IVNhp

 ora, minuti e secondi che voglio io?
Per esempio:
Dim dtmData As Date
dtmData = DateSerial(2002, 5, 10) + TimeSerial(20, 38, 01)
Oppure:
Dim dtmData As Date
dtmData = "10.05.2002 20:38:01"
Anche se credo che quest'ultima versione potrebbe avere influenze dal tipo di
impostazioni internazionali.
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)

 ora, minuti e secondi che voglio io?
Posso darti un VIVO consiglio? Non usare, nel modo più assoluto, il tipo
campo Date!
Usa un campo testo nella forma AAAAMMGG o AAAAMMGGHHMMSS
Ti risparmierai un'enormità di problemi e te lo dico subito: Te l'avevo
detto! ;-)))

 impostazioni internazionali.
Non se usi il formato ISO: yyyy/mm/dd è univocamente riconosciuto.
Per chiarezza il tipo Date è in realtà un double dove l'unità è il giorno.
E' tutto chiaramente spiegato nell'help.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: treeview in una cella di msflexgrid





Si puo' fare (vedi subj)???
Se si, 
come?
Grazie a chiunque mi 
risponda,
                    
Ghigo





Se si, come?
Ti propongo, a occhio, due metodi:
1. adatti la treeview alle dimensioni di una cella e ce la metti
dentro.
2. Usi la gerarchia nella HierarchicalFlexGrid (si scrive così? Bo!)
Non ho MAI provato e credo neanche lo farò nessuno dei due metodi,
perchiò buon divertimento.
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con DLL.

Ciao a tutti,
sto utilizzando una dll all'interno della quale viene chiamata una Sub
appartenente ad un modulo di classe posto all'interno del progetto
principale.
Ho inserito nella sezione dichiarazioni di questa dll la dichiarazione:
Public COM as new ...... per indicare il modulo di classe ma  in
corrispondenza dalla chiamata della sub seguente:
if not COM . .......... ottengo l'errore:
Object variable or With block variable not set.
Cosa sto sbagliando?
Grazie,
Ale.

 ha scritto nel messaggio
news:_rcI7.5145$0x4.1...@news2.tin.it...

mmm "COM"... dove ho già sentito questo nome...?     ;-P
ciao
ugo

 ha scritto nel messaggio
news:_rcI7.5145$0x4.1...@news2.tin.it...

mmm... "COM"... dove ho sentito questo nome...?    :-P
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: ADODB e Tabelle Access

Ciao volevo sapere come si fa a sapere con ADODB se una tabella
nel DB Access esiste senza creare un errore a video,
facendo
rstPippo.Open "SELECT * FROM TabellaInesistente" mi da un errore a video
come si gestisce questa cosa grazie mille e se non chiedo troppo ho sentito
parlare di ADOX per creare una nuova tabella al posto di usare CREATE
TABLE mi fate un esempio grazie ....
Ciao
alberto...@tin.it

 ha scritto nel messaggio
news:hMK66.15624$FF1.1...@twister1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Informazioni

Sto cercando di recuperare più informazioni possibili su come gestire il
registro da VB. Qualcuno sa dove mi possa recare? In italiano od in inglese
non fa molta differenza.
Vorrei anche sapere una cosa che mi gira nel cervello da parecchio, esiste
per caso un esempio di programma per come gestire una casella di posta
tramite VB dove però i messaggi vengono inseriti in una listbox e da li si
possano aprire? Forse chiedo troppo, però mi sarebbe molto utile perchè mi
piacerebbe saperlo fare.
Grazie a tutti.

possano aprire?
Basta fare una piccola variante agli esempi proposti sul Sito Comune, ovvero una volta letti i msg
li memorizzi in un DB e poi li visualizzi, ad esempio, tramite una DBGrid o una listbox (io opterei
per la prima, così puoi visualizzare i vari campi: data, ora, mittente, subject...)
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: dusy

hhuytehjuteahuaeurea

> hhuytehjuteahuaeurea
EH? Come? Non ho capito?
Newsgroup: it.comp.lang.visual-basic
Titolo: licenza VB student edition

sono in possesso di una licenza VB student edition. posso realizzare per
mi zio, gratuitamente, un gestionale da usare nel suo esercizio
commerciale senza bisogno di ulteriori licenze? se si, oltre al
software, mio zio deve avere materialmente la licenza o puň dire che č
stato realizzato da me che eventualmente dovrň dimostare di esserne in
possesso? grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 possesso? grazie.
CUT
dalle mie fonti NON puoi....
altrimenti noi tutti qui compreremmo la licenza studente!
quella licenza costa quel prezzo perchè è a fini didattici e NON
commerciali!
il discorso della fattura è diverso....una volta che tuo zio ha la fattura
in mano la patata è solo tua!...lui è a posto!...
ciauz!

 in mano la patata è solo tua!...lui è a posto!...
di quale fattura parli, dato che il programma glielo realizzerei
gratuitamente?
Proprio per questo pensavo che bastasse la licenza Student, in quanto il
mio non
sarebbe uno scopo commerciale, cioè il programma realizzato non verrebbe
venduto.


 venduto.
Lo scopo commerciale non sta solo nel tuo lavoro, ma anche nell'uso del
programma...
Per toglierti i dubbi leggi il contenuto della licenza del tuo Vb Student
riguardo alla redistribuzione delle librerie Run-Time...
Secondo logica la tua lincenza e' a solo scopo didattico e quindi non
dovrebbe essere lecito redistribuire le run-time e librerie varie, un po
come accade per i pacchetti NFR o NFD il cui uso e' limitato a scopo di test
e dimostrazione
se vuoi due idee per dormire tranquilla e godere del tuo lavoro ...
1) fatti regalare dallo zio in cambio del lavoro.. il pacchetto full, potrai
quindi liberamente regalare 'lecitamente' il tuo programma ae tutte le
necessarie librerie
2) non hai un amico/conoscente che abbia il VB full?
    sviluppate insieme il programma 99% tu e 1% lui e poi regalatelo a tuo
zio

 news:9d41ba2c87cc86ff305...@mygate.mailgate.org...
CUT
consulta il commercialista dello zio...se lo zio ha un azienda anche
regalato ma deve avere un documento che giustifica l'uso (un comodato
gratuito o quant'altro)....altrimenti non č in regola con la finanza!
ciauz!
Newsgroup: it.comp.lang.visual-basic
Titolo: Formato dati XML





Abbiamo un problema : da una o più tabelle Access 
dobbiamo tirar fuori un "treno dati" (stringa di dati) in formato XML. Come fare 
? API ? Funzione VB ?


 


Grazie !









Ciao, mi ero dedicato anch'io per lavoro 
all'argomento ed avevo trovato sul sito Microsoft un SDK con relativo manuale in 
merito allo standard XML, il tutto direttamente per VB e senza l'uso di alcuna 
API, ma con l'aggiunta di una classe apposita.


Inoltre in giro per larete ci sono diverse risorse, 
anche se non ho più gli indirizzi dei siti.


Avevo trovato un semplice prog. in VB 5 che 
realizzava una pagina XML da dei dati digitati in TextBox, credo che possa fare 
al caso vostro, adattandolo a prendere i dati direttamente dal DB.


Cmq, a mio parere la struttura di un file XML è 
abbastanza semplice (essendo testuale com l'HTML) e quindi una volta imparata 
non dovrebbe essere difficle implementarla con funzioni ricorsive.


 


Bye


-- 
Tango
www.af.mil
ICQ: 
35463931



 ha scritto

se volete provare, magari c'e' qc:
http://www.vbxml.com/
intanto pero', tutti e due, _non_ postate in html, per favore.

Chiedo scusa, ho sbagliato senza accorgemene. : Ş


Devi utilizzare il parser XML della microsoft , che ti permette di gestirti
un documento xml come fonte di dati , implementando una classettina fatta da
te lo puoi gestire come un recordset , se vuoi qualche dritta scrivimi in
posta.
Mello



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

Siccome ho visto che qualcuno nel ng lo consigliava, dove posso trovarlo?
grazie grazie.

 Siccome ho visto che qualcuno nel ng lo consigliava, dove posso trovarlo?
salve
http://www.jrsoftware.org/
saluti
Andrea Montanari
montanar...@virgilio.it
http://utenti.lycos.it/asql/index.html
(my vb6+sql-dmo little try to provide MS MSDE 1.0 a visual interface) ver
0.0.46
--------- remove DMO to reply

Newsgroup: it.comp.lang.visual-basic
Titolo: programma riempimento container

Qualcuno di voi ha mai realizzato un programma del genere o ne conosce
l'esistenza ?
Grazie

Cerca nei vecchi post, se n'è parlato in passato. Se non ricordo male, anche 
sulla rivista ioProgrammo è stato trattato l'argomento.
PS.: Prova a cercare ottimizzazione spazio.
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore MISMATCH Assurdo!!

Questo errore è incredibile..mi esce quando inserisco un numero in una
texbox..ma solo in una precisa! Ho 5 textbox e solo nell'ultima mi dà
errore...in ogni casella di testo c'è sempre lo stesso codice, riporto
quello della casella che mi da errore:
Private Sub Corsie_Change()
Cor = Corsie.Value
Ctrl = IsNumeric(Cor)
If Ctrl = False Then MsgBox "Devi Inserire un Numero!", , "ERRORE!"
End Sub
Ripeto..ho altre 4 caselle di testo tutte con lo stesso codice e non mi
da alcun errore!!
Che posso fare?

Rettifico..l'errore mi esce quando scrivo un numero nella casella e poi
provo a cancellarlo!

 quello della casella che mi da errore:
Private Sub Corsie_Change()
    dim cOR as Boolean
    cOR = IsNumeric(Corsie.text)
    If cOR = False then MsgBox "Devi Inserire un Numero!", , "ERRORE!"
end sub
-> GbC
www.gbcweb.com

 provo a cancellarlo!
Forse perchè stringa vuota non è un numero? ;)
Dai un occhio ai tipi di variabili usati (di cui non hai dato informazioni).
Ciao 

Holà..
scusate non sarebbe + semplice gestire l'evento KeyPress??
private sub Corsie_KeyPress(keyascii as integer)
if ( keyascii<48 or keyascii>57) && keyascii<>8 then
 keyascii=0
end if
end sub
in questo modo limito l'inserimento ai soli numeri!
ciao Fabio

fabio...@gmail.com
 ha scritto:

Mi da questo errore inserendo questo codice:
"Procedure declaratione doesnt not match description of event or
procedure having the same name"
Che vuol dire?

 Che vuol dire?
Che non si fa copia-incolla tanto per fare :)
Prendi il codice e incollalo nella sub dell'evento che ti propone VB.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Form Unload

Salve a tutti, ho dovuto mettere mano ad un progetto in vb5 ed ho notato un
comportamento che potrebbe essere un baco.
c'è una funzione che prende come parametro un form (function myFunc(byref
frmGenerica as form) , lo lancia con frmGenerica.show esegue varie
operazioni ed alla fine c'è un unload frmGenerica.
il problema sta nel fatto che il form non viene scaricato, mentre se invece
faccio l'unload con il nome effettivo del form e non con la variabile usata
come parametro il form viene effettivamente scaricato.
come posso fare?
grazie.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 ha scritto nel messaggio
news:62Z241Z2Z1Y10...@usenet.libero.it...

set frmGenerica = nothing


Attenzione, che cosě non scarichi il form, ma setti solo il suo puntatore a
Nothing.
Es.
Dim f as Form
Set f = New Form
f.Show
Set f = Nothing
Ciao
--
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Set f = Nothing
Ovviamente l'istruzione
set frmGenerica=nothing
va inserita dopo quella
Unload frmGenerica
Newsgroup: it.comp.lang.visual-basic
Titolo: Riordinamento Vettori

Salve
mi servirebbe sapere se qualkuno ha un algoritmo per visual basic x
riodinare i vlori numeri (interi) di un vettore
grazie, mi servirebbe il codice senza funzioni...molto elementare grazie
p.s so che ci servono 2 o 3 cicli for


cerca su google 'bubble sort'
ciaociao

KazzonCrew wrote:

Cerca sul sito comune: c'č un bel progetto di esempio con vari metodi di 
sort.
Ciao


sito comune?
ho trovato molti  bubble soft in giro ma diciamo ke e molto complesso
tradurre il loro codice x me...
quando finalmente ho finito il programma se volete scrivo il codice che
ho utilizzato
cmq, esiste un sito italiano che dia un buon supporto a VB6, anche come
codici sorgenti, tutorials,forum?
grazie!

 sito comune?
www.it-lang-vb.net
-- 
-Gigio@Work(?)-

 grazie!
ciaociao

 tradurre il loro codice x me...
Il bubble sort č l'algoritmo di sorting piů semplice (il mio primo 
principale quando gli ho chiesto un algoritmo di sorting ha esclamato 
"ma come? il bubble sorting dovresti saperlo fare a memoria!"), non per 
niente č anche il meno efficiente.
In genere non ti serve sapere come funziona, ma pigliare il codice e 
usarlo cosě com'č.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Due chiarimenti su date e OCX

I quesiti che vorrei esporvi sono abbastanza semplici e spero mi
possiate aiutare.
Il primo, molto banale, riguarda questi famosi componenti OCX.
La domanda č: se io sviluppo un programma utilizzando i componenti OCX
forniti dalla versione VB5 (+ SP3), quali sono gratuti o a pagamento
nel caso voglia distribuire il software generato ???  Se c'č una reale
differenza come li riconosco ????
Il secondo quesito č invece legato alla programmazione.
Ci troviamo ad affrontare l'annoso problema della validazione dei
dati. Finchč trattiamo con stringhe e numeri, tutto OK, usiamo una
classe che fa tutto ..... ma il problema sorge sulle date ......
Vorremmo fare una validazione seria, o meglio, che non trasformi con
estrema disinvoltura qualsiasi cosa si scriva in qualcosaltro di poco
accettabile come 22-18-2358 o altro, ma che se scrivo 13-13-1913,
oppure solo il numero 123379, mi segnali errore e non che faccia come
vuole .............
Qualcuno ha un suggerimento da darmi per affrontare il problema ???
Grazie e ciao
Claudio

vuole .............
Per risolvere il problema date iho scritto questa function che completa,
formatta e valida le date:
Function format_data(ByVal data_inp As Control)
    ' questa routine formatta le date
    ' in input
    '        il control contenente la data in qualsiasi formato
    '        tipo gg ggmm ggmmaa ggmmaaaa
    '             gg-mm-aa gg/mm/aaaa
    ' in output
    '        il campo formattato se data valida, altrimenti ""
    Dim Appoggio As String
    format_data = data_inp
    If data_inp.Text = "" Then Exit Function
    Select Case Len(data_inp)
        Case 2
            Appoggio = data_inp & Format(Now, "-mm-yyyy")
        Case 4
            Appoggio = Format(data_inp, "&&-&&") & Format(Now, "-yyyy")
        Case 5
            Appoggio = data_inp & Format(Now, "-yyyy")
        Case 6
            Appoggio = Format(data_inp, "&&-&&-&&")
         Case 8
            If IsNumeric(data_inp) Then
                Appoggio = Format(data_inp, "&&-&&-&&&&")
            Else
                Appoggio = data_inp
            End If
         Case 10
            Appoggio = data_inp
   End Select
    If IsDate(Appoggio) Then
        Appoggio = Format(Appoggio, "&&&&&&&&")
        format_data = Format(Appoggio, "dd-mm-yyyy")
    Else
        MsgBox "Data non valida", 48, "ATTENZIONE"
        data_inp.SelStart = 0
        data_inp.SelLength = Len(data_inp)
        data_inp.SetFocus
   End If
End Function
Spero possa esseri utile, Ciao Aldo Severini.

vuole .............

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un quarto pulsante nel ControlBox ????

Oltre ai pulsanti MinButton, MaxButton, .... posso crearne un altro per
assegnargli il system tray ?
( Es. quello che usa il GetRight "minimize to tray")
Grazie!!!

Ho visto un articolo apparso su VBPJ di marzo '99, in cui spiegavano come
creare una barra del titolo personalizzata, non l'ho letto ma ti posso dare
il codice per scaricare l'esempio dal sito.
Vai su 
www.vbpj.com
 e in Locator+ (mi pare) scrivi VBPJ0399, forse (anzi
sicuramente) ti chiederà di iscriverti, non ti preoccupare è gratuito, poi
l'esempio lo trovi fra quelli che hai scaricato (pushpin.zip credo....),
quindi buon lavoro...
---------
Ciao
Sabba

Newsgroup: it.comp.lang.visual-basic
Titolo: Api "Line To"

Problema.
In una PictureBox disegno un grafico con il comando:
    PictureA.Line (TimeFile, ValoreA)-(TimeFile + Passo, ValoreB), 255
inserita in un loop che legge i dati da un file, dopo aver definito la scala
    PictureA.Scale (1, AmpiezzaMassima)-(NumeroDati, -AmpiezzaMassima)
Tutto funziona bene, ma è lento quando i dati sono tanti.
Per velocizzare il tutto ho provato ad utilizzare la Api "Line To".
Ho inserito nelle dichiarazioni
    Type POINT_TYPE
      x As Long
      y As Long
    End Type
    Declare Function LineTo Lib "gdi32.dll" (ByVal hdc As Long, _
                              ByVal x As Long, ByVal y As Long) As Long
    Declare Function MoveToEx Lib "gdi32.dll" (ByVal hdc As Long, _
        ByVal x As Long, ByVal y As Long, lpPoint As POINT_TYPE) As Long
... e nel corpo del loop
    PictureA.ForeColor = RGB(255, 0, 0)
    retval = MoveToEx(PictureA.hdc, TimeFile, ValoreA, pt)
    retval = LineTo(PictureA.hdc, TimeFile + Passo, ValoreB)
Però il disegno non è corretto, mi sembra che la nuova scala
(PictureA.Scale) non venga considerata.
Dove sbaglio?
Grazie e ciao
Luca

Mi sembra di ricordare che qualcuno ha detto che le API lavorano sempre con
i pixel, quindi devi farti la conversione.
Salve
            Dbg
Luca Sandrini ha scritto nel messaggio
]zac[


 ha scritto nel messaggio
news:OAnr6.8776$Z%1.31...@news.infostrada.it...

Esatto !
Ciao VB

 wrote in message
OAnr6.8776$Z%1.31...@news.infostrada.it...



Questo vuol dire che non c'è speranza di dare una scala diversa?

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda Stupidissima

Se in una form ho 5 textbox e voglio fare in modo che
quando ho finito di scrivere su di una, premendo ENTER
il cursore vada subito su quella sotto, come faccio?
Abbiate Pietą rispondetemi

Controlla l'evento KeyPress.
Vado a memoria, quindi posso essere inesatto...
Sub Label1_KeyPress(KeyAscii as integer)
    if KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        Label2.SetFocus
    End If
End Sub
---
GbC
http://gbc.homeip.net
---
PS.
Non chiedere per pietà perché a me piace sparare sulla croce rossa.
Si perdono punti ma dà soddisfazione
Newsgroup: it.comp.lang.visual-basic
Titolo: FUSIONE DI MATERIA GRIGIA (LA MIA)

Ho una list box con caselle di spunta e devo ad un certo punto visualizzare
solo quelle selezionate io ho scritto cosi ma mi fa dei giochini strani .
Private Sub Cksoloselezionati_Click()
If Cksoloselezionati.Value = 1 Then
'------------------------- rigenera combinata ------------------------
For contatore = 0 To Lispromanual.ListCount
If Lispromanual.ListCount = Lispromanual.SelCount Then Exit Sub
If contatore >= Lispromanual.ListCount Then contatore = 0
If Lispromanual.Selected(contatore) = False Then Lispromanual.RemoveItem
contatore
Next
Else: Cordinaper.Value = True
End If
    Lispromanual.Refresh
End Sub
Sono sicuro che c'e un modo piu semplice ma non e' serata .... aiuto!!!!!!!
ciao joe

 ha scritto nel messaggio
news:m0aK8.111325$zW3.1...@news1.tin.it...

do
    trovato_non_selezionato=0
    For contatore = 0 To Lispromanual.ListCount-1
        If Lispromanual(contatore).selected=0 then
            trovato_non_selezionato=1
            Lispromanual.RemoveItem(contatore)
            exit for
        end if
    next contatore
    if trovato_non_selezionato=0 then exit do
loop

Ringrazio sentitamente .....se non ci fossi tu....!
joe
Ps: E per  il palmare ... la partita .... il russo ...... COME SI FA AD
AIUTARE ?!
HAA  HAA HHHAA.
anche per me e' una solennnnnnne BALLA
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: form dati: autocomposizione o no ?!

Come da oggetto, sto sviluppando un programma di gestione basato su n DB
in Access2000....
Ora sto sviluppando le form per l'accesso,l'inserimento e la modifica
dei dati...
e mi trovo difronte a un dilemma:
mi conviene usare l'autocomposizione form dati oppure crearmi da solo
tutto il codice tramite ADO ?
l'autocomposizione è velocissima certo, ma alla fine le maschere sono
quasi identiche ai form di MSAccess e una cosa che mi faceva incazzare
di MSAccess era proprio l'accesso diretto alla tabella....
Vorrei invece creare delle maschere "non associate" nel senso che i dati
vengono salvati solo con il pulsante "SALVA"...
Qualche consilgio in merito ?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Qualche consilgio in merito ?
ciao, j.

Newsgroup: it.comp.lang.visual-basic
Titolo: Elenco applicazioni installate

Salve a tutti!
E' possibile tramite un programma in VB6 rilevare i programmi installati
in un PC?
Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


altrimenti ti ticca frullare il registry cercando la chiave (vado a memoria) 
installed
programs
Newsgroup: it.comp.lang.visual-basic
Titolo: Schedulare FTP

Ciao a tutti ho fatto un programmino per download e upload FTP,al
lavoro mi hanno chiesto se posso aggiungere la possibilita di impostare
il donload ad un certo orario (la notte)
qualcuno mi potrebbe segnalare qualche tutorial per aggiungere queste
funzioni in vb 6?
Ciao e grazie
Fabrizio

"Fabrizio"

Farlo direttamente con Operazioni pianificate (Task)  no e' ?
http://www.google.it/search?hl=it&q=scheduler%2Bvisual+basic&meta=
http://www.it-lang-vb.net/download.asp?file=http://www.it-lang-vb.net/Archivio/Sorgenti/scheduler.zip&ID=633
 Descrizione                                                              |
 |   ,....................................................................    |
 Una valida alternativa alle operazioni pianificate di windows
 richiede Trayicon.dll liberamente scaricabile dal sito comune
--
Fosco

Come 6 polemico, e' sempre una soddisfazione reinventare l'acqua calda no?
-- 
.o0-- I.d.N. alias JYD --0o.
Please Cut "-some trees-" for reply
"Fosco" <fa...@fake.invalid> ha scritto nel messaggio 
news:gbsSf.12159$6e2....@news.edisontel.com...


>


 "come 2005 polemico" :->
Hai raggione, anke se sono ankora un matusa della vekkia skuola.
Minkia aoh! C staiddentro 1 cifra!!!
BBella Andrea!!!
k
kKK
KkKK

 "come 2005 polemico" :->
LOL
Bye, G.

Newsgroup: it.comp.lang.visual-basic
Titolo: ASP e Crystal Report

Dovrei integrare un report realizzato con Crystal report 9 in una
applicazione ASP (non 
ASP.NET
 !!!). Qualcuno è in grado di fornirmi un
esempio?
Grazie
Antonio

 Antonio
Ciao, Vincenzo