mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Form come Foglio a4 & stampare grafica

Ciao,
vorrei poter avere una form di dimensione di un A4. Al momento non ci sono
riuscita.
Esiste un modo per indicare la larghezza in cm di una form ?
Grazie e a presto
Cinzia

Ogni centimetro in stampa corrisponde a 567 twips.
A quanto mi risulta non è possibile impostare la larghezza di una form in
cm, ma se imposti la poprietà "ScaleMode" puoi vedere il valore di
ScaleWidth in cm.
Enrico
cinzia wrote in message ...


Newsgroup: it.comp.lang.visual-basic
Titolo: how do I shift-tab in vb5 pro?

If anyone can please tell me how to do a shift-tab
meaning I want to tab backwards through an app's
tab index. If I try to do something like this:
sendKeys (+"vbKeyTab") (the + is the shift
command) or (+(vbKeyTab)) or +(vbKeyTab) or
+vbKeyTab it always removes the + sign which I
need to do the shift-tab. Anyone able to help?
Thanks
        -Rit Man
rit...@ritman.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/
       Search, Read, Discuss, or Start Your Own    

If anyone can please tell me how to do a shift-tab
meaning I want to tab backwards through an app's
tab index. If I try to do something like this:
sendKeys (+"vbKeyTab") (the + is the shift
command) or (+(vbKeyTab)) or +(vbKeyTab) or
+vbKeyTab it always removes the + sign which I
need to do the shift-tab. Also I always get errors
when I use curly { } brackets so if you are going
to suggest using them please include exact syntax
please. Anyone able to help? Thanks


Newsgroup: it.comp.lang.visual-basic
Titolo: Copia File

Salve a tutti, ho la necessità di effettuare la copia di un già aperto da un
processo esterno alla mia applicazione. Windows permette di farlo andandoci
con il mouse ma visual basic, dà errore. Come posso raggirare il problema?

effettuare la copia di un già aperto con FileSystemObject
Option Explicit
Private Sub Command1_Click()
'aggiungi un riferimento a "Microsoft Scripting runtime"
'(Menu Project->References...)
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
'sorgente, destinazione, sovrascrittura
'se sovrascittura è true, se la destinazione esiste viene
'rimpiazzata
'se è false, si produce un errore di accesso al file negato
fso.CopyFile "c:\temp\school1.txt", "c:\temp\school2.txt", True
Set fso = Nothing
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: SetEndOfFile

Ciao a tutti... e soprattutto, visto il periodo, AUGURI A TUTTI!
Dopo anni di peripezie... di file temporanei di millenni trascorsi per
eliminare 2 byte da un file... Ho deciso di usare l'API:
Private Declare Function SetEndOfFile Lib "kernel32" (ByVal hFile As Long)
As Long
che dovrebbe troncare un file... Il fatto é che il file lo scrivo con le
funzioni VBA, lo chiudo, poi lo riapro con le API (CreateFile)...
Chiaramente la posizione del puntatore interno del file é all'inizio...
vorrei sapere come posso spostarlo, per esempio, 100 byte prima della fine
del file...
Ringrazio anticipatamente chi mi aiuterà...
        Auguri a tutti
            Allanon

 del file...
Scrivo direttamente su oe, verifica il codice :-)
''''''''''''''''''''''''''''''''''''''
// usando solo vb:
Dim nFile As Integer
Dim sFile As String
sFile = "C:\Vattelappesca.bin"
nFile = FreeFile()
Open sFile For Binary Access Read Write As nFile
Seek nFile, LOF(nFile) - 100
Put nFile, <quello_che_devi_scrivere>
Close nFile
''''''''''''''''''''''''''''''''''''''
Se invece usi l' api potresti posizionarti nel file con _llseek
Private Declare Function llseek Lib "kernel32" Alias "_llseek" ( _
                            ByVal hFile As Long, ByVal lOffset As Long, _
                            ByVal iOrigin As Long) As Long
oppure con SetFilePointer
Private Declare Function SetFilePointer Lib "kernel32" _
                                  Alias "SetFilePointer" ( _
                ByVal hFile As Long, ByVal lDistanceToMove As Long, _
                lpDistanceToMoveHigh As Long, _
                ByVal dwMoveMethod As Long) _
                As Long
''''''''''''''''''''''''''''''''''''''
Ciao
Aldo

 ''''''''''''''''''''''''''''''''''''''
Non ho mai usato seek... adesso cerco su MSDN... Il fatto é che se funziona
come penso io...
Insomma metti che ho un programma che rimuove delle TAG da MP3 (in realtą
sto facendo una libreria per gestione file che vorrei mantenere +
generica...) Un MP3 é un file di dimensioni medie 3-4 Mb... se devo tagliare
gli ultimi 127 byte... l'unica cosa che sapevo si potesse fare era creare un
file TMP copiare tutto l'MP3 tranne gli ultimi 127 byte... chiudere ambo i
file, sovrascrivere l'MP3 con il file TMP...
Ho visto che le API hanno un comando che taglia i files... quindi... :-)
In ogni caso le diachiarazioni delle API che mi hai dato fanno assolutamente
al caso mio...
        GRAZIE!!!!!!
            ...e naturalmente buon anno... :-))
                Allanon
Newsgroup: it.comp.lang.visual-basic
Titolo: Testare se un file esiste

Ciao a tutti
qualcuno sa come testare se un file esiste o meno?

 ha scritto nel messaggio
news:9c4120$k85$1...@serv1.iunet.it...



------------------------------------------
'Lo si puo inserire in un modulo
Function FileEsistente(NomeFile As String) As Boolean
    If Dir(NomeFile, vbNormal Or vbHidden Or vbReadOnly Or vbSystem) <> ""
Then FileEsistente = True Else FileEsistente = False
End Function
Sub Main()
'Controlla se esiste un file nella dir Windows.
Dim FE, FEa As Boolean
FE = FileEsistente(Trim("c:\Windows\File1")) 'Controlla file 1
FEa = FileEsistente(Trim("c:\Windows\File2")) 'Controlla file 2
        If  FE = True And FEa = True Then
            Call VerDLL
        Else
            MsgBox "Access to the copy don't authorized.", vbCritical,
"GRANGER Access Negated"
            Call MainExit
        End If
End Sub
-------------------------------------------
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Selezionare Combobox da codice

vediamo se riesco a farmi capire...
ho un combobox e voglio che alla pressione di un tasto ( da tastiera
ovviamente ) scenda la lista delle item, come se facessi click col muse
sulla freccetta a dextra.
come posso fare?
grazie.   roby

invia con sendkeys un F4!
Combo1.SetFocus
SendKeys "{F4}", True
Ciao

 ha scritto nel messaggio
