mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: excel XP con vb6.....

Qualcuno ha mai caricato un files excel XP
con vb6 dove i campi del foglio elettronico
sono di tipo valuta ? e due cifre dopo la , ?
.....AIUTO č urgente....
Lorenza Alla 
lo...@ecoclub.it
 
cicalabr...@hotmail.com

Io sģ.
Non ho capito perņ il tuo problema.
Ciao
Alberto


se gli faccio il format di una variabile excel me la tratta come un testo
anche se non te lo fa vedere
e non ci mette la ? di euro davanti anche se la
cella č formattata per l'euro!!!!!!

 cella è formattata per l'euro!!!!!!
Su queste cose ci sono parecchi post.
La cosa migliore è accendere il registratore, fare l'inserimento e la
formattazione della cella, poi copiare il codice in VB e cambiare le
costanti con le variabili.
Ciao
Alberto

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

salve ragazzi
mi sapete dire in modo dettagliato la procedura per inserire testo
scorrevole in una form di vb???
Grazie

scorrevole in una form di vb???
E' archived content, sbrigati a leggerlo prima che lo cancellino:
Tip 155: Scrolling Text Horizontally in a Picture Box Control
http://msdn.microsoft.com/archive/en-us/dnarvbtips/html/msdn_msdn155.asp
-- 
ciao, hal

 wrote:
Una LABEL, un TIMER:
----------------
Private Sub Form_Load()
    Striscia = "        Copyright Andrea Agresti, Inc. 4 maggio 2003."
    Posizione = 1
    Timer1.Interval=200
End Sub
Private Sub Timer1_Timer()
    Label1.Caption = Right(Striscia, Len(Striscia) - Posizione) +
Left(Striscia, Posizione)
    Posizione = Posizione + 1
    If Posizione > Len(Striscia) Then Posizione = 1
End Sub
-------------

 scorrevole in una form di vb???
Ho trovato del vecchio codice per testo scorrevole( delle label) in Access,
presumo che in vb potrebbero andare
Considera che l'evento timer in VB6 non è presente.
Private Sub Form_Timer()
Dim i As Integer, x As Integer
For i = 1 To 250
For x = 1 To 1
       DoEvents
    Next x
lblBy.Left = IIf(lblBy.Left > 2 * 100, lblBy.Left - 0.3 * 100, 0.3 * 500)
'movimento OLE da destra verso sinistra
lblBy2.Left = IIf(lblBy2.Left < 100 * 100, lblBy2.Left + 0.3 * 100, 0.3 *
500) 'movimento OLE da   sinistra verso destra
lblBy3.Top = IIf(lblBy3.Top < 100 * 100, lblBy3.Top + 0.15 * 100, 0.3 * 500)
'movimento OLE dal Top verso il basso
lblBy4.Top = IIf(lblBy2.Top > 2 * 100, lblBy4.Top - 0.15 * 100, 0.3 * 500)
'movimento OLE dal basso verso il Top
Next i
'Esegui codice
 End Sub
Ave
giuseppeD

grazie a tutti

 grazie a tutti
--
___________________
Gick
gi...@gick.cjb.net
http://www.gick.cjb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: Come lancio web da Start>Esegui?

Ciao
Come lancio una pagina web da Start>Esegui
Grazie

 wrote in message
news:8t48ki$ivn$1...@nread1.inwind.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto dim directory

Esiste una funzione per avere la dimensione di una directory ?
..
grazie...
-- 
Posted from 
costanza.ducato.it
 [195.223.187.98] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

...

Newsgroup: it.comp.lang.visual-basic
Titolo: USO DBCombo

DB1 con 2 tabelle
Prima Tabella (SCHEDA) vuota con diversi campi tra cui
Cognome,Citta,Telefono
Seconda Tabella (CLIENTI) piena con 3 campi: Cognome,Citta,Telefono
PROGETTO1
FORM1 con 2 DataControl (DBScheda - DBClienti)
Diverse TextBox da riempire agganciate a DBScheda.
Tra queste vi è il campo COGNOME.
Per non inserirlo manualmente creo un DBCombo collegato a
DBCliewnti/Cognome.
Fin quì tutto OK.
Potrei fare la stessa cosa per inserire i relativicampi Citta e
Telefono.
Mi domando, esisterà senz'altro un metodo che una volta scelto il
cognome (come sopra), automaticamente nelle TextBox Citta e Telefono
vadano ad inserirsi i rispettivi valori collegati al Cognome.
P.S.
Il progetto è un pò più complesso ma ho cercato di semplificarlo per
rendere megliol'idea sperando comunque di essere stato chiaro.
Grazie saluti

...

Nessuna risposta
Mi permetto di riproporre l'argomento grato a chi dovesse dare una dritta
Saluti

 FORM1 con 2 DataControl (DBScheda - DBClienti)
metterei un solo datacontrol, la cui origine è una query che effettua il
join tra schede e clienti, una volta che metti l'id del cliente
nell'apposito campo, sempre tramite il tuo dbcombo, automaticamente vengono
popolati i campi cognome, città e telefono.
Se hai problemi riguardo ad alcuni di questi passaggi, chiedi pure.
Salutoni
Sergio
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura file Bitmap

