mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare un form... "dinamico"?

Non so se "dinamico", la parola usata nell'oggetto sia la più adeguata,
nonostante questo con un piccolo esempio cercherò di spiegare il mio
problema..
Vorrei programmare un bottone che a ogni click, mi apra un nuovo form con
dentro una struttura predeterminata, ad esempio una casella di testo con una
variabile booleana casuale 0 o 1;
Momentaneamente l'ho chiamato form2, e richiamato al click del button del
form1, al primo click funziona, ma al secondo (NATURALMENTE) mi richiama lo
stesso, mentre io vorrei (mettendo il secondo piano il primo) crearne un
secondo...
Qlc sa aiutarmi?
Consultando il libro scolastico di 5° anno di tecnico programmatori non ho
trovato nulla a proposito, stesso risultato chiedendo alla prof. siete la
mia ultima speranza!!! :-)
Grazie in anticipo
Lucas84it
--
@   @   @   @   @   @   @   @   @   @
     Lucas84it
     Mail to: 
19lu...@genie.it
padroni di niente, servi di nessuno...
@   @   @   @   @   @   @   @   @   @

Lucas84it
Kylnas

 frm.Show
& questa all'evento button1.click; ma non va.. Al compilatore non va gių la
"set frm = new Form2"...
Puoi spiegarti meglio?
Lucas84

praticamente, definisci una nuova variabile di tipo Form, cioč:
Dim Pippo as Form
ma questa definizione non va del tutto bene, perchč ti basi su un Form base,
cioč vuoto. Quello che vuoi ottenere tu č un "duplicato" di un form che hai
nel progetto. Come si chiama quel form? Bene, definisci una variabile con
quel nome:
Dim Pippo as <nome del form>
Se il form si chiama Form2, allora metti:
Dim Pippo as Form2
altrimenti sostituisci con quello che hai tu...
Adesso non ti resta che visualizzarlo sullo schermo, cioč:
Pippo.Show
E' piů chiaro adesso?
good coding!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
dam...@italiainfiera.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 ha scritto nel messaggio
news:BBME9.9003$t_1....@tornado.fastwebnet.it...

devi sostituire Form2 con il nome di una form esistente nel tuo progetto....
--
bye BlackMagic
ICQ#:85485468

 mia ultima speranza!!! :-)
complimenti alla prof <g>

 E' piů chiaro adesso?
mm... non ancora! :-)
Grazie 1000 dell'interessamento!!
Lucas84it

 
Prova a vedere qui:
http://members.xoom.virgilio.it/franknet/Tips_VBasic/interfaccia_utente/Form%20dinamici.htm
L'esempio va adattato al tuo caso ...
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

Grazie a tutti coloro che sono intervenuti!!
Finalmente ho risolto!!
Ho paura che in futuro dovrò chiedervi qlc consiglio su come chiedere
l'apertura di una finestra da un'altro computer collegato in Lan ma è un
problema le cui difficoltà vi esporrò sul momento!
intanto ringrazio... & saluto!!
Buon Lavoro!!!!
Lucas84it
Newsgroup: it.comp.lang.visual-basic
Titolo: [API] - Come elaborare i Pixel di un PictureBox?

Salve,
sto cercando di elaborare i pixel di una Picturebox che si trova
all'interno di un form.
In particolare vorrei determinare l'handle del picturebox in questione
per poi poter operare su esso mediante funzioni api com SetPixel e
GetPixel. Ma non riesco proprio a farlo, qualcuno per cortesia puo'
indicarmi come fare?
Ringrazio in anticipo,
   Roberto
email: 
ron...@tiscalinet.it



 indicarmi come fare?
Più che l'handle ti serve l'hDC :
    Picture1.hDC
che puoi passare alle funzioni in questione

...

Se devi fare numerose elaborazioni dovresti prima salvare l'hDC in una var.
long e poi usare questa.
Es:
Dim hDC as long
hDC = Picture1.hDC
For i = 1 to 10000
    SetPixel(hDC, i, 1, vbWhite)
Next i
Ciao

Trovi alcuni esempi su GetPixel e SetPixel su
http://members.xoom.it/CesareRizzi
Ad es. come ruotare un'immagine, oppure come ottenere il valore RGB di un
pixel
Ciao
--
Posted from 
siml1ca-3v.fst.it
 [213.255.37.65] (may be forged)
via Mailgate.ORG Server - 
http://www.mailgate.org

Newsgroup: it.comp.lang.visual-basic
Titolo: Resize di un'immagine e salvataggio

salve sapete per caso come sia possibile ridemensionare un'immagine e
salvarla ridensionata.
se carico un'immagine con LoadPicture(<nomefile>) e poi la salvo con
SavePicture(<nomefile>) la salva sempre della dimensione originale!
sapete come fare?
Grazie
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 sapete come fare?
Si può fare con un classe che ho io scaricata da non ricordo dove, non mi
ricordo quando... Se vuoi te la mando...
Antonio Mirarchi
Newsgroup: it.comp.lang.visual-basic
Titolo: Textbox in uppercase

Ragz, mi sto convertendo da Delphi in VisualBasic perche' il primo genera
codici
troppo lunghi e pesanti.
Ho notato pero' che alcune funzioni in Delphi sono molto piu' complete, ad
esempio :
1) come fare a permettere l'immisione di soli caratteri maiuscoli in una
textbox ?
2) come fare a posizionare il cursore di una dbgrid sul record corrente ?
Grazie a tutti :))

2) come fare a posizionare il cursore di una dbgrid sul record corrente ?
Se la dbgrid è collegata ad un Data Control, basta che ti gestisci l'oggetto
Recordset all'interno dello stesso; cioè:
DataControl1.Recordset. ..............................


EUREKA !!!!!! Uno che va controcorrente !!!! Di solito leggo su questo NG di
gente che passa da VB a Delphi , tu sei il primo che sta' facendo il
contrario. ;-))
Per la prima domanda ti rispondo subito dandoti 2 soluzioni per la 2a dovrai
aspettare qualche altro amico del NG.
Dunque per convertire il contenuto di una TEXTBOX in maiuscolo puoi
all'evento LostFocus scrivere :
Text1.text = UCASE$(Text1.text)
che ti trasforma tutto il contenuto della text1 in maiuscolo in un solo
colpo quando il Focus viene spostato su di un altro controllo.
se invece vuoi fare in modo  che alla pressione di un qualsiasi carattere
dell'alfabeto, questo arrivi gia' alla Text1 trasformato in maiuscolo, devi
fare :
Sub Text1_KeyPress(keyascii as integer)
        Select Case KeyAscii
               Case 97 To 122     ' Gestisco i codici ascii dalla "a" alla
