mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: come convertire in bits?

sto cercando di convertire un numero hex tipo:
4FF61 in formato binario per in seguito controllare lo stato dei singoli
bits , tipo 0100111101100001
ma come?

 bits , tipo 0100111101100001
Fatta al volo, potrebbe essere un po' rozza.
Un numero Hex com 01FFAC viene tradotto in
000000010100110011111011, ossia se il left-most
byte č 01, ritorna 00000001 - potrebbe anche essere
necessario. Altrimenti puoi togliere i primi 4 zeri.
Function Hex2Bin(lpszInput As String) As String
Dim intLenInput As Integer
Dim lpszBinary As String
Dim lpszTmpBuf As String
Dim Counter As Integer
lpszInput = UCase(lpszInput)
intLenInput = Len(lpszInput)
    ' controllatina alla stringa
   For Counter = 1 To intLenInput
      If InStr("0123456789ABCDEF", Mid$(lpszInput, Counter, 1)) = 0 Then
        MsgBox "Il numero non č in formato Esadecimale", vbCritical
        Exit Function
      End If
   Next Counter
   ' Converte il numero in binario
   '
   For Counter = 1 To intLenInput
      lpszTmpBuf = Mid$(lpszInput, Counter, 1)
      If lpszTmpBuf = "0" Then
        lpszBinary = lpszBinary + "0000"
      ElseIf lpszTmpBuf = "1" Then
        lpszBinary = lpszBinary + "0001"
      ElseIf lpszTmpBuf = "2" Then
        lpszBinary = lpszBinary + "0010"
      ElseIf lpszTmpBuf = "3" Then
        lpszBinary = lpszBinary + "0011"
      ElseIf lpszTmpBuf = "4" Then
        lpszBinary = lpszBinary + "0100"
      ElseIf lpszTmpBuf = "5" Then
        lpszBinary = lpszBinary + "0101"
      ElseIf lpszTmpBuf = "6" Then
        lpszBinary = lpszBinary + "0110"
      ElseIf lpszTmpBuf = "7" Then
        lpszBinary = lpszBinary + "0111"
      ElseIf lpszTmpBuf = "8" Then
        lpszBinary = lpszBinary + "1000"
      ElseIf lpszTmpBuf = "9" Then
        lpszBinary = lpszBinary + "1001"
      ElseIf lpszTmpBuf = "A" Then
        lpszBinary = lpszBinary + "1010"
      ElseIf lpszTmpBuf = "B" Then
        lpszBinary = lpszBinary + "1011"
      ElseIf lpszTmpBuf = "C" Then
        lpszBinary = lpszBinary + "1100"
      ElseIf lpszTmpBuf = "D" Then
        lpszBinary = lpszBinary + "1101"
      ElseIf lpszTmpBuf = "E" Then
        lpszBinary = lpszBinary + "1110"
      ElseIf lpszTmpBuf = "F" Then
        lpszBinary = lpszBinary + "1111"
      Else
        MsgBox "Errore !", vbCritical
      End If
   Next Counter
   Hex2Bin = lpszBinary
End Function

Newsgroup: it.comp.lang.visual-basic
Titolo: text e numeri...

Salve a tutti...
Spero che ciň che sto per chiedere non sia troppo complicato:
Ho creato un programma che contiene due text, ed un pulsante, vorrei
riuscire a calcolare quante lettere sono scritte nel text1 e scrivere il
risultato sotto forma di numeri nella text2...
ES:  la text1 contiene la parola          Ciao come va?
       premendo il pulsante nella text2 dovrebbe comparire il numero   13,
13 xchč vorrei calcolare anche gli spazi...................
Vi ringrazio anticipatamente
Jonny



 wrote in message
920din$2mh$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Mare Magnum...Farlo parlare in Italiano! TTS in italiano?

Allora un tempo beccai un periodo felice in cui M$ dava anche l'engine in
Italiano (il TTS)....adesso io vedo che ha cambiato molte cose!...e il cd
non lo trovo + (erano le sapi 4.0 !)
Adesso danno Mary e Mike ma fanno pena a parlare in italiano....con google
vien fuori il mondo ma niente rispetto questo vecchio pacchetto.
Da M$ dicono che Mike o Mary supportano francese e tedesco...spagnoli e
italiani si attaccano....usate l'inglese!
Fate dire a Mary "Attenzione i dati memorizzati superano la dimensione
massima prevista ...si consiglia di avviare la procedura di backup!" e
capite che è tutto fuorchè professionale!...
se poi lo condite dal fatto che l'alternativa è farlo dire da uno vestito da
Merlino che appare dal nulla!...oh beh!
Help....amici!
 c'è verso fargli dire la frase di poco sopra senza che mi richiedano i
danni per l'infarto, causato dal troppo ridere, che ha preso il ragioniere
del mio cliente???!!
<bip>Saluti!<bip>
(non mi consigliate ocx di qualcuno che non li scarico, ne li compro!)

C'č un prodotto analogo IBM...
Dal sito IBM puoi scaricare la trial...
Lo Speech Engine č lo stesso, cosě come i fonemi,
che sono quindi compatibili...
Il prodotto IBM ha anche l'italiano.
Installi il prodotto IBM e ti compaiono i fonemi italiani...
Per fare delle prove feci cosě, e funzionava...
Poi ho disinstallato tutto perché ci volevano troppi giga (di disco e
ram) per far dire due parole al piccě...
Comunque funzionava alla grande.
Hey Wodka...
Occhio alle licenze...
In caso di uso commerciale credo che si debba acquistare il prodotto IBM
completo.
Hola :)
-> GbC
http://www.gbcweb.com
F53C7B7263B8B09CCFE6AEBEFD97168F58B0C450

Newsgroup: it.comp.lang.visual-basic
Titolo: come si mantiene una form in primo piano riepstto ad un altra?

Grazie.

 Grazie.
Form2.Show [vbModal], Form1
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

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

Ciao a tutti.
Lo so sarà un errore semplice, ma non riesco a risolverlo:
Dim data As Date = "17/11/1970"
Dim tTrascorso As TimeSpan = "10.12:00:00"
L'assegnazione della variabile tipo TimeSpan mi da errore "impossibile 
convertire il valore di tipo String in System.Timespan
Grazie
Starry Night

 Dim tTrascorso As TimeSpan = "10.12:00:00"
Dim tTrascorso As TimeSpan = TimeSpan.Parse("10.12:00:00")
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL
Newsgroup: it.comp.lang.visual-basic
Titolo: Intrappolare il mouse

