mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] GetDIBits

ciao a tutti,
avrei bisogno di eseguire operazioni il piu' possibile veloci (e non mi dite
di cambiare linguaggio di programmazione :-P) pixel a pixel su una bitmap.
per questo avevo pensato di utilizzare la GetDIBBits. Grazie alla Api-guide
sono riuscito a capire piu' o meno il funzionamento della funzione e ho
buttato giu' qualche linea di codice (che ho incollato sotto la firma).
Questo codice praticamente prende con la suddetta funzione i "pixel"
dell'immagine e li mette dentro un array, poi dovrebbe ricostruire
l'immagine nell'array attraverso la SetPixel. Unico problema: l'immagine mi
viene stampata rovesciata! Quindi penso di aver sbagliato qualcosa nella
chiamata all'api... Il mio scopo ultimo e' di ottenere un array Pixels(0 to
width, 0 to height) As Long, gia' pronto per essere elaborato, qualcuno puo'
aiutarmi?
grazie in anticipo, assa.
[code]
Private Type RedGreenBlue
    R As Byte
    G As Byte
    B As Byte
End Type
Private Sub Command1_Click()
    Dim hdc As Long
    Dim hBmp As Long
    Dim hDeskDC As Long
    Dim bmpInfo As BITMAP
    Dim bi As BITMAPINFO
    Dim Pixels() As RedGreenBlue
    Dim i As Integer, j As Integer
    hDeskDC = GetDC(0)
    hdc = CreateCompatibleDC(hDeskDC)
    ReleaseDC 0, hDeskDC
    hBmp = LoadImage(0, "seph.bmp", 0, 0, 0, &H10)
    SelectObject hdc, hBmp
    GetObject hBmp, Len(bmpInfo), bmpInfo
    ReDim Pixels(1 To bmpInfo.bmWidth, 1 To bmpInfo.bmHeight) As
RedGreenBlue
    With bi.bmiHeader
        .biBitCount = 24
        .biCompression = BI_RGB
        .biPlanes = bmpInfo.bmPlanes
        .biSize = Len(bi.bmiHeader)
        .biWidth = bmpInfo.bmWidth
        .biHeight = bmpInfo.bmHeight
    End With
    GetDIBits hdc, hBmp, 0, bmpInfo.bmHeight, Pixels(1, 1), bi,
DIB_RGB_COLORS
    For i = 1 To UBound(Pixels, 1)
        For j = 1 To UBound(Pixels, 2)
            SetPixel pctBlt.hdc, i - 1, j - 1, RGB(Pixels(i, j).B, Pixels(i,
j).G, Pixels(i, j).R)
        Next j
    Next i
    DeleteObject hBmp
    DeleteDC hdc
End Sub
[/code]

 aiutarmi? ...
Puoi provare gli esempi che ho messo sul mio sito
a 
http://www.flanguasco.org
 
Cerca il progetto LeggePB.zip
Ciao e se poi avessi problemi contattami pure.
Franco

 Cerca il progetto LeggePB.zip
grazie dell'aiuto, ti faro' sapere se ho capito tutto :)
ciao, assa.

             SetPixel pctBlt.hdc, i - 1, j - 1, RGB(Pixels(i, j).B, Pixels(i, j).G, Pixels(i, j).R)
Correggila in:
SetPixel pctBlt.hdc, i - 1, ubound(pixels,2) -j, RGB(Pixels(i, j).B, Pixels(i, j).G, Pixels(i, j).R)
Naturalmente è solo per vedere se funziona :-) Per questioni
di velocità, devi "tirare fuori" la ubound(pixels,2) e usare una
variabile, è inutile ricalcolarla ad ogni pixel. :-)
Bye, G.

 variabile, è inutile ricalcolarla ad ogni pixel. :-)
giusto, l'ho fatto (funziona, raddrizza l'immagine) ed ho anche fatto
qualche prova di velocita', ma a quanto pare la sola chiamata a GetDIBBits
e' piu' lenta di una routine che ho scritto con GetPixel e SetPixel che
volevo sostituire con questo nuovo metodo...
pazienza, mi inventero' qualcos'altro :-)
grazie, assa.
Newsgroup: it.comp.lang.visual-basic
Titolo: PORTA PARALLELA

CHI PUO' DIRMI COME ACCEDERE ALLA PARALLELA TRAMITE VB O MEGLIO API DI WIN

 wrote in message
93980444...@jes-srv.fastnet.it...


Dai un'occhio alla DLL Win95io.dll sul Sito Comune
(
www.murialdo.it/it_lang_vb
)
Ciaps
Stracca

PER CONTROLLO DI DEVICE TRAMITE LPT
Massimo Del Barba ha scritto nel messaggio ...


 wrote in message
93980828...@jes-srv.fastnet.it...


 non l'ho testato, ma sembra faccia al caso tuo.