news:c752i9$iflgv$1...@ID-216244.news.uni-berlin.de...

Con F4 .. č uno standard di Win per i combo.
oppure con l'API :
Const CB_SHOWDROPDOWN = &H14F
Call SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1&, ByVal 0&)  // tira giu'
la tendina
Call SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 0&, ByVal 0&)  // tira su la
tendina
(preso da un vecchio post di Hal)
Saluti

 ha scritto nel messaggio
news:c753mk$htdob$1...@ID-169051.news.uni-berlin.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: Se aggiungo datacombo funziona se modifico no

Se in una form che contiene un datacombo aggiungo un record il campo del
database che fa riferimento al datacombo è ok mentre se riapro il form per
modificare il dato con il datacombo non viene modificato !!!!
PERCHE' ?????
Qualcuno me lo spiega ??
Grazie, alcau

Risolto :-)

 ha scritto nel messaggio
news:6bOF9.38853$2B1.1...@twister2.libero.it...

Non usare i datacombo....gestisciti la cosa a manina :-)
Ciao

> Non usare i datacombo....gestisciti la cosa a manina :-)
Cosa intendi ?
Preferirei anch'io ...... anzi l'avevo già fatto e funzionava tutto solo che
dovendo usare
delle tabelle relazionate adesso mi trovo a lavorare su un campo ID
(numerico) e devo visualizzare il testo corrispondente.
Dimmi tu come potrei fare !!!
A.

Newsgroup: it.comp.lang.visual-basic
Titolo: ? Creare codice a barre

Devo creare un codice a barre da programma.
Ho scaricato i suggerimenti che ci sono su google, ma uno mi da un codice a
barre senza i numeri sotto, l'altro bcodesub.bas  è pieno di varie codifiche
ma non si capisce come funziona.
Mi consigliate qualcuno.
Carmelo

 Mi consigliate qualcuno.