Avrei cortesemente bisogno di 2 informazioni:
1) Vorrei sapere com'è possibile intrappolare il puntatore del mouse in una
finestra di modo che non possa "andare" su altri programmi....
2) Vorrei l'indirizzo del sito comune....
Grazie
Ciao
Federico

2) Vorrei l'indirizzo del sito comune....
  indirizzo del sito comune.
 
http://www.murialdo.it/it_lang_vb


Esatto proprio questo intendevo fare..... Purtroppo non sono molto esperto
di vb (a proposito uso il 4.....) e non so come fare x assegnare le
coordinate...
Grazie
Ciao
Federico


www.murialdo.it/it_lang_vb/
--
Roal Zanazzi
z...@iol.it


facile... dai un'occhiata alla funzione api ClipCursor :))
Gli viene passato un tipo RECT che specifica le coordinate del rettangolo
dal quale il mouse non può uscire:
Dim rettangolo As RECT
GetWindowRect Me.hWnd, rettangolo
ClipCursor rettangolo

spero di essermi fatto capire, purtroppo non ho molto tempo...
Grazie tante, ma come si fa? :)
ByeZ!
Alkondor

 >
Grazie 1000 a tutti coloro che mi hanno risposto..........!!
Ciao
Federico

in un Modulo
declare function GetDesktopWindow lib "user32" () as long
declare function GetWindowRect lib "user32" (byval hwnd as long, lprect as
RECT) as long
declare function ClipCursor lib "user32" (lprect as Any) as Long
Type RECT
    left as Long
    right as Long
    top as Loong
    Bottom as Long
        end Type
nel codice della FORM
............. per Bloccare il mouse in una finestra
GetWindowRect me.hwnd, ControlRect
ClipCurso ControlRect
............. per SBloccare il mouse
Dim ScreenRect as RECT, ScreenHandle as Long
ScreenHandle = GetDesktopWindow
ClipCurso ScreenRect
ciao Davide
NB
ricorda di associare il codice di sblocco all'evento desiderato e nel caso
alla pressione del tasto Esc o alla chiusura della Form (quindi nell'evento
Form_Unload)

 wrote in message
7kliaq$8ed$8...@fe2.cs.interbusiness.it...

Grazie ce l'ho fatta......
Un'altra cosa però......... Come faccio a reimpostare l'area... (cioè a far
si che il puntatore possa tornare come prima su tutte le finestre
ecc......)??
Grazie
Ciao
Federico


Non mi funziona il codice di sblocco.... Perchč?
Ciao
Grazie
Federico

 >
Manca GetWindowRect ScreenHandle, ScreenRect prima della funzione ClipCursor


Ehm.. un  po' di ragionamento :)) basta ancorarlo al desktop:
Dim rettangolo As RECT
GetWindowRect GetDesktopWindow, rettangolo
ClipCursor rettangolo
GetWindowDesktop ritorna l'handle della finestra desktop


Secondo la documentazione dell'API, per "sbloccare" il clipping del cursore
si deve passare NULL come parametro; riporto:
BOOL ClipCursor(
    CONST RECT *lpRect  // pointer to structure with rectangle
   );
Parameters
lprc
Points to the RECT structure that contains the screen coordinates of the
upper-left and lower-right corners of the confining rectangle. If this
parameter is NULL, the cursor is free to move anywhere on the screen.
--
Roal Zanazzi
z...@iol.it


è vero :-)) così va bene.
Dim ScreenRect As RECT, ScreenHandle As Long
ScreenHandle = GetDesktopWindow
GetWindowRect ScreenHandle, ScreenRect
ClipCursor ScreenRect
ciao
Davide
Newsgroup: it.comp.lang.visual-basic
Titolo: inserire immagini personalizzate in toolbar

Come faccio ad inserire le immagini in Toolbar?

Inserisci prima una ImageList con le icone che ti interessano, poi connetti
la toolbar all'ImageList (proprietą personalizzate), quindi aggiungi i
pulsanti che vuoi con le icone che vuoi.

Newsgroup: it.comp.lang.visual-basic
Titolo: evento questo evento?

Esiste un evento che mi intercetti l'uscita da una textbox prima che
effettui la textbox? In pratica io vorrei che mi effettuasse dei controlli
prima ancora che mi esca dal campo, perchè con la lostfocus mi esce comunque
dal campo.
Grazie

prova con un controllo sul lostfocus... poi se i criteri non ti piacciono
gli rispari (Sempre dentro il lostfocus) un bel setfocus dello stesso.
voglio andare a cassaaaaaaaaaaaaaaaaaaaaaaaaaaaa !!!!!!!!!!!!!

"Valeria" ha scritto:

Evento Validate
(solo VB6?)
Ciao,
Carlo.

Mhhh.... Ci sarebbe l'evento Validate...
Però solo per VB 6.0 e ha degli errori fino al SP3...
                Ciao
                                Allanon

 ha scritto nel messaggio
news:9u85e1$fu5$1...@phobos.ibnetwork.net...


 ha scritto nel messaggio
news:9u84t0$1ag$1...@sun250.unimi.it...

MSDN ... evento Validate ...
Saluti

alla luce anche dei post successivi al mio credo proprio ti tocchi!
sorry...

 Però solo per VB 6.0 e ha degli errori fino al SP3...
SP3 Compreso?
(tanto questo tipo di eventi non li uso perchè non mi fido mai)
Ciao
------------------------- SiDB Simple DataBase engine ----
------------------------- adParser Expression evaluator --
 
http://space.virgilio.it/zntf...@tin.it/
----------------------------------------------------------

 (tanto questo tipo di eventi non li uso perchè non mi fido mai)
Io lo uso molto spesso e devo dire che non vanno affatto male.
Perchè non ti fidi ?
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: Conoscete YellowControl?

Ho recuperato l'activeX che mi serviva!
Qualcuno di voi puņ aiutarmi a trovare il modo di Registrarlo senza
pagare?!!!
Secondo il vostro parere si puņ utilizzare in un file Authorware?
Grazie!

 pagare?!!!
Complimenti !! Bella faccia tosta !

Grazie!
Mah, in realtą non so quanti del NG siano regolari con il SW che usano, io
stesso non lo ero mentre ero studente, ma almeno un po' di discrezione...

Newsgroup: it.comp.lang.visual-basic
Titolo: come far espandere automaticamente una combo