Gia', e' un bell'OCX, peccato che non e' free :(
C'e' qualcosa di simile? Sto utilizzando la libreria win95io.dll ma per il
numero di istruzioni al sec con la quale la uso, la trovo un po' lentina.
C'e' qualche rimedio??
Grazie
Salvo

Newsgroup: it.comp.lang.visual-basic
Titolo: Che ora è? Boh, il mio è fermo!

Fino ad ora sono riuscito a creare solo un orologio statico (WOW, so'
bbravo, neh?), ma ora vorrei crearne uno dinamico. Colo passare dei
sec. e dei mins.... per intenderci. Chi è così buono e bello da dirmi
il codice???
Ciao a tutto il NG.
Drew
Responsabile Sala Operativa - Croce Bianca Città di Bergamo
ICQ UIN: 25008358

Drew
Siamo a questi livelli?
Siamo messi maluccio eh?
con Label1 e Timer1
Private Sub Timer1_Timer()
    Label1.Caption = Now
End Sub
ciao.

...


Io spero che intenda analogico, diavolo !!!
Lo spero anch'io...
Ciao.

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 - DBGrid con BUTTON

Ciao a tutti.
Ho scoperto con mia grande gioia che il DBGrid puo' essere utilizzato per
far selezionare all'utente dei valori tramite la propietą BUTTON di ogni
colonna.
Tale proprietą visualizza un pulsante all'interno della cella attiva;
cliccando viene richiamato l'evento ButtonClick.
Ora viene il bello: cosa fare nell'evento ButtonClick?
Io vorrei visualizzare una lista di valori sotto la cella e permettere
all'utente di selezionarne uno, riportando il valore nella cella attiva.
COME SI FA?
Avete un esempio?
Attendo notizie (anche direttamente al mio indirizzo). Grazie in anticipo.
Ciao,
Corrado.
azza...@tin.it

Avete un esempio?
Crei una finestra con la lista dalla quale scegliere i valori, e nel
buttonclick metti NomeForm.show.
Quando si fà una scelta, in chisura della form creata metti il codice per
aggiornare il valore nella casella.
Ciao

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

Ciao a tutti,
avrei bisogno di mandare dei file via FTP in automatico.
Qualcuno ha idea di come posso fare ???
Ciao e Grazie !

 Qualcuno ha idea di come posso fare ???
kftp:
http://neti.hypermart.net/
Newsgroup: it.comp.lang.visual-basic
Titolo: ??? o questa ???

Mi capita una cosa buffa ... quando ho VB4 aperto, se premo CTRL vengono
fuori sullo schermo dei cerchi che si ristringono intorno al puntatore del
mouse ... che cos'e', un uovo di pasqua del VB, per caso ? O forse e' un
simpatico virus ? O piu' probabilmente sono io che mi sto' rincoglionendo
!?!?!?
Comunque niente di male, se non fosse che il tasto in questione non funziona
e quindi non posso fare il copia-incolla da tastiera ...
Bona, gente!

 !?!?!?
[...]
Guarda le impostazioni del mouse: devi disabilitare il "sonar" che serve per
rintracciare il cursore. Non sapevo che interferisse con VB.
Ciao
---
--
-
MIX (VB5SP3)
170 links a siti VB
http://web.tiscalinet.it/VBLINKS/
   <---  Nuovo server !
http://space.tin.it/computer/gaais/
-
--
---

Newsgroup: it.comp.lang.visual-basic
Titolo: [SITO COMUNE] Recensire i libri

Ciao a tutti,
Visto che molta gente chiede consigli su quali libri comprare per imparare
ad usare VB e/o le API, propongo di creare sul Sito Comune una recensione
dei Libri utili ai programmatori VB.
Io personalmente non ne conosco nemmeno uno, ma sicuramente molti di voi,
piu' preparati di me, se ne sono sciroppati qualcuno.
Ebbene chiedo a tutti quelli che hanno letto libri di creare una recensione,
Titolo, Autore, Target e contenuto, ed ovviamente, giudizio (personale). In
questo modo potremo raccogliere le informazioni e metterle in una rubrica
sul Sito Comune, a disposizione di tutti.
Spero che l'idea piaccia, e che partecipiate alla sua realizzazione.
Saluti a tutti
Sito Comune di programmatori Visual Basic
http://members.xoom.com/it_lang_vb
By -MES-   Maronese Ettore

...



[...]


magari è di una versione che non si usa più.


Ho letto ora che era già stato discusso dei libri usati da mettere sul sito.
Siete tutti d'accordo?
Io per esempio ho un paio di libri su vb4, e dato che qualcuno usa questa
versione potrebbe trovarli interessanti. Altri come me?


Certo, libri e soprattutto MANUALI !!!!!
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)


Come ho gia' avuto modo di dire, l'idea delle recensioni dei libri e'
ottima.
Anche io non ne conosco alcuno, quindi appoggio l'idea solo passivamente.
Ribadisco, pero', che non deve diventare un "mercatino" del libro usato...
il Sito Comune non e' stato ideato per queste cose.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Come funziona il RaiseEvent ?

Premetto che è da poco che mi sono accorto delle Classi...
Non capisco quando e in quale area, ha effetto il RaiseEvent:
Ho una classe ClsClienti con 2 proprietà (Nome-Cognome String)
ora dichiaro l'evento Public Event ERRORE(ByVal msg  As String)
Private MY_Nome as String
nella Public Property Let Nome(byval vData as String)
If vData = "D" Then
    RaiseEvent errore("Ciao!")
Else
    MY_Nome = vData
End If
Nella Form1 dichiaro Dim WithEvents X as ClsClienti quindi:
Private Sub X_errore(ByVal msg As String)
MsgBox msg
End Sub
Private Sub Cmd_Click ( )
Dim C as New CClienti
txtnome = C.Nome
Set C = Nothing
End Sub
Perchè quando digito la D nella txtNome, non mi vien fuori il MsgBox "Ciao
!" ??
Grazie 1000
Ciao 8)

 txtnome = C.Nome