Salve a tutti, c'č qualcuno che sa spiegarmi il motivo per il quale
alcuni Bitmap a 24 bit hanno
un byte in piů per ogni riga dell'immagine? mi spiego meglio, un Bitmap
a 24 bit dovrebbe avere 3 byte
per ogni pixel, perň se io leggo dall'Header del file la larghezza e
l'altezza del'immagine e faccio la seguente
operazione  - altezza * larghezza * 3 - il risultato di tale calcolo
risulta inferiore alla dimensione totale dell'area
dati del BMP (quindi escluso l'header), la differenza č uguale
all'altezza del bitmap. L'immagine che leggo viene
shiftata, se perň amplio la struttura del record di lettura di un byte
ed ignoro il byte in piů letto per ogni riga,
l'immagine risulta corretta. Come faccio a capire quando per ogni riga
devo o no leggere un byte in piů?
Ringrazio anticipatamente per il vostro interessamento.
Daniele
di@<non inserire ciň che sta tra il maggiore ed il
minore>
mail.omnitel.it

 devo o no leggere un byte in piů?
Ecco le info sulla struttura dei bitmap:
==========================
The BITMAP structure defines the type, width, height, color format, and bit
values of a bitmap.
typedef struct tagBITMAP {  // bm
   LONG   bmType;
   LONG   bmWidth;
   LONG   bmHeight;
   LONG   bmWidthBytes;
   WORD   bmPlanes;
   WORD   bmBitsPixel;
   LPVOID bmBits;
} BITMAP;
Members
bmType
Specifies the bitmap type. This member must be zero.
bmWidth
Specifies the width, in pixels, of the bitmap. The width must be greater
than zero.
bmHeight
Specifies the height, in pixels, of the bitmap. The height must be greater
than zero.
bmWidthBytes
Specifies the number of bytes in each scan line. This value must be
divisible by 2, because Windows assumes that the bit values of a bitmap form
an array that is word aligned.
bmPlanes
Specifies the count of color planes.
bmBitsPixel
Specifies the number of bits required to indicate the color of a pixel.
bmBits
Points to the location of the bit values for the bitmap. The bmBits member
must be a long pointer to an array of character (1-byte) values.
Byee
Zeross

un byte in piů per ogni riga dell'immagine?
Guarda su 
www.wotsit.org
, ci sono un sacco di documenti con le specifiche
tecniche di vari formati di file, tra i quali anche BMP.
--
Roal Zanazzi
z...@iol.it

> Salve a tutti, c'č qualcuno che sa spiegarmi il motivo per il quale

Grazie Zeross, ho comunque risolto il problema scaricandomi
tutti i sorgenti per l'interpretazione dei file immagine dalla
San Diego Supercomputer Center  
ftp.sdsc.com
.
Newsgroup: it.comp.lang.visual-basic
Titolo: listbox

ciao a tutti,il mio problema e' questo
avendo una listbox piena di nomi volevo visualizzare solo gli ultimi 10 nomi 
della lista come posso fare?
grazie. 

 della lista come posso fare?
memorizzi tutti i nomi da un'altra parte (array, recordset,
file, quello che ti pare) e carichi la listbox solo con gli
ultimi 10.
-- 
ciao, hal

 ha scritto nel messaggio
news:qCb6e.50035$kC3....@tornado.fastwebnet.it...

ma questa è una escamotage..

 ma questa č una escamotage..
per quanto ne so, la listbox non fa distinzione fra items
visibili ed items nascosti
-- 
ciao, hal

 ciao, hal
Pienamente d'accordo!!
..ma ogni tanto c'è qualcuno che vuol fare programmi senza programmare.. he 
he.. 

 ha dgtato nel post:

Soluzione un pò rustica...
Ho messo 2 listbox, list1 contiene i nomi mentre list2 conterrà i nomi da
visualizzare, per velocità la lista conterrà solo 5 nomi e visualizzerà gli
ultimi 3
______________________________________
Private Sub Command1_Click()
Dim FineLista, i As Byte
FineLista = List1.ListCount - 1
i = 0
Do Until (i = 3)
    List2.AddItem List1.List(FineLista)
    FineLista = FineLista - 1
    i = i + 1
Loop
End Sub
Private Sub Form_Load()
With List1
    .AddItem "Marco"
    .AddItem "Sara"
    .AddItem "Luca"
    .AddItem "Giorgio"
    .AddItem "Filippo"
End With
End Sub
______________________________________
Ciao
--
=Omega============
Hands On
gnammo.altervista.org
==================
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e midi file

Salve a tutto il N.G., volevo chiedere a qualcuno che di vb ne capisce più
di me
come fare a controllare il sequencer mci in modo da poter regolare i volumi
( note velocity ) di
una singola traccia in un file midi.
Ho fatto varie prove utilizzando la libreria "winmm.dll" utilizando le
funzioni
mciSendString e midiOutShortMsg, il risultato è che riesco tranquillamente a
suonare
il file midi  " var=mciSendString("play misi", ByVal 0&,0, mcihandle) "  ma
qundo
provo a inviare al device midi il messaggio di controllo per il volume di
una relativa
traccia senbra non succedere nulla " var=midiOutShortMsg( mcihandle,
lowMsg+HighMsg ), molto
probabilmente perchè il messaggio inviato è errato.
Se qualcuno ha qualche idea in merito sarei conteto di discuterne.
questo è il codice incriminato...
(ometto le dichiarazioni delle funzioni )
var=mciSendString("open " & nomefile & " type sequencer alias midi", ByVal
0&,0,0 ' apro il file midi'
mcihnd = mciGetDeviceID("midi")    ' leggo l'ID del midi device aperto'
var=Str$(midiOutOpen(mcihnd, -1, 0, 0, 0))   ' apro la porta midi '
var = mciSendString("play midi", ByVal 0&, 0, mcihnd)  ' avvio la
riproduzione del song midi '
' ora invio un messagio al device midi '
Lowint = 144 + MidiChannelOut  ----> ( MidiChannelOut è il numero della
traccia che voglio gestire da 1 a 16 )
Highint = (MidiVelOut * 256) * 256 -----> ( MidiVelOut è il  volume che
voglio impostare alla traccia da 0 a 127 )
MidiMsg = Lowint + Highint
Var = mciOutShortMsg(mcihnd, MidiMsg)


Dall'ammontare delle risposte ricevute credo che dovrň inviare una e-mail
direttamente allo Zio Bill di Msoft per qualche chiarimento....  :
Saluti Antonio

"Antonio"
Scarica API-GUIDE  ci sono un bel po' di esempi
si midi playsound mixer mci* ecc
http://www.allapi.net/cgi-bin/redirect.cgi?place=apiguide
--
Fosco

Newsgroup: it.comp.lang.visual-basic
Titolo: Sito utile

Sapete indicarmi un sito (o più di uno) dove poter trovare guide, manuali,
articoli, esempi etc su visual basic?
E per quanto riguarda il cartaceo... che libro mi consigliate per uno che sa
programmare in Basic ma che vuole conoscere bene il Visual Basic?
Grazie

 programmare in Basic ma che vuole conoscere bene il Visual Basic?
www.volftp.mondadori.com
cerca "programmare"
--
jav...@libero.it
http://digilander.iol.it/javalab

Newsgroup: it.comp.lang.visual-basic
Titolo: come faccio a sapere in quale record del recordset mi trovo ??

ciao, come faccio a sapere in quale record corrente di un recordset mi
trovo. Esiste una proprietà del recordset che me lo indichi ??
grazie.


Rs.AbsolutePosition
Semplice...
By Utente Win2k
Newsgroup: it.comp.lang.visual-basic
Titolo: primitive access

ciao
qualcuno conosce l'oggetto del post?
grazie

 qualcuno conosce l'oggetto del post?
Ti riferisci ad msaccess 1.0?
Scusa era troppo invitante! :P
btw provato qui:
http://www.google.it/search?q=%22primitive+access%22&ie=ISO-8859-1&hl=it&lr=

 Ti riferisci ad msaccess 1.0?
scusate l'ad! :(

> Ti riferisci ad msaccess 1.0?
Ma no... Secondo me allude al Works per Dos... >:-)
Antonio Mirarchi