"z"
                    KeyAscii = KeyAscii - 32  'Trasformazione in lettere
maiuscole
        End Select
end sub
Ciao e benvenuto in VB !!!!

 >
Dovrebbe farlo in automatico.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 o VB6

Ho bisogno di un consiglio.
E' da poco tempo che ho cominciato a scrivere qualche riga di codice
in VB partendo dalla V.5. Vorrei sapere se mi conviene passare alla
V.6 e perchč.
Grazie

...

Dipende.
Se sei un neofita che deve imparare il linguaggio di programmazione,
l'ambiente e la filosofia di sviluppo, puoi tranqullamente continuare per un
po' con VB5 senza preoccuparti troppo di VB6. In effetti VB6 si puo'
semplicisticamente definire come un VB5 arricchito di Design Control, degli
strumenti che permettono di estendere l'ambiente di sviluppo.
Se invece il tuo obiettivo e' quello di creare vere e proprie applicazioni
che facciano forte uso di database, allora l'ordine e' imperativo: passa a
VB6 subito. Se prosegui con VB5 imparerai a famigliarizzare con tecnologie
che Microsoft sta abbandonando e che gia' in VB6 sono superate: DAO->ADO 2,
Data Control->Data Environment, Crystal Report->Data Report.
Non tutto in VB6 e' perfetto, per esempio il nuovo Data Report e' molto
povero, ma cio' che importa e' che una nuova strada e' tracciata, e per
esperienza, insistere sulla vecchia e' pericolosissimo.
Ciao
Paolo

esperienza, insistere sulla vecchia e' pericolosissimo.
Due strade:
1) comincia subito con la nuova versione e collabora [gratis] con
Microsoft nel "field testing" di VB6
2) usa tranquillo VB5 con l'ultimo Service Pack, mentre gli impazienti
si buttano sul VB6.
Passare alle versioni che non sono collaudate bene puo' essere
tragico.
--
My e-mail address is:
j l s @ a c m . o r g
Newsgroup: it.comp.lang.visual-basic
Titolo: help!!!!! visibilita' variabili

Ho una picture box nell'evento mouseMove
label1.caption = X 'mirestituisce la posizione corrente del mouse
all'interno della picture... e fino a qui ok!
nell'evento clik (sempre della picture box) 
avrei necessita di disporre dei due valori single di X e Y ma come si
fa????
tanto per essere chiari:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Label1.Caption = "X:" & X & " - " & "Y:" & Y
End Sub
Private Sub Picture1_Click()
Label2.Caption= X & Y
End Sub
sara' una stupidata.... ma non riesco ad uscirne...
Antonio.

sara' una stupidata.... ma non riesco ad uscirne...
Il subject è la risposta al tuo problema. Ora che hai la soluzione,
prova a cercare su MSDN come avresti potuto risolverlo da solo: questo
es. ti servirà quando ti troverai difronte a problemi den più
complessi... saper utilizzare MSDN è la cosa più importante...
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 On Thu, 27 Sep 2001 
[cut!!!]
ti ringrazio ma purtroppo non funziona!!!
mi restituisce (come sempre del resto....)
 >>> Istruzione non valida all'esterno all'esterno del blocco Type <<<
grazie cmq,.... 
Antonio.

come non detto ho trovato la soluzione!!!!
Ant.

 >>> Istruzione non valida all'esterno all'esterno del blocco Type <<<
Altra cosa....
in questo caso avrai incollato "qualcosa" nel posto sbagliato...
ora quel "qualcosa" vediamo se lo scopri utilizzando l'help associato a
quel messaggio d'errore...
Inoltre è sempre bene specificare a che riga ed in che procedure viene
generato l'errore, altrimenti, a meno che l'errore non sia dovuto ad una
svista (come in questo caso), come diavolo faresti ad identificarlo?

Newsgroup: it.comp.lang.visual-basic
Titolo: Relazione tra separatore decimale e CursorLocation

Ciao a tutti.
Qualcuno mi sa spiegare questo comportamento di vb:
Ho un form con un textbox collegato ad un campo di una tabella di un
database SqlServer 2000.
Il campo è definito come Decimal.
Se apro il cursore usando CursorLocation=adUseServer e inserisco un numero
utilizzando la virgola come separatore decimale è tutto ok.
Se apro il cursore usando CursorLocation=adUseClient e inserisco un numero
utilizzando la virgola come separatore decimale in fase di update mi genera
un errore "Operation was canceled", se invece utilizzo il punto è tutto ok.
Come posso fare per utilizzare la virgola con un cursore lato client ed
evitare l'errore?
Perche' se il cursore e' lato server l'errore non si verifica?
Grazie a tutti per l'aiuto.
Skysurfer

 Perche' se il cursore e' lato server l'errore non si verifica?
Mi risulta che SQL (il linguaggio, non tanto SQL Server) accetti solo il
punto, fortunatamente.
Probabilmente i settaggi del pannello di controllo fanno in modo che il
valore venga convertito (o ... troncato). Ti consiglierei, in ogni caso, di
passare a ogni comando SQL sempre cifre col punto.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema registrazione DLL

Salve a tutti.
Cazzeggiando con alcuni add-ins di VB mi sono ritrovato a installare una 
release precedente di un pacchetto sopra ad una + recente. Nonostante 
abbia disinstallato la prima release (+ nuova) prima di rinstallare la 
seconda relase (+ vecchia) adesso ad ogni avvio del progetto che contiene 
i riferimenti a quella DLL mi dice sempre che 'E' stata registrata una 
versione + recente di pippo.DLL aggiornare alla versione 5?. Se dico di 
non aggiornare tutto va a posto.
Se qualcuno gentilmente mi potesse spiegare dove viene registrata 
l'informazione relativa alla versione della DLL e come funziona questa 
cosa (la registrazione delle versioni delle DLL)
Grazie e saluti.
Paolo F.

 Grazie e saluti.
ciaociao

Newsgroup: it.comp.lang.visual-basic
Titolo: Random Number Generation

Anyone has any idea how i can generate an integral value between 1-52 randomly?
Thank you

 Anyone has any idea how i can generate an integral value between 1-52 randomly?
int(rnd * 52) + 1
bye
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!
Newsgroup: it.comp.lang.visual-basic
Titolo: Mysql

devo connettermi ad un database mysql su freesql.org...qualcuno mi può 
dare una mano?
server:		 
www.freesql.org
porta:		 3306
user:		 miouser
password:	 miapassword

 ha scritto nel messaggio