Qua Credo che tu volessi scrivere C.Nome = txtnome
Altrimenti non passerai mai alla property let la "D" scrivendola nella
texbox.
Poi non capisco cosa e' CClienti.
Se tu dichiari la WhitEvents X as ClsClienti qua dovresit scrivere al posto
di
Dim C as New CClienti (che non so' che senso ha)
Set X = New ClsClienti
Ricapitolando l'esempio da te scritto dovrebbe tradursi in :
Progetto ClsClienti.cls
/***************************************/
    Public Event errore(ByVal msg As String)
    Private MY_Nome As String
    Public Property Let Nome(ByVal vData As String)
        If vData = "D" Then
            RaiseEvent errore("Ciao!")
        Else
            MY_Nome = vData
        End If
    End Property
/****************************************/
Progetto Form1
/****************************************/
    Dim WithEvents X As ClsClienti
    Private Sub X_errore(ByVal msg As String)
        MsgBox msg
    End Sub
    Private Sub Cmd_Click()
        Set X = New ClsClienti
        X.Nome = txtnome
        Set X = Nothing
    End Sub
/******************************************/
Guaito.

..non vorrei dire una cappella ma se non sbaglio il with events funziona
solo se la classe fa parte di una dll esterna
prova a creare la classe all' interno di una dll active X e uniscila al
progretto ..

 End Sub
E se volessi tornare il focus alla TXT dopo aver generato l'errore ? Cosa
dovrei fare ? Conviene agire nella property Let o nel modulo del Form ?
Grazie a tutti per l'aiuto 8)
Ciao

 solo se la classe fa parte di una dll esterna
e invece no; funziona benissimo anche in "locale"... provare per credere
ciao


agisci a livello di form e il motivo č lampante... rifletti un attimo:
perchč mai la tua classe dovrebbe preoccuparsi di gestire l'interfaccia
utente del chiamante? (inteso come form) e se la tua form cambia? devi
cambiare anche la classe? e se utilizzi la tua classe con altre form?
ciao

 
credo che sia perchè l'evento click della casella non scatta. se scrivi 
qualcosa nella casella scattano _change, _keypress, _keydown, etc etc.
in txt_change dovresti eseguire
c.Nome = txt.text
se in txt hai scritto D dovrebbe partire l'evento che raccogli con 
x_errore
Newsgroup: it.comp.lang.visual-basic
Titolo: rinominazioni intelligenti

qualcuno sa se esiste già qualcosa che rinomina o sposta in blocco
controlli in modo intelligente?
esempio: se ho dei textbox che si chiamano a1 a2 e a3 li rinomino tutti
con una sola mossa in nuovo1 nuovo2 e nuovo3  così come tutto il codice
a loro associato?
oppure se sono ben allineati  ma li voglio fare scendere tutti di 1000
twip senza perdere l'allineamento lo faccio in una mossa sola dicendo di
aggiungere a top 1000 per tutti gli oggetti  selezionati
non è difficile ma se già esiste non ha senso rifarlo

forse:
dim c as control
for each c in me.controls
    if typeof c is TextBox then
        c.top=QuellocheVoglio
    end if
next

 a loro associato?
Prova MZtools:
http://www.mztools.com/
ciao
		maxx

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e VOIP!

Ciao...
c'e' qualche progettino/sorgente in VB6 semplice da poter usare tra due PC 
(IP) per fare audio senza dover usare i classici MSN ecc... dovrei solo 
impostare i due IP e poter parlare tra i due o piů corrispondenti!
Avevo visto anche qualche cosa sul sito ma non lo ritrovo piů!
Qualche link utile?
grazie
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com
 The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----

 Qualche link utile?
usare il classico Google o altro motori di ricerca non sei ++ capace? ...
Prova ad inserire VB6 Voip ... un bel po' di cose vengono fuori e a prima
vista fanno al caso tuo
-- 
Saluti, Vitt
www.pbase.com/vitt

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

MA è possibile lavorare kon VB6 su un S.O. WinME ???
--
"Mettete dei batteri in una provetta, con nutrimento e ossigeno,
ed essi prolificheranno in modo esplosivo,
raddoppiando di numero ogni venti minuti circa,
fino a formare una massa visibile e solida.
Ma a un certo punto la moltiplicazione cessa,
man mano che i microbi vengono avvelenati
dai loro stessi prodotti di rifiuto.
Nel centro di questa massa verrà così a costituirsi
un nucleo di batteri morti o morenti,
tagliati fuori dal nutrimento e dall'ossigeno
del proprio ambiente dalla solida barriera dei loro vicini.
Il numero dei batteri viventi si ridurrà quasi a zero,
a meno che le materie di rifiuto non vengano eliminate.
L'umanità si trova oggi in una situazione simile".
Gordon Rattray Taylor <La società suicida>

> MA è possibile lavorare kon VB6 su un S.O. WinME ???
perché, che problema c'è?
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: domanda stupida sulle textbox

Salve a tutti. Sto lavorando su un controllo activex che registra su dei
files il contenuto di una textbox.
Quest'ultimo è determinato dal contenuto di altre due textbox (tex3.text
=text1.text + text2.text). Come faccio a far andare a capo il cursore della
text3 dopo ogni inserimento? Mi sa che è una stupidata ma non ho idea di
come fare.
Grazie
Igor.


text3 = text1.text & vbcrlf & txt2.text
Metti la proprieta MultiLine su True
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!
Newsgroup: it.comp.lang.visual-basic
Titolo: Anche l'occhio.....vuole la sua parte....

Ciao ragazzi, sono un programmatore casalingo di VB6, diciamo che me la
cavo...a realizzare qualche piccolo gestionale. Vengo subito al dunque, nei
miei applicativi utilizzo (ovviamente) delle textbox, io vorrei che in
queste textbox il cursore lampeggiante al posto di essere un trattino
verticale assumesse la forma del cursore che si ottiene premendo il tasto
INS emulando cosi il cursore di un terminale..... c'e' un modo per attivarlo
da codice o qualche ocx freeware che fa al caso mio?? Grazie a
tutti....Davide.



http://www.devx.com/vb2themax/Tip/18279

 INS emulando cosi il cursore di un terminale..... 
Ti hanno già risposto, ma se vuoi un consiglio, lascia le cose come stanno.
Tutti gli applicativi sotto Windows usano questa convenzione.
Se il tuo programma usa una simbologia, non differente, ma *opposta*, non
è un bella presentazione per un eventuale acquirente che capisca qualcosa
di programmi.
termoPilucco
-- 
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: SETUP

Riposto il problema + chiaramente
Uso il tool di Visual Studio 6 - Prof. per creare pacchetti di
installazione.
Il mio software ha bisogno per funzionare, di 2 file .INI ed 1 .WAV
come posso fare per includerli nel setup ?
Grazie a tutti

 ha scritto

gli ini in teoria dovrebbe scriverli il tuo programma, cmq nella creazione
guidata pacchetti installazione a un certo punto puoi aggiungere file. io di
solito lo faccio con mdb ecc., puoi provare. se pero' vanno in un percorso
diverso rispetto all'exe, forse la cosa si complica un po'.

Newsgroup: it.comp.lang.visual-basic
Titolo: Colore testo su ListBox

Ciao a tutti, stò cercando di dare un colore ad ogni item che inserisco in
una ListBox:
   List1.AddItem Now & " " & "Ciao!"
   List1.ForeColor = &HFF&
..in questo modo cambio il colore atutta la listbox..come faccio ad
assegnare ad ogni item un colore??
Grazie a todos
 
--------------------------------
Inviato via 
http://usenet.libero.it

non è possibile...  quanto meno con il controllo standard ListBox.
Sinceramente non mi è mai capitato neanche di trovare un controllo
sviluppato da terzi con tale proprietà
Così su due piedi mi viene in mente che sarebbe possibile farne uno con
RichTextBox, lavorandoci un po riusciresti a gestirlo come una listbox, ad
ogni evento click vedi dove è posizionato il cursore e selezioni l'intera
riga... o roba del genere.
Con RTB puoi gestire 'separatamente' il colore, il font, le dimensioni
ecc...


 Grazie a todos
http://www.vbaccelerator.com/
Owner Drawn Combo and List Box Control Version 2.1  30 May 1999
vb5
Newsgroup: it.comp.lang.visual-basic
Titolo: form e controlli con risoluzioni diverse

Salve. Ho il problema di far rimanere costante la grandezza di un form
e di tutti i suoi controlli passando da una risoluzione all'altra.
Qualcuno l'ha già risolto?
Grazie
Procellario

 e di tutti i suoi controlli passando da una risoluzione all'altra.