Newsgroup: it.comp.lang.visual-basic
Titolo: Browse Folders

Utilizzo la funzione sotto riportata che funziona egregiamente e riporta
 il path della cartella selezionata, l'unica cosa che non mi piace è che
ogni volta la si richiama la ricerca riparte da "risorse del computer"
mentre vorrei partisse dall'ultima cartella selezionata il cui percorso
ho memorizzato in una variabile.
Si può modificare questa routine o si deve cambiare completamente metodo?
Roby
-	-	-
Private Function BrowseFolder(ByVal hwnd As Long, ByVal szDialogTitle As
String) As String
  Dim Esito As Long
  Dim Bi As BROWSEINFO
  Dim dwIList As Long
  Dim szPath As String
  Bi.hOwner = hwnd
  Bi.lpszTitle = szDialogTitle
  Bi.ulFlags = BIF_RETURNONLYFSDIRS
  szPath = Space$(1024)
  dwIList = SHBrowseForFolder(Bi)
  Esito = SHGetPathFromIDList(ByVal dwIList, ByVal szPath)
  If Esito Then
    BrowseFolder = Left$(szPath, InStr(szPath, Chr(0)) - 1)
  Else
    BrowseFolder = ""
  End If
End Function
Dichiarazioni:
Private Type BROWSEINFO
    hOwner As Long
    pidlRoot As Long
    pszDisplayName As String
    lpszTitle As String
    ulFlags As Long
    lpfn As Long
    lParam As Long
    iImage As Long
End Type
Private Type SHITEMID
    cb As Long
    abID As Byte
End Type
Private Type ITEMIDLIST
    mkid As SHITEMID
End Type
Private Const BIF_RETURNONLYFSDIRS = &H1
Private Const BIF_DONTGOBELOWDOMAIN = &H2
Private Const BIF_STATUSTEXT = &H4
Private Const BIF_RETURNFSANCESTORS = &H8
Private Const BIF_BROWSEFORCOMPUTER = &H1000
Private Const BIF_BROWSEFORPRINTER = &H2000
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias
"SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll"
(ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

 Si può modificare questa routine o si deve cambiare completamente metodo?
Qui c'è un esempio completo che ti permette di cambiare il root folder.
Si tratta di intervenire sul campo pidlRoot della struttura BROWSEINFO,  
creando una idlist usando l'API SHSimpleIDListFromPath.
http://forum.html.it/forum/showthread/t-479249.html
--
Dr. Atlantis

 metodo?
[cut]
Bisogna estendere l'uso di quell'API (SHBrowseForFolder).
Qui è spiegato esattamente come fare:
http://vbnet.mvps.org/code/callback/browsecallback.htm
Bye
Raf

Rafunk ha scritto:

Grazie a tutti, molto interessante.
Roby
Newsgroup: it.comp.lang.visual-basic
Titolo: Overflow ... Vi è mai capitato che ...

Dunque considerate che ho diversi progetti come tanti costituiti da una form
MDI principale e da diverse Form Child.
Nella Form MDI ovviamente c'è un menu nel cui evento click c'è la sola riga
di codice Form1.show. Fin qui tutto normale.
In effetti finchè lo eseguo nell'IDE del VB6 nessun problema, ma una volta
compilato e portato dal cliente non è raro che al momento di eseguire
Form1.show mi dia errore 6 Overflow.
Ora le domande sono:
Overflow di cosa e perchè ? ..... AIUTOOOOOOOO

 ha scritto nel messaggio
news:0Fa57.128738$cd.7...@news1.tin.it...

Secondo me, c' e' qualche cosa altro che va in Owerflow (qualche
variabile???) magari legata ad un timer o all' evento form_activate o
form_load.

Newsgroup: it.comp.lang.visual-basic
Titolo: Forse può interessare a molti...

Se scrivete questo codice:
Dim Tabella As ADODB.Recordset
Tabella.
...e a questo punto premete CTRL + SPAZIO vi compare il solito menu delle
Proprietą e dei Metodi...
Lo sapevate che le proprietą ed i metodi disponibili in VB non sono tutti
qua?
...ma che se ne possono visualizzare (ed utilizzare) altri che normalmente
sono NASCOSTI?
He he he... volete sapere come?

io andrei nell'object bowser, sbaglio?
:-)))
e cmq a me l'elenco appare appena premo il .
senza fare CTRL+Spazio.......
--
Igor Damiani
ig...@igordamiani.it
http://www.igordamiani.it
ICQ : 11847262

 Lo sapevate che le proprietà ed i metodi disponibili in VB non sono tutti


 He he he... volete sapere come?
MSDN
Alberto

sě, infatti, se apro l'object browser con l'F2, clicco con il destro, c'č la
voce
"Mostra membri nascosti"......ho vinto qualche cosa?
:-PPPP


 ...e a questo punto premete CTRL + SPAZIO vi compare il solito menu delle
da post precedenti non sempre funziona , invece CTRL + j non mi sembra cha
abbia fatto cilecca.
giuseppeD

 He he he... volete sapere come?
Sinceramente? No.
Starla

 Lo sapevate che le proprietà ed i metodi disponibili in VB non sono tutti


 vita e avrebbe installato l'MSDN studiando un pò :)
prima cosa che disattivo a ogni reinstallazione.
mi rendono semplicemente idrofobo :)
--
appunto, j.

 Non ho capito perché hanno dotato VB dei popup dei metodi e delle
proprietà.
Questo è come dire "perché hanno inventato il gelato al pistacchio?".
Evidentemente a qualcuno piace. A me, per esempio, piace. E non direi -
visto che *a me* piace - che si tratta di un balocco per principianti!-)
--
rumplestiltskin

 He he he... volete sapere come?
 LA INDOVINO CON UNAAAAAAAAAA !


Posso chiedere l'aiuto del pubblico? :-D
-- 
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
free.it.comp.lang.csharp - free.it.comp.lang.vbnet
free.it.comp.lang.aspnet - free.it.comp.lang.delphi

 Posso chiedere l'aiuto del pubblico? :-D
a) F1          = 3%
b) MSDN  = 3%
c) Help      = 3%
d) Ti tocchi = 91%

 d) Ti tocchi = 91%
Scelgo la D e confermo. :-D