Active Bar Code...
-- 
Alex {per email metti '[NOSPAM]' nell'oggetto}
"Prima di dedicarti all'impossibile accertati di aver fatto tutto il
possibile" (Alex1980)
Newsgroup: it.comp.lang.visual-basic
Titolo: [newbie]gestione errori

salve a tutti
come si può fare, in caso di errore rilevato con la 'on error goto..'
a passare il controllo ad un secondo form, che raccolga degli input, e
ripassi poi il controllo al primo che farà una resume con i dati giusti?
Il mio problema è che non riesco a far aspettare il primo form in attesa del
secondo.
ci riuscirei con una msgbox ma non con un form
(ris =msgbox ....)
Spero di essere stato chiaro
grazie a tutti

 ha scritto nel messaggio
news:iQ8J8.26781$ie.5...@twister2.libero.it...

Nel primo form:
Istruzioni...
On error goto lbl_errore
Istruzioni...
...
lbl_errore:
on error goto 0
Form2.show vbModal
' Qui rientra solo dopo la chiusura della Form2
...

Newsgroup: it.comp.lang.visual-basic
Titolo: Struttura #if(>) ... #endif

Ciao a tutti,
ho la necessità di creare una struttura che si adatti dinamicamnete alle
varie versioni di windows, come avviene nel C con la clausola
#if (...)
#end if
E' possibile anche in 
vb.net
? o devo creare tante strutture quante sono le
versioni????
Grazie e ciao a tutti...
Marco

Puoi farlo tranquillamente ... l'operatore condizionale č
stato trasportato esattamente cosě come č anche nel .net
framework.
Ciaoi
Andrea

 ha scritto nel messaggio
news:c390kc$ivk$1...@lacerta.tiscalinet.it...

Ok, perň quando vado a fare:
strcuture ciao
    c1 as integer
#if WINVER >= &h501 then (<=== WindowsXP)
    c2 as integer
#end if
end structure
Sta struttura non funziona correttamente!, la variabile di ambiente WINVER
non sembra essere definita, e quindi la struttura non č compatibile ad
esempio con win2000 o win98.
grazie e ciao.
Marco

Dunque l'if condizionale prevede che tu winver da qualche
parte prima lo devi aver dichiarato ... altrimenti lui che cosa
vuoi che ti confronti??
Non mi risulta esistere una costante di sistema che si chiama
così ... poi per carità ,... non avendola mai usata ... può darsi
che mi sbagli.
Ma non era la tua domana ... hai chiesto se l'if condizionale
esisteva ancora. E la risposta è comunque si
Ciao
Andrea

 
Due precisazioni.
In VB4,5,6 esiste WIN32 che definisce se la piattaforma di compilazione 
č a 32 a 16 bit (ok, dal vb5 in su non serve a niente...), quindi 
potrebbe anche esserci in VB.net qualcosa del genere (non so se esiste, 
ma se c'č interesserebbe anche a me).
La costante usata nell in VB6 #IF *deve* essere un boolean, quindi non 
si puņ fare #IF MIACONST > 0 THEN, in VB.net se non mi sbaglio, una 
volta definita assume il valore TRUE, quindi se č definita vale true, se 
non č definita vale FALSE.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: errore di runtime 404 - necessario oggetto

L'istruzione è
Set objconn = Server.CreateObject("ADODB.connection").
Nei riferimenti del progetto ho inserito
microsoft activex data objects 2.5 library
microsoft activex data objects recordset 2.5 library
Cosa manca??

 ha scritto nel messaggio 
news:65DEd.25048$H%6.98...@twister1.libero.it...

Non manca nulla, il problema e' che c'e' troppo:
Il riferimento a "microsoft activex data objects recordset 2.5 library" non 
e' necessario, ma non dannoso.
Il tuo errore invece deriva dall'istruzione Server.CreateObject, sintassi 
valida nelle pagine ASP ma non in VB (dato che parli di riferimenti immagino 
tu stia usando VB6 oppure un VBA integrato in Office & C.)
L'istruzione corretta e' soltanto CreateObject(...)
Ciao
-- 
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown 


Qualche conoscenza di base :-(
L'oggetto Server non esiste in visual basic, ma in ASP.
-- 
ciao, hal

 L'oggetto Server non esiste in visual basic, ma in ASP.
Eeemmm! Si avete ragione ma proprio non ci facevo caso!!!!!
Uso entrambi o meglio sto imparando.
Ultima domanda: i CDONTS esistono solo in ASP o posso usarli in VB6?
Ciao grazie mille.

 ha scritto

per quel che ho visto nelle prove del vbsendmail, in vb fa' finta di non
averne mai sentito parlare.
potrei benissimo sbagliarmi. opinione personale, anzi, questione di feeling.
ciao, j.

 ha scritto nel
messaggio 
news:34gha8F...@individual.net

e poi ora ci sono i CDOSYS....
poi...
parlo per XP pro e IIS...per testare un vecchio progetto avevo bisogno di
cdonts....ehm ehm...
normalmente non fa parte del setup di iis...la devi andare a cercare e
installare la dll cdonts!
quindi...il classico winsock....mi sembra più appropriato di tutti!
SUL SC e in rete milardi di esempi!
-- 
------------------------------------------------
Sito web: 
http://www.martek.it

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

Salve
vorrei sapere come si fa ad aquisire un immagine dallo scanner direttamente 
da visual basic ??
grazie anticipatamente

 da visual basic ??
Per esempio con questa bella DLL
http://www.geocities.com/smigman.geo/mci/eztwain.zip
-- 
IBM: Incompatible Blue Machines
News 2002 [v 2.07] / StopDialer / PopDuster - 
http://www.socket2000.com
Akapulce portal: 
http://www.akapulce.net
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6  Excel   .NumberFormat

Ciao a tutti
 
Ho dei codici come questi 0123ABCD e 01234567.
Se vado ad inserire il primo in un colonna excel, tutto bene.
Il secondo invece diventa subito 1234567 in quanto scompare lo 0 iniziale.
 
Bisogna dirgli che č un campo testo per poter conservare lo 0.
Una soluzione che avevo trovato era quella di anteporre
un apice:
.cells(r, c) = "'"  & Campo
Se č un xls di stampa o vsualizzazione puň anche andare.
Ma se serve come strumento per trasferire dei dati da
un database ad un altro database diverso č brutto.
Costringe chi deve popolare il secondo database a
trattare i campi  per togliere l'apice.
 
Allora ho provato ad utilizzare la seguente sub:
 
Public Sub MettiPrimaColonnaTesto(Colonna As Long, _
    Optional RigaIn As Long = 1, _
    Optional RigaFin As Long = 5000)
Dim r As Long
With MyXL.Workbooks(1).Worksheets(1)
    For r = RigaIn To RigaFin
        .cells(r, Colonna).NumberFormat = "@"
    Next r
End With
End Sub
 
Funziona ma ci mette un sacco di tempo e poi
occorre sapere prima quanti record potrebbero
esserci come massimo.
 
Siccome conosco il tipo di campo che devo mettere
nelle singole celle ho deciso di faree cosě per ogni campo:
 
If TipoCampo = "Text" then
    .cells(r, c).NumberFormat = "@"
End If
.cells(r, c) = Campo(r)
 
Se pensate che ci sia qualcosa di meglio...
 
Grazie e saluti
Sauro 
 
 

 Se pensate che ci sia qualcosa di meglio...
 
Questa cosa la puoi fare per tutta la colonna in un colpo solo. Se
esporti una tabella di norma ti dovrebbe andare bene.
 
-- 
Freccia@Bulldozer63 :D

> nelle singole celle ho deciso di faree così per ogni campo:

Newsgroup: it.comp.lang.visual-basic
Titolo: Creare una palette di colori

Ciao a tutti.
Avrei bisogno di sapere come posso fare per creare una palette di colori in
una PictureBox.
Io ho trovato il seguente codice:
Dim R As Byte, G As Byte, B As Byte
R = (Colore \ 65535) And 255
G = (Colore \ 255) And 255
B = Colore And 255
Con questo ottengo i valori RGB partendo dal valore del colore.
Solo che ottengo una sfumatura che partendo dal nero passa al blu e al verde
in una PictureBox grande 256*256 pixels.
Come devo fare per ottenere i 65536 colori che partono dal nero e arrivano
al bianco?
Vi sarei grato se mi spiegaste/postaste del codice simile a quello che ho
scritto poco sopra per ottenere le varie palette (256, 65536, 16777216).
Mi basterebbe anche solo la teoria.
CIAO!!!!!!!!!

 wrote in message
news:yID37.78044$cd.4...@news1.tin.it...


 valla a guardare, magari ti può chiarire qualche dubbio
Ti ringrazio ma non è quello che mi serve.   :-)
Il mio problema non è fare il gradiente tra 2 colori, ma ottenere tutta la
gamma dei colori dal nero fino al bianco.
Comunque ti ringrazio molto per il tuo interessamento.
CIAO!!!!!

Sagenut:
  nel progetto FracZn2C che puoi trovare sul mio sito
di "Downloads" a: 
http://members.xoom.it/flanguasco/
c' e' una routine, TabelleColori(), per creare
tavolozze a 2, 16, 256 e 1280 colori.
Usando un metodo simile dovresti poter generare tutti
i 16777216 colori possibili, ma... a che ti servono?
Ciao e fammi sapere.
Franco

 ha scritto nel messaggio
news:3B507D04...@MCLINK.IT...

Ho scaricato il programma che però mi dà una fila di errori in apertura.
Per caso è scritto in VB6?
Io ho VB5 con Service Pack 3.
Ciao

 Per caso è scritto in VB6?...
Ebbene si': e' scritto anche nell' intestazione della pagina da cui hai
scaricato il progetto.
Puoi comunque leggere la routine che ti ho segnalato aprendo, con
Notepad, il modulo modFracZn2C.bas.
Ciao e se poi ti servisse altro aiuto, contattami pure.
Franco

Newsgroup: it.comp.lang.visual-basic
Titolo: scorrere record msflexgrid

Scusate la domanda stupida, ma qualcuno mi indica come posso realizzare in
un command button, l'istruzione che mi scorra riga x riga i record presenti
in una MsFlexGrid. (Un po come avviene in access)
Grazie
Troy

 ha scritto nel messaggio
news:b8isjk$5q9c$1...@stargate1.inet.it...

for i =1 to msflexgrid.rows -1
    Lettura = msflexgrid.textmatrix(i,nColonna)
next i
Newsgroup: it.comp.lang.visual-basic
Titolo: salvare in un file .xls risultati di una matrice

salve,
dentro una form ho visualizzato in un sheet excel
i valori di una matrice con 10 colonne e 10 righe
per esempio
ho usato come componente quello che nella lista
viene chiamato "microsoft office xp web components"
sapete dirmi se i risultati messi all'interno di quel
worksheet1 che ho creato posso salvarli in un file
.xls?
se no, voi come salvate in .xls questo tipo di risultati?
che tipo di componente scegliete dalla lista? o
ne usate di esterni? grazie per l'aiuto
ciao 

 ne usate di esterni? grazie per l'aiuto
Devi usare Object Excel <Excel.Application>
	Dim exclApp As Object
        Set exclApp = CreateObject("Excel.Application")
        exclApp.Workbooks.Add
Ovviamente ti funzionerà solo se hai Excel installato
Oppure salvi come testo e tabulazione o separato da punto e virgola ";" e
qui dovrebbe andarti anche con OpenOffice
-- 
DBMS Firebird
VB6 + Ado

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

Salve a tutto il gruppo, ho iniziato da poco a programmare in Vbasic
e sto cercando di dimensionare i numeri decimali in una TextBox, utile
soprattutto per un programma di cambi. Se qualcuno puņ aiutarmi...


Dai un occhiata alla funzione format
Ciao Marco
Newsgroup: it.comp.lang.visual-basic
Titolo: SetParent

Ciao a tutti! Qualcuno e' pratico di questa chiamata API??
Allora, lo scopo e' quello di simulare un form MDI  impostando tramite
SetParent i form CHILD! Tutto funziona bene, ma quando si cerca di spostare
il form CHILD si nota che non gli e' stato notificato il suo nuovo
posizionamneto, cioe' per quanto riguarda gli spostamenti crede di essere
ancora sul desktop!
QUalcuno sa come bisogna procedere? Grazie!

...

Ciao,
    ho avuto il tuo stesso problema e devo dire che ho faticato un po' prima
di capire cosa fare.
In realtà l'MSDN ne parla sotto la voce SetParent, ma in modo non molto
esplicito.
Comunque il trucco sta nel dire alla finestra figlia che è una finestra
POPUP (ancora devo capire di preciso cos'è una finestra popup) e cioè:
    Dim wl As Long
    Call SetParent(Form2.hWnd, Form1.hWnd)
    wl = GetWindowLong(Form2.hWnd, GWL_STYLE)
    Call SetWindowLong(Form2.hWnd, GWL_STYLE, wl Or WS_POPUP) 'aggiungo allo
stile corrente il POPUP
    Form2.Show
Ciao

Non so se si puň in VB... in alcune applicazioni Visual C ho visto usare degli
hook, ma per un hook ci vuole una libreria dinamica, i server OLE di VB non
possono nemmeno lontanamente arrivare a questi risultati.
-=RIPENSAMENTO=-
Aspetta, ora mi viene in mente una cosa... dai alla finestra figlia la stessa
identica posizione relativa allo schermo che aveva quando era "libera", non
ricordo piů che API fosse, mi pare SetWindowPos. Oppure crea dei form MDI Child,
poi con le API (SetStyle? o SendMessage?) rimuovi la titlebar dalla finestra da
"catturare", "catturi" la finestra all'interno dell'MDI Child, poi, se č fixed
single, o sizable, la ingrandisci (intendo il maximize), cosě occupa tutto il
form. Altrimenti, se vuoi evitare casini, o se la finestra non gradirebbe di
essere ridimensionata, usi GetWindowRect (mi pare) per sapere le dimensioni,
ridimensioni il form per fargli avere le stesse dimensioni, e blocchi il tasto
maximize del form (se č possibile), in modo che l'utente non ci paciocchi
troppo. Spero di non essermi lasciato scappare qualche boiata.
"SimplyJack" <nof...@no.life> wrote in message
news:10obfib$52b$1...@fe2.cs.interbusiness.it...


 ancora sul desktop!
Forse non hai utilizzato la funzione corretta con i parametri
opportuni. Inserisci nel evento Form_Load del child la funzione:
   lngRet = SetWindowLong(Me.hwnd, GWW_HWNDPARENT, ParentForm.hwnd)
nell'evento Form_Unload ripristini i flag della classe:
   lngRet = SetWindowLong(Me.hwnd, GWW_HWNDPARENT, 0)
dove
    Public Const GWW_HWNDPARENT = (-8)
Cosě funziona correttamente.

 POPUP (ancora devo capire di preciso cos'č una finestra popup) e cioč:
Le risposte arrivano sempre da dove meno te l'aspetti. Dalla documentazione di
HTML Help Workshop (Window Editor - pagina Styles, context-help di "Pop-up"):
"When enabled, windows of the type selected can contain pop-up windows. Pop-up
windows display on top of a Help topic. They are automatically sized to fit the
text or graphics in them. They remain onscreen until end users click anywhere
inside or outside the pop-up"
Newsgroup: it.comp.lang.visual-basic
Titolo: INSTALLAZIONE NUOVI FONTS

Buongiorno ragazzi.
Ho un problema che forse per voi sarà da poco, ma che io non riesco a
risolvere.
Da qualche tempo ho acquistato via internet un font che mi serve per la
realizzazione del nuovo logo della mia azienda, ma nonostante i mille
tentativi (secondo me corretti - ho comunque seguito la procedura classica
di windows) non riesco ad installare.
Il PC trova regolarmente il nome del font da caricare (minimalist) io riesco
a selezionarlo schiaccio ok per caricarlo (compreso flag "copia nella
directory FONTS"), ma il carattere non compare nella lista di quelli
utilizzabili né nei fonts.
Come posso fare?
Grazie.
Elisa.

[Elisa]
Copia a mano il font nella cartella C:\Windows\Fonts e riavvia li pc. Apri Word
o chi per lui e cerca il font. Se non lo trovi, il font potrebbe essere
corrotto.
Con un doppio click la vedi la pagina di "test"? (Cantami o Diva del pelide
Achille ecc. ecc.)
hth
Lokar
-- 
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
Statuto: 
http://www.it-lang-vb.net/docs/Statuto.txt
UGIdotNET - 
http://www.ugidotnet.org

 ha scritto nel messaggio
news:c4h8m0$2hn2qg$1...@ID-158338.news.uni-berlin.de...


 Come posso fare?
vai sul pannello di controllo
scegli font  ( o caratteri)
nella finestra che ti appare seleziona file -> installa nuovo tipo di
carattere
dalla finestra succesiva devi indicare dove andare a cercare il font (la
directory in cui hai salvato il tuo ttf),
poi quale font vuoi installare fra quelli presenti nella directory
selezionata
poi devo solo premere il tasto ok (verifica che sia attivo il check "copia
nella cartella Fonts")
fine
ciao

1) Un tag OT non guastava
2) Non scrivere in maiuscolo.
Grazie
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: VB & office

Buongiorno a tutti.
Ho sempre utilizzato VB for application nel senso che ho sempre "smanettato" su
excel utilizzando le macro così come le può utilizzare un profano: ossia come
un registratore di operazioni da effettuarsi su dati estratti da AS400.
Vorrei iniziare a strutturare un po' meglio le mi conoscenze sul VB anche se in
applicazoni office.
Ma la mia più "grossa difficoltà" è che continuo a ragionare in termini di
"coordinate excel"... o forse è proprio il limite di VB for application?
Forse riesco a farmi capire meglio con un esempio.
Supponiamo di avere in excel le tre celle con i valori seguenti:
a1=10
a2=20
a3=30
a4=somma(a1+a2+a3)
Voglio associare al contenuto della cella a4 una variabile x tale che:
if x è < 50
msgbox (la somma è minore di 50)
else
mesgbox(la somma è maggiore di 50)
end if
-------------------------------------
altro esempio:
Devo sommare il contenuto di n celle consecutive e fermare il conto quando la
somma è <50.
Come inizializzare la variabile?
Che valori? Che tipo di variabile?
COme fare capire alla variabile che la somma deve iniziare dalla cella a1 e non
dalla cella F456?
Grazie a chi mi vorrà dare una mano risolvendo questi semplici esempi.
Paolo
-- 
Posted from  [212.171.68.230] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Non so se ho capito bene il tuo problema ma ci provo ...
Vuoi creare delle Sub o delle Function?
1)
Quando Vuoi che parta il MsgBox < 50 o >50 ?
Questa è la prima cosa che mi è venuta in mente :
===========================
Sub Paolo1()
    Dim x As Integer
    x = Cells(4, 1).Value
    If x < 50 Then
        MsgBox ("<50")
    Else
        MsgBox (">50")
    End If
End Sub
===========================
Sub Paolo2()
    Dim Somma As Long
    Dim n As Integer
    Somma = 0
    For n = 1 To 100
        Somma = Somma + Cells(n, 1).Value
        If Somma > 50 Then Exit For
    Next n
    MsgBox Somma
End Sub
========================
Fammi sapere se non ho capito niente Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: Report

Salve a tutti.
Ho due problemi con datareport
1) Come posso fare a impedire che un gruppo venga diviso in 2 pagine?
(In Access è possibile
2) Come non fare visualizzare un campo del dettaglio quando questo è uguale
al precedente?
Silvio Spagnoli
s.spa...@abanet.it

Volevo sapere alcune cose sui report di (Data Report).
1) Come impedire la divisione di un gruppo su 2 pagine
2) Come evitare la riperizione del campo della riga precedente
3) C'è qualche manuale in commercio con orientato all'utilizzo dei database
e dei report in visual basic)
Grazie
--
Silvio Spagnoli
s.spa...@abanet.it
----------------------------------------------------------
ABACO Informatica srl    Internet Service Provider
Via Montegrappa, 3 - Pesaro
tel 39 721 35425 fax. 32967
CISCO RESELLER & Premier Partner
Socio Consorzio ITALIA COM
Partner UNISOURCE e TELECOM
URL: 
http://www.abanet.it
 