Sito Comune, indirizzo nella firma, cerca "resize". Giacché ci sei, fatti
un giro, ci sono "decinaia e decinaia" di cose utili. Passando, poi, dai
per favore un'occhiata al Manifesto del newsgroup, troverai tutte le
indicazioni per utilizzare al meglio questo utilissimo "strumento".
Bye, G.
--
    Le risposte alle tue domande sono sul Sito Comune
    di questo NewsGroup: 
http://it-lang-vb.net/
    ... e nell'help in linea !

Bye, G.
Grazie mille. Trovato. Poiche' ho vb4 ho dovuto ritoccare i files
contenuti in 'ChgScreenRes.zip', che poi ho potuto utilizzare e
provare ugualmente. Non e' proprio quello che cercavo, ma in effetti,
cambiando risoluzione all'inizio e ripristinandola alla fine, il
risultato potrebbe essere accettato. Ma ho visto che il sito comune e'
veramente una miniera. Percio' andro' a cercare meglio...
In seguito ho provato anche 'clresize.zip' che rappresenta una valida
alternativa. Anche qui non ho trovato i risultati che speravo:
passando alla risoluzione 640x480 le proporzioni non sembrano
rispettate. 
Grazie ancora e buon lavoro e/o divertimento a tutti.
Procellario
Newsgroup: it.comp.lang.visual-basic
Titolo: assegnare il gruppo ad un utente NT via API

Ciao.
Ho creato un utente NT mediante l'API NetUserAdd. Nessun problema.
Ora vorrei assegnargli un gruppo.
Le funzioni NetUserSetGroups e NetGroupAddUser funzionano solo per i gruppi
"globali". msdn parla addirittura di funzionamento solo sul primary domain
controller. Non ho trovato altro, ma mi pare ben strano che non si possa
fare su un computer "stand alone..." (non posso assoloutamente farlo
diventare domain controller!).
Sapete come si fa?
Grazie.

fare su un computer "stand alone...
Ed hai ragione !
NET_API_STATUS NetLocalGroupAddMembers(
  LPCWSTR servername,
  LPCWSTR groupname,
  DWORD level,
  LPBYTE buf,
  DWORD totalentries
);
traducibile press' a poco cosi':
Option Explicit
Private Const NERR_Success As Long = 0&
Private Declare Function NetLocalGroupAddMembers _
                        Lib "Netapi32" (ByVal servername As Long, _
                        ByVal groupname As Long, ByRef level As Any, _
                        ByRef buf As Any, _
                        ByVal TotalEntries As Long _
                        ) As Long
' questa e' un' incapsulazione amichevole in vb:
Public Function AddUserToLocalGroup(ByVal a_ServerName As String, _
                            ByVal a_GroupName As String, _
                            ByVal a_UserName As String _
                            ) As Boolean
 
    Dim pGroupName As Long
    Dim pUserName As Long
    Dim pServerName As Long
    Dim TotalEntries As Long
    Dim apiRet As Long
 
    If Len(a_GroupName) = 0 Then
      Exit Function
    Else
      pGroupName = StrPtr(a_GroupName)
    End If
    If Len(a_UserName) = 0 Then
      Exit Function
    Else
      pUserName = StrPtr(a_UserName)
    End If
    If Len(a_ServerName) = 0 Then
      pServerName = 0&
    Else
      pServerName = StrPtr(a_ServerName)
    End If
 
    TotalEntries = 1
 
    apiRet = NetLocalGroupAddMembers(pServerName, _
                                    pGroupName, _
                                    ByVal 3&, _
                                    pUserName, _
                                    TotalEntries)
 
    If (apiRet = NERR_Success) Then
      AddUserToLocalGroup = True
    End If
 
End Function
' per provarla, basta che scrivi, per esempio, nella finestra di verifica:
?AddUserToLocalGroup(vbnullstring,"Users","ciccio")
hth, hal

 wrote in message
news:9otqkp$fcehm$1...@ID-56381.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: DAO 3.6 e DBEngine

ciao a tutti....
scusate la domanda, ma sapreste dirmi come compattare e rispistinare un DB
Access
usando DAO 3.6?
nella versione 3.51 esisteva il DBEngine.rebuildDataBase....
nella 3.6 non c'e' piu'...come la posso sostituire?
Ciao e grazie

 nella 3.6 non c'e' piu'...come la posso sostituire?
DBEngine.CompactDatabase e DBEngine.RepairDatabase non ci sono più nel DAO
3.6?
Ciao,
Carlo.

non ho trovato DBEngine.RepairDatabase..forse l'ho installato male?
Grazie della risposta
Emanuele

non ho trovato DBEngine.RepairDatabase..forse l'ho installato male?
<excerpt from="msdn">
Note   The RepairDatabase method is no longer available, 
but listed for backwards compatibility. 
Use the CompactDatabase method instead.
</excerpt>
-- 
hth, hal

Newsgroup: it.comp.lang.visual-basic
Titolo: Compilatore HELP

Chi č che mi sa consigliare un buon compilatore di Help?
Vi ringrazio anticipatamente

Io utilizzo HelpKit. Abbastanza buono ma con qualche difettuccio. La demo la
dovresti trovare su 
www.componentsource.com
 .
CiaoZ
SebaMix

> Chi è che mi sa consigliare un buon compilatore di Help?
RoboHELP

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto: V.Basic e file .exe

Vi prego di dirmi come si fa a eseguire dei file .exe e .com
richiamandoli da un programma in Visual Basic. Non ho trovato questo in
nessuno dei manuali di VB che ho. Supponiamo che abbia un file di nome
file.exe e che questo abbia tre argomenti di linea di comando. Dunque,
dal DOS si potrebbe eseguire digitando
file argomento1 argomento2 argomento3
Mi interessa come eseguirlo dal Visual Basic e come passare gli
argomenti al programma file.
Vi pregherei anche se potete dirmi se esiste qualche modo per manipolare
le immagini tipo Gif o Jpeg dal VB (per es. zoomarle ritagliarle ecc.) o
c'e bisogno di qualche plug-in per poterlo fare. Grazie.

c'e bisogno di qualche plug-in per poterlo fare. Grazie.
Le picturebox leggono BMP, GIF e JPG.
Se ti servono solo ritagli e zummate ti bastano le API BitBlt() e
StretchBlt(), oppure PictureBox.PaintPicture()
Ciao

 ha scritto nel messaggio
news:3A6ABC09...@alfatronics.com...



a che serve WinExec?

Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiornamento framework 1.1