Vorrei fare in modo che dopo aver premuto un pulsante che mi popola una
combobox, questa automaticamente
si aprisse. Ho trovato qualcosa che fa riferimento ad un messaggio
CB_SHOWDROPDOWN. Come faccio ad inviare questo messaggio alla combo?
Grazie,
CHICCO

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA"
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As
Long) As Long
Const CB_SHOWDROPDOWN = &H14F
Private Sub Form_Load()
Dim iPnt As Integer
For iPnt = 1 To 10
   Combo1.AddItem CStr(iPnt)
Next
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&
End Sub
Enjoy,
Corrado

 wrote in message
news:7lt6qc$c9b$1...@fe1.cs.interbusiness.it...


 wrote in message

Newsgroup: it.comp.lang.visual-basic
Titolo: Funzione e XArrayDb

Ho la necessita di ritornare da una funzione un XArrayDb
ho provato in questo modo
Function MiaFunzione () as XArrayDb
dim Punti as XArrayDb
    set Punti = New XArrayDb
............
MiaFunzione = Punti
end function
Niente da fare e mi da un'errore
ho provato in quest'altro modo
Function Miafunzione () as Object
dim Punti as XArrayDb
    set punti=New XArrayDb
..............
niente anche in questo caso
ho provato in questo modo
dim punti as object
    set punti =New XArrayDb
niente nemmeno in questo caso
la routine chiamante ho settato la variabile di ritorno sia come Object sia
come XArrayDb ma niente nemmeno in questo caso.
Come posso risolvere il problema senza riscrivere la stessa routine piu
volte???
Grazie a tutti per un consiglio
Enzo
--

Ho la necessita di ritornare da una funzione un XArrayDb
Che cos'e' un XArrayDb?
-- 
ciao, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Ridondanza ciclica

Ciao a tutti, mi dispiace rompere per una cosa così ma avrei la necessità di
conoscere il codice dell'algoritmo di ridondanza ciclica che si usa per
individuare eventuali errori sulla trasmissione dati. Qualcuno di voi sa per
caso dove posso reperire il codice?
grazie mille
--
----------------------------------------------
ICQ:     75033011
E-Mail: 
song...@libero.it
----------------------------------------------

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

Sto imparando a programmare in VB e all'interno del mio applicativo devo
leggere un file di testo; pensavo di attivare a richiesta un controllo di
selezione file (la classica finestra che si apre attivando il comando
"File"-->"Open") ma non ho proprio idea di come devo fare e quali
controlli attivare.
Aiutatemi perchč sono veramente disperato !!!
Grazie
-- 
Un caro saluto agli amici di Echelon che stanno spiando questo messaggio
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 Aiutatemi perchè sono veramente disperato !!!
Apparte il menu da creare per fare la finestra di apertura file puoi
aggiungere al progetto il componente Common Dialog.
E poi usare il suo metodo .ShowOpen
Nella guida trovi tutto.
-- 
DBMS Firebird
VB6 + Ado

 Nella guida trovi tutto.
Quale guida mi consiglieresti, per cortesia ?
Quelle che possiedo io sono molto vecchie ed il componente CommnDialog non
č nemmeno menzionato



Ma che versione di VB hai?
La guida è quella cosa magica che appare premendo F1
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: Win98 non vuole caricare un OCX nel proprio REGISTRO!!!

BlankCiao a tutti i NGini,
forse è capitato anche a voi di aver fatto tanta fatica nello sfornare un
bel programma che nel vostro pc funziona benissimo e poi ... quando lo
carichiamo in un altro pc non riusciamo a farlo funzionare perchè il
registro di Windows "rifiuta" di caricare uno degli OCX richiamati dal
nostro programma!!!
Che fare???
Nel mio caso mi è successo cercando di caricare MSDialup.ocx (MorenoSoft
Dialup, un simpatico ocx che gestisce l'accesso remoto) in un sistema con
WIN98 2^ edizione.
Questa la mia procedura:
ho dapprima inserito l'ocx nella directory windows\system ed ho digitato da
una finestra dos la seguente stringa
c:\windows\system\regsvr32 c:\windows\system\msdialup.ocx
Questo il messaggio di errore:
LoadLibrary ("c:\windows\system\msdialup.ocx") failed.
GetLastError returns 0x00000485.
Che pizzetta e' successo??? Ho anche provato ad installarlo in altri pc e in
alcuni non dà problemi, mentre in altri da' lo stesso tipo di errore!! Da
che potrebbe dipendere??
Un enorme grazie a chiunque voglia cimentarsi! ;))
Ciao a tutti. Gianni

 ha scritto nel messaggio
news:8m7g60$60d$1...@nslave1.tin.it...


 ha scritto nel messaggio
news:2CQh5.56656$wS2.5...@news.infostrada.it...


 ha scritto nel messaggio
news:8m8op8$poo$1...@nslave2.tin.it...


 1849290
Mi potresti dire che utility hai usato per vedere l'elenco delle dll utilizzate ?
Una volta c'era quickview o qualcosa di simile. Ora non lo trovo piu'...
--
Frogman
indirizzo e-mail corretto: 
be...@reboot.to

 Una volta c'era quickview o qualcosa di simile. Ora non lo trovo piu'...
Io uso spesso Dependency Walker (depends.exe) che si trova nel CD
di VB 5/6
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle BT Sez. Sud
Fan #1 di Maison Ikkoku
Amante di Yagami e Kozue
Socio onorario del club per la produzione degli orsi Ciro
Fondatore del club per la protezione dell'orso Coccolino
Fondatore del club per la sterminazione di Windtears ^__^
Acerrimo nemico di SaintJust ^__^
       ,-~-.
      < ^ ; ~,
       (_  _,    "Piyo"
        J~~>

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Scuse pubbliche a Lorenzo

In effetti sono stato un po' troppo spiritoso ...
perdono ...
se verrai al meeting, ti offrirņ una birra (cosģ siamo a 4) ...
Saluti

Newsgroup: it.comp.lang.visual-basic
Titolo: aprire un file .htm

Sto sviluppando un applicativo in vb6 e vorrei che alla pressione di un
tasto, o comunque a qualsiasi altro evento simile, potessi aprire una pagina
.htm che ho scritto, come posso fare???
Devo usare un controllo activeX e inserire la pagina li dentro???
Grazie in anticipo...

 wrote in message 8m3fbh$r8i$1...@news.mch.sbs.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: [!] Per Souffle: comprimere-decomprimere file e dati in memoria.

Scusate tutti per il subject personale, ma non ho l'e-mail,
e so solo che ogni tanto lurka :-)
Comunque può interessare anche ad altri, si tratta di un modulo
.BAS di interfaccia per la già nota Zlib.dll free, per comprimere
e decomprimere.
http://w3.one.net/~kevinw/VB/d_DLL.htm
In fondo ci sono i link diretti.
http://w3.one.net/~kevinw/VB/modCompress.bas
ftp://ftp.one.net/pub/users/kevinw/VisualBasic/ZLIB.zip
Bye, G.