http://e-shop.abanet.it
ABANET is associated to RIPE
----------------------------------------------------------

 wrote in message
94596399...@sea.abanet.it...

1) NewPageBefore e NewPageAfter = true
2)utilizza campi a dimensione fissa
3)l' help il linea è quasi sempre la risorsa migliore
Newsgroup: it.comp.lang.visual-basic
Titolo: gestione messaggi in VB

una domanda spero non banale:
è possibile riuscire ad intercettare i messaggi di Windows? Finchè si 
tratta di inviarne alla finestra con SendMessage ci arrivo anch'io, ma 
nel caso inverso l'operazione è compleatmente trasparente al 
programmatore o no?
Il problema mi è saltato all'occhio quando collegando una DLL in C++ ad 
una applicazione VB, ho cercato di inviare una serie di messaggi 
definiti da me dalla libreria al programma. Come recuperarli? Spero solo 
di non aver perso tempo inutilmente...

 programmatore o no?
La parola magica è "subclassing".
Cerca sul Sito Comune: c'è parecchio materiale in merito (<add> soprattutto
il mio adHook </add>)
Ciao

di non aver perso tempo inutilmente...
In vb non e' proprio il massimo della vita, perche' se non si sta attenti il
crash e' dietro l'angolo. :-(
Se, come mi sembra di capire, hai mandato dei messaggi ad una tua finestra,
puoi sostituire la window procedure del form con una tua, gestendoti
i messaggi custom e chiamando la window procedure originaria per tutto il resto.
Puoi cercare su msdn:
HOWTO: Subclass a UserControl 
Q179398
(non far caso al titolo, va bene anche per i form)
HOWTO: Hook Into a Window's Messages Using AddressOf
Q168795 
-- 
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Programma esterno

Ciao a tutti
come posso fare per lanciare un programma esterno e cambiare o utilizzare le
sue funzioni di menu, usando VisualBasic?
Ringrazio anticipatamente.
Renato

 sue funzioni di menu, usando VisualBasic?
Shell o ShellEx per lanciare il programma
SendKeys per inviare dei tasti
quindi e' come se lanciassi il programma e poi pigiassi i tastini , quindi
per un menu basta passargli alt+giu+destra ecc...

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

Salve ragazzi,
ho un problema in merito ad una query. Diciamo qual'e' il problema. Ho
due tabelle A e B legate da un ID. Devo stampare i record presenti in
A che non sono joinati con B. In Access la query e' la seguente:
SELECT DISTINCT ([Tabella_A].id_A)
FROM Tabella_A LEFT JOIN Tabella_B ON
[Tabella_A].id_A=[Tabella_B].id_B
WHERE ((([Tabella_B].id_B) Is Null))
ed e' perfettamente funzionante, il problema mi si pone con Oracle!!!
Sapreste aiutarmi a trasformare la query per Oracle?
Grazie 1000

 WHERE ((([Tabella_B].id_B) Is Null))
trasformata per oracle...
SELECT DISTINCT ([Tabella_A].id_A)
FROM tabella_A,Tabella_B
WHERE [Tabella_A].id_A=[Tabella_B].id_B(+) AND
               [Tabella_B].id_B) Is Null
 provala un po'...