Newsgroup: it.comp.lang.visual-basic
Titolo: Gestione RAS

Ciao a tutti del NG, avrei la necessità di creare un programmino in VB per
gestire l'accesso remoto sia di Windows 98 che Windows NT (creare icona
accesso remoto, eliminare icona accesso remoto, connessione accesso remoto,
hang up di qualunque connessione aperta). Vi ringrazio anticipatamente!!!
CIAOOOO



  Cerca sul sito comune i sorgenti per la gestione delle RAS API
oppure scaricati dal sito della Catalyst il pacchetto Socket Wrench,
una serie di ActiveX gratuiti (poi ti offriranno l'upgrade ai Socket
Tools ad un prezzo scontato...) per creare programmi per Internet e
c'e' anche l'ActiveX che gestisce le RAS API.
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"

hang up di qualunque connessione aperta). Vi ringrazio anticipatamente!!!
Trovi tutto sul mio sito o sul Sito Comune
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: Approccio metodologico

La mia domanda non č molto specifica, sarei contento se qualcuno
potesse darmi indicazioni metodologiche (del tutto generali) su come
modificare un programma fatto da una persona e modificato da un'altra,
non potendo chiedere chiarimenti a nessuno dei due. Secondo voi č
meglio fare tutto daccapo o mettermi con pazienza a cercare il bandolo
della matassa?

 non potendo chiedere chiarimenti a nessuno dei due. Secondo voi è


Nella valutazione di un sw si considera che un programmatore 'esperto'
(senior) non riesce a scrivere più di 200 istruzioni (testate e
documentate) al giorno. Superare questo limite significa non documentare
o non testare abbastanza. Purtroppo, e non mi stancherò mai di dirlo,
documentazione e test sono affrontati in modo troppo leggero... Un po' a
ca##o di cane, direi...
Credo che un codice scritto da una persona e rivisto da un'altra senza
una documentazione sufficiente sia praticamente ingestibile, almeno in
tempi accettabili.
Io proverei un approccio top-down (come il ketchup)...
Prima identifica il flusso dei dati, poi le funzioni principali e quindi
le varie routines che costituiscono l'ambaradan... Sempreché il sw che
devi rivedere sia stato scritto in modo umano...
Altro nin zo...
-> GbC
#
# Ogni NG ha delle regole; servono a rendere
# possibile l'utilizzo di tale strumento.
#
# Le istruzioni sull'uso del NG le trovi in
# 
http://www.it-lang-vb.net/docs/Manifesto.txt
#
# Tutto il materiale di interesse comune è in
# 
http://www.it-lang-vb.net
#
# I vecchi messaggi puoi cercarli in
# 
http://groups.google.com/advanced_group_search
#

Grazie, mi state aiutando più di quanto pensate, se non altro per
l'appoggio morale. Una domanda leggermente più precisa. PRogrammando
con visual basic in appoggio ad excel(in pratica ritengo, non so se a
ragione, sia più facile appoggiarsi ad excel per gli input ed output)
non si rischia di impegnare troppo la memoria e di partorire programmi
che, apparentemente corretti, poi impallano il pc? Ci sono dei
suggerimenti che vi sentite di darmi sullo stile di quelli (preziosi)
che ho già ricevuto da voi?
Gianluca

Newsgroup: it.comp.lang.visual-basic
Titolo: VB e WindowsNT

Devo modificare i registri di configurazione di windowsNT con visual basic,
ho provato ad usare il comando Savesetting ma, con questo comando la
directoy di default č HKEY_CURRENT_USER\Software. Io invece devo editare i
registri che si trovano in HKEY_CURRENT_USER\InstalLocationsMRU che comando
posso utilizzare???
Grazie

Scusa ma non ti sembra di esagerare?
al primo post ti si risponde....
al secondo zanna ti fa notare la cosa....
e al terzo ti cambi il nick e fai la stessa domanda???
non ti sembra che dovresti "almeno" cambiarti anche l'indirizzo di posta se
non vuoi farti riconoscere?
forse non è compito mio dirti ste cose...sono nuovo qui......
ma......
-_-
vabbuò...ho sonno......me vaco a cuccà......

 posso utilizzare???
Anche a questo ti è già stato risposto.
Dopo aver fatto una domanda, di solito, si leggono anche le risposte,
altrimenti è inutile che continui a chiedere.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: principiante

se qualcuno gentilmente puo' mettermi a conoscenza di:
come si chiama l'evento generato quando il mouse passa sopra ad un bottone?
come si chaima il metodo per far cambiare colore ad un bottone?
coem si chiama il metodo per far eseguire un file sonoro?
grazie
-- 
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 coem si chiama il metodo per far eseguire un file sonoro?
non è fornita di serie con VB
devi utilizzare le API
la funzione è sndPlaySnd
incollo un codice dall'api-guide
'This project needs :
'- a common dialog box, named CDbox
'  (To add the Common Dialog Box to your tools menu, go to
Project->Components (or press CTRL-T)
'   and select Microsoft Common Dialog control)
'-a button
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: 
http://www.allapi.net/
    'E-Mail: KPD...@Allapi.net
    'Get the number of installed waveout devices
    ret& = waveOutGetNumDevs
    If ret& > 0 Then
        'Set the CommonDialogBox' filter
        CDBox.Filter = "Wave-files (*.wav)|*.wav|All Files (*.*)|*.*"
        'Set the CommonDialogBox' title
        CDBox.DialogTitle = "Choose your wave-file ..."
        'Show the 'Open File'-dialog
        CDBox.ShowOpen
        'Play the selected sound
        sndPlaySound CDBox.filename, SND_ASYNC Or SND_NODEFAULT
    Else
        MsgBox "No soundcard detected !"
    End If
End Sub
Private Sub Form_Load()
    Command1.Caption = "Load WAV"
End Sub
Ciao
--
Fibia "Sakamoto" FBI
E-mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Sito Personale: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
Membro #25 delle Mitiche Brigate Takahashi sezione Sud

Progetto con Form1 e Command1
Proprietą di Command1:
BackColor = &H0000FFFF& 'Equivale al giallo
Style = 1 Graphical
Vai nel codice.
In alto a sx Command1
In alto a dx evento MouseMove
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As
Single, Y As Single)
   Command1.BackColor = &HFF& 'Equivale a rosso
End Sub
In alto a sx Form
In alto a dx  MouseMove
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single,
Y As Single)
  Command1.BackColor = &HFFFF& 'Equivale a giallo
End Sub
Esegui e spero sia quello che cerchi.
--
Mauro Gamberini
maur...@libero.it
Newsgroup: it.comp.lang.visual-basic
Titolo: component checker microsoft