"Paperino" <non...@lo.dico> ha scritto

anche
http://www.vbaccelerator.com/overlib.htm
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 - Problema con parametro

all'interno dello stesso progetto, ho incluso il seguente codice:
All'interno del modulo "Module1:"
[...]
Public Type MioTipo
    var1 As String
    var2 As String
End Type
[...]
---
All'interno della Form "Form1":
[...]
Public Sub Procedura(pippo as mioTipo)
[...]
End Sub
[...]
Ora, quando mando in esecuzione, mi dà un errore (peraltro 
difficilissimo da decifrare) che sembra dire in pratica che non posso 
utilizzare un "tipo definito dall'utente" come parametro della funzione, 
a meno che il modulo in cui viene definito non sia pubblico.
Però non ho capito come risolvere il problema (come faccio a rendere 
"pubblico" un modulo?), qualcuno mi sa dare una mano?
giovanni
(per chi vuol farsi una risata, riporto l'errore, che assomiglia di più 
ad uno scioglilingua:
"Solo i tipi pubblici definiti dall'utente definiti in moduli di oggetto 
pubblici possono essere utilizzati come parametri o tipi restituiti per 
routine pubbliche di moduli di classe o come campi di tipi pubblici 
definiti dall'utente.")
:-)
Inviato da 
www.mynewsgate.net

 ha scritto nel messaggio
news:200409100...@mynewsgate.net...


 "pubblico" un modulo?), qualcuno mi sa dare una mano?
Sì, non puoi definirti funzioni pubbliche con type che risultano privati.
In effetti non ha molto senso questa limitazione nel caso dei Form, specie
se in un exe dove per forza di cose sono comunque privati.
Comunque puoi risolvere "imbrogliando" il compilatore ad es. definendo come
Friend anzichè come Public la tua sub: in questo modo la sub resta pubblica
all'interno del progetto ma inacessibile dall'esterno.
Oppure anzichè un Type usi una Classe.
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

Montag ha scritto:

Mah, così com'è risolvi mettendo la procedura nel form come Private, ma
se ti serve utilizzarla come pubblica puoi copiare l'area di memeoria
della struttura su di un'altra con il copymemory (RtlMoveMemory).
Aggiungi questa nel modulo pubblico:
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory"
(lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
poi scrivi la procedura nel form cosi:
Public Sub Procedura(Puntatore As Long)
  Dim pippo As MioTipo
  Call CopyMemory(ByVal VarPtr(pippo), ByVal Puntatore, LenB(pippo))
  [...]
End Sub
e passi alla procedura il puntatore alla struttura in sta maniera:
Dim mario As MioTipo
     mario.var1 = "Prova"
     mario.var2 = "Tipo"
     Procedura VarPtr(mario)
Funzionare funziona.
Naturalmente, così facendo, è come se tu passassi la struttura per
valore e non per riferimento. Quindi se nella routine viene modificato
qulche valore che ti serve una volta ritornato dalla routine dovrai
ricopiare la struttura facendo l'operazione contraria prima di uscire.
   Call CopyMemory(ByVal Puntatore, ByVal VarPtr(pippo), LenB(pippo))
End sub
notte
Luca

 ricopiare la struttura facendo l'operazione contraria prima di uscire.
Ma se passi il puntatore non č un passaggio ByRef? ;)


 Raf
guarda caso, è proprio quello che è venuto in mente di fare anche a me :-)
grazie!!!
gio
Newsgroup: it.comp.lang.visual-basic
Titolo: [ASP.NET] HeaderStyle Controllo Datagrid personalizzato

Ciao a tutti, ho un piccolo problema.
In una libreria di controlli 
ASP.NET
, ho un controllo personalizzato che
deriva dalla DataGrid. Il relativo DataSource è dato da una collection
personalizzata di miei oggetti, e siccome di questi voglio mostrare solo
alcune proprietà (e in modo personalizzato), ho ridefinito
l'AutoGenerateColumns in modo che sia sempre False e mi creo le
TemplateColumn a manina. A tale scopo, ho inserito il codice relativo in una
sub interna ("InitializeColums") che richiamo dalla sub new del controllo.
Ho compilato la libreria e ho inserito il controllo in una web form. Ho però
notato che se a design time imposto l'HeaderStyle del controllo
(es.BackGroundColor =Red), vedo riflesso il cambiamento sulle colonne, ma se
chiudo e riapro la form ogni cambiamento sparisce!
I miei sospetti cadono sulla posizione della InitializeColumns, ma se non la
richiamo dalla Sub New, non mi appaiono le colonne a design time.
Dove sbaglio? Qualcuno sa darmi una dritta?
Grazie
                    Ciao
                                Zephiross

 ha scritto nel messaggio
news:bn8s4p$u8qoi$1...@ID-209276.news.uni-berlin.de...

Inizialmente il tentativo di aggiungere colonne al DataGrid a runtime
(
ASP.NET
), problemi a non finire.
Verificando gli esempi sia di Balena, che di Bellinaso, ho notato che la
costruzione delle colonne avveniva
esclusivamente nella pagina HTML.
Ho dedotto momentaniamente,
se i detti propongono una costruzione in quel modo, mi allineo e per adesso
non insisto nella ricerca di strade diverse.
Se alcuno mi mostra un'esempio valido di aggiunta a runtime di colonne
esente da controindicazioni, ben venga.
Ave
giuseppeD

Ce l'ho fatta...!! :)
Anziché richiamare la InitializeColumns dalla sub New, l'ho fatto
nell'evento Load del controllo.
                Ciao
                        Zephiross
Newsgroup: it.comp.lang.visual-basic
Titolo: Variabile