news:4348edf0$0$20497

Eccolo il sito di hosting free di DB MySql che non ricordavo :P
Ho appena postato un messaggio con le varie stringhe di connessione.
Ciao
--
.Net Reporting tool: 
http://www.neodatatype.net

Zanna ha scritto:

il mio problema non sono le stringhe di connessione, è che l'unico 
programma che ho fatto con un database è una rubrica per gli indirizzi, 
però ho usato il controllo data.
io ho bisogno di una spiegazione completa su come connettermi a questo 
maledetta database...grazie

 però ho usato il controllo data.
Una volta che sei connesso, hai risolto.
Se tu hai:
Dim db as ADODB.Connection
DIm rs as ADODB.Recordset
' Ti connetti al server tramite la stringa di connessione
Set db= ....
Set rs=db.execute("SELECT * FROM <database>.<tabella>;");
Do while not rs.eof
	call rs.movenext
Loop
Tanto per provare che il collegamenti funzioni correttamente.
-- 
Ciao,
	Fabrizio
===  
http://www.negusweb.it
  ===

Negus ha scritto:

Dim db As Adodb.Connection
Dim rs As Adodb.Recordset
 >Set db 
 >="driver={mySQL};Server=
freesql.org
;Port=3306;Option=131072;Stmt=;Database=gdradmin;Uid=verybadnik666;Pwd=**********;")
Set rs = db.Execute("SELECT * FROM <database>.<tabella>;")
Do While Not rs.EOF
     Call rs.movenext
Loop
cosa c'è di sbagliato? mi dice tipo non corrispondente(è una sola riga,è 
thunderbird che va a capo)

  >="driver={mySQL};Server=
freesql.org
;Port=3306;Option=131072;Stmt=;Database=gdradmin;Uid=verybadnik666;Pwd=**********;") 
DRIVER={MySQL ODBC 3.51 Driver}; SERVER=
freesql.org
; PORT=3306; 
DATABASE=gdradmin; USER=verybadnik666; PASSWORD=**********; OPTION=3;
Prova questa stringa di connessione. Ovviamente devi avere i driver ODBC 
installati.
Domani quando torno in ufficio controllo quella che solitamente uso per 
i miei programmi. Ciao!


Negus ha scritto:

adesso mi si connette e vedo i record, ma come faccio ad aggiungerne?

 adesso mi si connette e vedo i record, ma come faccio ad aggiungerne?
Perfetto.
Scrivi la stringa SQL all'interno di una variabile (per essere
eleganti) e passala all'oggetto db tramite nel metodo execute, ovvero:
---------------------------------------------------------------
Dim db as ADODB.Connection
' Connessione al db, come nel messaggio precedente
Set db = ...
strSQL="INSERT INTO <database>.<tabella>(<campi...>) VALUES
(<valori_campi...>)"
call db.execute(strSQL)
---------------------------------------------------------------
Informazioni sul linguaggio SQL ne trovi a valanga su internet.
Ciao!

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Selezionare una voce in una TreeView

Ho provato ad usare questi due comandi per selezionare una voce in una
TreeView
Set TreeView1.SelectedItem = TreeView1.Nodes.Item(NVoce)
TreeView1.Nodes(NVoce).Selected = True
Ma entrambi non mi evidenziano sulla TreeView la voce selezionata.
Come si deve fare ?
grazie
ciao

...

Newsgroup: it.comp.lang.visual-basic
Titolo: HELP!!!!!!! Conversione

Come posso convertire una stringa immessa dall'utente in codice ?
Grazie!

 
In che senso codice? Un numero? O codice basic?

> Come posso convertire una stringa immessa dall'utente in codice ?
bleaghh peggio della peste e del virus flip attivo sulla partizione
primaria di boot
esiste la funzione Evaluate di VBScript, richiamabile quindi anche
all'interno di VB.
p.s. niente HELLPPP... SAVE ME... SOS... please
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #26 delle Mitiche Brigate Takahashi sezione Sud

 wrote in message
Xns911FE1E99BAFFn...@195.130.225.75...


Newsgroup: it.comp.lang.visual-basic
Titolo: diritti da autore

se un dipendente a tempo indeterminato crea un applicativo, naturalmente i
diritti d'autore sono del  datore di lavoro.
Nel caso di un lavoratore esterno ovvero consulenza, occasione o tempo
determinato le cose non sono così... i diritti rimangono a chi ha creato
l'applicazione.
Le mie affermazione sono vere?
Grazie
Lorenzo

 Lorenzo
Bye, Enrico.
================================
Dim VbEnry As Enrico
vbe...@supereva.it
================================
Newsgroup: it.comp.lang.visual-basic
Titolo: coordinate geografiche

qualcuno conosce la formula che date 2 coppie di coordinate geografiche,
identificanti 2 punti, dà la possibilità di calcolare la distanza tra i due
punti e l'azimuth ?

Giamas wrote:

' X1#,Y1# = Longitudine e Latitudine del primo punto in gradi decimali
' X2#,Y2# = Longitudine e Latitudine del secondo punto in gradi decimali
Public Sub DistanzaAzimut(X1#, Y1#, X2#, Y2#, Dist&, Azim%)
    Dim Xx1#, Xx2#, Yy1#, Yy2#
    Dim azab#, tanbc1#, tanbc2#, poa#, pob#, cosaob#, apb#, _
        rfm#, rterr#, sinf#, aob#
    Xx1# = X1# * arcgrd
    Xx2# = X2# * arcgrd
    Yy1# = Y1# * arcgrd
    Yy2# = Y2# * arcgrd
    rfm = (Yy1# + Yy2#) / 2#
    sinf = Sin(rfm)
    rterr = C6 / (1 - Eq * sinf * sinf)
    If (Abs(Xx1# - Xx2#) < arcsec) Then
        If (Yy1# < Yy2#) Then
            Azim = 0
        Else
            Azim = 180
        End If
        Dist = CInt(Abs(Yy2# - Yy1#) * rterr)
    Else
        apb = Abs(Xx2# - Xx1#)
        poa = arc90 - Yy1#
        pob = arc90 - Yy2#
        cosaob = Cos(poa) * Cos(pob) + Sin(poa) * Sin(pob) * Cos(apb)
        aob = Atn(-cosaob / Sqr(-cosaob * cosaob + 1)) + 2 * Atn(1)
        Dist = CLng(aob * rterr)
        tanbc1 = Atn(Cos((poa - pob) / 2#) / Cos((poa + pob) / 2#) _
            * (1# / Tan(apb / 2#)))
        tanbc2 = Atn(Sin((poa - pob) / 2#) / Sin((poa + pob) / 2#) _
            * (1# / Tan(apb / 2#)))
        azab = tanbc1 - tanbc2
        If (Xx2# < Xx1#) Then
            Azim = CInt((arc360 - azab) / arcgrd)
        Else
            Azim = CInt(azab / arcgrd)
        End If
        Azim = Azim Mod 360
    End If
End Sub
Ciao, Ettore

specifica meglio
i due punti sono  molto lontani (oltre 50 km) , vicini (qualche km)  perche nel
primo caso ci sono formule che trattano la trigonometri elissoidica  mentre nel
secondo caso si considera la terra una sfera con un raggio particolare che
dimende dai punti
(sfera locale ) ed inoltre dipende anche dalla precisione che tu  vuoi
calcolare la distanza (max 1 metro oppure max 1 km)
leonello

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Reports

Premetto che non conosco Crystal Reports, ma mi chiedevo se era possibile
fargli leggere
dei file di testo opportunamente formattati per poterli stampare.
Ovvero vorrei creare dei file di testo come risultato di alcune analisi
effettuate al mio database
per poi stamparle con qualche programma come il Cristal.
Ciao e grazie
Enrico

 ha scritto nel messaggio
news:hWVu7.253$pm2....@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Menu' e statusbar

RG9tYW5kaW5hOg0KDQpjb21lIOggcG9zc2liaWxlIGZhcmUgYXBwYXJpcmUgbmVsbGEgc3RhdHVz
YmFyIHVuIG1lc3NhZ2dpbyBhc3NvY2lhdG8NCmFsbCdpdGVtIGRlbCBtZW51JyBzdWwgcXVhbGUg
bWkgdHJvdm8gYWwgbW9tZW50byA/DQpRdWFuZG8gcG9pIG1pIHNwb3N0byBzdSBkaSB1bidhbHRy
YSB2b2NlIGRpIG1lbnUnIGRvdnJhJyBjb21wYXJpcmUgaWwgbnVvdm8NCnZhbG9yZSBjb3JyaXNw
b25kZW50ZSBhZCBlc3NvLg0KUXVhbmRvIHBvaSBlZmZldHR1byBsYSBzZWxlemlvbmUgZGVsbCdp
dGVtIG9wcHVyZSByaXRvcm5vIGFsbGEgZm9ybSwgbGEgc3RhdHVzYmFyDQpkb3Zy4CBhc3N1bWVy
ZSBkaSBudW92byBsJ2FzcGV0dG8gY2xhc3NpY28gZGkgc2VnbmFsYXppb25lIG9yYXJpbywgbWVz
c2FnZ2lvDQpkaSBoZWxwIHJpZG90dG8gc3VsIGNhbXBvLCBtYWl1c2NvbGUvbWludXNjb2xlLCBl
Y2MuLi4NCg0KR3JhemllICENCg==

Newsgroup: it.comp.lang.visual-basic
Titolo: [?3]Come leggere il MAC ADDRESS della mia sch. LAN?? - AIUTO!

Salve a tutti, e da tanto che non posto su NG, qualcuno mi potrebbe
aiutare a risolvere il seguente problema ?
    Devo leggere il mac address della mia scheda di rete, ho provato a
scomodare la mpr.dll e la NETRESOURCE ma senza risultato.
Vi prego aiutatemi.
~Bca67#@
hotmail.com
-- rimuovere ~ e # per post.

...


GRAZIE GRAZIE GRAZIE !!! BCA67
"Andrea (pollo)" ha scritto:


Newsgroup: it.comp.lang.visual-basic
Titolo: VBA e Arcotangente

Ciao ho un valore in numero della tangente, vorrei sapere qual'è l'angolo 
che ha come risultato la tangente da me inserita. Ho provato con Atn ma mi 
vengono fuori numero strampalati e Atan non funziona. 


Lo sai vero che Atn() restituisce angoli espressi in radianti? Per convertirli
in gradi sessagesimali moltiplica il risultato per 45/Atn(1) (ossia
180/Pigreco).
Bye
Raf
-----------------------------------------------------
Funk: cooler than the other side of the pillow.

 180/Pigreco).
Infatti me ne sono accorto tardi.
Ho risolto grazie!
Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare in cirillico con PRINTER

Salve a tutti,
ho un problema che mi assilla da qualche giorno, devo stampare su
WINNT con un programmino in VB tramite delle istruzioni tipo
Printer.Print stringa
soltanto che invece di apparirmi i caratteri in cirillico vengono
tutti caratteri "strani" con accenti ed altro...
credo che il problema sia nel charset ma non riesco a impostarlo
correttamente....
Qualcuno mi puo' aiutare ???
Grazie
      Luppolo71

       Luppolo71
--
Ciao
   Sharkman
-----------------------------
Rimuovere NOSPAM per risposte

Salve a tutti,
ho un problema che mi assilla da qualche giorno, devo stampare su
WINNT con un programmino in VB tramite delle istruzioni tipo
Printer.Print stringa
soltanto che invece di apparirmi i caratteri in cirillico vengono
tutti caratteri "strani" con accenti ed altro...
credo che il problema sia nel charset ma non riesco a impostarlo
correttamente....
Qualcuno mi puo' aiutare ???
Grazie
      Luppolo71

 prefisso [?2] che ne descrive la natura (v. Articolo 10).
Tu hai fatto passare a mala pena un'ora ripostando il messaggio in
maniera identica.
Inoltre, NON hai risposto alle domande di chi sta cercando di aiutarti
(Vd risposta di Sharkman delle 10.03).
Detto cio', auguri per la tua stampa in cirillico. C'E' GIA' chi si sta
interessando.
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt


Ti parlo x W98SE non so' se per NT è IDEM.
Devi installare il supporto multilingue (Russo Cyrillic)
Poi ti basta fare :
Printer.Font.Charset = 204
Printer.FontName = "Times New Roman Cyr"
Fammi sapere come è andata.
Bye
Ven

 Lokar
Scusatemi non mi ero accorto dei ritardi, pensavo che fossero
instantanei... chiedo di nuovo venia, e grazie a tutti per l'aiuto
Luppolo71
Newsgroup: it.comp.lang.visual-basic
Titolo: Textbox

E' possibile rendere una text inaccessibile senza usare la proprietą
enabled=false? Nel senso che con questa proprieta' la casella di testo
diventa "trasparente" e si distingue dalle altre. Io vorrei che a vista
siano tutte uguali
Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 siano tutte uguali
agisci sull'evento che intercetta la pressione di tasti ed è fatta

Io ho risolto il problema creando un usercontrol che utilizza una textbox e
una label. Tramite una proprietà Bloccato, se Bloccato è uguale a true
visualizzo la label e nascondo la textbox, altrimenti l'opposto.
Il colore grigio sulla textbox quando enable=false è un'impostazione di
window che non si può modificare.
Altrimenti potresti utilizzare la proprietà locked=true e tabstop=false.
Comunque è sempre accessibile tramite mouse.
Ciao.

> agisci sull'evento che intercetta la pressione di tasti ed è fatta
Ma il mio problema è il mouse!!
non voglio che ci si possa cliccare sopra


 visualizzo la label e nascondo la textbox, altrimenti l'opposto.
l'avevo pensata anchio ma cosi devo creare una marea di label e di
codice


Altro problemino
se una text ha proprietą enabled=false l'evento mousedown o click non si
verifica! Come intercettare l'evento click del mouse?


 > una label. Tramite una proprietà Bloccato, se Bloccato è uguale a true


 se una text ha proprietà enabled=false l'evento mousedown o click non si


 textbox e basta.  
Dopotutto non sono cosi esperto!
Cos'è un userconltrol e come si chrea?


 ha scritto nel messaggio
news:7c830c9c9f513f1373b...@mygate.mailgate.org...


 Gestisci tramite gli eventi il tutto.
 
Fatto!
puoi spiegarmi in 4 parole come si usa? 


 ha scritto nel messaggio
news:2153854b55118eaaf8c...@mygate.mailgate.org...


 
perchè non usi la proprietà locked?
--
    .-"^`\                                        /`^"-.
  .'   ___\                                      /___   `.
 /    /.---.                                    .---.\    \
|    //     '-.                              .-'     \\    |
|   ;|         \/--------------------------//         |;   |
\   ||       |\_)                          (_/|       ||   /
 \  | \  . \ ;  |         KillerBoy        || ; / .  / |  /
  '\_\ \\ \ \ \ |                          ||/ / / // /_/'
        \\ \ \ \|    
kill...@pippo.it
    |/ / / //
         `'-\_\_\                          /_/_/-'`
                '--------------------------'
Inviato da 
www.mynewsgate.net
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto, niente da fare

Ciao, dopo vari tentativi non sono ancora (scusate ma non riesco a trovare
un pezzo di codice) a costruire la query. Riporto l a funzione che uso.
Comunque non ho capito come definire il MyMAX.
Public Function CtrlPresence() As PresenzaGen
Dim DB As Database
Dim DBR As Recordset
Dim Qr As QueryDef
Dim i As Integer
Dim RevAux As Integer
Dim StrSQL As String
StrSQL = "SELECT Max([revision_number]) as MyMAX  WHERE
Generator_Table.Name='" & frmMain.TxtName.Text& "';"
Set DB = OpenDatabase(App.Path & DBPath & DBName)
Set DBR = DB.OpenRecordset("Generator_Table", dbOpenDynaset)
Set Qr = DB.CreateQueryDef("", StrSQL)
.
.
.
end sub
Il compilatore mi dice che l'istruzione SQL non č corretta.
Grazie mille ancora.
Giuseppe

 Generator_Table.Name='" & frmMain.TxtName.Text& "';"
Non cambiare topic. vedi l'altro mio post di là.
Lì sopra, non manca la clausola From?

 Lě sopra, non manca la clausola From?
StrSQL = "SELECT Max(revision_number) as MyMAX From Generator_Table WHERE
Name='" & Replace(frmMain.TxtName.Text, "'","''") & "'"

 ha scritto nel messaggio
news:bu18dl$c704p$1...@ID-174464.news.uni-berlin.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: pacchetto installazione contenente file di Microsoft Access (.mdb)

Ciao, come posso fare per inserire nel pacchetto di installazione creato
mediante l'autocomposizione di VB6 dei file .mdb che occorrono alla mia
applicazione .. Insomma vorrei che il  pacchetto oltre a registrarmi i
componenti del programma vada anche a installare (copiare) i file .mdb che
servono al programma e che ho creato sulla mia macchina di sviluppo.
grazie.

 grazie.
Di nulla.
Bye...

Newsgroup: it.comp.lang.visual-basic
Titolo: porta parallela e seriale win2000

In windows 2000
Ciao raga devo scrivere un programma che riceve e manda i bit sulla porta
parallela mi potete dare una mano?
ovvero un sito con degli esempi?
quale librerie usare e come?
aiutoooo

"delux" <dlr...@tiscaliNOSPAM.it> ha scritto nel messaggio
news:bc4a0s$ei1$1...@news.unina.it...

questa č la libreria che ho usato io e funziona perfettamente:
http://www.visual-basic.it/scarica.asp?ID=765
Qui trovi un po di info come utilizzare la libreria e gli esempi:
http://www.visual-basic.it/uploads/articoli/tecnici/agNewInOut.htm
qui altre cose interessanti, poi in fondo a quest'articolo ti spiega come
installare la libreria:
http://www.visual-basic.it/uploads/articoli/tecnici/agvbhw3.htm
Tutto questo vale per la parallela,per il seriale utilizza l'oggetto comm
control 6.0
ciao mik
Newsgroup: it.comp.lang.visual-basic
Titolo: Codice per utilizzare una smart card

Salve, mi � stato chiesto di realizzare un applicazione che scriva e legga 
su una smart card per una raccolta punti, il lettore manhattan e la 
smartcard � una 4442.
Avete da suggerirmi qualche spunto per iniziare a studiarci su?
Vi ringrazio anticipatamente
Enzo 

Il collezionista ha scritto:

Solitamente se vai sul sito del produttore (o gli mandi una mail) ti 
forniscono direttamente le DLL/OCX di interfaccia e documentazione delle 
API.
ciao
stefano

 ha scritto nel messaggio 
news:4a44b1cd$0$696$5fc...@news.tiscali.it...


 visual basic :-(
Ma tu devi solo usarla, cosa te ne frega se � fatta in C o VB?
Che poi.... ma esistono api in VB?
-- 
Greg 

 Che poi.... ma esistono api in VB?
Eh si... e spesso ti salvano dal dover usare OCX scrausi... 

 ha scritto nel messaggio 
news:4a44baef$0$832$4faf...@reader5.news.tin.it...



Certo che si! 


Io ho progettato in questo modo:
- database su server dell'azienda committente
- lettura del numero di serie della card, associazione al record del 
database (magari previa registrazione con dati del possessore della card) e 
aggiornamenti punti effettuato dal programma sul SOLO server
Questo ti permette:
- sicurezza contro contraffazione delle card (per chi interessa)
- dati degli utenti e punti accumulati interamente privati e a disposizione 
della sola azienda
- semplificazione del codice: leggerai un numero di serie mediante 
protocollo ISO e non dovrai scrivere firmware
Saluti
Fulcro 

Ma a questo punto non conveniva un lettore digitale di impronte visto che la 
card doveva solo identificare una persona?

 che la card doveva solo identificare una persona?
Non conveniva di certo, ne in termini di sviluppo del software ne in termini 
di costo vivo dell'apparecchiatura :-)
D'altronde tu cos'avresti fatto? Avresti sviluppato un firmware con relativa 
sezione di crypt e avresti fatto l'aggiornamento punti direttamente sulla 
card? Io sinceramente non credo che convenga... Ma sono aperto ai diversi 
pareri pi� autorevoli del mio, d'altronde � un campo richiesto anche se le 
soluzioni commerciali pronte ormai costano pochissimo... 

pochissimo...
se lo compri gi� fatto non c'� pi� la soddisfazione dello sviluppo!
Ciao 

Ciao Fulcro, la mia applicazione dovrebbe effettuare un login e pertanto 
anche se c'� un server di messo, preferisco far risiedere i dati sulla 
card..........
Ho necessit� quindi di scriverci dentro con una sicurezza massima.
Hai qualche spunto?
Saluti 

Sono andato a vedere in edicola, ma non ho trovato il numero
� possibile recuperarlo via web?
Grazie 

 Saluti
Non ho capito bene cosa vuoi fare. Spiega meglio, e ti d� il mio punto di 
vista.

 ha scritto nel messaggio 
news:4a4c6182$0$47547$4faf...@reader1.news.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Connessione Oracle !

Qualcuno saprebbe illuminarmi su una connessione a un database Oracle?
la Select è ok!
ma l'update boooo........
notare il database è stato aperto in r/w e la password è amministrativa!
Possibilmente informazioni riguardante non all' RDO ma a ADO!
Grazie!

Io utilitzzo le seguenti righe:
Public oConn as ADODB.Connection
Private Sub ApriConnessione()
            Dim AccessConnect as String
            AccessConnect = "Provider=MSDAORA.1;" & _
                            "Data Source=StringaDiConnessione;" & _
                            "Persist Security Info=False"
            oConn.CursorLocation = adUseClient
            oConn.Open AccessConnect, "utente", "password"
end sub
La stringa di connessione è quella creata con EasyConfig che indica
l'indirizzo ( io uso IP ) del server sul quale gira ORACLE.
Per gli aggiornamenti :
Dim oRs as New ADODB.Recordset
oRs.Open "SELECT * FROM TuaTabella",oConn, adOpenKeyset,
adLockBatchOptimistic
oConn.BeginTrans
'    Se devi inserire un nuovo record devi scrivere:
     oRs.AddNew
'    Per l'update
    oRs.Fields("TuoCampo").Value = TuoValore
    oRs.UpdateBatch
oConn.CommitTrans
Ciao.
--
      Pino Saffioti
-----------------------------------
pino.s...@asl1.to.it

Newsgroup: it.comp.lang.visual-basic
Titolo: ado 2.7

Salve a tutti,
	quando provo a fare update di un nuovo record ho il seguente 
errore Error run-time '-
2147217887
' (80040e21).
Grazie per l'aiuto

 errore Error run-time '-
2147217887
' (80040e21).
L'errore è un errore di overflow. Solitamente è generato da un campo il cui
tipo non è abbastanza grande per contenere i dati che si è tentato di
aggiungere o aggiornare.
L'errore è anche noto come DB_E_DATAFIELD_OVERFLOW. Fai un controllo sulla
coerenza dei dati immessi.
Saluti,
--
Antonio Cangiano
Webmaster di 
www.visualcsharp.it

, 
antonio_...@TAGLIAyahoo.it says...
OK, il problema lo da anche che un solo campo.
Cmq guardo, grazie per il suggerimento

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 ed Excel

Ho quasi completata la mia procedura che permette
di aprire e modificare un file xls da VB6.
(Set Nome_Oggetto = GetObject(, "Excel.Application")
Però non riesco a stampare il foglio se non da excel.
Sapete se e come sia possibile farlo da VB6?
Grazie e saluti.
Sauro


Una cosa tipo:
Private Sub Command1_Click()
    Dim objExcel As Object
    Dim objWorkbook As Object
    Dim objWorksheet As Object
    Set objExcel = CreateObject("Excel.Application")
    Set objWorkbook = objExcel.Workbooks.Open("C:\tuoFile.xls")
    Set objWorksheet = objWorkbook.WorkSheets("Foglio2")
    'objExcel.Visible = True
    With objWorksheet
        .Cells(1, 1).Value = "Pippo"
        .Cells(1, 2).Value = "Pluto"
        .PrintOut
    End With
    objWorkbook.Saved = True
    objExcel.Quit
    Set objWorksheet = Nothing
    Set objWorkbook = Nothing
    Set objExcel = Nothing
End Sub
Modifica i riferimenti con i tuoi,
-- 
---------------------------
Mauro Gamberini
http://www.riolab.org/
 

 Sapete se e come sia possibile farlo da VB6?
Da excel avvia il Registratore di macro.
Fai quello che devi fare (es. File / Stampa)
Stoppa e guarda il codice, lo copi su VB6 adattandolo e a posto

Ho quasi completata la mia procedura che permette
di aprire e modificare un file xls da VB6.
(Set Nome_Oggetto = GetObject(, "Excel.Application")
Però non riesco a stampare il foglio se non da excel.
Sapete se e come sia possibile farlo da VB6?
Grazie e saluti.
Sauro


Leggendo le risposte che ti abbiamo dato?


Era il PrintOut che non riuscivo a trovare.
Molte grazie, Sauro

Scusate; doppio invio.

Newsgroup: it.comp.lang.visual-basic
Titolo: OT- ORGANIZZIAMO UNA CENA?

Salve, io sono un assiduo frequentatore di questo NG!!
Programmo e ogni tanto vengo in questo NG a fare domande sapendo di trovare
la risposta (anche se poche volte posso aiutare!!)
...
Per motivi fiscali mi sono dovuto sottoscrivere a it.economia.fisco, ed ho
visto un treed dove organizzano una cena!!
CHE NE DITE DI ORGANIZZARNE UNA ANCHE DI QUESTO NG???
non mi sembra una brutta idea, e poi è sempre un'occasione per vedere in
faccia che frequenta il NG!!
Spero che questa proposta abbia successo!!
if risposta= SI then
    per stilare una lista di chi partecipa:
    -nome e cognome
    -periodi da evitare
    -zona da scegliere
    -soli o accompagnati
elseif risposta=NO then
    scusate ma credevo fosse una buona proposta
end if

L'idea č ottima, solo che le persone di
it.economia.fisco
sono probabilmente personaggi un pň diversi da noi poveri programmatori.
Che so, magari lě c'č qualcuno direttore di banca, o presidente di
azienda, commercialisti affermati.
Si possono permettere di fare Roma-Milano per una cena.
Probabilmente molti di noi no. Io sono uno di questi.
Comunque, in centro Italia io ci sto.
Fabio

me.affamato=true
me.annoiato=true
me.riflessione$(1)="perchè  no?"
me.riflessione(2)="dove, però?"
me.vogliaDiDespammareMioAddrMail
Facci sapere se va in porto, è una idea carina
TWiN wrote:


Newsgroup: it.comp.lang.visual-basic
Titolo: SSTab: comportamento strano

Ho un SST con 3 tab; in ognuno di questi inserisco un Frame con all'interno
alcuni controlli standard. Quando avvio il mio programma, SST non mi
visualizza il contenuto del tab n-esino, dove n è il tab che ho lasciato
selezionato al momento dell'avvio del programma.
Ho trovato una soluzione, ma non mi piace: creando un quarto tab e
selezionandolo prima di avviare il programma, tutto funziona correttamente.
Suggerimenti ?

io ho risolto cosi.
nell'evento form load
sstab1.tab = 1
cosi mi visualizza sempre il 1° tab
happy developping ..... :-)
john79

 ha scritto nel messaggio
news:Eis78.28906$3J1.8...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Help grafica su Vb3-urgente

Sto realizzando una applicazione che disegna linee e punti rispettivamente
con il comando line e pset in un picturebox.
Ognuno di questi elementi grafici rappresente un elemento che ha delle sue
proprietą (peso, coordinate, lunghezza, temperatura, corrente elettrica ed
altro).
Mi piacerebbe che dopo la rappresentazione sulla picturebox, io posso
cliccare con il mouse sulla linea o sul punto interessato, per interrogarlo
sulle sue proprietą.
In pratica come posso toccare la linea in cambio di un risposta?
Attendo una risposta urgente
Grazie
Sebastiano Floridia
Siracusa
arch...@sistemia.it
freew...@aspide.it
http://freeweb.aspide.it/freeweb/windsurf
http://www.freeweb.org/sport/windsurf

immagino chr tu abbia memorizzato in un vettore  del tipo punti(3,1000)
    dove puni(1,nesimo) = x
            puni(2,nesimo) = y
            puni(1,nesimo) = codice
con  evento  mouse_down  ottieni il punto clikkato con il mouse
fai un do loop con tutti i punti della matrice punti  e calcoli con la formula
della distanza  se  zero inetrroghi il codice del punto che ti ha dato distanza
zero e prendi le decisioni opportune
per le linee in procedoimento e simile ,calcoli l'angolo che ottieni con il
punto clikkato
e i due punti che usato a trcciare la linea con line(....)
se l'anglo e' pgreco (in radianti)  il punto cliccato giace sulla linea
io ho seguito questo metodo
leonello


Newsgroup: it.comp.lang.visual-basic
Titolo: fwd: liberty basic

 -Carl Gundel, author of Liberty BASIC


Newsgroup: it.comp.lang.visual-basic
Titolo: Help Please! Bar Code Reader question

I have a problem. I got a hand-held bar code reader (scanner) and I would
like to use it with database in VB.
Could anyone tell me which activeX control can activate it? Any other useful
info will be highly appreciated.
Thank you
Chris

 ha scritto

chris
try asking altavista --> "bar code"+ocx <--
i've tried right now and the first results are here below.
hth, pal
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/
Web Pages   78,515 pages found.
URL: 
www.taltech.com/p_ocx.htm
URL: 
zdnet.com.au/swlib/Computer_Programming/...ols/000VE3.html
URL: 
taltech.com/news/activex.htm
URL: 
www.mabry.com/
URL: 
www.barcodes.com/
URL: 
www.visionshape.com/bartop.html
URL: 
www.dlsoft.com/
URL: 
www.hallogram.com/menus/FoxPro.html
URL: 
www.active-x.com/
URL: 
www.jspayne.com/io/io.html

 wrote in message
news:8e769b$aqv$1...@fe1.cs.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: buffer di ricezione seriale

Con questo codice di prova estraggo dal buffer di ricezione  della porta
seriale due caratteri di valore ASCII da 0 a 255 ciascuno:
MSComm1.InputMode = 0                         'modo testo
A =DoEvents ( )
Loop Until MSComm1.InBufferCount = 2   'aspetta 2 caratteri
Print MSComm1.Input                                'stampa 2 caratteri
End Sub
Anzichè estrarre due caratteri di un byte ciascuno è possibile
estrarre direttamente un numero decimale a 16 bit (da 0 a 65536) ?
Oppure convertire i due byte in numero decimale da 0 a 65536 ?
Grazie.
Francesco

 estrarre direttamente un numero decimale a 16 bit (da 0 a 65536) ?
Si tratta di Caratteri, forse volevi dire INTERO e non DECIMALE.
Comunque puoi fare così:
MSComm1.InputMode = 0        ' (oppure comInputModeText  che imposta la
proprietà di ricezione nel formato text)
MSComm1.InputLen = 2  'imposta di leggere set di due caretteri
If MSComm1.InBufferCount > 0 Then   ' controlla che vi sia qualcosa nel
buffer di lettura
    InputString = MSComm1.Input          ' legge i due caratteri
Regards,
Antonio Cangiano
--
"I grandi spiriti hanno sempre incontrato violenta
opposizione da parte delle menti mediocri."
A.Einstein
Newsgroup: it.comp.lang.visual-basic
Titolo: Software CAPS LOCK

Does anyone know how to change the case of letters typed by using a keyboard
hook?  Does anyone have any sample code?
Thanks in advance,
Tim Bledsoe
Lync Technical Resources

 wrote in message
news:lekz6.84$BA.7...@news.uswest.net...


 wrote in message
news:lekz6.84$BA.7...@news.uswest.net...


 hook?  Does anyone have any sample code?
Private Type VKEYARRAY
     vkByte(0 To 255) As Byte
End Type
Private Declare Function SetKeyboardState Lib "user32" (lpKeyState As
VKEYARRAY) As Long
Private Declare Function GetKeyboardState Lib "user32" (lpKeyState As
VKEYARRAY) As Long
Public Sub SetKeyMask(ByVal vkey As Byte, ByVal state As Boolean)
    Dim vkBuffer As VKEYARRAY
    Dim void As Long
    void = GetKeyboardState(vkBuffer)
    If state Then
        vkBuffer.vkByte(vkey) = 1
    Else
        vkBuffer.vkByte(vkey) = 0
    End If
    void = SetKeyboardState(vkBuffer)
End Sub
Ex: Call SetKeyMask(vbKeyCapital, True)
--
Princi, 
princ...@programmer.net
---------------------------------------------------------------------
"Tutti sanno che una cosa è impossibile da realizzare,
finché arriva uno sprovveduto che non lo sa e la inventa." A.E.

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Antivirus per piattaforme server free

Come da oggetto, ricercavo un prodotto antivirus
per il 2000 server che ho a casa.
Premesso che acquisto il 3,5/4 dei miei prodotti,
spendere un 700$ se non ricordo male per un antivirus
server ... mi sembra uno schiaffo all'onesta di chi vuole
comprare tutto.
Cerco quindi un'alternativa free o con modica spesa.
Saluti
Andrea

 ha scritto nel messaggio
news:a76rh6$j3suh$1...@ID-61006.news.dfncis.de...

C'č l'AVP che funza sul server e costa poco
http://www.avp.it/
Ciao
--
Timothy Redaelli
timothy(dot)redaelli(at)email(dot)it
-----------------------------------
Links:
Sito Comune: 
www.it-lang-vb.net
MSDN: 
msdn.microsoft.com

Andrea MORO ha scritto:

non controllato, non provato, ecc. ecc. (avevo solo il bookmark da 
qualche parte):
http://sourceforge.net/projects/openantivirus/
-- 
 < 
http://www.reactos.com/
 >  Open source clone of Windows NT. Current
     Don't stand, REACT!      version 0.0.19. C, C++ and ASM developers
                              and beta testers are welcome!

www.free-av.com



Volevo sapere come giudicate questo antivirus ?? vale la pensa sostituirlo
al norton ?? è affidabile come aggiornamenti ??
Ciao e grazie
Luca

Newsgroup: it.comp.lang.visual-basic
Titolo: La stramaledetta DBGrid

poi provo a inserire un dato, ricevo lo stesso messaggio di errore...
prova cosi ' 
   dbgrid1.column(x)= "sdfsdsd"
 
Antonio Tanzillo  
a...@netgroup.it
Marigliano (NA)  
www.netgroup.it/atsoft

Newsgroup: it.comp.lang.visual-basic
Titolo: prop backstyle

ciao
sto' diventando matto con la prop. backstyle dell'usercontrol.
prima con l'image, adesso con il controllo label
se si inserisce una label in un usercontrol con prop backstyle = trasparente 
non si vede piu' la label perche'
ciao
ilario
Newsgroup: it.comp.lang.visual-basic
Titolo: winsock & porte in ascolto

Salve ragazzi, il mio problema è il seguente:
facendo un netstat - a sulla mia macchina ottengo il seguente risultato :
 Proto  Indirizzo locale       Indirizzo remoto       Stato
 TCP    orsa:epmap             
BASTION.medialine.mline.it:0
  LISTENING
 TCP    orsa:microsoft-ds      
BASTION.medialine.mline.it:0
  LISTENING
 TCP    orsa:1027              
BASTION.medialine.mline.it:0
  LISTENING
 TCP    orsa:1033              
BASTION.medialine.mline.it:0
  LISTENING
 TCP    orsa:1045              
BASTION.medialine.mline.it:0
  LISTENING
 TCP    orsa:1223              
BASTION.medialine.mline.it:0
  LISTENING
 TCP    orsa:1317              
BASTION.medialine.mline.it:0
  LISTENING
 TCP    orsa:1319              
BASTION.medialine.mline.it:0
  LISTENING
 TCP    orsa:3372              
BASTION.medialine.mline.it:0
  LISTENING
********************************************************
 TCP    orsa:pop3              
BASTION.medialine.mline.it:0
  LISTENING
********************************************************
 TCP    orsa:1032              
BASTION.medialine.mline.it:0
  LISTENING
 TCP    orsa:1070              
BASTION.medialine.mline.it:0
  LISTENING
 TCP    orsa:1084              
BASTION.medialine.mline.it:0
  LISTENING
Vedete la sezione tra gli asterischi??? (************), bene io vorrei
aprire una porta in attesa e dargli un nome
es: orsa:mio_server in modo tale che i client che sono in rete senza
conoscere l'IP del server, possono interrogare tutti i pc in rete, e non
appena viene trovata la porta (in ascolto) chiamata mio_server, vi
stabilisca una connessione?
sono stato chiaro? C'è chi mi dà qualche dritta??
Buon lavoro!

 stabilisca una connessione?
Non mi risulta che ci sia un servizio che renda "pubblico" questo tipo di
nomi, quelli che leggi con il netstat sono i nomi presenti nel file
"services" (nei sistemi Widnows si trova sotto \windows o in WinNT, 2000 e
XP in \windows\system32\drivers\etc) quindi vedrai il nome al posto della
porta solo se sul TUO sistema hai associato un nome a quella porta.
Per dimostrartelo prova ad aggiungere questa riga al tuo file "services":
boh-non-so       1027/tcp
Vedrai che il netstat ti dira':
 TCP    orsa:boh-non-so    
BASTION.medialine.mline.it:0
  LISTENING
Quindi la tua soluzione sarebbe quella di modificare il file "services" di
tutte le macchine che devono accedere a questo servizio. Ma non mi semrba
che sia esattamente quello che volevi...;-)
--
   Alex Palmese
--- Per scrivermi elimina "LOSPAM" dall'indirizzo ---
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE! 
http://www.sertel.net/terminator/
Newsgroup: it.comp.lang.visual-basic
Titolo: Modem

Avrei bisogno di sapere come instaurare una connessione via modem tra due
computer.
Tutti i consigli sono ben accetti.
Ciao Stefano Lopena

 Tutti i consigli sono ben accetti.
Innanzi tutto devi accendere i computer ed i modem ... quando hai fatto
questo ...
prova a leggere qualcosa sul sito comune (per esempio il manifesto) e cerca
di postare una richiesta + specifica.
"Avrei bisogno che qualcuno lavorasse al mio posto ... ovviamente gratis"
Bah

 wrote in message
972tv4$r1f$1...@pluto.sm.dsi.unimi.it...

Se hai scritto questo messaggio vuol dire che hai già stabilito una
connessione
via modem tra due computer............... :-))))))
Spiega meglio, please...............
Sir Jo