Dovrebbe servire per controllare i componenti MDAC a ADO installati sul pc ,
ma pare che con Win XP non funzioni, non rileva molte librerie presenti
invece sul pc nel path corretto.
Mi dice error mancante !
Ma nel path \programmi\filecomuni\ adodb ci sono
Vi risulta ?
nel suo help infatti ci leggo ( non parla di XP ).
ciao e grazie
Component Checker
Component Checker is designed to determine installed version information and
assist in diagnosing installation issues with the Microsoft® Data Access
Components (MDAC). This tool runs on the following operating systems:
Microsoft Windows® 98, Windows NT® 4.0, and Windows 2000. Only 32-bit and
64-bit platforms are supported. Component Checker includes a predetermined
list of MDAC versions, which it uses to analyze the version of MDAC on your
computer. For the latest information about Component Checker, or to download
newer versions of the tool as they become available, see the Downloads page
at 
www.microsoft.com/data
.

Vi risulta ?
Con Ado 2.8 su XP, il CC non vede un paio di dll sotto File Details:
odbcbcp.dll,
SQLSRV32.dll
Per il resto tutto ok.
Ciao!
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Geometria font

Avrei bisogno di qualche suggerimento su come ricavare la geometria di una
scritta creata con un determinato tipo di font.
Vi ringrazio anticipatamente,
    Davide

        > come ricavare la geometria di una scritta
        > creata con un determinato tipo di font.
Cosa intendi?
Se ti basta sapere l'occupazione che la scritta avrà con un certo tipo di
font puoi fare così:
    <Imposti il font del Form corrente come desiderato>
    lngWidth = Me.TextWidth(strStringa)
    lngHeight = Me.TextHeight(strStringa)
Ciao.
Gemini.

Ci sarebbe un'API per catturare l'outline del font TTF e si chiama
GetGliphFont (o qualcosa del genere)
ma sembra che in VB non funzioni
correttamente
C'è un'altra via, e questa funziona:
con le API:
Call
BeginPath
  Picture1.Print "Salve"
Call EndPath
il testo crea delle
regions da cui si può prelevare il contorno.
Non ho il codice a portata di
mano, spero queste poche info possano essere di aiuto.
Fabio
--------------------------------
Inviato via 
http://usenet.iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: Disabilitare parte di word

Salve a tutti:
Qualcuno sa come fare per disabilitare tutte le barre degli strumenti di
Word da VB ?
Vorrei che, da codice VB, se apro un documento esso venga visualizzato ma
senza poter navigare tra le
barre degli strumenti di word.
Grazie a tutti i Guru che mi risponderanno.
Ciao, Francesco.

 Vorrei che, da codice VB, se apro un documento esso venga visualizzato ma
senza poter navigare tra le barre degli strumenti di word.
Ciao.
Potresti cominciare facendo girare il codice seguente in un modulo di un
progetto Word:
Option Explicit
Public Sub Prova( _
)
  Dim bar As Office.CommandBar
  With Word.Application
    For Each bar In .CommandBars
      With bar
        Debug.Print _
            .Name; " ("; .NameLocal; ")"; vbCrLf _
          , "Visibile: "; Format$(.Visible, "Yes/No")
      End With: Set bar = Nothing
    Next
  End With
End Sub
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------
Newsgroup: it.comp.lang.visual-basic
Titolo: Il db non trova campi esistenti.

Ciao a tutti. Ho un problema alquanto singolare. Ho realizzato un 
piccolo gestionale in vb6 appoggiandomi ad un file mdb. Provato su 
diversi computer funziona regolarmente, nel pc della persona che me lo 
ha "commissionato" invece, all'avvio segnala che non trova alcuni 
campi del db (che invece sono presenti) ed esce. Aprendo le tabelle 
direttamente da access (tutte, anche vuote o di altri db) dava un 
avviso del tipo "un riferimento circolare ha causto un errore in una 
fantomatica istruzione SQL" (purtroppo non ho annotato il testo 
esatto). Ho disinstallato completamente office(2000) ma l'errore 
restava. Ho installato allora office xp, è scomparso il messaggio 
all'apertura delle tabelle, ma non quello all'avvio del mio programma 
che così non riesce a partire. Qualcuno ha un'idea per evitarmi di 
formattare tutto? Un grazie anticipato.
--
Gianni
Inviato da 
www.mynewsgate.net

 fantomatica istruzione SQL" 
Che ci sia una query non "ortodossa"?
Ciao
-- 
Math Parser : 
http://www.neodatatype.net
FlowChart   : 
http://www.neodatatype.net/dump/flowchart/dir.asp
Sito Comune : 
http://www.it-lang-vb.net

 Ciao
Ciao e grazie.

Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] ferie