Ho una variabile dichiarata come globale.(global rigavuota as string)
il valore di questa variabile non è altro che : chr$(13)+ chr$(10)
Lavorando con file di testo, utilizzo questa variabile in una marea di
routine.
C'è il modo di attribuirgli il valore una volta sola, come se fosse una
costante?
ciao
andrea

 routine.
Puoi utilizzare vbCrLf senza dover definire la variabile
Saluti
Matte


[...]

 ha scritto nel messaggio
news:r_Kt6.65997$6W.63...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: help: aiuto

Non riesco assolutamente ad utilizzare i programmi per la costruzione
dell'help forniti con VB5 professional, non sto capendo veramente niente,
vorrei un aiuto, anche solo un accenno a come funzionano le cose
Grazie
puoi anche scrivermi

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Compilatori GUIDA

Cerco editor completo per creare guide per VB. No add-in per Word o simili,
ma vero ambiente completo per scrittura e compilazione dei files.

Help Compiler Workshop al sito microsoft
Luca B.
Stefano Foresi ha scritto nel messaggio <01bd9a3f$6d6e3c40$d582d8d4@mio>...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] creazione tot controlli

Scusate, ma è urgente, volevo sapere come posso fare a creare n controlli
(tutti uguali) in una form di Access con il VBA.
In pratica ho una Tabella Articoli che contiene articoli di scarpe, ogni
record ha un campo CodiceTaglia che fa riverimento ad un'altra tabella
Taglie. Qui è contenuto il Codice (quello che è presente anche negli
articoli) la descrizione (es. taglie dal 33 al 44). infine in una altra
tabella sono memorizzate le quantità di ogni numero.
Tabella taglie
Cod    Nnum    Descr
01       10         33 34 35 36 37 38 39 40 41 42
02        5           34 35 36 37 38
...
Ora voglio che quando visualizzo un articolo lui mi visualizzi nella
maschera (form) tante caselle quanti sono i numeri da visualizzare.
Esempio
l'articolo visualizzato a il Campo CodiceTaglia=02
nella maschera vengono visualizzate 5 caselle con le rispettive quantità e
con label 34, 35, 36, 37.
Aiutatemi per favore! Grazie.
Andrea

Perchè non usi una listbox in cui carichi le taglie disponibili?
A mio parere ti converrebbe comunque riorganizzare la struttura del db.
Se ho ben capito tu vai a memorizzare in un campo [Descrizione] tutte le
taglie disponibili; se vuoi sapere quanti "37" hai, devi fare il parsing
del campo [Descrizione] e contare le ricorrenze del numero 37.
Per esempio prova a ridisegnare il db in questo modo:
TabScarpe
campo1=[ID_Generale]
campo2=[CodiceScarpa]
campo3=[Descrizione]
campo4=[Taglia]
Con queste query ti calcoli poi il numero totale un determinato modello:
"SELECT count(*) AS [Totale] From TabScarpe WHERE
[CodiceScarpa]='CodiceRichiesto' "
Con questa trovi quante taglie "37" hai per un determinato modello
 "SELECT count(*) AS [TotaleTaglia] From TabScarpe WHERE
[CodiceScarpa]='CodiceRichiesto'  AND [Taglia]= '37' "
-- 
Remove xxx from E-mail.

Avrei qualche problema se gli articoli fossero cira 3000!
Andrea
Marco Rodriquez ha scritto nel messaggio
<01be3f53$c8104ee0$LocalHost@rodry>...


 
Se queste etichette ti servono per il numero della scarpa potresti
risolvere in questo modo:
1) Poiché tutti i possibili numeri di scarpe sono finiti potresti creare
una etichetta per ogni numero e renderle invisibili facendo poi
visualizzare solo quelle che ti servono.
2) un'altra soluzione sarebbe quella di scrivere del testo direttamente sul
form e disegnarci in torno un rettangolo dando l'impressione che sia una
casella. In questo modo sei in grado di visualizzarne quante ne vuoi.
le istruzioni che ti servono sono facili:
	form.print  (e le altre che servono a formattare il testo)
	form.line   
spero di esserti stato utile.
							ciao   Marber.
Newsgroup: it.comp.lang.visual-basic
Titolo: Come si colloquia con la tavoletta ggrafica?

Salve a tutti, c'è qualcuno che può dirmi se esistono delle api standard
(magari della Microsoft) per la gestione della tavoletta grafica, o comunque
può spiegarmi come si gestisce in VB?  ( l'utilizzo della tavoletta grafica
come mouse non soddisfa le mie aspettative perché la risoluzione è troppo
bassa ).
Grazie anticipatamente per il vostro interessamento.
Daniele I.
d_im...@yahoo.com


