mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 e SQLServer

Devo leggere dati da un DB AS400 ed aggiornarne una copia in SQLServer
6.50.
Passi per la lettura da AS400, ma l'accesso alla tabella SQLServer č
mostruosamente lento.
Qualcuno conosce la maniera migliore di accedere alla tabella su SQLServer
per operazioni di INSERT ed UPDATE?
Potete mandarmi una e-mail a 
car...@kappa.it
. Grazie in anticipo.
Attualmente sta funzionando con questo codice:
Dim dbSrv7 As Database
Dim dbas400 As Database
Dim rsTabella As Recordset
Dim rsMTabella As Recordset
[....]
Set dbSrv7 = OpenDatabase("", False, False,
"ODBC;DSN=SERVER7P;UID=[....];PWD=[....];")
Set dbas400 = OpenDatabase("", False, True,
"ODBC;DSN=AS400;UID=[....];PWD=[....]")
strQuery = "select * from [....] where [....] order by campo1, campo2"
Set rsTabella = dbas400.OpenRecordset(strQuery, dbOpenDynaset, 64)
Set rsMTabella = dbSrv7.OpenRecordset("syncro3", dbOpenDynaset,
dbConsistent, dbOptimistic)
rsTabella.MoveLast
rsTabella.MoveFirst
While Not rsTabella.EOF
    lCampo1 = rsTabella("campo1")
    strCampo2 = rsTabella("campo2")
    rsMTabella.FindFirst "campo1 = " & lCampo1 & " and campo2 = """ &
