mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: TASTO CHISURA FORM

Gentili Programmatori,
                                  non so come disabilitare il tasto x
per chiudere la form.
Grazie in anticipo!



Inserisci nel tuo progetto un modulo e chiamalo come vuoi. Fai quindi un
copia incolla di questo codice!
Option Explicit
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long,
ByVal bRevert As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long
Public Const MF_REMOVE = &H1000&
Public Const MF_ENABLED = &H0&
Public Const MF_INSERT = &H0&
Public Const SC_CLOSE = &HF060&
Public Const SC_MINIMIZE = &HF020&
Public Const SC_MAXIMIZE = &HF030&
Public Const SC_RESTORE = &HF120&
Public Enum MenuTypes
    mnuClose = SC_CLOSE
    mnuMinimize = SC_MINIMIZE
    mnuMaximize = SC_MAXIMIZE
    mnuRestore = SC_RESTORE
End Enum
Public Sub RemoveFormMenu(myForm As Form, TarghetMnu As MenuTypes)
    ' Disabilito il menu desiderato!
    Call RemoveMenu(GetSystemMenu(myForm.hwnd, 0), TarghetMnu, MF_REMOVE)
    ' Ridisegno i menu!
    DrawMenuBar myForm.hwnd
End Sub
Un esempio di chiamata è questo:
RemoveFormMenu Me, mnuClose
Disabilita il menù chiudi dal form dal quale richiami la funzione.
CiaoZ
SebaMix

 per chiudere la form.
Credo che sia disponibile un esempio sul sito comune. Cmq:
Nella Sezione dichiarazioni aggiungi
Private Const MF_REMOVE = &H1000&
Private Const SC_CLOSE = &HF060
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Nel form _load aggiungi
  Call RemoveMenu(GetSystemMenu(Me.hwnd, 0), SC_CLOSE, MF_REMOVE)
Potresti anche usare l'evento form_QueryUnload e verificare se l'utente ha
chiuso il form seguendo la prassi imposta da te.
In questo modo eviteresti di dover controllare la pressione dei tasti ALT+F4
o la chiusura da taskmanager.
Allego un piccolo esempio d'uso dell'evento:
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    'UnloadMode si può testare per capire cosa ha fatto l'operatore
    If MsgBox("Chiudere l'applicazione?", vbQuestion + vbYesNo, "Chiusura")
= vbNo Then Cancel = True
End Sub
Andrea d'Errico

 ha scritto nel messaggio
news:3AACAF86...@everex.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: File TXT

Sono alle prime armi con VB 5, Stò realizzando un piccola applicazione che
mi serve nel mio lavoro,  vorrei semplicemente sapere come si fà a aprire un
file TXT iin una finestra di testo.

...


Prova prima di tutto a guardarti il controllo RTF,
per vedere se fa' al caso tuo, poi se ne può riparlare...
--
PS: togli "nonmispammi" per rispondere


Ciao
Usa il comando shell
shell "notepad.exe"
oppure prova, ma non sono sicuro che funzioni
shell  "notepad.exe nometesto.txt"
Ma credo che tu volessi mettere il testo in una textbox....
In tal caso devi usare queste righe:
Dim Testo as string
Open "percorso del file di testo For Input As #1
Do While Not EOF(1)     
     Line Input #1, Testo
     TextBox.Text Testo
Loop
In tal caso, però, dovresti scrivere tutto su una riga sola.
Con opporturne modifiche, però, potresti adattarlo alle tue necessità.....
Scusa se non ti dico io come fare, ma anch'io sono alle prime armi e non 
ho ancora capito molto bene il funzionamenti di input.... 
Specie se si tratta di leggere un testo su più righe.....
ByeZ!
Alkondor
****************************************
Per rispondere in e-mail, togliete le //
****************************************

 wrote in message
7osu5n$ja$2...@fe1.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: esecuzione form di access

Salve, in un programma in vb6 ho la necessità, alla pressione di un
pulsante, di eseguire un database in access, partendo dalla form di avvio
senza però chiudere il programma in vb, ma solo minimizzandolo. Alla
chiusura dell'ultima maschera del programma access, alcuni dati dovranno
passare alla tabella a cui è collegato il programma in vb. Mi servono i
comandi per eseguire le form del programma di access, minimizzando il vb.
Grazie

> MP:

Se vuoi, sperimenta questa procedura.
Nella stessa cartella dell'applicazione crea un nuovo database access di
nome db1. Aggiungi la tabella "Tabella1" con un campo testo "Campo1". Crea
quindi la maschera "Maschera1" col pulsante di comando pdcFine ed il
seguente codice:
Option Compare Database
Option Explicit
Private Const mc_strEnd       As String = "Fine"
Private Sub Form_Unload( _
  ByRef Cancel As Integer _
)
  Campo1.Value = mc_strEnd
End Sub
Private Sub pdcFine_Click( _
)
  Quit
End Sub
Quindi:
    Strumenti
    > Avvio...
    Avanzate>>
    Visualizza maschera/pagina:
    Maschera1
    [ ] Visualizza finestra database
    [V] Visualizza barra di stato
    [ ] Menu completi
    [ ] Barredegli strumenti incorporate
    [ ] Menu di scelta rapida predefiniti
    [ ] Consenti modifiche a barre degli strumenti/menu
    [ ] Usa tasti speciali di Access