Devi interpretare quello che ti arriva dalla seriale.................
Ho da qualche parte un vecchissimo drive fatto in assembler per
la gestione della tavoletta grafica (non mi ricordo il nome del protocollo
ma era la più standard dell'epoca) e mi ricordo che si utilizzavano 13 bit
e che venivano ricomposti ecc. ecc.
Se è questo che devi fare vedo di trovare il source, di postare la parte che
ti interessa ed eventualmente di commentarli assieme.
Devi comunque già essere in grado di utilizzare MSComm o altro componente
equivalente.
Ciao
Sirjo

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Problemino penso stupido con una ListView

Ho un piccolo problemino. Quando vado a popolare una list view con il
seguente comando:
Listview.ListItems.Add nRiga, , cStr(ValoreCampo)
Se ValoreCampo contiene un hypen ("-"), nella listview risultante i valori
della riga (nRiga - 1) sono vuoti fatta eccezione per l'elento della prima
colonna. In pratica tutti i ListSubItems sono vuoti.
Come mai?
Grazie

 colonna. In pratica tutti i ListSubItems sono vuoti.
ValoreCampo che tipo di variabile č? Come l'hai dichiarata?
-- 
Quando noi ignoranti eravamo di piů,
tutto era piů bello...
(A. Celentano)

> colonna. In pratica tutti i ListSubItems sono vuoti.
P.S.: Puoi postare il codice della sub in cui crei la riga nel listview?


Newsgroup: it.comp.lang.visual-basic
Titolo: vb6 e sql server raiserror cosa sbaglio?

Buongiorno , ho un problema con una stored procedure su sql server 2000
richiamata da vb6 tramite ado
ho due tabelle A,B protette da un vincolo di integrita' referenziale
Quando tento di fare un inserimento che viola l'integrita' referenziale
sql server mi scatena un proprio errore.
Vorrei "sostiture" l'errore di sql server con uno personalizzato ma non
ci riesco.
in pratica l'istruzione Insert che mi genera l'errore mi interrompe
l'esecuzione del batch e
non riesco a testare la variabile @@ERROR immediatamente inserita la
insert.
   ....
    INSERT INTO qualcosa  --questa mi genera l'errore e mi chiude il
batch
if @@ERROR <>0   --sembrerebbe non venire testata
     RAISERROR ('ERRORE PERSONALIZZATO ,12,1)  --- in vb non riesco a
leggere l'errore neppure ciclando in conn.errors
me posso fare? Grazie lf

 come posso fare? Grazie lf
Chiedere ad un ng specifico per sql server...
O aspettare che Albe passi da queste parti :-)
-- 
Salutoni
Sergio
C'è il giorno in cui nasci e quello in cui scegli di vivere
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Gif animate

Vorrei un controllo per visualizzare Gif animate collegabile realmente,
ripeto realmente,  ad un campo di database (per VB5).
Un grazie anticipato per l'informazione.
Alberto

...


Newsgroup: it.comp.lang.visual-basic
Titolo: non leggete prova

prova di invio messaggio

Ti invito a leggere il Manifesto di questo NG reperibile sul S.C. del NG
stesso ( 
www.it-lang-vb.net
 ) ed in particolare che per i test esiste il NG
it.test .
CiaoZ
SebaMix

Newsgroup: it.comp.lang.visual-basic
Titolo: da File a list

Ciao a tutti.
Ho scritto qusto codice con l'intenzione di passare l'elenco dei nomi dei
files di un fileListBox ad una ListBx, con scarsissimi risultati perň...
cosa c'č che non va?
lstfile.Path = App.Path
For i = 1 To lstfile.ListCount
    lstfile.ListIndex = i
    lstLeft.AddItem lstfile.FileName
Next i

 ha scritto nel messaggio
news:pLySa.3892$SN1.1...@news2.tin.it...


 i deve andare da 0 a lstfile.listcount -1 altrimenti vai fuori dagli
indici.
grazie mille


: grazie mille
:
A sta ceppa.
Ah...il quoting, questo sconosciuto...

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda su picture

E' possibile centrare un'immagine che ho caricato su una picture con
istruzioni via codice?
Grazie

 istruzioni via codice?
Vedi i vari parametri di PaintPicture.

 ha scritto nel messaggio
news:w5T9c.2125$l27....@news.edisontel.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: Cosa vuol dire subclassare ?

Qualcuno mi vuol spiegare anche a cosa serve?
Grazie, Alberto

 wrote in message
boLu4.38915$qv.3...@news.infostrada.it...


Ad esempio puoi scambiare messaggi tra applicazioni da te create oppure
intercettare i messaggi che form e contolli si scambiano per creare un
effetto od un comportamento non standard.
Se cerchi sui link del sito comune ci sono alcuni corsi online sul
subclassing!
ciao
			maxx


 wrote in message
news:38BBE04E...@laserinforma.com...


Il termine subclassing si riferisce alla possibilita' di modificare il punto
di ingresso di una procedura (callback) per intercettarne i messaggi (non
gli 'eventi') e agire in maniera diversa da quella predefinita per
l'oggetto.
P.es., se voglio un textbox che faccia qualcosa di diverso dallo standard
quando viene immesso del testo, ne creo uno standard, lo 'subclasso' (cioe':
cambio il suo indirizzo di callback per i messaggi, che si trova nei
parametri della window e che si puo' modificare con la funzione
SetWindowLong dell'API di Windows) in modo che la callback sia una mia
funzione nella quale analizzo i messaggi e, per quelli che mi interessano,
eseguo particolari funzioni, lasciando filtrare gli altri alla procedura
standard (chiamata con la funzione CallWindowProc). Ne risulta che l'oggetto
standard riceve solo i messaggi che non voglio gestire, mentre io possono
far comportare l'oggetto in un modo particolare quando pervengono alcuni
messaggi.
Poiche' VB e' un linguaggio orientato agli eventi (tu ricevi
Command1_GotFocus, non un messaggio WM_GOTFOCUS nella Form) mentre Windows
e' orientato ai messaggi, questa pratica e' a volte utile per problemi molto
piu' banali del vero subclassing e cioe' la mera intercettazione di messaggi
diretti a una Form. P.es., non posso sapere quando viene aperto il menu di
sistema (la ControlBox) di una Form, perche' non c'e' un evento
corrispondente in VB. Subclassando la Form e' possibile intercettare il
messaggio relativo e agire conseguentemente.
Esistono OCX che consentono un facile subclassing in VB - tanto piu' che un
subclass direttamente nel codice, per quanto possibile, crea grossi problemi
in fase di debug. Naturalmente bisogna comunque conoscere la messaggistica
dell'oggetto subclassato (che non sempre e' ovvia).
----------------------------------------------------------------------
Stefano Minardi
zet...@mclink.it
----------------------------------------------------------------------

Grazie sei stato molto chiaro.
Alberto
ALCAU ha scritto nel messaggio ...


 Esistono OCX che consentono un facile subclassing in VB
mentre mi studio la spiega, aggiungo solo:
anche free, es. msghoo32.ocx di mabry.
Newsgroup: it.comp.lang.visual-basic
Titolo: open url

salve, io uso ShellExecute Lib "shell32.dll"  per aprire pagine html cosi':
 iret = ShellExecute(App.hInstance, "open", Link, vbNullString, "", 1)
pero' se ho una pagina html aperta,me la apre li dentro.
e' possibile dirgli di farlo in una nuova finestra? magari anche un'altra
api
grazie

 ha scritto

puoi provare
    ShellExecute frmMain.hwnd, vbNullString, FName, vbNullString, "c:\",
SW_SHOWNORMAL
(o anche 1 al posto della costante, come fai tu).
cioe' prova a non specificare 'open'.
a me apre sempre in finestre diverse, anche lanciando due volte di seguito
la stessa procedura che genera la pagina.
l'alternativa che mi avevano suggerito era passare il percorso di ie, ma mi
piace poco: e se uno usa netscape ?
ciao

 cioe' prova a non specificare 'open'.
mmm, a me apre nell'ultima aperta, strano, altre idee?

mmm, a me apre nell'ultima aperta, strano, altre idee?
Dipende da come e' configurato/programmato il browser, sia esso IE,
netscape, opera o altro.
Opera, per esempio, ha un flag "Reuse existing page" mentre IE ha
"Reusing windows for launching shortcuts".
-- 
ciao, hal

 ha scritto

da me
'riutilizza la finestra per lanciare altri collegamenti'
e' spuntato...
personalmente, senza smanettare con le opzioni di ie, mi sembrava di aver
notato il cambiamento 1 finestra --> + finestre a partire da una versione di
ie, direi la 5. ma e' stata un'impressione e non ho mai indagato.
peppo, se e' indispensabile e sei sicuro che ie e' installato: con shell,
anziche' shellexecute, lancia ie con parametro l'html. pero' mi piace poco.
ciao

 anziche' shellexecute, lancia ie con parametro l'html. pero' mi piace
poco.
nemmeno a me paice, anzi per niente. Devo dire che non e' nemmeno
vitale, era diciamo 'meglio' :)