MIk

 ha scritto nel messaggio
news:blr84q$evb57$1...@ID-165476.news.uni-berlin.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: utilizzo di un nuovo tipo di dato (type)

in vb2005 come definisco un nuovo tipo di dato per esempio
type
    Come (Come1,Come2)
per poi essere utilizzato cosě
Sub Prova (Valore = Come)
Dim s As String
if Valore=Come1 then
    S = "Come1"
elseif Valore=Come2 then
    S = "Come2"
end if
MsgBox(S)
End Sub

 End Sub
Private/Public type NomeTipo
    ogg1 as integer
    ogg2 as string
   ...
end type
Dim miaVariabile as NomeTipo
E per usarla...
miaVariabile.ogg1
miaVariabile.ogg2....
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: COM2 & dintorni..

Ciao @all,
non ho mai programmato nulla che usasse la seriale, il mio obiettivo č
quello di crerare un monitor che mi dica quando la porta vene aperta e
quanti bytes trasferisce...
avete qualche sw che faccia questo? Avete del materiale che mi possa
introdurre nell'argomento?
Grazie a tutti per l'interessamento!
CIAOOOOOOOOOoooooooooooo
--
Stefano
___________________________________________________
ICQ:   40508811
C6:     brusamost
Personale: 
http://space.tin.it/computer/sbrusam/
Curriculum: 
http://web.tiscalinet.it/brusamost/
Universitą: 
http://www.lib.disco.unimib.it/students/brusamost/
Progetti: 
http://asp4free.ravenna2000.it/brusamost/
___________________________________________________

 introdurre nell'argomento?