tra esattamente un'ora (16:38) sarò ufficialmente in ferie.
un cordiale saluto a tutto il newsgroup, ci risentiamo tra una quindicina di
giorni.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 quindicina di giorni.
Buone ferie :-)
-- 
Alex {per email metti '[NOSPAM]' nell'oggetto}
"Se i partiti non rappresentano più gli elettori, cambiamoli questi
benedetti elettori." (Corrado Guzzanti)

 giorni.
Azz.. io devo aspettare le 19:00 :-(
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (
http://www.grisoft.com
).
Version: 6.0.720 / Virus Database: 476 - Release Date: 14/07/2004

 ha scritto nel messaggio
news:2lq42kF...@uni-berlin.de...

Non sono un assiduo frequentatore del newsgroup...Ma questo non mi impedisce
di agurarti buon divertimento.
Ciao paolo

 quindicina di giorni.
Io sono in semiferie dalle 13 di oggi, peccato abbia l'altra e credo che
andro' Totalmente in ferie alle 23:45 di sabato sera quando saro' partito
!!!
-- 
<Gigio2K>
--- 
http://www.g2kweb.it/gigio2k
 ---
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

divertitiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
io devo aspettare il 7 agosto
ciao
ilario


Allora siamo in due ad aspettare il 7 agosto :-((
Ma quando caxxo arriva?!?!?!?!
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: datemi una mano

Io ho un file .txt all'interno del quale ho ad esempio
123456
123465
123546
123564
come faccio ad aprire il file ed a prendere ogni elemento di ogni riga
cioè come faccio a prendere il numero "3" che sta nella riga 4 e nella
colonna 3
vi ringrazio e spero che potete aiutarmi al più presto perchè mi serve per
la laurea

 ha scritto
| come faccio ad aprire il file ed a prendere ogni elemento di ogni riga
| cioč come faccio a prendere il numero "3" che sta nella riga 4 e nella
| colonna 3
Open per aprire il file, Input per leggere, Mid per prelevare un elemento.

 | cioè come faccio a prendere il numero "3" che sta nella riga 4 e nella


 colonna 3
Trovi tutto sulla guida, sostanzialmente ti servono queste tre cose:
Per l'apertura di file di testo vedi Open#, in particolare devi applicare la
modalita' 'For Input'
Per leggere il file di testo riga per riga, una volta aperto, vedi
l'istruzione 'Line Input#', vedi anche EOF(#) per scorrere un file
interamente.
Per recuperare una sottostringa partendo da una stringa e dalla sua
posizione vedi invece la funzione 'Mid' (mi raccomando la *funzione*, esiste
anche l'*istruzione* Mid ma fa una cosa leggermente diversa)
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown


private sub LeggiFile()
    Dim TextLine() as string
    Dim FileNumber
    FileNumber = FreeFile
    Redim TextLine(0)
    Open "Nome_tuo_ file_compreso_di percorso" For Input As #FileNumber
        Do While Not EOF(FileNumber)
                Redim Preserve TextLine(ubound(TextLine)+1)
                Line Input #FileNumber, TextLine(ubound(TextLine))
        Loop
    Close #FileNumber
    ' i tuoi elementi saranno salvati nell'array TextLine a partire da 1
end sub

colonna 3
elemento_scelto = mid(TextLine(4), 3, 1)
ciao, Francesco.

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] - emule v3

Ciao, scusate se sono troppo OT,
Riesco ad connettermi ad un server
ma dopo qualche secondo perdo la connessione
e vai avanti cosi...all'infinito...
Suggerimenti....

 Suggerimenti....
La butto lě! Emule NON č il client standard... utilizzare quello ufficiale?

 La butto lě! Emule NON č il client standard... utilizzare quello
ufficiale?
Parli di endokey?

"Maurizio A."  ha scritto nel messaggio

Volevo dire edonkey

 Volevo dire edonkey
Edonkey č nato prima di emule che č un clone per certi versi migliore che ne
sfrutta i protocolli. Potrebbe essere che i server "schifino" il clone
preferendo l'originale.
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare files con VB5 ed aprire programmi...

P.S.: Please, rispondetemi (anche con una copia) via e-mail!!!!
Io sono dispettoso e ti rispondo via news, anche xché č poco educato
chiedere le risposte via mail...
Ciao
E.G. er Cicca
XXXX 
car...@oasi.net
 XXXX <- NON SCRIVETE + A QUESTO INDIRIZZO!
er_c...@usa.net
MS Outlook Express: dove vuoi vuoi vuoi vuoi vuoi p   s   t  r   oggi+AEp-



Salve!
Ho un paio di problemi...
1) Vorrei che il mio programma creasse un nuovo file chiamato "config.ini"
all'interno della propria directory. Come posso fare? Per risolvere
l'inconveniente ho creato io il nuovo file, ma ho dovuto lasciare 13 righe
vuote perché il programma potesse funzionare. Dato che devo scrivere e
leggere 12 righe, il programma mi dava errore se prima non "scrivevo" queste
13 righe vuote, perché mi diceva che veniva scritto (o letto?) dopo la fine
del file.
2) Come faccio ad aprire programmi (es.: Icq, Word, Outlook...) da un form
di Visual Basic? Vorrei creare alcune icone che cliccandoci sopra aprano dei
determinati programmi... Help me.
Userei la procedura...
Private Sub Icona_click()
    ' Ditemi voi cosa devo inserire qui...
End Sub .
GRAZIE MILLE.
Roby.


Ciao e grazie per i consigli...
...a parte il fatto che non ho capito una cicca dell'Api o giů di lě.
Per "rispondermi (anche con una copia) in e-mail", intendevo di pubblicare
la risposta sul newsgroup e mandarmi con un copia-incolla del testo la
risposta anche in e-mail (facoltativo).
Ciao!
Newsgroup: it.comp.lang.visual-basic
Titolo: OCX Per Data

 vorrei usare un qualcke cosa di + .carino !!!
Non ho capito cosa ti serve e perchè il dtp non ti va bene... è così ben
fatto.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Impostare Proprietà

Ragazzi ho un problema:
ho fatto una dll activex con delle proprietą
una di queste proprietą se viene settata in un particolare modo, a sua volta
deve impostare altre proprietą all'interno della stessa dll.
Come faccio in una dll activex (pippo.dll) come si imposta una proprietą di
pippo.dll da codice interno alla stessa dll?
Grazie
~~~~~~~~~~~~~~~~
Andrea Fabbrucci
anfa...@tin.it
~~~~~~~~~~~~~~~~

 pippo.dll da codice interno alla stessa dll?
Intanto scusa se faccio il pignolo, ma dare il nome giusto alle cose aiuta
anche capire meglio il problema e a trovare la soluzione:
le proprieta', cosi' come le sottointendi tu, non sono della DLL ActiveX ma
di *una o piu' istanze di una o piu' classi* contenute nella DLL.
Quindi suppongo che quello che tu faccia esattamente non sia settare una
proprieta' della DLL, ma creare un istanza di oggetto, la cui classe
(diciamo Pluto) e' definita in pippo.dll, e cambiare una property di
quest'ultimo.
Detto questo, esattamente che cosa vuoi ottenere?
se vuoi che, modificando Pluto.Prop1, vengano cambiati automaticamente i
valori di Pluto.Prop2 e Pluto.Prop3 *nella stessa istanza di oggetto*,
allora e' sufficiente scrivere il codice corrispondente nella relativa
routine Property Let
Un piccolo esempio
Private miEta As Integer
Private mbMaggiorenne As Boolean
Public Property Get Eta() As Integer
    Eta = miEta
End Property
Public Property Let Eta(ByVal iEta As Integer)
    miEta = iEta
    If miEta >= 18 Then
        mbMaggiorenne = True
    Else
        mbMaggiorenne = False
    End If
End Property
Public Property Get Maggiorenne() As Boolean
    Maggiorenne = mbMaggiorenne
End Property
se non ho capito nulla della domanda, chiedo venia :-), ma dovresti dire
qualche dettaglio in piu'...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 qualche dettaglio in piu'...
Secondo me la tua risposta è centrata.
Solo che ho l'impressione che al ragazzo sfugga il concetto di variabile uso
interno (quella che comincia con la 'm', per capirci), con la proprietà, che
è in realtà una function che ritorna un valore pari ad un valore memorizzato
internamente, e non un valore in se.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Domanda da principiante

Dove posso trovare l'oggetto Printer indicato nell'Help di VB 4
Grazie.
Luca.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [ASP] Lista di record in ADO

Vorrei sapere come fare usando ADO (in ASP) a ottenere i record di un
determinato campo.
Come in DAO(in VB):
RS.MoveFirst
Do UNTIL (RS.EOF)
 debug.print rs.fields("Cognome")
 rs.movenext
LOOP
Vi ringrazio in anticipo....
--
Timothy Redaelli
timothy....@email.it

 wrote in message
9882792...@vega.uli.it...


Puoi posta re q.sa.....
Grazie
Timothy
--------------------------------
Inviato via 
http://usenet.iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: help password db access !!!!!!

Salve a tutti...
Premetto che non sono un esperto in Vb ..quindi mi scuso se la
domanda risultera' stupida...
HO creato un database Access da vb5 inserendo anche una password
tramite questo codice :
Dim DbNew As Database
temp = sdir + "\wrk.mdb"
Set DbNew = DBEngine.CreateDatabase(sdir + "\wrk.mdb",
dbLangGeneral & ";pwd=aaaaa")
Set Dbtemp = OpenDatabase(temp)
Ora non riesco ad accedere al Db tramite VB ("password errata")
mentre da Access la password funziona ...
Chi mi sa Aiutare ?? ?? ??
Grazie in anticipo
Fire.
-----------------------------------------------------------
Got questions?  Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com

 Ora non riesco ad accedere al Db tramite VB ("password
errata") mentre da Access la password funziona ...
I parametri opzionali in questo caso sono obbligatori.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X

 mentre da Access la password funziona ...


Enrico
Ho provato e Funziona ....
Grazie mille a tutti ...
^__________^


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

E' da un po' di tempo che utilizzo VB5 e ho incontrato uno strano problema
applicando il metodo "FindFirst" sull'oggetto recordset.
Quando scrivo un'istruzione del tipo:
mioRecordset.findfirst "[mioCampo]=' " & miaVarStringa & " ' "
va tutto bene finché "miaVarStringa" non sia una parola contenente un
apostrofo tipo "D'Antonio". Sistematicamente il compilatore dà un'errore di
sintassi. Capisco che il problema è dovuto al fatto che l'apostrofo è
interpretato come un segno speciale, ma io allora come faccio per ricercare
nomi che contengono un apostrofo?
Grazie anticipatamente.


257a volta che fanno questa domanda...
usa le virgolette doppie come delimitatore di stringa (raddoppiate,
altrimenti VB pensa che sia terminata la stringa : ""
mioRecordset.findfirst "[mioCampo]=""" & miaVarStringa & """"
--
Roal Zanazzi
z...@iol.it

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

Ho un problema. Devo stampare un report con VB5. Questo report e' contenuto
all'interno di un file "txt". Ho provato con una CommonDialog ma non riesco
a farlo anche mettendo nella proprietą filename il nome del file da
stampare.
Qualcuno potrebbe consigliarmi (senza utilizzare il Crystal Report)?
GRAZIE.


potresti lanciare notepad con /p come opzione
Shell "notepad /p miofile.txt", vbhide
occhio che non ho provato
Ciao
Faber


Avendo un problema analogo al tuo, alla fine ho optato per la seguente
soluzione:
Private Sub cmdPrint_Click(sFileToPrn As String)
  Dim nCopie, i As Integer
  Dim nFile As Integer
  Dim sLine As String
  CmmDlg.DialogTitle = "Stampa di " & sFileToPrn
  CmmDlg.CancelError = True
  On Error GoTo ErrHandler
  CmmDlg.ShowPrinter
  nCopie = CmmDlg.Copies
  For i = 1 To nCopie
    nFile = FreeFile
    Open sFileToPrn For Input As #nFile
    Do While Not EOF(nFile)
      Line Input #nFile, sLine
      Printer.Print sLine
    Loop
    Close #nFile
  Next i
  Printer.EndDoc  ' La stampa è terminata.
ErrHandler:
  ' E'stato premuto il pulsante Annulla.
End Sub
Ciao, Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: [CONTINUA...] array di oggetty ed evento associato

Il post del 2 settembre
"array di oggetty ed evento associato"
si era chiuso con una ottima risposta di
Bastianello Luciano
Software Consultant - Apprentice Sorcerer
MBS CP Development
MSN: 
cte...@hotmail.com
 - ICQ: 209754422
http://community.visual-basic.it/LucianoB/
che diceva di ottenere tale evento associato cosě:
[CUT]
Dim ListBoxes() As ListBox = {}
Dim j As Integer = 48
Dim k As Integer = 0
ReDim ListBoxes(2)
For k = 0 To 2
ListBoxes(k) = New ListBox
ListBoxes(k).ItemHeight = 8
ListBoxes(k).Location = New System.Drawing.Point(k * j, k * j)
ListBoxes(k).Name = "lst" + k.ToString
AddHandler ListBoxes(k).Click, AddressOf Me.ListBoxClick
Me.Controls.Add(ListBoxes(k))
Next
Sub ListBoxClick(ByVal sender As Object, ByVal e As System.EventArgs)
MessageBox.Show("Beccato")
End Sub
----------------
A questo punto chiedo:
come ottenere un MessageBox.Show
con anche l'indice relativo della Listbox cliccata,
del tipo    MessageBox.Show("Beccato: sei il numero: "  &  Index )

 del tipo    MessageBox.Show("Beccato: sei il numero: "  &  Index )
Se stai parlando di VB e non .NET, che non conosco, forse
potresti leggere meglio il mio POST in quel 3D.
Non serve fare un'array quando VB supporta la gestione
della matrice di controlli in modo nativo come ti ho spiegato
e come mi pare tu non abbia capito.
Questo ti consente di gestire gli eventi nei quali ti 
verrà passato anche l'INDEX del controllo.
Poi vedi tu, scegli quello che ti piace di più.
Saluti.
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 del tipo    MessageBox.Show("Beccato: sei il numero: "  &  Index )
Non puoi, ma non ti serve nemmeno perchè il parametro sender dell'evento è 
la tua Listbox.
Ma perchè ti fai un tuo array e non aggiungi le listbox direttamente alla 
collection Controls del container? (come credo intenda anche Alessandro)
Ciao 

Esatto, ma già allora non è stato apprezzato, o forse capito...!
Ciao
@Alex

 ha scritto nel messaggio 
news:1126250226....@f14g2000cwb.googlegroups.com...


 - utilizzare il metodo (da inserire dentro sull'evento):
Al limite può addirittura fare un Array.IndexOf() per ottenere l'indice nel 
suo array, ma come dicevo mi pare inutile.
Ciao 

che diceva di ottenere tale evento associato così:


 AddHandler    .......  AddressOf   ......
:)
Se riesci a cambiare il prototipo del Delegate che si aspetta e farglielo
accettare allora meriti un premio.
Ciao
--
Reporting tool: 
http://www.neodatatype.net

Newsgroup: it.comp.lang.visual-basic
Titolo: esiste un modo per compilare mdb?

in una qualsiasi classe di latino :))
ahhhh, mi stavi dando dell'asino in latino in italiano.
Salve
                Dbg
Newsgroup: it.comp.lang.visual-basic
Titolo: DBSourceMaker....

....è un programma che partendo dal db già esistente, lo analizza e crea il
relativo codice sorgente in vb per poterlo creare direttamente da programma.
Il trucco stà nel fatto che a fare un db con access ci vogliono 3 minuti a
scrivere il codice in vb per far creare lo stesso db ci vogliono 3 ore. Con
questo giocattolo in tutto ci vorranno3,5 minuti.
C'e' qualcuno così gentile da provarlo e farmi dapere qualcosa???
Grazie in anticipo
Stephen

 ha scritto nel messaggio
news:S_qJ6.30196$UW4.1...@news.infostrada.it...


 ha scritto

mdb2bas sul sito comune l'hai visto ?

Newsgroup: it.comp.lang.visual-basic
Titolo: [Silverlight] Binding Combobox.ItemsSource a proprietà pubblica

Salve a tutti,
so che la domanda può sembrare scema ma mi sono incartato su questa cosa e non riesco a venirne fuori.
 
Ho in un progetto silverlight una serie di Combobox dalle quali si può selezionare uno Stato del mondo.
Per evitare di tirarmi fuori sempre gli stessi valori per ogni maschera di input ho pensato di creare una ObservableCollection in un modulo e dichiararla Public.
 
 
Quindi ho un modulo modVariabiliGlobali con:
 
Module VariabiliGlobali
 
	....
 
	Public Property OBSCountries As New ObservableCollection(Of clsKeyValue)
 
End Module
 
Tutte le combo cmbCountry hanno come ItemsSource la ObservableCollection... e qui viene il problema.
Vorrei evitare di impostare il binding da code-behind (quindi cmbCountry.ItemsSource = OBSCountries) ma vorrei farlo direttamente da XAML.
 
Io mi aspetterei che questo funzionasse
ItemsSource="{Binding Path=OBSCountries , ElementName=modVariabiliGlobali, Mode=OneWay}"
 
invece no. ho provato anche altre combinazioni ma niente.
Sapreste dirmi per favore dove sbaglio?
Grazie,
 
Nicola

 Sapreste dirmi per favore dove sbaglio?
 
non è così semplice avere un riferimento a qualcosa di statico dallo 
Xaml, in WPF si fa così, non so se funzioni anche su Silverlight, mai 
avuto il bisogno. Supponendo di avere una dichiarazione della 
Window/UserControl del tipo:
 
x:Class="...."
x:Name="myView"
xmlns="
http://schemas.microsoft.com/winfx/2006/xaml/presentation
"
xmlns:x="
http://schemas.microsoft.com/winfx/2006/xaml
"
 
xmlns:thisIsStatic="your-namespace-here"
 
Quello che puoi fare è riferirti a qualcosa di statico nel namespace 
"thisIsStatic" in questo modo:
 
DataContext={x:Static thisIsStatic:yourModuleName.StaticPropertyName}
 
Vado molto a memoria, quindi okkio alla sintassi.
 
.m
 
-- 
è corta
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] ASP Applicazioni

Ciao, scusate forse un pň OT, ma il ng si ASP non mi fa mai passare i
messaggi, non so perchč.
Abbiamo fatto un'applicazione in ASP, bellissimo. Il problema č: quando la
installiamo dal cliente, come facciamo ad essere sicuri che questo non la
prende e se la scopiazza dal suo amico? Nel senso, esiste un metodo per
impedire la diffusione spiratata di copie del nostro programma?
E ancora prima, per copiare da un server all'altro, batsa copiare le pagine
ASP e il db SQL, e funziona anche sull'altro server?
Spero il problema sia chiaro, graize a tutti e scusate l'ot!

Purtroppo no ... quando la installi ... teoricamente chiunque
ha accesso al server può duplicare illegalmente il tuo codice.
Non esiste mezzo (almeno che io conosca) per evitare la
cosa ... anche se cripti le pagine.
Al massimo con quest'ultimo sistema eviti che qualcuno
possa trovarsi una base di lavoro già fatta e quindi partire
dal tuo lavoro per apportare migliorie e modifiche a tua
insaputa.
Un modo più laborioso per tentare di evitare la copia potrebbe
essere quello di farti le tue routine principali dentro una o più
dll ... dentro la dll fare in modo che si vada a leggere un file
di testo. Se il file non l'hai trovato ... gli dici spiacente copia
illegale ...
Il brutto è che se ti copiano anche il file (che ovviamente devi
mettere in una directory diversa da quella della root web) ti
hanno copiato l'applicazione.
Soluzione più raffinata sempre basata sui file può essere quella
di confrontare una stringa di questo file con un codice o un seriale
del server su cui hai installato l'applicazione Es. la licenza di windows.
 Se la licenza di windows del server di destinazione non è pirata
anche quella ... hai un certo livello di tranquillità anche in caso di copia
dell'applicativo.
Altre soluzioni??? Beh trovale ... io ti ho dato un'idea ... asp è tanto
volubile, ma per certi versi ti puoi sbizzarrire come ti pare.
Un caso è questo.
Ciao Andrea

Grazie 1000!
Ciao, Dave.

La butto lě perchč non crei un'applicazione IIS che fa determinati
controlli, per esempio controlla l'etichetta del disco, la presenza di piů
file ini con diverse varibiali in diverse posizioni del disco fisso, ed
infine iniva i dati in remoto (ad un tuo server) che valuta i dati bloccando
o meno con un
response.write("Applicazione Illegale.<br>")
response.end
l'esecuzione di qualunque script della tua applicazione web.
Non č impossibile da "crackare" ma difficile sicuramente.
--
~~~ MrOnederfull ~~~
mroned...@hotmail.com
http://www.mronederfull.it
 (coming soon!)

 Non è impossibile da "crackare" ma difficile sicuramente.