Ho VB.Net, comprato lo scorso anno, con installato il Framework 1.0 presente
sul cd di installazione.
Qualche giorno fa dopo avere scaricato e installato il Framework 1.1 ho
notato che quest'ultimo si e' installato in una cartella diversa lasciando
intatta la versione precedente.
Peraltro le Info di VB.Net mi danno come Framework ancora la vecchia
versione.
Ho forse sbagliato qualcosa nell'installazione?
Un ringraziamento a chiunque volesse aiutarmi.
Davide

 ha scritto nel messaggio
news:NIaPa.15949$qa5.3...@news2.tin.it...


 Naturalmente mi riferisco al Framework SDK 1.1
1.1 č utilizzabile con VS2003
giuseppeD

 1.1 è utilizzabile con VS2003
Già... adesso per far funzionare gli SP devi acquistare la versione 
nuova che li comprende. :)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] msdn

Qualcuno sa dove vengono salvate le informazioni sulle pagine di msdn
inserite tra i "preferiti"? Dovendo reinstallare la guida mi dispiacerebbe
doverli reinserire manualmente.
Nel registro di configurazione non ho trovato nulla, presumo che ci sia un
file da qualche parte ma non so quale.
Grazie.


Io di solito faccio così:
1) Chiudo tutte le applicazioni.
2) Lancio il programma di cui voglio "tracciare" l'attività (nel tuo caso
MSDN)
3) Inserire una nuova pagina tra i preferiti.
4) Uscire da programma
5) Mettere TUTTI i file dell'HD in ordine di data ultima modifica e vedere
quali sono stati modificati.............
Ciao
Sirjo

 ha scritto

buona idea, saggio :)
ma forse si fa prima a fare -> cerca *.* | modificati ultimo giorno.
ciao, a.

Io proverei con FileMonitor. Non chiedermi dove lo puoi trovare che non me
lo ricordo... :(

...


 Avete qualche altra idea?
Buona l' idea del filemonitor, io ho avuto piu' fortuna ( a parte la
seccatura di spulciare l' elencone di modifiche che avvengono su un nt srv).
Il file che contiene i favoriti di msdn si chiama hh.dat
Sul pc dove ho fatto la ricerca si trova in
"%windir%\%username%\Application Data\Microsoft\HTML Help"
che nel mio caso specifico della prova e':
"C:\WinNT\Administrator\Application Data\Microsoft\HTML Help\hh.dat"
Provate a rinominarlo ed a riavviare msdn.
Ciao
Aldo

Newsgroup: it.comp.lang.visual-basic
Titolo: vb5 o vb6? questo è il problema

Salve a tutti,
premetto che sono altamente ignorante in materia,
come si fa a sapere se un progetto č
scritto in vb5 o vb6?
grazie
sdamy



 scritto in vb5 o vb6?
Apri il .vbp con un editor e guardi se alla fine c'è una riga con scritto
Retained=0.
In caso affermativo è VB6, altrimenti VB5.
Ciao
*Roby*

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ActiveX per videoconferenza

Ciao ragazzi!
Qualcuno sa indicarmi dove posso trovare un OCX, shareware o freeware, che
permetta di gestire una videoconferenza? Ho provato ad utilizzare
NetMeeting, ma non basta per quello che devo fare io.
Grazie in anticipo a tutti.
--
Marco Minerva, 
vbco...@libero.it
http://marcominerva.cjb.net

 wrote in message
F9lh5.47053$wS2.4...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto:Problema in SQL

Ciao
ho una casella di testo che con il tasto invio devo ricercare una stringa
all'interno di una
tabella di access 7.0, ma se l'utente mi digita una stringa del genere
"DELL'AMICO" (una parola con l'apostrofo),
visual basic visualizza l'errore di run-time 3075 errore di sintassi
(operatore mancante)
nell'espressione query (((Clienti.cognome) like 'DELL'AMICO*')) .......
questa e' l'espressione SQL che Eseguo:
Set RecTabella = DbData.OpenRecordset("Select * from Clienti " _
                                       & "Where (((Clienti.cognome) Like '"
& TxtCognome & "*" & "')) " _
                                       & "Order By Clienti.cognome")
Vi Ringrazio in anticipo dell'aiuto ricevuto

 wrote in message
news:95898862...@sat.floating.net...

Capita più spesso di quanto non si creda. L'espressione SQL dell'esempio che
hai postato risulta essere:
    "Select * from Clienti Where (((Clienti.cognome) Like 'DELL'AMICO*'))
Order By Clienti.cognome"
Io mi sono scritto una funzione che sostituisce l'apice singolo con il
carattere jolly (valido per tutti i DB)
Function getStringOk(MyString As String) As String
    Dim iPos As Integer
    iPos = InStr(MyString, "'")
    While iPos > 0
        Mid(MyString, iPos, 1) = "?"
        iPos = InStr(MyString, "'")
    Wend
    getStrinOk = MyString
End Function
Potresti usare la funzione in questo modo:
    Set RecTabella = DbData.OpenRecordset("Select * from Clienti " _
                                        & "Where (((Clienti.cognome) Like '"
& getStringOk(TxtCognome.Text) & "*" & "')) " _
                                        & "Order By Clienti.cognome")
L'espressione SQL in questo caso diverrebbe:
    "Select * from Clienti Where (((Clienti.cognome) Like 'DELL?AMICO*'))
Order By Clienti.cognome"
perfettamente valida.
Una sola aggiunta, relativamente all'uso dell'operatore LIKE.
Attenzione all'asterisco che deve essere sostituito con il simbolo
percentuale anche per i database Access se connessi tramite ADO.
Ciao, Andrea d'Errico.

nell'espressione query (((Clienti.cognome) like 'DELL'AMICO*')) .......
Secondo (anche se non sono certo al 100%): usi l'asterisco come
carattere Jolly, ma se lanci la query da Visual Basic devi sostituirla
con un _%_ che è il jolly di SQL...
-- 
Giovanni "Gyo" Perdicaro
E-Mail: 
gperd...@sicilyonline.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6]velocità database rs.Update/Insert into

On line leggevo che esiste un'enorme differenza, specialmente per
database di una certa pesantezza (nel mio caso access) tra aluni
sistemi di inserimento dati rispetto ad altri. Ad esempio esiste
grande differenza tra rs.update e l'istruzione insert into, e si
consiglia vivamente di usare il secondo. A tal proposito in un mio
programmino ho le seguenti istruzioni:
I = 0
For I = 0 To X
    rsParam("inq" & I) = strInqcrypto(I) 'memorizzo nel recordset