Newsgroup: it.comp.lang.visual-basic
Titolo: Collezione in cui mi trovo

Sono all'interno di un modulo di classe, diciamo la classe Stanza e devo
farmi restituire la collezione che mi contiene.
Come faccio?

Come faccio?
E' necessario che venga passato un riferimento ala collezione quando viene creata la classe.
Attenzione poi a liberarsi di questo riferimento "all' indietro", dal punto di vista della classe,
quando non serve piu', perche' potrebbe originare un riferimento circolare che impedisce a vb
scaricare gli oggetti.
es.:
' sezione dichiarazioni
Private m_Coll As Collection
' nel codice
Dim mi_Class As clsMyClass
Set mi_Class = New clsMyClass
Set mi_Class.Parent = m_Col      ' qui usiamo una ipotetica proprieta' Parent
m_Coll.Add "ciccio", mi_Class    ' accoda l' istanza della ns classe
Se si tratta di un activex in cui clsMyClass e' un'  interfaccia pubblica,
la proprieta' Parent potrebbe essere implementata a sola lettura verso l' esterno:
' viene vista solo all' interno dell' activex:
Friend Property Set Parent (ByRef a_Parent As Collection) ;
' viene vista da tutti:
Public Property Get Parent () As Collection ;
chiaramente c' e' la debolezza di esporre la collection direttamente, ma
questa e' un' altra storia.
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: data e ora

come faccio per visualizzare la data e ora correnti in una textbox?

 come faccio per visualizzare la data e ora correnti in una textbox?
Fammi capire:
hai risposto il 2/5 a un topic aperto (e praticamente chiuso) il 15/4 senza
averlo letto?
Cosa mi sfugge?


Che manca il campo References :-)
Ovvero, non ha risposto: ha solo postato un messaggio praticamente
identico, sia nel subject (identico) che nel testo (quasi), ma aprendo
un thread nuovo.
Almeno quella era la sua intenzione, ma OE ha visto il subject identico
e l'ha incolonnato lě.
Se poi sia la stessa persona non posso dirlo per certo: lo stile č uguale,
ma le macchine e gli IP sono diversi. :-)
Bye, G.

 uguale, ma le macchine e gli IP sono diversi. :-)
Magari ce lo dice lui, si č appena riconnesso ;-)
Bye, G.

 un thread nuovo.
Hai ragione, non c'è il "Re:"...

 come faccio per visualizzare la data e ora correnti in una textbox?
Scrivi
Textbox.visualizzamila data e ora correnti
( io ci metterei anche un perfavore cosi vai sicuro)
Textbox.perfavore.visualizzamila data e ora correnti
oppure se vuoi proprio fare il perfettino
 in un Timer settato a 1000
Private Sub Timer1_Timer()
Text1.Text = Now
End Sub
--
Fosco

Newsgroup: it.comp.lang.visual-basic
Titolo: stringa sql

la sintassi l'ho presa da un libro di sql, quindi dovrebbe in teoria essere
giusta... allora perchè non funziona? non trova assolutamente nulla
per precisione vi dico che nella colonna articolo ci sono cose come "antenna
satellitare eccetera eccetera" e che parolaarticolo prende una parola da una
casellina di testo tipo "antenna". In pratica voglio che scrivendo in quella
casellina "antenna" mi venga fuori l'elenco di tutte le antenne, satellitari
e non. Il problema deve essere per forza nella stringa perchè altre ricerce
funzionano.
"select * from prodotti where articolo = '%" & parolaarticolo & "%'"
mi sapreste aiutare per favore?

 mi sapreste aiutare per favore?
Certo.
Invece di:
SELECT *
FROM Prodotti
WHERE Articolo='%antenna%'
prova con:
SELECT *
FROM Prodotti
WHERE Articolo LIKE '%antenna%'
;) ENJOY!!!
-- 
Quando noi ignoranti eravamo di più, tutto era più bello (A. Celentano).
  ___   _   ___ _  _______   _______ ___
|   \ /_\ | _ \ |/ / _ ) \ / /_   _| __|
| |) / _ \|   / ' <| _ \\ V /  | | | _|
|___/_/ \_\_|_\_|\_\___/ |_|   |_| |___|

 WHERE Articolo LIKE '%antenna%'
ottima idea.
aggiunggiamoci pure che se l'op utilizza dao deve mettere un asterisco al
posto del percento.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo


però mi servono anche i doppi apici e la & perchè parolaarticolo è una
variabile, e usando la variabile non funziona.

 posto del percento.
era l'asterisco!!!
ci ho messo l'asterisco e ora funziona
Newsgroup: it.comp.lang.visual-basic
Titolo: Chiamata di routine o argomento non valido

questa sub che ho scritto recupera tutti i file contenuti nelle
sottodirectory partendo da una directory specificata ma da un errore del
tipo "Chiamata di routine o argomento non valido"...qualcuno mi sa
aiutare?non so + dove sbattere la testa!!!
grazie
yuri
  Dim fso As New FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
    Dim dir As Folder
    Dim subdir As Folders
 
    Set dir = fso.GetFolder(rootdir)
    Set subdir = dir.SubFolders
    Dim k As Integer,fil as string
    For Each dir In subdir
 
      For k = 1 To dir.Files.Count 'in fase di debug=11(giusto)
            MsgBox dir.Name
            fil=dir.Files.Item(k) 'l'errore lo da qua
        Next
    Next dir
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

         fil=dir.Files.Item(k-1)