Vedi esempio MsComm su msdn e Sito COmune
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: [?2] Memorizzare immagini come "risorse"

Ambiente: VB 6.0
================
Ripongo il problema in altro modo.
Ai tempi di QuickBasic in ambiente Mac, si potevano scrivere risorse da
programma oltre che leggerle.
Mi sembra che questo non si possa fare in VB; se è così sarebbe un
deciso passo indietro.
La mia necessità è di ampliare, durante l'uso, un corredo di immagini
(.gif / .bmp) da utilizzare all'interno del programma; le immagini
dovrebbero essere inserite nel file .RES.
Questa strada mi evita di portarmi dietro parecchie decine di files
grafici esterni al programma e, soprattutto, elimina il problema di
spostamenti o cancellazioni di files.
Anche l'alternativa di usare un DB (Access) per memorizzare le immagini
non è praticabile perchè poi occorre fornire all'utente anche Access.
In definitiva: esiste una qualche funzione del tipo "SaveResPict" ?
Se ancora non è chiaro, fatemelo sapere per favore.
Grazie, Giacomo

 wrote in message
383B1447...@handson.it...


Scusami, ma sembra proprio che non riesca a spiegare il mio
problema!...dunque:
Le immagini devono essere memorizzare nel file risorse DURANTE
l'esecuzione del programma!
La cosa deve funzionare così: l'utente del programma seleziona un
immagine da qualsiasi fonte vuole, la carica in memoria e
immediatamente, oppure all'uscita dal programma, questa deve essere
scritta nel file .RES, in modo che al prossimo lancio del programma sia
subito disponibile in un controllo ImageList.
Spero che così sia chiaro...altrimento fammelo sapere...grazie per
qualsiasi idea.
Giacomo
DaVe ha scritto:


Scusa, ma il file di risorse viene compilato ed impacchettato all'interno
del programma, (quindi non distribuito). Come vuoi poterlo editare in
RunTime?
Newsgroup: it.comp.lang.visual-basic
Titolo: Proprietà Index

Scusate la domanda di un neofità, ma ho appena inizato a programmicchiare 
con vb2005 Express.
In vb6 esisteva la proprietà index per i controlli, e ora?
Grazie a quanti risponderanno. 


Ora non ci sono più gli array di controlli...
se non ricordo male si ne era già parlato qui e c'erano
dei sugerimenti, tipo far puntare (ad esempio) l'evento
click di più controlli su uno solo (guarda il codice dell'evento
click, la parte finale della dichiarazione).
Prova a cercare nei vecchi post.
saluti,
pusky 

E' un problemone che ho anche io ...
ero solito creare le form utilizzando le matrici di controlli, tipo:
- Inserivo 3 textbox chiamati Textf(index da 1 a 3)
- a design specificavo la proprietà tag di ognuno chiamandola con un nome
di campo
- a runtime facevo una routine del genere, supponendo che rs sia il
recordset che usavo per popolare i campi
for n=0 to textf.count 1
	textf(n).text = ReadDatafield(rs(textf(n).tag))
next
e nella funzione readDatafield(recorset) avevo una routine che in base al
tipo di campo me lo formattava...
...e così avevo il mio data binding.
Ma adesso?


beh, a naso direi che puoi fare lo stesso, ovviamente è meno
performante, ma puoi ciclare su tutti i controlli del form, se
il controllo è del tipo richiesto (nel tuo caso textbox), controlli
se ha un tag valido e fai quello che devi fare...
Dim ctrControllo As Control
Dim strTag As String
'-----ipotizzo che i controlli da gestire abbiano
'-----il tag composto dal prefisso db: e poi nome del campo
'-----esempio db:NomeCliente
    For Each ctrControllo In Me.Controls
        If TypeOf (ctrControllo) Is TextBox Then
            strTag = ctrControllo.Tag
            If strTag.Substring(0, 3) = "db:" Then
                '-----il tag comincia con db: quindi lo
                '-----gestisco per il binding manuale
                ctrControllo.Text = ReadDatafield(rs(strtag.Substring(4))
            End If
        End If
    Next
saluti,
pusky
Newsgroup: it.comp.lang.visual-basic
Titolo: Ribaltamento tabella

Ragazzi č possibile ribaltare i risultati ottenuti tramite un group by 
in modo da non avere piů righe ma piů colonne?
Cioč potrei fare da 3 SELECT da VB sulla tabella ottenuta, ma se posso 
fare una query č meglio.
Praticamente la situazione č questa:
tabella con contratti conclusi, in cui il campo STATO indica se un 
contratto č OK (=3), SOSPESO(=2) o ANNULLATO(=1), UserID č l'ID 
dell'operatore che ha concluso il contratto, ID l'indice del record 
(univoco).
Ho fatto questa query:
SELECT UserID, COUNT(ID) AS Tot, Stato
FROM Contratti
WHERE DataContratto BEWTEEN .... AND ....
GROUP BY UserID, Stato
in questo modo ottengo qualcosa del tipo:
+--------+-----+-------+
| UserID | Tot | Stato |
+--------+-----+-------+
|      0 |  30 |     1 |
|      0 |   2 |     2 |
|      0 |  10 |     3 |
|     11 |   1 |     1 |
|     11 |   1 |     3 |
|     12 |  21 |     1 |
|     12 |   6 |     2 |
|     12 |  70 |     3 |
|     13 |  16 |     1 |
|     13 |   2 |     2 |
|     13 |  41 |     3 |
+--------+-----+-------+
Ora vorrei ottenere una tabella con:
+--------+----------+---------+-----------+
| UserID | Conclusi | Sospesi | Annullati |
+--------+----------+---------+-----------+
|      0 |       10 |       2 |        30 |
|     11 |        1 |       0 |         1 |
|     12 |       70 |       6 |        21 |
|     13 |       41 |       2 |        16 |
+--------+----------+---------+-----------+
Come faccio? Intendo creare una query in cui quella sopra esposta 
diventa una SUBQUERY, e quindi a livello piů esterno modificarla...
Uso MySQL 4.1...
Thx in anticipo!
-- 
Quando noi ignoranti eravamo di piů,
tutto era piů bello...
(Adriano Celentano)

 fare una query è meglio.
La soluzione che ti avevo già dato, cosa ha che non va?
Alberto

 Alberto
-- 
Quando noi ignoranti eravamo di più,
tutto era più bello...
(Adriano Celentano)


Ad occhio, non dovrebbe funzionare.
Metti un SUM davanti a ciascun IIF...
Ciao
Alberto

 Alberto
Ciao Darkbyte :)
-- 