cryptati
    rsParam("Lnv" & I) = strLnvcrypto(I)
Next
rsParam.Update
' Chiudo il recordset
rsParam.Close
Set rsParam = Nothing
In questo caso mi riesce difficile pensare di riccorrere all'insert
into in quanto ho un record di lunghezza variabile (funzione di X).
Esiste comunque secondo voi la possibilità di poter cambiare in meglio
e quindi di sostituire queste istruzioni con un insert into?
Fabio


Basta "giocare" un po' con le stringhe:
Dim sCmd as string, sFieldList As String, sValueList As String
    For I = 0 To X
        If I=0 Then
            sFieldList="inq" & I & ",Lnv" & i
            sValueList="'" &strInqcrypto(I) &"','" &strLnvcrypto(I) &"'"
        Else
            sFieldList=sFieldList & ",inq" & I & ",Lnv" & i
            sValueList=sValueList & ",'" &strInqcrypto(I) &"','"
&strLnvcrypto(I) &"'"
        End If
    Next
    sCmd = "INSERT INTO miatabella (" & sFieldList &") VALUES (" &
sValueList ")"
Bye
Raf


Non credo proprio che riuscirsti a notare le differenze di tempo tra le due tecniche.
Il discorso ha senso tra campi indicizzati e non e tra quelli indicizzati, testo o numero.
Guarda su 
www.alessandrobaraldi.it
 , c'è un test su queste cose
-- 
-- 
MAssimiliano Amendola
www.accessgroup.it
Cisa - Conferenza Italiana Sviluppatori Access


potresti darmi il link!!! non sono riuscito a trovare nulla!!!!
comunque ho scaricato un test non ricordo dove e la differenza tra le due
tecniche è spaventosa.
Se vuoi ti mando per email il programmino sviluppato in visual basic.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.lang.visual-basic
Titolo: Winsock e gateways...

Salve a tutti, ho un problemino...
...come faccio ad accedere ad una macchina remota col winsock se c'e' un
gateway di mezzo?
Ciao

L'importante è conoscere od il nome della macchina o l'indirizzo IP.
Io alla fine ho usato l'indirizzo IP perché la rete era malconfigurata e con
i nomi avevo parecchi problemi di riconoscimento, però...
Ciao
Massimiliano
Newsgroup: it.comp.lang.visual-basic
Titolo: Editor VB??

Premetto che il primo approccio che ho avuto con VB (e con la programmazione
in genere) è stato mediante Excel, quindi sono parecchio ignorante... vorrei
sapere se esistono degli editor di VB agilmente scaricabili da internet, e
se si da dove, grazie!!!!
Mirko Manetti
mane...@colorobbia.it
--- - - -  -  -  -   -   -   -    -    -    -     -     -     -     -
Colorobbia Consulting S.r.l.
Quality Assurance Department
--- - - -  -  -  -   -   -   -    -    -    -     -     -     -     -

 Premetto che il primo approccio che ho avuto con VB (e con la
programmazione in genere) è stato mediante Excel, quindi sono parecchio
ignorante... vorrei sapere se esistono degli editor di VB agilmente
scaricabili da internet, e se si da dove, grazie!!!!
Alla pagina:
    Visual Basic Updates
 