Poi in vb6:
Option Explicit
Private Const mc_strDatabase  As String = "db1.mdb"
Private Const mc_strTable     As String = "Tabella1"
Private Const mc_strField     As String = "Campo1"
Private Const mc_strBegin     As String = "Inizio"
Private Const mc_strEnd       As String = "Fine"
Private Const mc_intInterval  As Integer = 1000
Private m_objRecordset  As ADODB.Recordset
Private Sub Command1_Click( _
)
  Hide
  Set m_objRecordset = New ADODB.Recordset
  With m_objRecordset
    .Open _
        Source:= _
            "SELECT [" & mc_strField & "]" _
          & " FROM [" & mc_strTable & "];" _
      , ActiveConnection:= _
            "Provider=Microsoft.Jet.OLEDB.4.0" _
          & ";Data Source=" _
              & App.Path & "\" & mc_strDatabase _
          & ";Persist Security Info=False" _
      , CursorType:=adOpenDynamic _
      , LockType:=adLockOptimistic
    .Update mc_strField, mc_strBegin
  End With
  Shell _
      "start """ & App.Path & "\" & mc_strDatabase & """" _
    , vbHide
  Timer1.Interval = mc_intInterval
  Timer1.Enabled = True
End Sub
Private Sub Form_Load( _
)
  Timer1.Enabled = False
End Sub
Private Sub Timer1_Timer( _
)
  With m_objRecordset
    .Requery
    If .Fields(mc_strField).Value = mc_strEnd Then
      Timer1.Enabled = False
      .Close
      Set m_objRecordset = Nothing
      Show
    End If
  End With
End Sub
Questo non e` altro che un primo approccio, rudimentale oltre che parziale,
alla problematica, ma spero ti possa essere utile come punto di partenza.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: MSDE - Prestazioni e configurazione

Ho sempre utilizzato Jet (nelle varie versioni compresa l'ultima) partendo
da DB creati con Access. Tutto bene. Ora, più per curiosità che per
necessità vorrei provare un pò MSDE. L'ho scaricato da M$ e l'ho installato
correttamente. I problemi cominciano quendo voglio creare un nuovo database
(con Access 2000 si può crearne uno nuovo o convertirne uno dal formato
.mdb). Non so assolutamente come fare a configurare il server e i driver
ODBC che mi ha installato. Vi chiedo un aiuto per poter far "partire" questo
nuovo motore. In quale tipo di applicazioni troverei sensibili miglioramenti
con MSDE rispetto a JET ?
Grazie.

Hai bisogno dell'enterprise manager che sta sulla versione commerciale di
SQL70 ma mi sembra che lo trovi se richiedi a m$ il CD di MSDE. In effetti
senza questo tool MSDE e difficile da programmare..

FreeMind wrote:

L'unica ragione e' prototipare un'applicazione per SQL Server senza SQL Server.
MSDE e' paurosamente piu' lento di SQL Server e di Jet.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema Applicazione Visual Basic su WIN NT

Ho creato un'applicazione in VB che installata su un pc con WIN98 funziona
correttamente, se la stessa viena installata su un pc con WIN NT sembra non
riconoscere i controlli ADOdata, qualcuno ha un'idea di quale possa essere
il problema?
Provider utilizzato è il Microsoft Jet 4.0 OLE DB
Grazie per l'aiuto Cristina

 Provider utilizzato č il Microsoft Jet 4.0 OLE DB


 ha scritto nel messaggio
news:W83y5.1291$4v4....@news.infostrada.it...


Quale errrore?

Purtroppo l'amata Microsoft ha delle .dll non uguali tra Win98 e WinNT.
Ho avuto lo stesso problema con l'oggetto MAPI (associato al file di sistema
CDO.DLL).
Nel mio caso sul sito Microsoft ho trovato la spiegazione e il file CDO.DLL
scaricabile per entrambe le versioni di sistema operativo.
....magari controlla se anche a te non sia successa una cosa del genere.
Nel menu' Progetto > Componenti controlla i componenti che hai aggiunto e
verifica se le librerie associate sono uguali per Win98 e WinNT
Ciao
Steama
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ADO

Ciao a tutti.
Ho necessità di selezionare 10 record alla volta da una Tabella di Access
2000 via ADO in VB6
Ho provato a creare una SELECT di questo tipo "SELECT * FROM <Tabella> WHERE
ROWNUM <10" ma mi viene restituito il seguente errore da VB6 "Nessun valore
specificato per alcuni parametri necessari" forse Access2000 non supporta il
comando ROWNUM perchè la SELECT semplice funziona correttamnte.
Come posso risolvere il problema ed inoltre come posso selezionare dal
record n° al n°+10 ?
Graze a tutti
:-)

 2000 via ADO in VB6
usa  TOP 10 invece di ROWNUM
CIAO

 ha scritto nel
messaggio news:W5a%8.18603$s74.5...@twister1.libero.it...


 tutto in un array ho bisogno di avere tutto in un Recordset)
C'è appena stato un thread molto interessante nel NG su Sql-Server.
La soluzione riconosciuta come la più elegante è (supponendo di volere i
record dal 20° al 50°, ossia 30 record):
Select Top 30 from (Select Top 50 From Tabella order by Criterio) Order by
Criterio Desc
Ovviamente la sintassi SQL va adeguata al DB che utilizzi.
Ciao
Alberto

 ha scritto nel messaggio
news:3d3d...@news.cis.it...

La soluzione piu' elegante, secondo me, e' paginare il recordset.
Cerca AbsolutePage e Pagesize su MSDN
Ti pagina il recordset, lo sfogli come un libro
i.e:
10 righe per pagina:
    1° pagina: dal record 1 al 10
    2° Pagina: dal record 11 al 20
    etc.
Spero di esserti stato utile,
            Pascal ;)

 ha scritto nel messaggio
news:ahjpp4$tlb9p$1...@ID-98635.news.dfncis.de...


Newsgroup: it.comp.lang.visual-basic
Titolo: Credo Non OT

Ho la necessità di conoscere l'intestazione
di alcuni file.
.JPEG .GIF  .EMF  .WMF
In pratica i formati immagini supportati da VB.
Ad esempio in una .bmp
i primi 2 byte è 66 77
i successivi 4: la dimensione totale del file ecc.
Chi può indicarmi notizie o documenti
da scaricare da qualche parte.
(preferibilmente in italiano)

 (preferibilmente in italiano)
Google?
Per esempio cercando "graphics file format specifications"
o analoga stringa in italiano
--
Ciao, Silv:o)
PS L'OT potrebbe pure passare, ma quel subject proprio no

 (preferibilmente in italiano)
Scordatelo.
Andrea

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

Salve a tutti.
Come faccio a intercettare un click o un mouseDown sula riga di intestazione
di  una FlexGrid, ad esempio per ordinare in base alla colonna scelta?
Grazie
Ciao

 wrote in message
news:9542g3$1np$1...@serv1.iunet.it...


Grazie, mi sei stato molto utile

Newsgroup: it.comp.lang.visual-basic
Titolo: Minimizzare + suono.

Ragazzi, come si puņ minimizzare un form e sentire il rispettivo effetto
sonoro predefinito di Windows?
In Visual Basic si puņ minimizzare ma l'effetto sonoro č inesistente.
C'č qualche funzione API adatta allo scopo?

 In Visual Basic si puņ minimizzare ma l'effetto sonoro č inesistente.
Non mi risulta.
Normalmente non lo imposto, comunque ho provato ad aggiungere un effetto nel
pannello di controllo e creare un nuovo progetto: funziona regolarmente, sia
con form normali che con finestre MDI parent/child, sia in debug che
compilato. Provato con XP pro
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 ha scritto nel messaggio
news:ZjtSa.17250$sj6.3...@tornado.fastwebnet.it...


"L'incognito" <Assolu...@NoSpam.it> ha scritto nel messaggio
news:qxvSa.2933$SN1.1...@news2.tin.it...
: Grazie, ma a me con Win98SE non funziona col sonoro.
:
: Sai qualche funzione API?
Mi intrometto,
ho sottomano un Win98II e funziona.
Controlla bene.
Ciao, Luca.

Credo di aver dimenticato di esporre una cosa importantissima: la
minimizzazione avviene tramite un pulsante o la pressione di un tasto e non
con il quadratino in alto a destra del form.
Da me la minimizzazione fatta cosě non produce nessun effetto sonoro: da voi
č anche cosě?
"Luca di Cerneglons" <pr...@scriver.mi> ha scritto nel messaggio
news:x4wSa.189808$lK4.5...@twister1.libero.it...


 ha scritto nel messaggio
news:ZjtSa.17250$sj6.3...@tornado.fastwebnet.it...


 con il quadratino in alto a destra del form.
[SNIP]
Si, avevi dimenticato una cosa importantissima ;-)
Effettivamente cosi' non viene prodotto alcun suono; non so se esiste un
metodo piu' diretto, ma alla peggio puoi rimediare con qualcosa del genere:
Cerca nel registro il valore predefinito della chiave
HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\Minimize\.Current
(sul Sito Comune ci sono molti componenti per la lettura del registry)
Con questo trovi il nome del file .wav da riprodurre; verifica se e'
impostato un percorso assoluto, altrimenti aggiungi <cartella di
windows>\Media
(per il percorso vedi API GetWindowsDirectory oppure la variabile d'ambiente
WINDIR)
a questo punto puoi utilizzare la funzione dell'API
Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long)
As Long
Per riprodurre l'effetto sonoro.


 ha scritto nel messaggio
news:_LzSa.17739$sj6.3...@tornado.fastwebnet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: creare un database via ADO

Ciao A tuttivi espongo subito i miei dubbi.
Vorrei creare  via ADO un database su una PC win2000 e SQLServer 2000.
In precedenza creavo tabelle ed altri "oggetti" su un db già esistente
con questa stringa di connessone:
s_conn_string = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist
Security Info=False;Initial Catalog=mydbtest;Data Source=2k-srv-test".
Il problema è questo:
come modificare la stringa di connessione per creare io mio db???
Scusate la poca chiarezza ma pago la mia inesperienza.
Grazie a tutti
Lorenzo

 come modificare la stringa di connessione per creare io mio db???
Connettiti a un database esistente (anche "Master") e poi usa la CREATE
DATABASE

 DATABASE
Ciao Lupo,
TI posso ringraziare solo adesso causa qualche problema tecnico.
Giro inoltre i ringraziamenti a tutto il NG.
Adesso devo solo corrompere qualche DBA per le necessarie 
autorizzazioni.
Grazie ancora.
  On error goto error_handler ;o)
Lorenzo


Se trovi un DBA condiscendente, fagli creare un database qualsiasi che non
contiene un bel niente al quale tutti possano accedere. Usa quello (il
"Master" non te lo darà mai!) per l'appoggio... sempre che io abbia capito
bene il problema.

Newsgroup: it.comp.lang.visual-basic
Titolo: invio e default cmd

come faccio a fare invio in un textbox multiline se ho un command settato a
default ? provato control (come photoshop) e alt, niente.
grazie, a.

 escribió en el mensaje
news:ac565c$mtfj8$1...@ID-51318.news.dfncis.de...

Spero di aver capito la domanda.
Nel evento GotFocus del TextBox anullo il default del command , e lo
riabilito nel evento LostFocus.
nel form d'esempio ho inserito un altro TextBox che riceve il foco al aprire
il form
Option Explicit
Private Sub Command1_Click()
MsgBox ("Click")
End Sub
Private Sub Text1_GotFocus()
Command1.Default = False
End Sub
Private Sub Text1_LostFocus()
Command1.Default = True
End Sub
Ciao L'oriundo

 ha scritto
ora non ho modo di provare ma direi possa andare.
grazie, a.

 grazie, a
a.lei :-)
Ciao L'oriundo Padre di 13 Alani oggi

 default ? provato control (come photoshop) e alt, niente.
Avrai anche provato, ma ti assicuro che Ctrl+Invio funziona benissimo!
E poi, te lo dice anche MSDN, in una nota dove viene descritta la proprietà
Multiline:
[...]
Nota   In un form senza pulsanti predefiniti, premendo INVIO in un controllo
TextBox a più righe lo stato attivo verrà spostato sulla riga successiva. Se il
form contiene un pulsante predefinito, per passare alla riga successiva sarà
necessario premere CTRL+INVIO.
Ciao!
--
Esteban
Hosted by 
www.seber.it
(Remove nonspammare for reply)

 Avrai anche provato, ma ti assicuro che Ctrl+Invio funziona benissimo!
e' vero !
chissa' cos'ho premuto. ci sono memo senza scrollbar e con.
distratto dal troll, avro' ctrl-inviato quello senza, e con altoparlante
azzerato niente ding.
per l'oriundo:
tredici alani tredici ?
ciao a tutti e due,
a.
Newsgroup: it.comp.lang.visual-basic
Titolo: Passaggio oggetti tra form e API

Gentilissimi programmatori
Vorrei porre alla vostra attenzione le due problematiche che sto cercando di
risolvere in questo periodo:
1. Ho due form, in una della quale ho un oggetto (ad esempio una text box).
Come posso fare a "inviala" alla seconda form (immaginavo un comando Set ma
non funziona)?
2. Conoscete l'esistenza di API che in runtime consentono di far scomparire
il minbutton (o il maxbutton) di una form?
Grazie a tutti.
Francesco

Per la domanda 1, l'approccio che hai usato e' corretto. Questo esempio
funziona:
<metti una textbox nella Form1, e questo codice>
Private Sub Form_Load()
  Set Form2.setTextbox = Text1
  Form2.Show
End Sub
<metti una textbox nel Form2, e quest'altro codice>
Private extCtrl As TextBox
Public Property Set setTextbox(ptr As TextBox)
  Set extCtrl = ptr
End Property
Private Sub Text1_Change()
  extCtrl = Text1
End Sub
Ogni tasto che batti nella textbox della form2 viene riportato nella textbox
della form1.
La Property Set e' una finezza, si puo' evitare. Al posto di 'As TextBox' si
dovrebbe poter mettere 'As Object', in modo da rendere il codice
indipendente dal tipo di controllo che vuoi passare.
Quanto alla domanda 2, nelle proprieta' delle form ci sono MinButton e
MaxButton da mettere a true o false.
Enrico
"Francesco" <Rosso...@BigFoot.com> ha scritto nel messaggio
news:8fuc5s$n0i$1...@fe2.cs.interbusiness.it...


 il minbutton (o il maxbutton) di una form?
Private Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long,
ByVal bRevert As Long) As Long
Private Declare Function DeleteMenu Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Private Const MF_BYPOSITION = &H400&
Private Const MF_BYCOMMAND = &H0&
Private Sub Command1_Click()
Dim hMenu As Long
Dim hSMenu As Long
hMenu = GetSystemMenu(Me.hWnd, 0)
'hSMenu = GetSubMenu(hMenu, 7)
Call DeleteMenu(hMenu, 6, MF_BYPOSITION)        'Chiudi
Call DeleteMenu(hMenu, 5, MF_BYPOSITION)        '<Barra>
Call DeleteMenu(hMenu, 4, MF_BYPOSITION)        'Ingrandisci
Call DeleteMenu(hMenu, 3, MF_BYPOSITION)        'Riduci
End Sub
Nella barra dei menu i tasti sono visibili, ma non sono attivi....
------------
Ciao
Sabba

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto .Salvare su file txt

ciao a tutti e da poco che uso visual basic ,ho un problema
ho la necessita  di salvare dei dati su un file.txt pero ogni volta che
salvo mi elimina quello che avevo salvato la volta prima, quindi mi trovo
questa situazione :
Salvo "gatto" 1 volta
...
Salvo "cane" 2 volta
ecco che se controlo il file vedro solo cane praticamente mi salva sempre
tutto nella stessa linea...eliminandomi quello precedentemente salvato, ecco
il codice :
Private Sub cmdsalva_Click()
Open app.Path & "\Nick.ini" For Output As 1
    Print #1, Text7.Text    'Text7 praticamente devo salvare ciò che ce
scritto
Close 1
End Sub
Garzie per le risposte ciao

 End Sub
Ci dev'essere un tuo "sosia" in giro...
Open app.Path & "\Nick.ini" For Append As 1

 ha scritto nel messaggio
news:dQD29.31032$n04.8...@twister2.libero.it...

Print #1, Text7.Text & chr(13) 'tasto INVIO x andare a capo
Newsgroup: it.comp.lang.visual-basic
Titolo: La aritmetica é un opinione?

? AuthCode
 
2063715823
?AuthCode and &HFF
 239
?AuthCode and &HF00
 3328
?AuthCode and &HFF00
 
2063715584
 
?AuthCode and &HFF0000
 65536 
? VarType(Authcode)
 3

 
nota finale: il comportamento 'anomalo' deriva essenzialmente dal fatto 
che il VB non ha tipi unsigned e che nella conversione da integer a long 
di quantita' 'signed' l'estensione del segno porta un proliferare di bit 
1 invece che di bit 0.

che il VB non ha tipi unsigned e che nella conversione da integer a long
Mi é piu chiaro, si fa un cast primo del operatore bitwise.
A questo punto, pero, chiedo come si poi espremere un 'long constant'.
Un modo sara:
? VarType(RecSize)
 3
RecSize=65280
? AuthCode and RecSize
 52480 
Ma cribio, non cé un modo piu bello!

Ooops!& l'hai detto!

 
si ma l'avevo nascosto bene :-)))))
detto a denti stretti e' una sintassi che non riesco mai a ricordare bene
&HFFFF& <- questo indica che e' long
^^
++------- indica che e' una costante hex
quei due '&' usati vicini ma con significati differenti non mi piacciono 
proprio!

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

 In una flexgrid ho bisogno di sapere su quale riga si trova il mouse.
Private Sub Flex_MouseMove(Button As Integer, Shift As Integer, x As Single,
Y As Single)
    numeroRiga = Y \ Flex.RowHeight(1)
End Sub
La cosa sembra anche che funzioni bene, ma solo per le righe presenti a
video, appena scrollo la Flex, il calcolo della riga non funziona gia più.
In pratica vorrei cambiare il colore nella riga/colonna intestazione in
corrispondeza della riga/colonna dove si trova il mouse, un po come succede
in excel.
Immagino che debba far qualcosa nell'evento scroll ....ma non ho idea di
cosa :(
Qualche suggerimento?
Grazie
--
Greg


Volevo inventare l'acqua calda :(
Ci sono  mouserow e col già pronti da usare e lo scroll gli fa un baffo!
--
Greg

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] avanzamento query

come fa access a far vedere l'avanzamento quando si fa una query tipo
"delete * from tabella where cod = 1" ?


Cosě, a spanne, hanno inserito un evento tipo Fetchprogress nella execute
della query.
Perche?
ciao
ugo

 Perche?
grazie. avrei pensato a un ciclo che si contava i record.
cmq: perche' normalmente il tempo indefinito delle query e' uno dei punti
critici della gui in sql.
in vb si puo' fare ? e come ?
ciao, a.


Temo di no.
Ho appena fatto un test creando un recordset "virtuale" che corrispondesse
ad una execute di tipo "delete"...
Nessun evento fetchProgress... come da modello oggetti d'altra parte.
Darò un'occhiata meglio in ufficio domani.
Se mi viene qualche idea ti scrivo.
ciao
ugo


no... scrivi qui, che mo' siamo curiosi... :))
Ciao
Enrico
Newsgroup: it.comp.lang.visual-basic
Titolo: Informazioni sul sito comune!

Vorrei sapere l'URL del sito comune.
Grazie!
Gigi



http://www.murialdo.it/it_lang_vb

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

Non conosco qual e' la sintassi giusta per fare una connessione remota tra
due PC utilizzando WINSOCK.
C'e' qualcuno che mi puo' aiutare?
Grazie.

 
winsockname.Connect remoteHost, remotePort
ma dall'altra parte chi e' che ha fatto il 'Listen' ?

...


 dell'evento ?
E qui nascono i problemi
per poter avere connessioni col TCP/IP deve esserci dall'altro lato una
applicazione che ti risponde es. Netscape <-> Server WEB oppure Cliente
FPT <-> Server FTP.
col TCP/IP non esiste il concetto di accedi/sfoglia la rete, vedi le
risorse condivise , ecc. .
la comunicazione avviene sempre tra due applicazioni una che fa in
qualche modo da client e che attiva la connessione e l'altra che fa da
server e che si e' preventivamente posta in ascolto ( listen ) su di una
specifica porta.
qualche esempio su come usare i socket li trovi nella guida del VB

Newsgroup: it.comp.lang.visual-basic
Titolo: [post numero 1001] Stile win Xp !! :-)

Ciao a tutti, so di essere il 1001esimo a fare questa domanda ma nn sn
riuscito a trovare la soluzione che desidero:
- Creare un programma che (indipendemente dal sistema operativo in
esecuzione win2k,win9x,win me) visualizzi lo stile grafico di WinXp.
Mi basta un semplice link dove poter andare a sbirciare (un mio collega ha
fatto un ocx  favoloso fatto girare su win95 sembra di essere su winxp!! -
ma nn me lo vuol passare - )
Vi ringrazio e scusate x l'ennesima richiesta
P.S.
Questo ng è molto interessante, e i frequentatori sono proprio preparati!!
(a parte me)
Ale(xand[19])

 ma nn me lo vuol passare - )
Su Visual Basic Journal di Maggio/Giugno c'è proprio un'articolo che spiega
come ottenere quello che cerchi, forse dal sito infomedia riesci ad avere
gli arretrati.
l'url dovrebbe essere 
www.infomedia.it
Ciao

 ha scritto nel messaggio
news:VwmU8.97914$Kt3.2...@twister2.libero.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Come inviare un segnale di interrupt.

Devo scrivere un programma che ad intervalli regolari invia un interrupt
di tastiera e di mouse al processore. Esiste un istruzione per fare ciò
o devo ricorrere ad un'API particolare? Qualcuno è in grado di aiutarmi.
    Grazie mille
        Massimo
Per rispondere togliere XXX dall'indirizzo e-mail.

o devo ricorrere ad un'API particolare? Qualcuno č in grado di aiutarmi.

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual studio a quando la nuova versione ?

Ciao a tutti
Si chiamera' Visual Studio 2005 , giusto ?
Quando pensate che sara' in vendita ?
Se uno deve iniziare oggi a studiare .NET , vale la pena aspettare che esca
l'ambiente di sviluppo che usera' il Framework 2.0  o va bene cominciare a
studiare da subito non sapendo cosa poi sara' obsoleto ?
cerco consigli
un saluto

 studiare da subito non sapendo cosa poi sara' obsoleto ?
Teoricamente il Fw2.0 è completamente compatibile con l'1.1, con delle
aggiunte, quindi la teoria dell'1.1 è sempre valida e anzi ti consiglio di
iniziare subito lo studio, magari per piccoli passi.
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Comunque presumibilmente veso la fine dell'anno prossimo.
Probabilmente prima diciamo verso la meta del 2005 (io direi entro 
Settembre...)
-- 
Corrado Cavalli [Microsoft .NET MVP-MCP]
UGIdotNET - 
http://www.ugidotnet.org
Weblog: 
http://blogs.ugidotnet.org/corrado

 un saluto
ricambiato :-)
-- 
.A
UGIdotNET - User Group Italiano .NET
http://www.ugidotnet.org
Read my blog at: 
http://blogs.ugidotnet.org/pape

 ... nome in codice Whidbey, Longhorn č la nuova versione di Windows
Lo sapevo che il lapsus non sarebbe passato inosservato :)
Era una verifica sull'attenzione dei lettori.
Ciao


Intanto puoi scaricarti la beta e vedere come va :-).
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Tabelle e visualizzazione dati

Il tormentone di questo ng è, in modo abbastanza evidente, l'utilizzo di 
oggetti per la visualizzazione dati in forma tabellare.
Quella che segue è soltanto un'osservazione dovuta, forse, a diverse 
esigenze/necessità.
Di solito nella maschera in cui espongo i dati di una tabella di un archivio 
non solo li rappresento in forma tabellare ma inserisco in basso anche 
delle label/textbox per una visualizzazione più dettagliata e per 
inserimento/modifica dei dati all'interno dei record.
Mi spiego meglio.
Mettiamo di avere una tabella CLIENTI con i seguenti campi:
+ ID
+ Nome
+ Cognome
+ Indirizzo
+ Telefono
Le mie applicazioni prevedono sempre:
1) Una listview per la rappresentazione tabellare dei record
2) Diversi textbox in basso per la rappresentazione dettagliata dei dati 
oppure della rappresentazione di tutti i campi della tabella, nei casi in 
cui il numero dei campi della tabella sia eccessivo.
**************************** ESEMPIO DI MASCHERA ************************
+-----------------------------------------+
+ LV                                      +
+                                         +
+                                         +     
+------------------------------------------                                     
Nome: ---- txtNome -----
Cognome: --- txtCognome ----
Indirizzo: --- txtIndirizzo ----
Telefono: --- txtTelefono ---
**************************************************************************
Ovviamente il tutto è corredato con un menù a discesa che contiene le 
selezioni "Nuovo - Annulla Nuovo - Modifica - Annulla Modifica - Salva - 
Cancella - Esci"
In questo modo dò la possibilità di vedere in modo più dettagliato i dati e 
soprattutto spero di rendere più chiaro l'inserimento/modifica dei dati nei 
campi.
I dati veri e propri sono contenuti in una collezione di classi che 
contengono esattamente gli stessi campi della tabella e sono legati alla LV 
mediatamente l'attributo tag dell'oggetto ListItem (tag -> ID del record) 
in modo da poter caricare in modo univoco i dati nei vari textbox una volta 
che si clicca sulla listview.
Voi come rappresentate i dati in una maschera ? Solo in forma tabellare ?
Ciao,
        Negus

Voi come rappresentate i dati in una maschera ? Solo in forma tabellare ?
Dipende, pero' se sono piu' record allora sbatto tutto in una griglia
e in pochi minuti ho pronta la mia bella mascherina con
insert/edit/delete.
-- 
ciao, hal

hal1961 wrote:

E quindi l'utente inserisce/modifica i dati direttamente sulla tabella ?
Ciao,
        Negus

E quindi l'utente inserisce/modifica i dati direttamente sulla tabella ?
Non uso MAI controlli bound ;-)
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Oracle

Salve a tutti,
ho necessità di interfacciare il visual basic 6.0 con il database ORACLE.
Ho installato l'ODBC come posso accedere ai dati??
Ho già provato con il controllo Microsoft ADO data control 6.0
interfacciandolo con l'ODBC, ma l'accesso è lentissimo. Sapete dirmi il
perchè?
Ho provato anche con la definizione di una connessione in DATAENVIRONMENT
definendo dei comandi. Questa connessione è veloce ma come posso fare per
manipolarla, er esempio per fare delle Select?
Come posso associarla a un controllo data?
Ancora una cosa c'è qualche sito dove posso trovare del materiale per
risolvere il mio problema?
Vi ringrazio anticipatamente!!!!
li...@mediasystems.net

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Visibilità progressbar e label

Ciao!
Ho una progressbar e due label vicino a questa. Dato che questi indicano
l'avanzamento di un'operazione, inizialmente nel form load ho impostato
tutte e 3 come invisibili.
Poi quando è il momento (prima del ciclo che esegue l'operazione) le imposto
come visibili, ma si vede solo la barra! In debug è tutto ok ma in
esecuzione mi fa 'sto scherzo: le label compaiono solo al termine del ciclo.
Che posso fa'? Perchè succede questo (mi interessa anche capire..)?
Ciao e thanxxx a chi mi aiuta
Bongio

 ha scritto nel messaggio
news:2mHf9.10766$Oz2.2...@twister2.libero.it...

Potrei dire una cazzata, per cui qulcuno mi corregga....
Se non ricordo male, nel sistema operativo Windows, la comunicazione tra SO
e applicazioni è effettuata tramite messaggi, e questi sono organizzati
secondo una gerarchia di priorità. Il messaggio di ridisegno di un elemento
è un messaggio solitamente a bassa priorità, per cui, se tu in una generica
routine fai una cosa tipo:
label1.visible = true
poi una serie di operazioni
il messaggio di ridisegno della label ( in questo caso la sua
visualizzazione, ma è lo stesso se tu cambiassi la caption) viene inviato
solo al termine della routine.
Il diverso comportamento della progressbar penso sia dovuto al fatto che è
funzionalmente dedicata a dare una informazione in tempo reale, e quindi
quando tu ne imposti il valore il controllo viene immediatamente
ridisegnato.
Per ovviare a questo problema dovresti vedere se la label ha il metodo
refresh (i textbox ce l'hanno...), che obbliga il sistema operativo a
inviare immediatamente il messaggio di ridisegno, quindi
label1.visible = true
label1.refresh
eccetera
dovrebbe risolvere il tuo problema
Salutoni
Sergio
poi una serie di operazioni

Prova ad usare il DoEvents prima di lanciare il ciclo (o anche dentro, che
male non fa...)
Byez
Tango

 Tango
-- 
 __   __  ___   
|  | |  |/ __|  
|  |_|  |\__ \  ICQ #73176037 #162857023
|____|__||___/

Newsgroup: it.comp.lang.visual-basic
Titolo: Qual è il sito comune?

Qual è il sito comune di visual basic
--------------------------------
Inviato via 
http://usenet.libero.it

 Qual è il sito comune di visual basic
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org
Newsgroup: it.comp.lang.visual-basic
Titolo: Labels, AutoSize, WordWrap

Ho tentato invano, provando tutte le combinazioni possibili
su AutoSize & WordWrap, di far andare a capo in una
Label l'esposizione di una stringa lunga, ma non ci sono
riuscito, nonostante il fatto che il manuale dichiari
che l'andata a capo di testo che superi la dimensione
della Label sia una proprietà predefinita.
In un altro programma, infatti, con Autosize & WordWrap
entrambi False, una stringa molto più lunga viene
esposta correttamente.
Da cosa può dipendere ?
E necessario forse impostare qualche parametro
anche nel contenitore ( che in questo caso è il Form
di avvio ) ? 
o che altro ?
ringrazio per l'interessamento a codeste miserie.
ramarro.

ramarro.
---
Vorrei vedere le piramidi di Cheope,
ma sono miope, ma sono miope.
---
Newsgroup: it.comp.lang.visual-basic
Titolo: clonare oggetto  con classe ereditata

Ciao,
ho definito una classe Mybutton che eredita da button
Ora vorrei "trasformare" il tipo di button1 da button in mybutton
Ho provato con ctype ma non funziona...
Quindi l'unica cosa che mi viene  in mente � creare un nuovo oggetto di tipo 
mybutton e copiarci tutte le propriet�, handler etc di button1. Come faccio?
Grazie

 Ora vorrei "trasformare" il tipo di button1 da button in mybutton
A runtime o a design time?
A runtime non è possibile perchè un oggetto di tipo "padre" non può
mai essere castato su un tipo "figlio"


(mi è partito il messaggio prima di finire...)
...quindi dipende da cosa vuoi esattamente ottenere:
se il bottone è già stato *istanziato* come 'Button' e solo in seguito
diventa 'MyButton', allora non puoi esimerti dal copiare l'oggetto su
una nuova istanza (e non so se 'Button' supporta IClonable)
Se invece è solo *dichiarato* 'Button' ti basta istanziarlo a
'MyButton' quando viene fatto il New()

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemino con msFlexGrid

Ciao a tutti!
.....un piccolissimo problema con il componente in oggetto!
Ho una griglia a 5 colonne,
l'utente ha la possibilità di scegliere quale visualizzare con dei
bottoncini.
Quando nascondo una colonna faccio .colWidth(n) = 0
Quando la rendo visibile  .colWidth(n) = 2000
Il problema è che quando la nascono mi rimane un segnetto schifosissimo sul
bordo della colonna
successiva....
Non è mai capitato a nessuno??
Graziee....ciao!

 Quando la rendo visibile  .colWidth(n) = 2000
Prova a mettere .colisvisible = false invece che ridimensionare la larghezza
della colonna....

 della colonna....
Quando provo a fare
    grd.ColIsVisible(1) = True
Mi da un errore di compilazione 'Assegnazione alla Costante non ammessa'
Probabilmente è solo in lettura....però è strano perchè sull'help cè scritto
che si può sia leggere che impostare!

 Mi da un errore di compilazione 'Assegnazione alla Costante non ammessa'
Adesso prova a controllare su qualche vecchio progetto... poi ti faccio
risapere!!

 risapere!!
Fer di nanto sei riuscito a trovare qualcosa??????

Newsgroup: it.comp.lang.visual-basic
Titolo: Campo etichetta condizionale in crystal report

In crystal report si possono inserire campi condizionali ( etichette )  , 
cioč con la clausola STAMPALO SOLO SE   .....
In alcuni report builder ad esempio c'č un flag da spuntare nelle proprietą 
dell'etichetta  , ad es. il flag PRINT IF...  , in CR non lo trovo , bisogna 
fare tutto da codice ?
Ad es. ho notato che in report l'etichetta "data pagamento" nel piede  di 
una fattura viene stampata solo se la fattura ha lo status di pagata e c'č 
appunto
una data di pagamento reale, sennņ l'etichetta giustamente non viene 
stampata .
grazie e saluti 

In CR c'è Ometti con la possibilità di specificare una condizione cliccando 
sul pulsantino dell'editor formule, che potrai specificare con sintassi VB o 
CR.
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: Problema VB-VBScript

Ciao a tutti !!
Il mio problema e' con uno VBScript, spero possiate aiutarmi.
Devo chiamare con lo script un metodo di una classe
in una DLL. Il metodo e' definito cosi' :
HRESULT UpdateCounters([in, out] SAFEARRAY(BSTR)* Counters,
                        [out, retval] VARIANT_BOOL* );
Le mie istruzioni nello script:
--
Dim Counters(0)
Counters(0) = "ciao"
UpdateCounters Counters
--
L'unica cosa che succede e' un errore di
"type mismatch".
Qualcuno puo' aiutarmi ? Grazie.
Luca
E-Mail: 
v...@necsy.it
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 wrote in message
news:8j7853$cj$1...@nnrp1.deja.com...


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

Buongiorno a tutti.
Sto utilizzando un applicativo in Vb che lavoro su excel.
In pratica ce un metodo per dire al programma in VB o da excel
direttamente, di stampa che ne so il foglio1, le prime 3 pagine in
verticale e la 4 in orizzontale.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 verticale e la 4 in orizzontale.
Ormai ci avrai fatto l'abitudine, ma non mi stancherò mai: registra una 
beneamata mi*kia di macro e scopiazzala!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: clsid di un componente non registrato

Salve a tutti,
c'è modo di risalire al nome di un componente non registrato
conoscendone il clsid?
Faccio questa domanda perché deve essere successo qualcosa al mio
sistema. Se cerco di aggiungere un componente in un progetto vb mi
compare un errore relativo al clsid
{00023E005-0000-0000-0000-000000000046} (mi dice che non è registrato),
rendendomi impossibile l'inserimento di un nuovo componente nel
progetto.
Grazie a chi vorrà/potrà aiutarmi,
Nicola.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

REGEDIT
poi fai una ricerca nelle chiavi.
Ciao
Alberto

 ha scritto nel messaggio
news:a4aq8m$th0$1...@newsreader.mailgate.org...


 wrote in message
news:a4aq8m$th0$1...@newsreader.mailgate.org...


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Maledetta CreateObject !!!

Ciao,
sto letteralmente impazzendo sull'utilizzo della funzione CreateObject per
la creazione di oggetti a run-time.
Premetto di conoscere già l'utilizzo di Load oggetto(index)...ma volevo
provare ad utilizzare CreateObject per creare che ne so un TextBox e così
via... quindi il mio più che un reale bisogno è una
curiosità...aiutatemi...please!!!
Ciao e grazie 1000 anticipatamente!
Pasquale.


Se ti serve per creare Textbox o simili, lascia perdere la CreateObject, 
ma sperimenta piuttosto, oltre alla Load che gia' conosci, il metodo
Add dell' inseme Controls del Form.
Ciao
Aldo

...

....ACC...mi hai messo in testa un altro pallino...come funziona il metodo
add dell'insieme controls?!?!
......è verissimo, non si sa mai abbastanza!!!
...non chiamatemi rompiscatole!!!

...non chiamatemi rompiscatole!!!
Quando mai? :)
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro Romagnolo®, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

Newsgroup: it.comp.lang.visual-basic
Titolo: Licenze dei controlli OCX

Ciao a tutti!
Ho un problema: dopo aver installato VB5, quando cerco di inserire alcuni
controlli (p. es. commondialog32) il programma mi restituisce un'errore di
"licenza non disponibile".
Come ovviare a questo incoveniente?
Anticipatamente ringrazio.

...


 wrote in message
7un6va$kof$2...@nslave1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Informazione veloce sugli array

(Almeno, credo si tratti di un array). Volevo sapere se, a livello di
prestazioni e risorse di sistema, è un problema fare un array di queste
dimensioni:
dim ciccio(1 to 30000) as single
Occuperà troppa memoria?
--
Starla. SP.

Single + MSDN = 4 byte per single
4*30000 = meno di 120 Kb di RAM...
Fai i conti con il tuo PC, ma credo che si possa fare...
Okkio che + variabili hai e meno staranno nella cache...
                Ciao
                            Allanon

No, ma accertati che effettivamente saranno usati tutti, altrimenti anche se
poco č spreco inutile.

grazie per le veloci risposte, ho preferito risolvere in un altro modo, un
pò più macchinoso magari, ma non vorrei che poi succhiasse troppe risorse..
grazie comunque gente!
--
Starla. SP.



pensa che access occupa al piu' 2kbyte per record 
ma che spreco e spreco.
Tranquillo sono niente.

Newsgroup: it.comp.lang.visual-basic
Titolo: errore in vb6

Ciao a tutto il newsgroup. Ho un problema nel programma mi potete aiutare?
Vi spiego:
il codice scritto e il seguente:
Private Sub cmdUpdate_Click()
 If Data1.Recordset.EditMode = adEditinprogress Then
  If MsgBox("Vuoi Salvare le modifiche?", vbYesNo + vbInformation) = vbYes
Then
     Data1.UpdateRecord
     Data1.Recordset.Bookmark = Data1.Recordset.LastModified
     frmClienti.Caption = "Clienti"
    Else
    Data1.Recordset.CancelUpdate
  End If
 End If
End Sub
questo è collegato ad un pulsante che mi dovrebbe salvare il record
modificato o annullare le modifiche fatte.
Scegliendo l'opzione Yes tutto è Ok ma quando scelgo l'opzione NO mi
restituisce il seguente errore:
Errore Run-Time "3020"
Medoto Update o Cncellupdate senza AddNew o Edit
evidenziando l'istruzione dopo l'ELSE.
Come posso risolverlo? Vi ringrazio anticipatamente.

[. = 
gcava...@tellonline.it
 in yStYb.14331$
FJ6.5...@twister1.libero.it
]
ha scritto:

Anche questo è un Data di tipo DAO.
Da dove hai copiato quella costante che comincia con "ad" e non con "db"?
Dopo aver corretto (o anche prima), segui il programma passo-passo e capirai
lo "strano" comportamento che descrivi (ma che descrivi solo parzialmente).
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare logon in 98 o me

Salve a tutti!!!
Dopo un pò(anzi un bel pò) di tempo... si ci rilegge.
Ho seguito e seguo ancora quest'utile ng.
Sto implementando il mio logon (in stile xp) sul mio win me.
Ho concepito tutto o quasi..
Riesco a far partire solo la mia applicazione all'avvio di win ma
poi....
non riesco a caricare explorer (cioè il desktop e la barra delle app).
Se uso shell("Explorer.exe") si avvia la gestione delle risorse e non
carica invece il desktop.
In giro ho letto che si deve usare rundll32.exe ma non riesco a trovare
come fare ad utilizzarlo.
Resto in attesa dei Vs prezioni consigli.
Un saluto particolare al gentilissimo hal1961.

Dimenticavo... sto usando VB 6.0

 Un saluto particolare al gentilissimo hal1961.
ricambio con piacere :-)
-- 
ciao, hal

Ciao!
Forse non ti ricordi me... cmq mi hai dato una bella mano qualche anno
fa con il VB e te ne sono sono grato.
Non puoi darmi una mano ora? Non riesco proprio a gestirlo sto
startup...
Se non si può qui magari in pvt. Grazie.
Francesco

 startup...
mi spiace, ho lasciato i windows 9x da parecchio.
-- 
ciao, hal

Grazie lo stesso, hal.
Cmq ho lanciato spy++ dopo aver sostituito "explorer.exe" con
"mia_app.exe" nel system.ini ed ho notato che non viene caricato
progman contenente una classe SHELLDLL_DefView, a sua volta contenente
una SysListView32.
Quindi dovrei caricare progman con le relative classi. Esiste qualche
api idonea al caso?

Newsgroup: it.comp.lang.visual-basic
Titolo: Giustificare il testo

Qualcuno sa come fare a giustificare del testo

 Qualcuno sa come fare a giustificare del testo
sě, puň darsi che qualcuno lo sappia...
sai dirmi anche chi?
ciao, assa.
--
Sito Comune
http://www.it-lang-vb.net/

Mi pare che sul sito comune ci sia un bel progettino 'Blocchetto' di Ettore
Maronese.. a proposito.. che fine ha fatto Ettore?
Fabio

Esiste un'api - settextjustify che ti giustifica il testo.
Non funziona sotto nt4.
--
Saluti
Andrea MORO
***************************************
Per rispondere togliere ET dal messaggio prima
della chiocciola.

Newsgroup: it.comp.lang.visual-basic
Titolo: [Tool Tip Tex] Come faccio ?

Non sono riuscito ad inserire un cotrollo Tool Tip Text in una
MsFlexgrid in modo da far comparire un messaggio al passaggio del mouse
su una cella.Per favore mi volete suggerire il codice.
Grazie.Antonio

su una cella.Per favore mi volete suggerire il codice.
perche', cos' ha la proprieta' TooltipText che non va bene ?
ciao hal
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Word e le strutture

Non so dove andare a cacciare questo messaggio xché non ho trovato nessun NG
che (pare) voglia adottarlo. Per adesso lo posto qui, poi qualcuno mi dirà a
quale gruppo posso darlo.
Il Word mi fa ancora casini. Dovevo raccogliere una ventina di pagine HTML
prese dal Web in un'unico documento, così da poterlo archiviare più
semplicemente. Volevo anche (e sopratutto) che gli stili (titolo 1, titolo 2
ecc.) fossero tutti belli, puliti e regolari, in modo che, una volta
stampato, non mi escano fuori cento pagine di schifezze che volano sulle
superfici cartacee (tengo anche a questo). Dopo un sudatissimo lavoro di
aggiustamenti, questo sta a destra, questo va messo in grassetto, quello è
un titolo 4 e non 3, riesco discretamente a ottenere quel che volevo. Tutto
felice, salvo, spengo tutto e vado a cenare. Torno, riaccendo, carico il
file e con (funesta) meraviglia me lo ritrovo strafacasciato come 6 ore fa.
Faccio appena un tentativo, salvo, ricarico e me lo ritrovo come prima. L'
attributo di sola lettura è disabilitato, tutto pare normale. Se qualcuno mi
suggerisce un rimedio, per favore? Sono apertamente accettate richieste di
chiarimenti.
Grazie 1.024 * 2^16
--
E.G. er Cicca



Newsgroup: it.comp.lang.visual-basic
Titolo: Monitorare stampanti HP

Come posso monitorare una stampante HP8000/8100    attraverso Visual Basic
(per monitorare mi è sufficiente sapere cosa vi è scritto sul display della
stampante).
Grazie

 wrote in message
news:Bvuh7.12424$i81.4...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto

Salve , ho bisogno che qualcuno mi aiuti ha risolvere questo problema quando
lancio la stampa questa non funziona
inserisco le poche righe di programma, c'è un errore  ma purtroppo non ho la
giusta esperienza di scoprirlo (sono un programmatore novello :-((  )
Private Sub mnuStampa_Click()
         On Error GoTo ErroreDispositivoMancante
                    CommonDialog1.ShowPrinter
                      RichTextBox1.Print CommonDialog1.FileName
              Exit Sub               'Una volta caricato termino il ciclo
ErroreDispositivoMancante:
         MsgBox "Impossibile accedere al percorso o al nome di file
specificato", vbOKOnly, _
                              "Attenzione ...."
End Sub
Se gentilmento qualcuno potrebbe aiutarmi.
Grazie a chiunque mi da una mano.

               Exit Sub               'Una volta caricato termino il ciclo
Il metodo Print non esiste per la Rich, devi usare invece il metodo
SelPrint.
Su MSDN c'č un esempio che include la selezione della stampante:
SelPrint Method Example
This example prints the formatted text in a RichTextBox control. To try this
example, put a RichTextBox control, a CommonDialog control, and a
CommandButton control on a form. Paste this code into the Click event of the
CommandButton control. Then run the example.
Private Sub mnuStampa_Click()
   CommonDialog1.Flags = cdlPDReturnDC + cdlPDNoPageNums
   If RichTextBox1.SelLength = 0 Then
      CommonDialog1.Flags = CommonDialog1.Flags + cdlPDAllPages
   Else
      CommonDialog1.Flags = CommonDialog1.Flags + cdlPDSelection
   End If
   CommonDialog1.ShowPrinter
   Printer.Print ""
   RichTextBox1.SelPrint CommonDialog1.hDC
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: [HowTo] Usare immagini da Mdb

Ho memorizzato delle immagini in formato binario in un MDB e con il
datacontrol di VB funziona.
Vorrei evitare di usare quel palloso controllo e caricare da me.
Nell'help ho trovato qualcosa a riguardo del getChunk del recordset ho
copiato il codice ma non mi funziona. Quando vado a fare Image.picture =
rs!foto.getChunk(dim) mi da sempre errore.
Aiuto!!!!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Usa l'oggetto ADODB.Stream .. č molto piů semplice ...
su google trovi tutto
Saluti