strCampo2 & """"
    If rsMTabella.NoMatch Then
        rsMTabella.AddNew
        rsMTabella("campo1") = lCampo1
        rsMTabella("campo2") = strCampo2
    Else
        rsMTabella.Edit
    End If
     [.. aggiornamento altri campi ..]
    rsMTabella.Update
    rsTabella.MoveNext
Wend

"ODBC;DSN=SERVER7P;UID=[....];PWD=[....];")
Usa le tabelle collegate.
Dai un'occhiata a visdata.vbp nei samples per vedere come si fa.
File creato che contiene le tabelle collegate al tuo db sul
server:Pippo.mdb
set dbSrv7=OpenDatabase(Pippo.mdb)
dbSrv7.connect="ODBC;DSN.....
Inoltre per fare aggiornamenti sul db usa la dbSQLPassThrough con
dbSrv7.execute [istruzione SQL] ,dbSQLPassThrough
Idem per il codice seguente

Newsgroup: it.comp.lang.visual-basic
Titolo: File audio.....questi sconosciuti

Ok gli MP3 li sento, sento pure i Midi e i Wave, vedo addirittura gli AVI!
ma.......come minchia si fermano?!?!?!?!?!?
Io uso la funzione "mciSendString", qualcuno č in grado di aiutarmi?
E tanto che c'č mi puņ dire anche come fare un loop?
Magari senza tante procedure basta impostare un valore a qualche variabile
della funzione......
Grazie in anticipo ^______^


Evidentemente in questo NG pochi hanno a che fare col multimedia !!!
Io sono quasi un mese che tento di fare il loop di un brano midi attraverso
lo stramaledettissimo "mcisendstring" senza successo...
Ho mandato messaggi in tutte le salse, ma nisba !!
Non credo che qualcuno ci aiuterà mai (sigh!)!
P.S. se nel frattempo ci sei riuscito, fammi sapere come hai fatto (la cosa,
naturalmente è reciproca...)
Ciao !
Newsgroup: it.comp.lang.visual-basic
Titolo: Datareport e Intestazione di Pagina

 Dal subject, sembrerebbe una cosa già stravista, e invece su google non ho
trovato niente.
Nel datareport, oltre alle sezioni di dettaglio e a una/più sezioni di
gruppo, ci sono le sezioni "Intestazione di Report" e "Intestazione di
Pagina".
Intuitivamente, in tutte le pagine la prima cosa che si vede in alto è la
"Intestazione di Pagina".
E invece no.
Nella prima pagina (ossia l'inizio del report), la prima cosa che si vede in
alto è la "Intestazione di Report", e la "Intestazione di Pagina" viene
spostata sotto.
Per cui, se io metto nella "Intestazione di Pagina" il marchio aziendale,
affinchè appaia in tutte le pagine, accade che nella prima pagina il marchio
viene stampato SOTTO alla data, al nome del fornitore, ecc...
Si risolverebbe tutto se fosse possibile dire al datareport di NON stampare
l'Intestazione di Pagina nella prima pagina (quello che si può fare con
Word, ad esempio). Metterei il marchio nell'intestazione report e anche
nell'intestazione pagina, e ogni pagina avrebbe il marchio una ed una sola
volta.
Ma non ho trovato tale opzione.
Idee?
Ciao
Alberto
--
Santo cielo, Magnum, si può sapere cos'è questo baccano?
Higgins, posso spiegarle...
Credo non sia necessario.
Zeus, Apollo, a voi...

 Ma non ho trovato tale opzione.
Risolto con un accrocchio.
Non uso l'intestazione di report, ma solo intestazioni di pagina e
intestazioni di gruppo.
Nella intestazione di gruppo (e ovviamente avrň un solo gruppo master) metto
l'equivalente dell'intestazione di report.
Saluti
Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Limiti della Listview.

Ripropongo una domanda che ho fatto qualche tempo, a cui ancora non ho
ricevuto risposte.
Qualcuno è a conoscenza di limiti nella Listview ?? 
Ho una LV in cui vengono scritti dei messaggi di errore provenienti
dalla elaborazione di un database. Purtroppo quando nella listview, in
modalità Report, inserisco più di, diciamo 1000 o 2000 righe, inizio
ad avere problemi di memoria fino al blocco completo del PC.
Avete idea come superare il limite ??
Alex

...


Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTATEMI COI REPORT

Se imposto un report con Crystal Report, come faccio a scegliere il record
da stampare dall'eseguibile? mi è stato detto di usare una SELECTION
FORMULA, ma non so proprio come fare. Se avete un'idea scrivetemi a
deim...@iol.it
 !
GRAZIE

...

Newsgroup: it.comp.lang.visual-basic
Titolo: e-mail client in vb6

Ciao, sarò breve e circonciso...
Devo fare un client e-mail in vb6 molto semplice nel senso che ad una certa
ora deve spedire un'e-mail e basta.
Ho trovato degli esempi:
-uno usa gli oggetti MAPI
-un altro usa il winsock e il formato MIME64
-un altro ancora, tratto dal MSDN, è questo:
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
myMail.From = "Exa...@Microsoft.com"
myMail.To = "
Som...@company.com
"
myMail.Subject = "Sample Message"
myMail.Body = "This is a sample message."
myMail.AttachFile "d:\sample.txt"
myMail.Send
Set myMail = Nothing
siccome poi lo devo distribuire ed essere quindi sicuro che funnzioni
dappertutto, quale mi consigliate di usare?
Grazie in anticipo

Do a te il suggerimento che ho dato ad altri.
Usa l'oggetto smtp.ocx che trovi in rete. Va bene ed e' gratuito.
Cosi' ti eviti a doverti attaccare a Outlook / exchange.
Secondo me le MAPI sono 'na schifezza.
Ciao!
Luca

Newsgroup: it.comp.lang.visual-basic
Titolo: Dimensione file exe troppo grande.

Sto realizzando una applicazione in vb6, ovviamente e' molta complessa ma
sta crescendo sempre di piu come dimensione circa 17 mega.
Esiste qualche sistema per avere un exe più piccolo ?
Ciao
Franco

Se il progetto è strutturato bene puoi spostare le funzioni in dll
esterne. Se hai degli user control dentro al progetto puoi convertirli
in ocx così sono fuori dall'eseguibile.
A seconda di come hai scritto il codice può essere una cosa facile
veloce ed indolore oppure no.
Piero

 ha scritto nel messaggio
news:1122030126.9...@g47g2000cwa.googlegroups.com...


Piero
Come faccio creare dll oppure ocx ?
Franco


Provato con <Nuova dll> e <Nuovo controllo>?
Ciao
--
Reporting tool: 
http://www.neodatatype.net

 sei riuscito a fare un programma di 17 MB, e chiedi come si fa a fare dll
oppure ocx?
Beh, l'ha fatto di 17 mega proprio perchè non sapeva come fare dll o ocx ;)
Comunque il nostro è di circa 32mb, escluse dll e ocx :(


 mmaaaaaaaaaaaaah!
Non ci vuole un grande sforzo, anzi... basta ad esempio che contenga una decina
di form ciascuno con una bella immagine di sfondo in formato bmp 800x600
truecolor...
Bye
Raf



Se la tua necessità è solo quella di comprimere l'exe puoi usare UPX
(
upx.sourceforge.net
), è un compressore per eseguibili, introduce un po' di
overhead ma su una macchina "decente" (PII in su) non si avverte.
Io lo uso per un mio progetto da circa 4 MB di exe (senza bitmap o altro,
solo puro codice VB) e la compressione lo riduce a circa 400 kb
Ciao
Stefano "HappyMan"

 solo puro codice VB) e la compressione lo riduce a circa 400 kb
da oscar upx, davvero da oscar...
se hai dei files di risorse che contengono icone devi evitare di fargli
comprimere la prima icona, altrimenti il tuo prg non avrà una icona di
default; ci ho messo un po' a capirlo...
upx --compress-icons=0 [NomeProgramma]
-> GbC|
www.gbcweb.com

 upx --compress-icons=0 [NomeProgramma]
Nel mio caso il progetto contiene il file .res compilato con rc.exe mentre
il form MDI parent ha direttamente specificata l'icona nelle propritaà e
non ho avuto questo problema...
Ciao
Stefano "HappyMan"
---
Stefano "HappyMan"
http://www.sgr.info

 
allora non vale! vuol dire che non stai lavorando ma stai giocando!

 ha scritto nel messaggio
news:42e10aa4$1...@news.unimib.it...

Proprio cosě! ;-)
Raf

Newsgroup: it.comp.lang.visual-basic
Titolo: listbox? aiuto facile

vi prego ditemi  come ricevere la stringa contenente il nome(no l'indice)
cliccando  e selezionando un elemento da un listbox
io vorrei ricevere la stringa che gho selezionato
grazie
pica...@labnet.it

io vorrei ricevere la stringa che gho selezionato
---___---  ma allora, sei proprio... ma li leggi gli help????
la stringa di testo č contenuta nella proprietą: List1.Text
esempio:
Public Sub List1_Click()
    Text1.Text =  List1.Text
End Sub
In questo modo quando selezioni una voce, nella casella di testo verrą
visualizzata la voce selezionata.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Cercasi Codice Fiscale

c'è qualcuno che gia c'ha la rutine per la creazione del cod. fisc. gia
fatta?
grazie

...


 wrote in message
7lhjjr$krq$1...@aquila.tiscalinet.it...


grazie mille amici

Newsgroup: it.comp.lang.visual-basic
Titolo: file TxT

Dovrei confrontare due file, ed ottenerne un terzo composto dalle righe che
il secondo ha in più del primo .
Qualcuno conosce qualche comando DOS che lo fa gia ,
oppure siete in possesso di un eseguibile che possa fare al caso mio?
Grazie a tutti
Fede

 ha scritto nel messaggio
news:WKg38.31657$tl3.9...@twister2.libero.it...


 ha scritto nel messaggio
news:WKg38.31657$tl3.9...@twister2.libero.it...

Comando dos FC.
Fai nel prompt fc /?
Ciao
--
Timothy Redaelli

Newsgroup: it.comp.lang.visual-basic
Titolo: Il tempo, la matematica e le SSTab : i 3 misteri della vita !!





Salve ragazzi.


In una form io devo usare questo benedetto oggetto 
SSTab del quale ho attivato due tabelle.


(proprietà Tabs=2).


In effetti gestisco un solo data, ma devo dividere 
le informazioni in due parti perché solo alcuni utente "autorizzati", possono 
accedere alla seconda tabella di SSTab.


Fino a ieri funzionava tutto.


Sull'evento activate della form controllavo il 
valore del campo autorizzazione e se tale campo indicava un utente non 
autorizzato impostavo SSTab.tab=1 e la seconda scheda mi spariva.


Da stamani quando arrivo a quel punto appare un 
messaggio di errore che mi dice


"Via bischera o che pretenderesti di 
fare?".


Ora domando: secondo voi esiste una proprietà 
o qualcosa di altro tipo che potrei inavvertitamente aver modificato e che non 
mi permetta di fare questa operazione?


Grazie mille.


Elisa.


 







non capisco se parli seriamente o 
no....


 


ciao



 ha 
  scritto nel messaggio 
news:%vqk6.45618$LM4.5...@twister1.tin.it
...


 
  wrote in message 
T_qk6.13226$M75.2...@news6.giganews.com
...


Elisa.
[cut]
Se ti dice proprio cosi', ti consiglio di chiedere i danni a Microsfot...
per ingiurie :)))

(proprietà Tabs=2).
[...]

 ha scritto nel messaggio
news:tMxk6.48954$LM4.5...@twister1.tin.it...

  ciao
Primo non postare in HTML
Sercondo, se il messaggio di errore è esattamente quello che hai scritti è
evidente che qualcuno ti ha fatto uno scherzo. Oppure lo hai fatto tu? ;-)
Ciao VB

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

come fare per creare un file?
ad esempio, nell'evento Form_Load( ) o nel Sub Main( ) di un modulo
qual'è il codice che crea in C:\   il file ciao.bat?
GRAZIE 1.000

 wrote in message
g_KB5.56322$3R6.1...@news.infostrada.it...


 ha scritto nel messaggio
news:g_KB5.56322$3R6.1...@news.infostrada.it...


puoi utilizzare questo sistema:
Private sub Form_Load()
    open "c:\ciao.bat" for output as #1 'apre o crea
        '...
        'qui insersci i comandi per scrivere dentro al file
        '...
    Close #1 'chiude
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: keypress attivo anche su textbox

Salve, avrei un problemino: devo gestire degli eventi keypress con numeri e
tasti funzione. Premendo però uno dei numeri, mi si devono aprire delle
textbox. A quel punto, mi servirebbe di continuare a gestire la pressione
dei tasti funzione. E' possibile in maniera semplice? Altrimenti avrei
pensato di sostituire le textbox con delle label e gestirne il .caption con
gli eventi keypress, ma per imparare qualcosa di nuovo vorrei sapere se è
possibile continuare a gestire i tasti funzione quando la ntextbox è attiva
(chiaramente i numeri mi servono per inserire i valori nelle text)
Ciao... Maurizio

> Maurizio:

Se ho capito cosa intendi consulta la guida riguardo:
Property KeyPreview As Boolean
    Member of VB.Form
    Returns/sets whether keyboard events for an object are invoked before
keyboard events for controls on that object.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: [Idiot question]Linee nei menu

Ciao a tutti...
Scusate la domanda, forse ovvia... Ma...
Nei menu come faccio ad inserire delle linee per separare le opzioni? :P
Ciao ;^)=
--
RedFoxy
Web Master of Quantum Leap 
http://ql.programmazione.it

 ha scritto nel messaggio
news:9m454q$9318$1...@ID-83354.news.dfncis.de...

Metti il carattere   -   come caption, senza null'altro. :)
Byez!

 Nei menu come faccio ad inserire delle linee per separare le opzioni? :P
RTFFFFM! :)
metti un - nella caption
--
Fibia "RTFM" FBI

 Fibia "RTFM" FBI
scusa scusa scusa..
Spieghi anche a me cosa significa RTFFFFM?
boh..
ciao :)

 ha scritto


letteralmente:
read the fffucking manual = leggiti il fffottutissimo manuale.
le molte f indicano non balbettamento ma superlativo assolutissimo.

 le molte f indicano non balbettamento ma superlativo assolutissimo.
ahahah :)
(ero tentato a rispondere con un bel rotfl, ma non voglio
espandere il thread :)
ciao, Assa.

 ha scritto nel messaggio
news:9m6iaj$l8mi$1...@ID-60516.news.dfncis.de...


 Stephen
tutti non so se sia possibile, e finche' non ho il temp di pulire il db
c'e' pure qualcosa che non c'entra: pero' da me ne trovi 2-300k.
ciao, a.
ps: "snip" dubito sia un acronimo.
--
andrea....@tin.it
http://www.comune.modena.it/cittadini/apal

 SNIP
l'hanno postato qualche mese fa :)
--
Fibia "Service Bot" FBI

 l'hanno postato qualche mese fa :)
se vuoi lo riposto:
 Directory di C:\html\sundaysw
27/06/2001  17.53               32.795 abbs_line.html
poi pero' alle proteste sul post rispondi tu :)
in effetti 272k e' quello degli emoticons.

 poi pero' alle proteste sul post rispondi tu :)
che fai mi sfidi? :P



A che ci serve un glossario?
Abbiamo già Pal...      :P
ciao
ugo

 Abbiamo già Pal...      :P
il "piccolo pal" !

 SNIP
se ti scarichi Babylon e il glossario internet hai tutti i significati di
questi acronimi :)



:D
ciao
ugo

 ha scritto nel messaggio
news:9m7ls1$qcor$1...@ID-51318.news.dfncis.de...


 Stephen
e' sul mio sito insieme all'altro.
ciao, a.

 questi acronimi :)
se c'è l'acronimo RTFM lo compro in giornata :D

Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizzare Icone di XP a 32Bit (Shadow Anti-Aliased) in Programmi VB

Salve Gente
Anche Utente Win2k Ogni Tanto Chiede Aiuto (cè Sempre da Imparare)
Mi espongo:
Noto, che i vari Programmi di Editor di Icone vedi ( Microangelo 5.5, Art
Icons Pro etc..)
Visualizzano Le Icone a 32 bit di XP in Modalità Anti-Aliased Shadow (pur
non lavorando con Windows XP)dunque l'icona risulta Perfetta (come in
windows XP)
Ho Provato in vb Con L'Api DrawIcon ma il Risultato Cambia Sensibilmente :
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X
As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA"
(ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As
Long) As Long
in un'evento :
Dim IconaXP&
Dim Istanza&
Dim IconaShadow&
Picture1.Cls
    IconaXP = ExtractIcon(Istanza, "Percorso IconadiXP32Bit.ico", 0)
    IconaShadow& = DrawIcon(Picture1.hdc, 0, 0, IconaXP)
Chiedo ora Se Qualcuno è a Conoscenza di un Controllo o Metodo per
Visualizzare ( Anti-Aliased XP Stile )
Codeste Icone in Qualche ImageList o Treeview o Pulsanti... visto che questi
editor di icone o vari programmi riescono
a visualizzarli
Grazie in Anticipo !!
By Utente Win2k

 a visualizzarli
ho visto qualcosa in planetsourcecode
"This app is nothing new but I only wanted to explain how to use those new
antialiased icons that comes with Windows XP. If you try to load a XP icon
file in a picturebox you will get an error message "Invalid picture", but
with extracticon and drawicon it works. It seems that extracticon only works
with 32x32 pixel icons... Tell me what you think or if you have a better way
doing this, please let us all know."
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=28323&ln
gWId=1
se non sbaglio è quello che vuoi tu, giusto?
Ciao


grazie Cmq, ma utilizza Drawicon come o già Provato.


Newsgroup: it.comp.lang.visual-basic
Titolo: Directory eseguibile

Come si fa a sapere la directory in cui si trova
il file eseguibile ? Se non sbaglio la funzione
CurDir, che indica la directory corrente, ha un altro
significato. Grazie mille.

 wrote in message 7q9kub$hur$1...@nslave1.tin.it...


directory_applicazione = app.path
Ciao!


Newsgroup: it.comp.lang.visual-basic
Titolo: MA IL SITO COMUNE NON VA?!?!?!?

ciao raga sto provando ad entrare sul sito ma non va?!?!? mi apre solo
l'intestazione-....... a voi va??
ciao fabry

 
Si, va. Funziona tutto.
Ciao, Metal_Lord
---------------
Su Mirc mi trovate qui:
#it.comp.software.p2p
#it_lang_vb
server: 
irc.azzurra.org

 l'intestazione-....... a voi va??
In effetti quando tentavo di aprirlo con il mio fido 56k, ci metteva
parecchio a caricare... penso che sia solo un problema di lentezza, il tuo.
Starla
Newsgroup: it.comp.lang.visual-basic
Titolo: connessione modem

salve a tutti , ho bisogno dsi un grosso aiuto da paarte di tutti voi!!!
devo creare un progetto  in cui possa inviare tramite VB dei messaggi su
cellulare, per far ciň dovrei creare:
1)una connessione automatica del modem alle ore....
2)inserire un textbox con il messaggio
3)collegarmi al numero del cenrto servizi
4)sparare il contenuto del textbox ai n° di cell impostati in un altro
textbox
5)disconnettermi in automatico una volta inviati i mex
datemi una mano sui comandi che devo utilizzare, sono in una crisi VB
profonda!!!!!
vi ringrazio a tutti
cordiali saluti

 5)disconnettermi in automatico una volta inviati i mex
Supponendo che i tuoi messaggi tu li paghi (non penso che li mandi gratis)
potresti registrarti (o far registrare il tuo cliente) al sito 
www.vola.it
dove puoi acquistare i messaggi da mandare (costano circa 140 vecchie lire
l'uno) e scaricarti un SDK con manuali, guiede, esempi e ocx per
implementare l'invio dei messaggi direttamente da visual basic con pochi e
semplicissime righe.
Il tutto è GRATIS e liberamente scaricabile
Naturalmente i messaggi li paghi.
Io ho risolto così per una applicazione che hanno 10 miei clienti ed
oltretutto ho comprato io i messaggi e poi li rivendo a loro come
sub-account e quindi ci guadagno anche su!!!!
Fatti un giro sul sito e consulta i link VOLA SDK e VOLA RESELLER
Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Controlli contenitori

Ho letto in rete, che la PictureBox è pesante da usare come contenitore e 
qualcuno consigliava di fare un UserControl contenitore.
Ho fatto una prova: due form con 5 controlli ciascuno (commandbutton e 
textbox) inseriti rispettivamente su una Picturebox e su uno usercontrol 
contenitore.
Salvate le form, sono identiche come dimensione 3Kb ciascuna.
A questo punto volevo capire cosa si intende per "Pesante".
Grazie Carmelo

 Ho letto in rete, che la PictureBox č pesante da usare come

"Pesante" in termini di prestazioni al momento di caricare il form... ma 
devi avere molti controlli per iniziare ad accorgertene.
Comunque, utilizzare uno Usercontrol puň essere auspicabile per tutta una 
serie di motivi legati prevalentemente al codice (incapsulamento, 
riutilizzo, etc..).
Se questi motivi sono secondari nel tuo caso, č invece probabilmente piů 
"leggero" un semplice controllo Frame, magari con BorderStyle=None.
Bye
Raf 

"Rafunk"

ricordarsi solo, chi tiene al look, che option check e altro di vb6 dentro 
un frame -- in xp, con .manifest e chiamate apposite, risulteranno in sfondi 
neri con testo nero, e che io sappia non c'e' pezza.
m'e' toccato ritoccare alcuni prog e sostituire i frame (fra l'altro piu' 
eleganti da vedere, oltre che piu' leggeri), con dei picbox bordo=0 per 
riuscire a leggere le caption di option &c. e al tempo stesso tenerli 
raggruppati, il che per gli option e' importante.
in vista ancora non li ho provati, ma a sto punto se posso evito gia' in 
partenza.
ciao, a.

 ciao, a.
Ciao 

 non presenta problemi con gli XP themes.
rispetto il tuo punto di vista, ma non ho mai amato molto gli ocx esterni 
nemmeno in com, e in previsione di net cerco di usarli ancora meno che 
posso. tanto meno per una questione solo estetica. un pic piatto va benone.
ciao, a.

 ciao, a.
Bye 

 non presenta problemi con gli XP themes.
A proposito di XP themes, come si puň fare per il DTPicker, ho notato che 
non ne vuole sapere dei temi XP.
Carmelo
Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e ODBC

Qualcuno sa come creare una fonte dati ODBC da codice Visual Basic 6 ?
GRAZIE

Public Sub setodbc()
Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
' Crea la stringa di keyword.
strAttribs = "Description=" _
        & "SQL Server" _
        & Chr$(13) & "OemToAnsi=No" _
  & Chr$(13) & "SERVER=server_sql" _
  & Chr$(13) & "Database=nomedb" _
' Crea un nuovo DSN registrato.
rdoEngine.rdoRegisterDataSource "nomedsn", _
         "SQL Server", True, strAttribs
End Sub

 wrote in message
news:7tk53v$g2q$1...@serv1.iunet.it...


Qualche giorno fa un certo Cristiano Larghi aveva postato un msg per creare
un DNS da codice. Era il seguente:
Dim en As rdoEnvironment
Dim cnTest As rdoConnection
Dim strAttribs As String
' Crea la stringa di keyword.
strAttribs = "Description=" & "SQL Server" & Chr$(13) & "OemToAnsi=No" &
Chr$(13) & "SERVER=212.131.133.8" & Chr$(13) & "Database=SatGames"
'Crea un nuovo DSN registrato.
rdoEngine.rdoRegisterDataSource "SatGames", "SQL Server", False, strAttribs
Io ho dei problemi con questo codice, perchč quando lo eseguo mi dŕ l'errore
429 "Il componente ActiveX non puň creare l'oggetto."
Nel progetto ho incluso la libreria "Microsoft Remote Data Object 2.0".
Se c'č ancora Cristiano da qualche parte, mi dai una mano?
Giro la mia richiesta a chiunque ne capisca piů di me!!!
Damiani Igor
ico...@simcity.it

GRAZIE PER I CONSIGLI !!
Che io sappia non si puň fare con ADO.
Ho trovato anche questa libreria:
Public Sub CreaDsn()
Dim retval As Boolean
Dim MyDsn As New OdbcRegTool
Dim strDriver As String
Dim strDsn As String
strDriver = "SQL Server"
strDsn = "DSN=NomeDsn" & vbNullChar & "Description=DescrizioneDsn" &
vbNullChar
strDsn = strDsn & "Server=NomeServer" & vbNullChar
strDsn = strDsn & "DATABASE=NomeDatabase" & vbNullChar
retval = MyDsn.CreateDSN(strDriver, strDsn)
End Sub
Inoltre c'č un modo con le API di ODBC che potete trovare nell'MSDN(cercate
SQLConfigDataSource).
In entrambi questi metodi, perň , non sono riuscito a passargli UID e Pwd.
Il metodo RDO č il piů efficace ma troppo pesante per uno che usa ADO ed č
costretto a portarsi anche quelle librerie.Preferisco
passare UID e PWD da codice usando uno dei metodi da me indicati
Newsgroup: it.comp.lang.visual-basic
Titolo: Controlli ridimensionabili

Ciao a tutti,
Da qualche tempo sto tentando di fare un'applicazione che contenga un
controllo ridimensionabile in fase di esecuzione tramite il mouse (come le
due finestre di gestione risorse per intenderci), ma tutto quello che sono
riuscito a fare e' inserire il controllo coolbar (la barra dei pulsanti di
explorer) ma non e' il massimo.
Qualcuno puo' suggerirmi qualcosa per risolvere il mio problema?
ciao
biXso

 ha scritto nel messaggio
news:XzPT5.38448$FV2.1...@news.infostrada.it...

Prova a cercare "splitter", mi sembra ci sia un ottimo esempio anche sul
sito del Ng.
ciao
ugo

 wrote in message
8volsp$93h$1...@lacerta.tiscalinet.it...


 wrote in message
sshU5.49914$FV2.1...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampare su altre stampanti

Vorrei selezionare da programma e stampare su stampanti diverse da qualla
predefinita con VB6.
Facendo le prove, con for each x in printers si seleziona la stampante ma
č solo in lettura mentre con command dialog e con la finesta stampanti č
possibile mettere come predefinita un'altra stampante.
Esiste una soluzione o bisogna aquistare VB .net 1.0 o VStudio .net 2.0?
Grazie
Daniele
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

se può essere utile, io ho risolto così:
Public Sub setPrinterDefault(STAMPANTE As String)
Dim X As Integer
For X = 0 To Printers.Count - 1
If Printers(X).DeviceName = STAMPANTE Then
Set Printer = Printers(X)
X = SetDefaultPrinter(Printer)
Exit For
End If
Next X
End Sub
nel modulo:
Const HWND_BROADCAST = &HFFFF&
Const WM_WININICHANGE = &H1A
Declare Function SendMessageByString Lib "user32" Alias "SendMessageA"
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal
lParam As String) As Long
____
Public Function SetDefaultPrinter(objPrn As Printer) As Boolean
    Dim X As Long, szTmp As String
szTmp = objPrn.DeviceName & "," & objPrn.DriverName & "," & objPrn.Port
    X = WriteProfileString("windows", "device", szTmp)
    X = SendMessageByString(HWND_BROADCAST, WM_WININICHANGE, 0&,
"windows")
 
End Function
____

 ....
Grazie per la risposta, proverň domani sera


Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con MSHFlexGrid

Salve a tutti,
Sto facendo un'anagrafica clienti ed utilizzo ADO per la connessione al
database ed MSHFlexGrid per visualizzare i dati in una griglia.
Domanda 1:
In particolare in questo momento sto facendo il bottone di cancellazione
utente con il seguente codice:
Private Sub elimina_Click()
strMessaggio = griglia.TextMatrix(griglia.Row, 3) & vbCrLf & "Confermi
l'eliminazione?"
If MsgBox(strMessaggio, vbYesNo + vbExclamation, "Eliminazione record") _
= vbYes Then
Sql = "DELETE * from clienti WHERE ID = " & griglia.TextMatrix(griglia.Row,
0)
cnAdoTutor.Execute (Sql)
griglia.Refresh
End If
End Sub
La cancellazione viene effettuata, l'unico problema è che la griglia non
viene aggiornata automaticamente (anche se ho usato griglia.Refresh che
credo serva a quello). Come faccio ad aggiornare la griglia in modo
automatico?
Domanda 2:
Esiste la possibilità abilitare l'utente alle modifiche direttamente sulla
griglia come ho visto accade per altri tipi di griglie?
Grazie
Vincenzo

 griglia come ho visto accade per altri tipi di griglie?
Per quella griglia, no. In genere si adotta un artificio: Si prevede nel
form un TextBox normalmente invisibile. Alla bisogna lo si
posiziona/dimensiona sulla cella e lo si rende visibile, dandogli il fuoco.
Si attende l'input dell'operatore, lo si valida e si nasconde nuovamente il
TextBox, elaborandone poi adeguatamente il contenuto impostato.


    devi gestire da codice quello che vuoi fare negli eventi
keydow/keyup/keypress...


Solo con griglie già programmate.
Newsgroup: it.comp.lang.visual-basic
Titolo: rollover

Non sono riuscito ha trovare un evento tipo OnMouseOut
Un evento che si attivi quando il mouse esce da un oggetto.
Questo tipo di evento è indispensabile per realizzare un rollover.
Facciamo un esempio:
immaginiamo di avere un oggetto picture, che ha un'immagine A
nella proprietà picture, quando passo sopra l'oggetto con il mouse
voglio che l'immagine cambi es: immagine B, quando esco torni
l'immagine A. l'evento di entrata lo posso intercettare con
l'evento MouseMove, ma l'uscita?
Ho provato ha risolvere usando l'evento MouseMove del form,
e questo funziona, ma se ho più oggetti su cui fare rollover?
In questo caso ho provato ad usare dei flag, la cosa funziona ma è
estremamente macchinosa,
ho tentato anche ad usare gli argomenti X e Y della sub picture_MouseMove()
controllando quando il puntatore va fuori dei limiti dell'oggetto, mi
funziona solo
con l'argomento button  = 1 ossia tenendo il pulsante del mouse spinto,
ma senza toccare i pulsanti non funziona.
Insomma come devo fare per realizzare un semplice rollover?
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] ASP e Windows 98SE

Scusate l'OT raga, ma sugli altri NG nemmeno mi hanno caXato di striscio,
invece sul NG apposito per ASP il moderatore dorme!
Che voi sappiate, esiste una qualche patch per portare l'ASP di Personal Web
Server di Win98SE alla versione 3 visto che non supporta comandi ormai
strautilizzati come Server.Execute? O esiste qualche web server free che
supporta tali metodi?
Saluti a tutti e riscusasse! ;)

strautilizzati come Server.Execute? 
Installare windows 2000.
-- 
ciao, hal

 ha scritto nel messaggio
news:a4qven$12m$1...@newsreader.mailgate.org...

O mettere su Apache col modulo ASP :-P
Ciao
--
Timothy Redaelli

Newsgroup: it.comp.lang.visual-basic
Titolo: silent print pdf

č possibile da visual basic?
grazie ciao stefano

 
http://www.ghostscript.com/article/26.html
Sempre che io abbia inteso cosa sia "silent print pdf"
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 è possibile da visual basic?
Puoi fare una Shell e lanciare il Reader (o l'Acrobat completo)
con i parametri giusti sulla linea di comando. Info qui:
http://support.adobe.com/devsup/devsup.nsf/docs/51412.htm
Bye, G.

 
http://support.adobe.com/devsup/devsup.nsf/docs/51412.htm
Magari qualcosa di fresco fresco c'è anche qui ;-)
http://support.adobe.com/devsup/devsup.nsf/docs/52080.htm
-- 
Ale
La RFD originale per it.comp.dotnet su
http://www.sen.it/stoa/articles.asp?id=10
Se vuoi discuterne, vai su it.news.gruppi

 
http://support.adobe.com/devsup/devsup.nsf/docs/52080.htm
Product  Acrobat  Version  4.05, 5.05
Last Edited 27-Jan-2003  Document 52080
'mplimenti, più fresco di così... :-))
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Live demo di un programma

Mi hanno chiesto di animare una demo di un mio programma.
Il programma verra' installato in una specie di chiosco e dovra' 
simulare le varie funzionalita'.
Mi chiedevo se esiste un modo semplice per integrare l'applicazione con 
qualcosa che effettui spostamenti di mouse, click, doppio click, 
inserimento di testo, senza dover creare un'applicazione parallela.
O mi conviene usare powerpoint?
grazie
	maxx

 ha scritto nel messaggio 
news:BPcXe.33852$nT3....@tornado.fastwebnet.it...


 ha scritto nel messaggio
news:BPcXe.33852$nT3....@tornado.fastwebnet.it...

DI solito per queste cose si usa DemoShield o MacroMedia DIrector, ma temo
che siano un po' costosi.
Probabilmente però è sufficiente uno dei tanti registratori di "macro"
(molto più economici): addirittura alcuni consentono di compilare in un EXE
standalone le sequenza di click e move registrate...
http://www.download.com/3120-20_4-0.html?qt=macro+recorder&tg=dl-20
http://downloads-zdnet.com.com/3120-20-0.html?qt=macro+recorder&tg=dl-2001
Bye
Raf

 Mi hanno chiesto di animare una demo di un mio programma.

Se non serve niente di eccezionale Wink è gratuito e niente male (ci vuole
solo un attimo a capire come funziona).
Salva la demo in flash (con una pagina html contenente il codice necessario)
o mi pare in Wmf.
Ciao
--
Reporting tool: 
http://www.neodatatype.net

Vedere se questo software può aiutarla:
http://www.sameshow.com


Io ti consiglio Macromedia Captivate (ex RoboDemo). E' un po' costoso ma di
tutti quelli che ho provato e' sicuramente il migliore.
Crei il tuo demo con possibilita' di inserire tooltips, commenti, ecc. ecc.
Alla fine ti genera un comunissimo filmato Flash
-- 
Fabio
http://www.codice.it

See Demo:
http://www.sameshow.com/SameShow/shell.swf
Newsgroup: it.comp.lang.visual-basic
Titolo: Ho dei problemi con JIT

Spero davvero che qualcuno possa aiutarmi perchè sto avendo dei problemi con 
Visual Studio 2005 e nella fattispecie con il debugger Just-in-Moment (JIT). 
Il problema è che ogni volta Nero Vision o altri software dello stesso 
genere tipo Cyberlink PowerDirector si presenta una finestra del suddetto 
Debugger che mi impedisce di proseguire con il mio lavoro e non so cosa fare 
perchè non conosco Visual Studio e non so precisamente come utilizzare il 
Debugger. Forse fra qualche tempo mi dedicherò a questo software ma per 
adesso non mi serve e vorrei disinstallarlo in maniera radicale. In verità 
ho già provveduto a disinstallare Visual Studio immaginando di disattivare 
anche JIT, invece ho riscontrato che non è così.
Suggeritemi cosa fare. Il mio intento sarebbe quello di Disinstallare 
VisualStudio e tutte le sue funzioni. Vi prego di suggerirmi la giusta 
procedura ed eventualmente ditemi se c'è un tool di disinstallazione.
Vi ringrazio anticipatamente.
Mario 

 ha scritto nel messaggio 
news:g26jb3$dmj$1...@tdi.cu.mi.it...

ma questo jit è il diavolo? Nemmeno qui posso avere una mezza risposta?
Mario 

 ha scritto

se ho capito -- su 2000, xp e vista mi sembra che se installi 
vs.net
, quando 
un programma x da' errore invece di dire "ha smesso di funzionare" o simili 
win ti chiede se vuoi vederlo con vs. una scemenza tiicamente microsoft, ma 
basta dire no. oppure sostituire al debugger di vs il classico dr watson. 
non risolve nulla lo stesso, ma almeno non lancia l'ide di vs. da qualche 
parte ci avevo provato, poi ho visto che faccio prima a cliccare "no, 
grazie". direi mi sia capitato anche oggi con la rc1 di firefox3, che a 
vista non piace granche'.
prima di disinstallare vs, prova a cercare tipo:
http://www.google.it/search?q=visual+studio+debugger+dr+watson&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:it:official&client=firefox-a
ciao, a.

 risposta? Mario
Segui le istruzioni indicate in questo articolo della KB:
Unhandled exceptions are caught by the Visual Studio JIT debugger instead 
of Dr. Watson or a third-party debugger after you install certain versions 
of SQL Server 2005
http://support.microsoft.com/kb/923827/en-us/
Saluti
-- 
Gianluca Cannalire
Microsoft MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca
 

 
http://support.microsoft.com/kb/923827/en-us/
COSI' NON VALE!
GLI TOGLI TUTTO IL PIACERE DI CERCARE! :)
POI FINISCE CHE COMPRA UN MAC! :P
ciao, a.

andrea palazzi wrote:

Hai ragione... ma è un po' che non frequento i ng ed ho perso la mano 
:)))))
Ciao Andrea... è un piacere vederti sempre attivo!


 Ciao Andrea... è un piacere vederti sempre attivo!
ciao gianluca. attivo per modo di dire. tu puoi capirmi meglio di altri. 
diciamo che il casino consiglierebbe 
arca-di-noe.net
 :)
e grazie per le ml di vb-it. sempre preziose, quando riesco a leggere.
stai bene, a.
Newsgroup: it.comp.lang.visual-basic
Titolo: programma DOS da VB

Ciao, dovrei richiamare un programmino DOS (Tracert.exe) da Visual Basic.
Il prog. DOS riceve un parametro di INPUT, lo elabora, e restituisce un
OUTPUT.
Ora chiedo....
1) come si fa a passare un parametro ad un prog. DOS?
2) come si fa a "catturare" l'output del prog. DOS e a mostrarlo in una
textbox in VB?
Ah... se conoscete qualche sito dove posso trovare la documentazione DOS,
programmi batch, etc.. mi fareste un enorme favore se lo segnalate!
Ciao, go niusgrup

1) basta eseguire (shell) tracert tuoparametro
2) E' un casino assurdo; fatti una lettura di questo esempio (e auguri
vivissimi)....
http://www.codeguru.com/cgi-bin/bbs/wt/showpost.pl?Board=vb&Number=9580&page
=&view=&sb=
Secondo me ti conviene reindirizzare l'output in un file (tracert
tuoip>>tuofile) e poi leggerti il file ed estrapolare il risultato; meno
"bello" ma moooooolto più semplice.

 wrote in message
W7qM6.11882$iC1.4...@news6.giganews.com...


 in Visual Basic...."
ti ricordi l'url, p.f. ?
grazie, a.

http://www.gsei.org/
poi da li devi frugare.... guarda anche nel forum....

 poi da li devi frugare.... guarda anche nel forum....
grazie, trovato l'esempio.
sito interessante.
anche se e' qualche decennio che non gioco :))
ciao, a.

Newsgroup: it.comp.lang.visual-basic
Titolo: Database archivio in VBnet2013

Ciao 
 
AIUTO....
ritorno alla carica perché sto ancora cercando da tempo una sorgente completa per farmi un archivio dati MDB (o altro sistema) da poter poi ampliare a mio piacere con campi e record. 
 
Non sono molto pratico e non riesco a trovare una sorgente per VB2013 che mi funzioni e zioGoogle mi ha trovato solo qualche info non sufficienti per le mie "incapacità". 
 
Su VB6 mi andava tutto ma ormai col VB6 ci rinuncio viste le incertezze di compatibilità... e sto riprovando col VB2013. 
 
Qualche link o semplice esempio disponibile con sorgente per VB2013 (ma almeno completo e funzionante)? 
 
GRAZIE a chi potrà aiutarmi ma anche a chi non lo potrà fare!!!! 
Anto

Qualche sito da cui partire:
http://www.codeproject.com/search.aspx?q=ado.net&x=13&y=7&sbo=kw&categoryid=
 
 
http://www.homeandlearn.co.uk/NET/nets12p1.html
 

Newsgroup: it.comp.lang.visual-basic
Titolo: Sto printer....

Raga, premetto, VB5 SP3,
Ma com'e' che non mi va la proprieta'
	Printer.FontTransparent
Posso metterla a TRUE tutte le volte che voglio ma non ha effetto.
Mi ha fatto IMPAZZIRE!
in verita' ho risolto, usando l'API equivalente ( SetBkMode() ), ma la cosa
mi da fastidio. Dico, siamo al SP3 e ancora ci sono problemi sull'oggetto Printer!
-- 
Hi, Ciao
Ettore                 By -MES-
http://freeweb.aspide.it/freeweb/ilmes
Il sito comune di programmatori VB
http://members.xoom.com/it_lang_vb

Ti prego, postami un esempio con SetBkMode(), ho lo stesso stramaledetto
problema...
(come sai xoom per me č off limit... sigh!)
By


Ciao Fabio,
Eccolo:
Declare Function GetBkMode Lib "gdi32" (ByVal hDC As Long) As Long
Declare Function SetBkMode Lib "gdi32" (ByVal hDC As Long, ByVal nBkMode As
Long) As Long
Const OPAQUE = 2
Const TRANSPARENT = 1
Esito = SetBkMode(Printer.hDC, TRANSPARENT)
Printer.Print Attr.Stringa;
Io per andare sul sicuro lo faccio prima del Print, a me non pasa inquanto
tutte le mie routine
fanno capo alla stessa funzione per fare Print sulla stampante.
Bun Lavoro.
(Per Xoom, lamentati col tuo provider... Magari ti sistema le cose....)
Ciao,
Ettore Dal lavoro.

Newsgroup: it.comp.lang.visual-basic
Titolo: carattteri a spaziatura fissa

Come devo fare per utilizzare un carattere a spaziatura fissa (es: per
stampare un conto corrente postale centrando le rispettive caselle)in un
report di access?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 un report di access?
non lo farei con un font a spaziatura fissa e non lo farei con access.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo

 non lo farei con un font a spaziatura fissa e non lo farei con access.
Quale altra alternativa?


 non lo farei con un font a spaziatura fissa e non lo farei con access.
O, quantomeno, non lo chiederei in un NG di VB...
Alberto
--
"Non mi sembra piů granda del Delfino..."
"A partir dal fat che la merda liquida
l'as drisa gnan a puntlarla,
cňsta chě l'č piň granda, gnuranta."

 Quale altra alternativa?
beh...
dato che siamo in un ng che tratta di visual basic, come faceva gentilmente
notare alberto, utilizzerei vb, ed in specifico l'oggetto printer, che
tramite le proprietà currentx e currenty permette di stampare una stringa in
una posizione arbitraria del foglio.
se non ricordo male access (è un po' che non lo frequento), in tale ambiente
non era possibile fare una cosa del genere, ti ci potevi avvicinare
posizionando con attenzione i controlli label o text sui report.
hth

Newsgroup: it.comp.lang.visual-basic
Titolo: Oggetto printer e controlli

Ho un problema abbastanza grosso che non riesco proprio a risolvere.
Msdn Visual Studio 6.0 dice :"Nell'oggetto Printer è possibile inviare
l'output del metodo Print e dei metodi grafici quali Line o PSet, ma non
inserirvi i controlli direttamente. Per poter stampare dei controlli, è
necessario utilizzare il metodo PrintForm oppure scrivere routine che
ridisegnino ogni singolo controllo sull'oggetto Printer."
Poichè non voglio stampare un form intero, qualcuno potrebbe gentilmente
indirizzarmi (o darmi una dritta) su come scrivere una routine che ridisegni
il contenuto di un controllo sull'oggetto printer?
Grazie in anticipo a chiunque mi risponderà.
Per favore mi rispondete direttamente sul NG. Arigrazie :-)

...


 wrote in message


prova a vedere PrnPrv3
e nel sito comune o da me...
è una libreria, solo codice bas e due form...
http://www.chiappori.net
--[GbC]--
Newsgroup: it.comp.lang.visual-basic
Titolo: Qualcuno sa dirmi qualcosa su VBL?

Ciao e scusate l'intromissione (sono un ing. civile, non sono un
programmatore).
Spero che qualcuno di voi possa aiutarmi:
mi č capitato sottomano un listato di un programma di calcolo strutturale; a
vederlo da inesperto sembrerebbe basic (io ho programmato solo in qbasic) e
in una lettera che lo accompagnava si parlava di un "programma VBL".
(Trattasi di roba di 5-6 anni fa, scritta in caratteri simili a quelli del
DOS).
Avrei bisogno di sapere di che interprete o compilatore si tratta ed
eventualmente se posso trovarlo in rete.
Grazie in anticipo a chi saprą aiutarmi!
Nicola

 ha scritto nel messaggio
news:9uov3f$caa$1...@geronimo.keycomm.it...

Prova a scrivere qualche riga del codice magari possiamo aiutarti

    Ciao e scusate l'intromissione 
(sono un ing. civile, non sono un
    
programmatore).
    Spero che qualcuno di voi possa 
aiutarmi:
    mi è capitato sottomano un listato di un 
programma di calcolo strutturale; a
    vederlo da inesperto 
sembrerebbe basic (io ho programmato solo in qbasic) e
    in 
una lettera che lo accompagnava si parlava di un "programma 
VBL".
    (Trattasi di roba di 5-6 anni fa, scritta in 
caratteri simili a quelli del
    
DOS).
    Avrei bisogno di sapere di che interprete o 
compilatore si tratta ed
    eventualmente se posso trovarlo 
in rete.


 


Intanto grazie a Fox Mulder per la 
risposta.


 


Ecco un estratto del codice:


 


5 ON ERROR GOTO 8
6 
LOADBIN "GDUMP"
8 OFF ERROR
10 PRINTER IS 701,80 @ RIP=0
15 ON KEY£ 
1,"NEW DATA" GOTO 3930
20 PRINT CHR$ (27);"C";CHR$ (66);
30 PAGESIZE 
24
40 DIM A$[35]
50 LORG 1
60 CLEAR
70 PRINT CHR$ (27);"!";CHR$ 
(24);
80 DISP " SOLAIO CALCESTRUZZO     DENOMINAZIONE 
SOLAIO";@ BEEP 40,100


90 INPUT A$
100 PRINT 
USING 110 ; A$
110 IMAGE "SOLAIO CALCESTRUZZO denominazione 
solaio:    ",K
120 GCLEAR
130 MOVE 20,90
140 DRAW 63,90 
@ DRAW 63,85 @ DRAW 20,85 @ DRAW 20,90
150 MOVE 37,82


 


(...)


 


595 IF RIP=1 THEN 1135 ! 
CONTROLLO RIPETIZIONE DATI SIMILI **********
600 LABEL "LUCE DELLA 
TRAVE  [CM]  " @ BEEP 10,100
610 INPUT L
620 GCLEAR 30
630 
MOVE 15,20
640 LABEL "LARGHEZZA DELLA TRAVE   [CM]" @ BEEP 
10,100


 


(...)


 


1830 DISP USING 1840
1840 
IMAGE ///
1850 DISP " INTRODUCI IL DIAMETRO DEL FERRO SCELTO [MM] " @ BEEP 
10,100
1860 INPUT FIM+


 


(...)


 


2190 LINE TYPE 6
2200 MOVE 
160,45
2210 DRAW 160,10
2220 LINE TYPE 4


 


(...)


Grazie a chi saprà 
aiutarmi.


 


Nicola

Newsgroup: it.comp.lang.visual-basic
Titolo: Ciao Re

ti ho già mandato una e-mail dove ti ho spiegato il mio problema
(sunto)
a causa della mia givane età non riesco a capire i tuoi discorsi avanzati ti
chiedo gentilmente di portare degli esempio su quello che mi spieghi
grazia
ciao da Andrea 85

chiedo gentilmente di portare degli esempio su quello che mi spieghi
volentieri se ti riaccodi al thread che avevi iniziato ! :)
non ho voglia di spulciare i post a cercare quello a cui ti riferisci.
tu sei giovane ed hai energie da spendere, io no ;-)
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto!! .. levare icone ???

Qualcuno sa dirmi come faccio a levare una cartella
e relative icone dal menů programmi ???
ho visto come  creare le icone e il gruppo ma non come toglierlo.
grazie a tutti.
ciao, alessandro

Scopri la dir "Programmi" e poi usa Kill.....
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
Home Page - 
http://www.geocities.com/SiliconValley/Bridge/1414/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------
Newsgroup: it.comp.lang.visual-basic
Titolo: conversione da word a html

Qualcuno è in grado di dirmi come è possibile fare in
modo che, avendo una directory che contiene dei file
word, questi vengano periodicamente convertiti in
automatico in file HTML? E in file .pdf?
=====
__________________________________________________
Do You Yahoo!?
Bid and sell for free at 
http://auctions.yahoo.com
--
Posted from 
web116.yahoomail.com
 [205.180.60.89]
via Mailgate.ORG Server - 
http://www.mailgate.org


E aggiungo: e in file .jpg o bmp
ciao
gna

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per PRINTER

Ciao a tutti,
ho realizzato una mia applicazione ed ora vorrei che stampasse le stringhe
contenute nei text.box della form.
La stampa dovrebbe riuscire ad allineare alcune colonne tipo:
M    AM    AT
8     50      60
ma non conosco bene l'oggetto Printer e non so nemmeno se questo è il modo
adatto per realizzare ciò di cui ho bisogno.
Vorrei anche sapere come cambiare i font di una stringa che si passa a
Printer.
Ringrazio da ora chiunque saprà darmi una mano.
--
THE_1PUNISHER
cybermaster
IHGGER #604
Se sei un appassionato di GdR visita
la Locanda da Tobas
http://gilda.it/locanda_da_tobas

L'oggetto Printer segue le stesse regole della funzione Print.
Per stampare una stringa:
printer.print stringa$
o un valore
printer.print valore
Qundi valgono anche tutte le funzioni che sono relative alla funzione Print,
come Spc o Tab (guarda la guida):
printer "ciao"; spc(3) ; "ciao"; tab(10); "ciao"
Per settare i font:
Printer.fontname = "Arial"
Printer.font.bold = true
eccetera.
Si hanno poi i metodi:
Printer.newpage 'per avanzare di una pagina
Printer.enddoc   'per terminare la stampa (va sempre messo alla fine delle
operazioni di stampa)
ed altri ancora.
In ogni caso, cerca nella guida l'oggetto Printer.
Nel tuo caso potresti scrivere:
printer.font.bold=true
printer.print "M"; tab(5) ; "AM" ; tab(10); "AT"
printer.font.bold=false
printer.print
printer.print "8"; tab(5); "50"; tab(10); "60"    'Qui puoi fare un ciclo
per mettere tutti i valori
....
....
....
printer.enddoc


Grazie, Grazie, Grazie
a buon rendere!

Newsgroup: it.comp.lang.visual-basic
Titolo: [LEONARDO][REPORT] Progetto in costruzione

1) Programma di interfaccia utente che consente di disegnare il report almeno per quello che riguarda la parte
unbound.
DOMANDA: ma i campi del database come influiscono
su questo ???
2) Strumento che prende il file creato al punto 1, gli si passa il recordset relativo ai dati da stampare e genera
un file di testo da mandare in stampa
3) Strumento che si occupa di lanciare il file generato al
punto 2
Criticate e ditemi la vostra !!!!!
NB: Che ne pensate di creare un documento relativo
alle idee che vengono accettate per il progretto da
postare nel NG (tipo MANIFESTO) che viene continuamente aggiornato dalla persona che coordina ????
Io Torno lunedě Rispondetemi in quel giorno altrimenti
in 2 giorno di non controllo del NG potrei non trovare piů niente !!!!
Ciao
Marco Zamagni
Registrati a 
www.genie.it
 e scopri i servizi SMS gratuiti!
-- 
Posted from [194.73.242.4] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Marco Zamagni
Avanti, noi due abbiamo iniziato.. partecipate
/\/\/\/\/\/\/\/\/\/\/\/\/
|  Qui sul NG è nata una iniziativa:
|  Partecipa alla stesura di progetti VB sviluppati in team,
|  informati sul Sito Comune sezione Leonardo. Io
|  partecipo al progetto Data Raptor, alleati con noi.
\/\/\/\/\/\/\/\/\/\/\/\/\
Ciao
Ettore Maronese, il Mes
http://www.maronese.com/mes
Sito Comune di questo NG
http://www.murialdo.it/it_lang_vb

 un file di testo da mandare in stampa
[CLIP]
Waw, c'e' stata una grande partecipazione :-/, anzi, mica tanta, anzi,
davvero tanto poca.
 /\/\/\/\/\/\/\/\/\/
| Una iniziativa a livello di questo NG:
| Partecipa alla stesura di progetti VB sviluppati in team, informati sul
Sito Comune
| sezione Leonardo.  Io partecipo al progetto Data Raptor, alleati con noi.
 \/\/\/\/\/\/\/\/\/\
Ciao