prova cosě.
--
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 prova cosě.
no..tutto come prima... :( le altre due msgbox danno risultati corretti
yuri


 no..tutto come prima... :( le altre due msgbox danno risultati corretti
Ostinatevi a usare il SFO ;)
La collection fields puň essere scorsa solo tramite l'enumerator:
For each f in dir.files
	...
next
Ciao

 next
ah non lo sapevo...c'è qlk motivo particolare?dovete scusarmi ma non è che
mastico vb da molto quindi può darsi che qualcosa mi sfugge..
grazie 1000!
Yuri


 Yuri
funziona!!!!!!!!grazie 1000 Zanna!se hai qualche altro
suggerimento/consiglio/rimprovero da fare fai pure, può solo fare bene!
thanks
yuri


 suggerimento/consiglio/rimprovero da fare fai pure, può solo fare bene!
Sono sicuro che non mi ascolteresti :)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] [CR8] errore dll del database non trovata...

salve a tutti,
quando installo un prg fatto in vb su un pc con le stampe fatte in CR8 al
lancio della stampa mi da l'errore in oggetto (errore numero 20352 mi
sembra), mentre sul pc dove l'ho sviluppato non me lo da, con la differenza
che però sul pc di sviluppo è installato cr8.
qualcuno di voi sa mica come posso evitare questo errore senza dover
installare sul pc del cliente crystal report??
grazie per il tempo che vorrete dedicarmi
ciao, ciao


Crystal report esegue l'accesso dataabse attraverso dll proprietarie (tra
l'altro velocine...) che devono essere installate insieme all'applicativo
che ne fa uso.
Normalmente l'autocomposizione setup di vb le rintraccia regolarmente. In
caso contrario devi controllare quali usi e installarle.
Allo scopo, vedi "Runtime file requirements" nella guida di cryrep.
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: [API]Come si usano??

So che qualcuno mi manderà in un paese mooolto popolato.
Avrei bisogno di sapere come si usano le API di win:
ho scaricato la raccolta di API di Cesare Rizzi, una volta individuata
come faccio a usarla??
ho copiato il codice in VB ma nn succede niente!
Sul SC nn ho trovato niente
Grazie a tutti
PS: nn posso usare l'MSDN
--
   Dio ha il copyrigt sui miracoli,
noi li chiamiamo solo lavori difficili
     ..ooOO= MaViMo =OOoo..

 PS: nn posso usare l'MSDN
perché no?
http://msdn.microsoft.com
Faber

 come faccio a usarla??
Sul sito ci sono anche degli esempi per ogni API!


 Premi F5. <g>
ahahahhaah   :D
Faber

> PS: nn posso usare l'MSDN
E manco la O a quanto pare... Una delle cose che mi danno sui nervi, insieme
ai topic senza senso (ed in questo caso devo dire che il topic e' chiaro, ma
se avessi messo un terzo ? ti avrei filtrato via :P) e' il brain damage da
telefonino, percui un sacco di gente scrive nn per non (ed NN significa
Nessuno) 1 per UN e UNA (ed 1 e' UNO, a parte il fatto che confondere un
articolo con un numero cardinale non e' bello) e via dicendo.
Ora, terminate le crociate contro le tastiere rotte, le funzioni (tutte)
hanno uno scopo quando devi fare qualcosa: e' abbastanza  inutile dire
"voglio usare l'API"... E' come dire "voglio usare l'auto"...
Va bene, ma DOVE vuoi andare? Vuoi accendere il motore giusto per vedere se
funziona?  Per quello ci sono gli esempi.
Ora, sii piu' specifico: che vuol dire che non succede niente? Se copi^ solo
le declare ovviamente non succede nulla, per ora hai solo comprato la
benzina...
Devi scrivere un codice che usi in qualche modo queste funzioni. Fossi in te
ricorrerei agli esempi dato che si tratta di codice testato.
Cmq, quando vi fate dare una versione 'non ufficiale' di VB, ALMENO fatevi
copiare l'help...
Ciaotutti,
Asterix
Newsgroup: it.comp.lang.visual-basic
Titolo: Risoluzione IP Address

Salve il mio problema è risolvere l'indirizzo IP che si riceve da un
client con una connessione Internet.
Volevo sapere se qualcuno di voi sa come si fa.
Franco
fra...@tiscalinet.it

 Volevo sapere se qualcuno di voi sa come si fa.
In linea di massima:
Private Type HOSTENT
    hName As Long
    hAliases As Long
    hAddrType As Integer
    hLength As Integer
    hAddrList As Long
End Type
Declare Function gethostbyaddr Lib "wsock32.dll"
(ByVal addr As String, ByVal length As Long, _
ByVal thetype As Long) As Long
Adesso non posso verificare, comunque mi pare che la
funzione ritorni un puntatore ad una struttura HOSTENT.
Mi sa che devi usare RtlMoveMemory per leggerne il
contenuto in VB.
Inoltre, credo proprio che occorra prima effettuare un
reverse-lookup del nome dell'host, utilizzando:
Private Declare Function gethostname Lib "wsock32.dll" _
(ByVal hostname as String, HostLen as Long) As Long
Questo perché c'è da mettere in conto una gestione degli Alias
non risolvibile direttamente.

Newsgroup: it.comp.lang.visual-basic
Titolo: problema coi socket

Salve a tutti
stò cercando di imparare il VB ed ho iniziato anche ad usare il socket
per costruirmi un prog simile a Winpopup di windows (un piccolo icq).
Il porb è che voglio costruirlo tramite il protocollo UDP e non TCP,
quindi ho cercato di creare un codice con quel tipo di prootcollo, ma
con scarso risultato.
Non funzia! 
Se qualcuno è in grado di darmi un mano, gliene sarei grato!
vi allego il breve codice.
grazie e ciao


E' il binding dove lo lasci?
UDP1.LocalPort = porta  'Il val non serve, visto che accetta anche le
stringhe
UDP1.Bind porta
Senza riservargli una porta non funziona.

Newsgroup: it.comp.lang.visual-basic
Titolo: una cosa molto scema

salve...
mi potreste dire come si fa, cliccando con il tasto destro del mouse, a far
comparire un menů ?
lo sň che č una domanda stupida, e che č sicuramente banale la soluzione, ma
proprio non riesco...
grazie

comparire un menů ?
Cerca PopUpMenů nella guida in linea
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
---------------------------------------------------------------------------

grazie Moreno...
sei stato gentilissimo...
permetti che ti disurbo di nuovo?
come faccio a fare la stessa cosa, ma con un sottomenů?
ci ho provato, ma mi  funziona solo per un menů di primo livello...
grazie ancora