http://msdn.microsoft.com/vbasic/downloads/updates.asp
e` ancora disponibile:
    The Visual Basic Control Creation Edition
 
http://msdn.microsoft.com/vbasic/downloads/cce/default.asp
Vedi anche se riesci a procurarti:
    Microsoft Visual Basic 6 Working Model Edition
pubblicato nel CD-ROM allegato alle riviste:
    "Internet News", n. 1, gennaio 1999
    "CP Computer Programming", n. 87, gennaio 2000
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:9c3boc$cu6$1...@taliesin.netcom.net.uk...


 ha scritto nel messaggio


Newsgroup: it.comp.lang.visual-basic
Titolo: problemi con Crystal report in VB5

le autoinstallazioni create non riescono a registrare Crystl32.OCX per cui
non funzionano su altri computer
Ho trovato in un altro Newsgroup in inglese che succede anche ad altri ed è
un bug
vengono dati consigli complicati per la correzione
Mi potete dire qualcosa
Giuseppe Tripodi
gtri...@netline.totobit.it

Ho trovato in un altro Newsgroup in inglese che succede anche ad altri ed č


Mi potete dire qualcosa
lasca perdere, CR e' una zoza, e di una complicazione incredibile. Il
il mio report me lo sono fatto da solo !. 
Ci faccio di tutto, stampo fatture, tabulati, etichette con codici a
barre etc. 
Se non hai tempo per farti il motore report prova con altri prodotti.
Anche io non sono riuscito mai ad installare con il setup di vb4 il
crystal report, figurati che dovevo installare il crystal report
completo e poi eliminare il direttorio cosi rimanevavo tutte le DLL
necessarie.  Una cosa incredibile. Cosi ho lasciato perdere.
Antonio Tanzillo  
a...@netgroup.it
Marigliano (NA)  
www.netgroup.it/atsoft
Newsgroup: it.comp.lang.visual-basic
Titolo: Unione progetti separati

Ciao a tutti
Ho un piccolo problemino: ho due progetti (scritti temporalmente in tempi
e con esigenze differenti) completamente autonomi, che voglio unire in un
unico pacchetto software; ma il problema di fondo è che assai
furbescamente ho spesso utilizzato gli stessi nomi per alcune variabili
presenti nei due progetti, e che a volte sono dimensionate anche in modo
differente (nel complicarmi la vita sono un genio).
Sapete come poter realizzare di questi due pacchetti un'unico software?
Ciao Peter
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 software?
bhe una rivisitata al codice la devi dare, guarda scaricati Mztools , usa le
funzioni di ricerca estese, trova le tue variabili e con sostituisci gli
cambi il nome
Newsgroup: it.comp.lang.visual-basic
Titolo: [??] mini browser

Salve a tutti,
qualcuno potrebbe mica farmi avere il codice di un "mini browser" fatto in
VB perchè è un pò di tempo che provo a farlo e non riesco !! (Non è molto
che mi cimento con il VB). Ringrazio anticipatamente chi mi vorra rispondere
possibilmente con un esempio o indicandomi un link dal quale scaricare un
esempio di browser.
Spero di non chiedere troppo!!!
Luca

 wrote in message
fnlm4.60935$C3.6...@news.infostrada.it...


 VB perchè è un pò di tempo che provo a farlo e non riesco !!
Hai provato la "creazione guidata applicazioni" che hai in VB?
Consente (su opzione) di creare anche un form "browser" semplice, ma
perfettamente funzionante.
Puoi studiarti il codice che viene generato!
ALOHA
--
Rogis
* ANTI-SPAM:
Rimuovi "ABC" dall'indirizzo per rispondermi
Remove "ABC" from my address to reply.

 forse è una innovazione delle versioni superiori
Esatto! La trovi a partire dal VB5!
Ciao!
Rosario

1.devi utilizare il controllo Microsoft Internet Controls
2.inserisci una TextBox x l'indirizzo
3.nell'evento KeyPress scrivi:
if keyascii=13 then webbrowser1.navigate text1.text
RISPONDETEMI SUL NEWSGROUP

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

Cerco aiuti su come interfacciare VB con Word...
Grazie

Cerco aiuti su come interfacciare VB con Word...
Potresti essere più generico ????  :-))))

Cerco aiuti su come interfacciare VB con Word...
Io uso DDE
Metto una label sul form e la chiamo lblDDE, poi scrivo il seguente
codice:
lblDDE.LinkMode = vbLinkNone
lblDDE.LinkTopic = "Winword|System"
lblDDE.LinkItem = ""
lblDDE.LinkTimeout = -1
lblDDE.LinkMode = vbLinkManual
A questo punto ho stabilito un collegamento DDE con Word e tramite il
metodo LinkExecute comunico.
Per esempio per aprire un file scrivo:
lblDDE.LinkExecute "[FileApri .Nome = ""MioFile.Doc""]"
oppure per inserire del testo in un documento:
lblDDE.LinkExecute "[Inserisci ""Testo di prova""]"
Le parole chiave che puoi usare sono tutte quelle di WordBasic (cerca
nell'help di Word)
Ciao


Ma CreateObject ... non piace a nessuno?!
s...@mclink.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Help with pictures in command buttons

I am having problems with resizing pictures in command buttons.  After I
create the button and insert a caption, I insert a gif picture, but some of
them are too big for the button, and I can find no way to resize the picture
to fit into the command button, since all of my command buttons have to be
the same size (presently I have several buttons of different sizes due to
the picture problem).
This may seem like a basic query but as a novice to VB 6.0, I would be
greateful for any advice, as I have to design this interface as part of my
university degree.
Many thanks
Mark

 Mark
Hi Mark,
IT in it.comp.lang.visual-basic stands for ITalian not for Information
Technology... =)
Anyway, why don't you resize your pictures to fit the command buttons with a
graphical editor (pbrush or gimp will do great) BEFORE inserting them into
the command buttons? =)))
Happy Coding! =)
Lokar
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT][?] Ma è colpa di OutLook?

Vorrei sapere una cosa: uso OE e quando faccio un "cerca messaggio"->
Da:"zanna" per cercare un mio post, mi indica oltre ai miei anche tutti
quelli di Faber... ma... perchč?
Faber, a te succede lo stesso? Immagino di no, sarebbe troppo coerente da
parte della M$.
Ciao

 ha scritto nel messaggio
news:8tn1nl$s2$1...@nslave3.tin.it...



;)
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: Qualcuno sa usare il comando Find

Vorrei un esempio su come si utilizza Find per l'accesso ud una tabella via
ADO.
Grazie

>ADO.
rs.Find "campo = valore" (se valore e' una stringa va tra apici singoli).
In pratica puoi passare un'espressione equivalente a quelle della clausola WHERE di SQL.
Occhio che la ricerca e' lenta. Penso che sia una semplice ricerca sequenziale.
E' molto piu' veloce fare la stessa cosa aprendo un nuovo resultset "select * from tabella where campo = valore".
Antonio Donatiello

Newsgroup: it.comp.lang.visual-basic
Titolo: Algoritmo di DELAUNAY

Qualche anima pia che conosce l'algoritmo di Delaunay e di Voronoi potrebbe
rendermi partecipe, inviandomi qualche esempio? Devo trasformare tale
algoritmo in una routine scritta in VisualBasic.
Grazie sin d'ora a chi mi sapra' aiutare.
Caio
Claudio
--
Automatic posted from 
ns.tortona.alpcom.it
 [194.243.66.1]
via Mailgate Server - 
http://www.mailgate.org

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Eventi e Implements (events and implements)

Ciao (Hi)
Creo dll che fungono da interfaccia separata -classi pubbliche non
creabili, con una classe multiuse vuota per poter compilare
(I build dll to use them as separated interface -publicNotCreatable
calsses, with a multiuse class to be able to make the dll)
Creo poi dll che implementano quelle interfacce -parola chiave
Implements
(Then I build dll which implements those interfaces -keyword
Implements)
In un programma standard Exe, aggiungo un riferimento alla dll
interfaccia, quindi dimensiono una variablie sul tipo dell'interfaccia
e uso createObject per
settare la variabile su una dll che implementa quell'interfaccia
(In an exe standard, I add a reference to the interface dll, then I
dim a variable as that interface and I use createobject to set it to
the dll class that implements that interface)
Tutto funziona, ma non riesco a dichiarare ed implementare gli eventi
(Everithing works, but I am unable to declare and implements Events)
Qualcuno ci è riuscito?
(Anyone has been able?)
Buona giornata a tutti
(Have a nice day, you all)
Cesare Imperiali

 Tutto funziona, ma non riesco a dichiarare ed implementare gli eventi
Credo la soluzione sia:
In un Form:
Dim WithEvents objMioOggetto As Object
[...]
Set objMioOggetto = CreateObject(...)
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)

 Ciao (Hi)
ciao,
non è possibile esportare eventi da una interfaccia; in altre parole, se il
tuo oggetto esegue la implements di una determinata interfaccia, ad esempio
IMyInterface, non puoi definire pubblico alcun evento in IMyInterface e
realizzare qlc del tipo
Private WithEvents m_localObj As IMyInterface
Provate Sub m_localObj_MyEvent()
...
End Sub
l'unica strada percorribile è quella di creare una interfaccia di callback
opportuna, che dovrà essere fornita all'oggetto di interfaccia IMyInterface
in modo da realizzare il meccanismo di scambio dati;
ad esempio:
Implements IMyInterfaceClient
Private m_localObj As IMyInterface
...
...
  Set m_localObj.Parent = Me
...
...
Private Sub IMyInterfaceClient_MyEvent()
....
End Sub
ciao

 in modo da realizzare il meccanismo di scambio dati;
Esatto: l'ho sperimentato ieri sera.
Grazie.

...

Newsgroup: it.comp.lang.visual-basic
Titolo: Accesso Database

Ciao a tutti sono un novizio del linguaggio che da giorni ormai legge
e rilegge la propria guida VB ma che non riesce a risolvere un
problema:MI AIUTATE?
-In Pratica sto realizzando una form per un programma, hce gestisca
l'immisione e visione dei dati in un database ACCESS.
Alcuni campi del database gli ho resi accessibili tramite un ADO e
relativo text box (essattamente 3 campi) e poi c'è un data grid!Quello
che non riesco a fare è stabilire le relazioni tra i diversi text box!
Ovvero nel primo vi è il nome del condominio, nel secondo il nome
utente e nel 3 la data (la griglia contiene i conteggi vari)
Quando inserisco un nome utente o una data come faccia a dire al
database che deve relazionare il nome utente con il condominio
attualmente selezionato?stesso discorso vale per la visualizzazione,
ovvero se scelgo un condominio voglio che nel text degli utenti o
delle date o dei conteggi appaiano solo gli utenti e le date e i
conteggi del condominio!!!
GRAZIE INFINITE ANKE SOLO PER AVER LETTO IL TUTTO!!!
Alex

 problema:MI AIUTATE?
L'esposizione mi sembra poco chiara.
Vediamo se ho interpretato il tuo pensiero.
1- costruisci una tabella con i seguenti campi
1.1- ID Condominio
1.2- Nome condominio
1.3- Ecc.
2- Costruisci tabella Condomini
2.1- ID Condomino
2.2- ID condominio
2.3- Nome condomino
2.4- ecc.
A questo punto puoi eseguire delle query che mettono in relazione le due
tadelle utilizzando l'identificativo
Per vedere un esempio pratico puoi utilizzare il wizard di VB
1- Inserisci nuova form
2- Creazione guidata form dati
3- vai avanti selezionando e inserendo i dati richiesti
4- Layout form: Principale/dettaglio
5- esegui le informazioni proposte ed effettua le selezioni richieste.
Alla fine avrai una soluzione relazionale che penso ti può essere di aiuto.
giuseppeD

Newsgroup: it.comp.lang.visual-basic
Titolo: Quale Libro posso acquistare?

Vorrei delle informazioni su quale libro poter acquistare per essere ingrado
di scrivere delle buone query SQL con DAO\Jet.
Grazie.
aless...@hotmail.com

 wrote in message
news:7mofsg$5ci$1...@pluto.sm.dsi.unimi.it...


Dai un'occhiata sul Sito Comune.
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
Home Page - 
http://www.geocities.com/SiliconValley/Bridge/1414/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Nome Utente

Mi pareva che fosse stato postato tempo fa, ma non riesco a trovare nulla
con Google: come si fa, dal codice ad ottenere il nome utente (opero in
ambiente NT-2000) di chi sta usando l'applicazione e il nome della
macchina(quallo con cui vedo i pc nelle Risorse di Rete, per intenderci!) su
cui quest'ultima sta girando?
Grazie


Private Declare Function GetUserName Lib "advapi32" _
   Alias "GetUserNameA" _
  (ByVal lpBuffer As String, _
   nSize As Long) As Long
 
Private Declare Function GetComputerName Lib "kernel32" _
   Alias "GetComputerNameA" _
  (ByVal lpBuffer As String, _
   nSize As Long) As Long
Ciao
--------------------------------
Inviato via 
http://usenet.libero.it

Due risposte in 10 min: Grazei infinite!!!!
Ps: 6310i.... gran bel telefono! Spero che il nickname si riferisse a
quello, se no ho proprio smerdato  :-(


 
  Infatti è riferito al cell. ;P

Newsgroup: it.comp.lang.visual-basic
Titolo: [NET] Problema col pulsante invio

Si sa che in qualsiasi Windows Form è possibile designare un controllo
Button come pulsante di conferma. Cioè ogni volta che si preme invio viene
scelto il pulsante predefinito. L'unica eccezione si verifica se lo stato
attivo è detenuto da un controllo che è a sua volta un pulsante (in tal caso
verrà scelto quest'ultimo).
Il mio problema è che ho 10 pulsanti, io vorrei che se premo invio mi dia
sempre il pulsante predefinito anche se lo stato attivo è su un altro, come
potrei fare?
Grazie per le vostre risposte.

Matteo wrote:

Secondo me è più logico assegnare al pulsante un tasto funzione.
Non è corretto modificare il comportamento di windows.
Ciao

 ha scritto nel messaggio
news:c40sno$27d6op$3...@ID-184808.news.uni-berlin.de...

Si è vero, ma dato che si inseriscono solo valori numerici il lavoro
verrebbe agevolato se hai la mano sinistra su tab la destra sul tastierino e
alla fine premi l'invio del tastierino per fargli fare tutti i calcoli,
questo senza doverti spostare, è un discreto guadagno di tempo. Invece se
durante una di queste operazioni premo il tasto salva o stampa, alla fine
viene scelto quest'ultimo, in questo caso sono costretto o a prendere il
mause, oppure ricordarmi ogni volta di andare a premere un tasto funzione,
molto meno intuitivo del tasto invio che è a portata di mano. Tutto qui.

 molto meno intuitivo del tasto invio che č a portata di mano. Tutto qui.
Beh, allora imposta il KeyPreview del form e sulla pressione dell'invio 
del tastierino chiama la Click del pulsante.
Ciao


io all'inizio ho proceduto cosě il form si chiama Calcolo:
Private Sub frmCalcolo_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Me.KeyPreview = True
For Each Bottone In Controls
AddHandler Bottone.KeyDown, AddressOf Bottone_KeyDown
Next
AzzeraVariabili()
End Sub
Private Sub frmCalcolo_KeyDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Enter Then
Calcolofinale = True
CalcolaIlRisultato()
End If
End Sub
Ma non ho ottenuto nessun effetto, forse sbaglio in qualcosa. Funziona solo
fino a quando non riceve il focus uno dei pulsanti. Poi piů nulla.

 ha scritto nel messaggio
news:OqU8c.129599$O31.5...@news4.tin.it...
proprietą della maschera Acceptbutton ?
Ave
giuseppeD

 ha scritto nel messaggio
news:LeX8c.131087$O31.5...@news4.tin.it...

anche quella messa sul pulsante calcola, l' unico modo con cui ho risolto č
un pochino brutto da vedere, consiste nel  far ritornare il focus sul
pulsante calcola.
Il mio intendo č che quando premo un pulsante alla fine delle operazioni
perda anche il focus, in tal modo avrei risolto.