Newsgroup: it.comp.lang.visual-basic
Titolo: multistampa pdf

Ciao a tutto il NG
ho scritto un programmino che dovrebbe permettermi di stampare una coda di
file pdf (parecchi oltre un centinaio al giorno). o creato il pacchetto per
gestire la coda ed ho incluso il modulo ocx che arriva con acrobat reader.
Tutto bene se si stampa un file solo ma quando i file sono più di uno se
creo un ciclo di stampa facendo aprire al componenete del reader un pdf e
dicendogli di stamparlo tutti vengono trattati ma solo l'lultimo viene
effettivamente stampato.
La prima idea è stata quella di porre un ritardo tra una lettura e l'altra
ma a parte che è un idea che mi fa schifo e poi continua a non funzionare
nel senso che mi si inchioda l'applicazione (perchè ????)
Allora volevo leggere la porta parallela tra una stampa e l'altra e far
avanzare al file successivo quando la stampa in corso è finita ma se poi la
stampante è USB o di rete rimango fregato anche perchè in ufficio abbiamo
tutte queste stampanti.
L'idea sarebbe di dare un'occhiata allo stato della stampante ma come
faccio? Nell'oggetto Printer non ho trovato traccia di una proprietà o
metodo che possa rispondermi STO STAMPANDO NON SCASSARE I MARONI o SONO
LIBERA BUTTA QUA CHE CI PENSO IO.
Se qualcuno può aiutarmi gli/le sarò grato sia io che il capo ma soprattutto
io visto che mi sta tritando i coglioni da parecchio tempoù
Ciao Marco!
--
Dott. Ing. Marco Ziglioli

 LIBERA BUTTA QUA CHE CI PENSO IO.
Se nelle opzioni della stampante hai usato "stampa nello spooler",
la cosa non dovrebbe preoccuparti. Il problema probabilmente è
nell'ocx pdf, che non è pensato (e non è supportato) per fare
questo tipo di cose.
Volendo sul Sito Comune (link in firma) c'è un programmino per
visualizzare e gestire lo spooler, ma prima vediamo il loop che fai,
a occhio direi che il problema sia lì.
Bye, G.
--
Le risposte alle tue domande sono sul Sito Comune
di questo NewsGroup: 
http://it-lang-vb.net/
... e nell'help in linea !

Ciao
il codice attualmente non ce l'ho sottomano ma era una roba del tipo
ciclo con un for sui nomi di file contenuti in una listbox
    apro il file mediante l'oggetto che ottengo dall'inclusione     dell'ocx
della adobe
    eseguo la stampa con il metodo printallfit
fine del ciclo
Poi vedendo che la questione non funzionava e solo l'ultimo file veniva
stampato ho provato ad inerire dei cicli di ritardo del tipo do loop (fanno
schifo ma sai... la disperazione) e poi usando il componente timer per
temporizzare il ciclo. I risultati sono sempre stati scandalosi.
Tra un po' vado a caso becco il codice e cerco di postartelo.
Intanto comincio a ringraziarti per l'attenzione.
Ciao Marco
"Paperino" <non...@lo.dico> ha scritto nel messaggio
news:asqorf$5vcc$1...@stargate1.inet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Verifica esistenza file su Host Internet

Lo scopo è quello di determinare l'esistenza di un aggiornamento di
un'applicativo
tramite http...!
Il problema è che non voglio usare INET, quindi vi chiedo eventuali
soluzioni
alternative che non richiedano componenti aggiuntivi.
VB6
Grazie
@Alex

utilizza i winsock: ti colleghi al sito sulla porta http(di solito 80) e 
  all'evento connect invii "get URL http/1.0", cosě richiederai la 
pagina (o file) puntata dall'url, dopodiche' sta a te: ad esempio pui 
scrivere il num. di versione tra particolari simboli che il tuo 
programma utilizzera' per estrapolare la versione e confrontarla con 
quella del programma utilizzato.
 
	ciao

L'idea mi era venuta, ma richiede la distribuzione di WinSock, e se non
sbaglio
l'effetto sarebbe +/- questo:
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
A questo punto potrei nel male usare questa:
Declare Function FtpFindFirstFile Lib "wininet.dll" Alias
"FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal lpszSearchFile As
String, lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal
dwContent As Long) As Long
Che ne dici..?
Devo fare qualche prova per verificare la fattibilità.
Per ora grazie.
@Alex

 Che ne dici..?
questo richiama un ftp, non credo che funzioni via browser..
Personalmente io avrei untilizzato il winsock x richiedere il file con 
una GET, ti ritorna un header seguito dal file (probabilmente, a seconda 
della lunghezza del file, verra' suddiviso in + parti.. quindi ci sara' 
piu' di una chiamata a data_arrival)
Altri metodi non ne so, preferisco fare "a mano"
bye
Dark

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Btrive - Urge -

E possibile trasformare le tabelle di Btrive in file di testo?
se si come fare?
Certo di un vostro Considerevole aiuto..
Saluto con Cordialità Gianluca

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Testo scorrevole

Ciao a tutti,
qualcuno conosce, per favore, un controllo o simili
per inserire del testo scorrevole in una Form
(effetto pagina Web)
grazie e Buon Anno al NG

...


...
Potresti postarmi il codice , per favore
marco

...


eccoti servito
Grazie e ciao
marco

Newsgroup: it.comp.lang.visual-basic
Titolo: Pb. colore celle

Vorrei sapere come, dopo aver scritto il contenuto di una cella, posso
cambiarne il colore in funzione del cambiamento numerico avvenuto ?
Ovvero, dopo:
     If t=1 Then Cells(x,y)=2 : "Sfondo-Colore della stessa cella = NERO"
Ho provato i vari suggerimenti dell'aiuto ma non sono riuscito, spero che
per voi sia una banalitŕ!
              Grazie, Beppe

      If t=1 Then Cells(x,y)=2 : "Sfondo-Colore della stessa cella = NERO"
    Per colorarla di verde, per esempio, puoi scrivere:
        If (t = 1) Then
            With Cells(x, y)
                .Value = 2
                .Interior.Color = vbGreen
            End With
        End If
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

Perfetto!
Grazie Mauruzio.
Newsgroup: it.comp.lang.visual-basic
Titolo: Come limitare il numero dei records in una StoredProcedure

Ciao utilizzo VB 6.0
Vorrei sapere come dire a una stored-procedure di limitare il numero dei
records da ritornare ad un determinato numero es. 100.
Ciao e grazie.

Ciao puoi usare TOP nella SELECT es:
SELECT TOP 100 * FROM tabella
Ciao Luca

Newsgroup: it.comp.lang.visual-basic
Titolo: VBA neofita

Scusate io mi sono avviconato al vb tramite Access quindi sono molto
inesperto.
Come posso fare per passare la proprietą filtro ad una maschera successiva?
Es.:Stampo una maschera filtrata come posso passare la proprietą filtro alla
maschera successiva??
Grazie in anticipo

...

Io invece devo riusciure a capire come in vba di mantengano delle variabili
globali insomma delle variabili che rimangano disponibili per ogni maschera!
Cosa demo fare?
Andrea
anfa...@tin.it





Newsgroup: it.comp.lang.visual-basic
Titolo: chiudere windows2000

da progetto Vb č possibile?
hrazie ciao jimmy

Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTISSIMO:problema installazione Applicazione

Ciao a tutti,
ho un grossisimo problema ho creato l'installazione per un programma VB con
Package & Deploy Wizard in  odalita' Single Cab, ma su certi PC
indipendentemente dal SO mi compare l'errore:
ACTION: CreateDir: "C:\Programmi\Gestione"
*** ERROR: Type mismatch
*** ERROR: An unexpected setup error has occurred!
*** ERROR: (User Responded with 'Retry')
subito dopo il check del disco.
Come posso risolverlo ?
Grazie in anticipo
<LuigI>

 ha scritto nel
messaggio news:94peed$eq9$1...@galileo.it.ip-plus.net...


 ha scritto nel messaggio
news:94pfii$ngv$1...@news.IT.net...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] evento keypress su listview

avrei un piccolo quesito da porvi: devo cancellare delle righe da una
listview, usando il tasto canc della tastiera, ma l'evento keypress non lo
prende. mentre se invece adopero un altro tasto qualsiasi funziona.
sapete mica come mai??
1000grazie
ciao

 prende. mentre se invece adopero un altro tasto qualsiasi funziona.
Questo perche' CANC, a differenza del BACKSPACE per esempio, non ha un codice
ASCII, che e' quello che prende in input l'evento KeyPress, ma ha invece un
codice di tastiera, che puoi controllare negli eventi KeyDown/KeyUp
Ciao
--
Luca Dormio
luca....@tin.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [? VB6] Winsock: POST a pagina asp

Come da oggetto, qualcuno sa dirmi qual'é la maniera corretta di
costruire l'header?
Ho tentato piů o meno cosě:
POST /miapagina.asp HTTP/1.1
Host: 
www.miosito.com
Content-Length: 16
Azione=miaazione
Connection: close
Accept: */*
Il sito č su aruba.
Se ometto il content-lenght mi da: 
<h1>Bad Request (Invalid Header Name)</h1>
Se invece lo aggiungo come sopra non mi risponde nulla (il DataArrival
non viene chiamato).
miapagina.asp č una stupidissima pagina di test con un select case e
un response.write e null'altro.
Aggiungo che col GET funziona correttamente.
Non ho esperienza col winsock e non riesco a capire dov'č il problema.
Ciao e grazie.

 costruire l'header?
esempio completo
http://www.vbforums.com/showthread.php?t=334645
...ma google no?
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

...ma google no?
Questa me la merito. Ho passato mezza giornata a googlare sui gruppi,
io che di solito *snobbo* il web.....e invece... :(
Alla fine avevo *sistemato* l'header, per accorgermi però che il
problema era la pagina di test (senza form).
Perchè funzioni in questo caso devo mettere nell'header:
POST /miapagina.asp?Azione=miaazione HTTP/1.1
...........
Il motivo al momento mi sfugge (sono scarsetto in programmazione web)
e dovrò approfondire, e comunque esula dai contenuti dell'NG.
Grazie e ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: operazione binarie

Ho due valori 86 (1010110) e 30 (11110) io dovrei eseguire le seguenti
operazioni:
datoL =86
datoH =30
datoL=datoL>>3; //"shifta" i bit di datoL a DX di 3
datoL=datoL&0x0F; //Azzera i primi 4 bit
datoH=datoH<<1; //"shifta" i bit di datoH a SX di 1
datoH=datoH&0xF0; //Azzera gli ultimi 4 bit
dato=datoH|datoL; //Costruzione degli 8 bit del dato
Il primo problema è che non so come far shiftare il dato, il secondo
problema non so come azzerare i primi quattro bit.
Poi datol e datoh come li dichiaro integer, int16 e che valore inserisco nei
due "dato" binario o decimale?
Grazie in anticipo

 Grazie in anticipo
prego in posticipo,
termoPilucco

 datoH=datoH\(2^1)  ' ma usa direttamente 2
Ora che ci penso lo shift è a sinistra:
datoH=datoH*(2^1)  ' ma usa direttamente 2
termoPilucco

termoPilucco ha scritto:

Occhio agli overflow ;)
Ciao

 Occhio agli overflow ;)
Sì, VB è particolarmente fastidioso perchè non consente di dichiarare numeri
unsigned (a parte i byte).
A causa di ciò bisogna gestire diverse eccezioni nella manipolazione di bit.
Per questo io preferisco tabellare preventivamente le manipolazioni sui
possibili input (se non sono 100.000, eh).
Per il resto credo che, se l'autore aveva copiato/scritto codice C
funzionante, dovrebbe (dovrebbe) andare anche il corrispondente VB....
termoPilucco, ...un po' più lento, forse.

 funzionante, dovrebbe (dovrebbe) andare anche il corrispondente VB....
In C c'è l'operatore di shifting
2 >> 3 'shift di 3 bit a dx
Ciao

 2 >> 3 'shift di 3 bit a dx
Sissì, lo so, dicevo che i problemi di overflow - salvo casi dovuti
all'impossibilità di VB di usare tipi unsigned - se non c'erano in C non ci
saranno in VB.
Ma visto che l'input sono due byte e i byte sono unsigned anche in VB le
cose dovrebbero essere già a posto.
termoPilucco