luglio 2005 - Posts
Da questo link http://blog.shareoffice.it/emanuele/articles/1036.aspx è possibile leggere un articolo e scaricare un esempio di come creare uno smart tag per Microsoft Word 2003 in Visual Basic .Net 2003.
Che dirvi.... buona lettura.
Tramite la segnalazione del mio amico alex, mi ha indicato la possibilità di ricevere gratuitamente a casa un dvd contenente i migliori webcast di msdn dell'anno. Da questo sito http://www.microsoft.com/italy/msdn/eventi/webcast/dvd.mspx è possibile compilare tale scheda.
Che dirvi... buona visione.
Questo trucco, illustra come chiudere un processo, o meglio un programma aperto in windows, supponiamo di voler chiudere tutti i programmi word, tramite il metodo kill della classe process possiamo ottenere tale risultato.
Di seguito si riporta un esempio di codice.
'oggetto processo
Dim PrcProcesso As System.Diagnostics.Process()
'ciclo per eliminare tutti i programmi word aperti.
Do
'Mi carico nell'oggetto processo tutti i "programmi" word
PrcProcesso = Process.GetProcessesByName("WINWORD")
'se l'ho trovto lo elimino
If (PrcProcesso.Length > 0) Then
'chiudo il programma
PrcProcesso(0).Kill()
'pausa perchè tra una chiusura e l'altra non fa in tempo ad aggiornare la proprietà lenght
System.Threading.Thread.Sleep(300)
End If
Loop While (PrcProcesso.Length > 0)
Da questo link http://blogs.devleap.com/emanuelem/articles/5404.aspx è possibile leggere un articolo conclusivo sulle novità di visual basic .net 2005. Le parole chiavi.
che dirvi... Buona lettura.
In questo sito http://www.experimentalscene.com/?type=1&id=regcompact è possibile scaricare un programma (compreso di sorgente) per deframmentare il registro del sistema operativo windows.
Che dirvi.... buona deframentazione
Il seguente trucco, illustra uno dei tanti modi, di come ricavare il nome ed il tipo di una colonna di una tabella..
Dim
strSql As String = "SELECT * FROM Employee"
'connessione
Dim strConn As String = "Server=localhost;Database=pubs;Trusted_Connection=True;" '"'"user id=sa;password=foo;initial catalog=northwind;data source=localhost;"
Dim conn As SqlConnection = New SqlConnection(strConn)
'eseguo la qery
Dim cmd As New SqlCommand(strSql, conn)
conn.Open()
'ricavo i dati
Dim DtrDati As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
'riempio l'oggetto datatabel con lo schema della tabella
Dim tblSchema As DataTable = DtrDati.GetSchemaTable
conn.Close()
DtrDati.Close()
Dim dr As DataRow
For Each dr In tblSchema.Rows
'visualizzo le varie colonne
MsgBox("Nome Colonna: " & dr("ColumnName").ToString & " Tipo: " & dr("DataType").ToString)
Next
Da questo link http://blog.shareoffice.it/emanuele/articles/792.aspx è possibile leggere un articolo intoduttivo su infopath .
Che dirvi.....buona lettura.
Questa volta vi segnalo due siti che permettono di convertire codice c# in vb.net ed una dll free per la compressione dei file.
da C# a Vb.Net
Qui c'è anche un programma da scaricare:
http://www.kamalpatel.net/ConvertCSharp2VB.aspx
Da C# a Vb.Net
http://authors.aspalliance.com/aldotnet/examples/translate.aspx
Classe Zip.
http://www.icsharpcode.net/OpenSource/SharpZipLib/Default.aspx
che dirvi... buon divertimento.
Oggi ho letto sulla newsletter Msdn della Microsoft, la possibilità di ricevere a casa gratuitamente due dvd.
Uno riguarda i migliori webcast di Technet e l'altro le demo, le presentazioni e i video degli interventi degli speaker della conference del 2004 ed il webcast di Bill Gates.
l'indirizzo dove registrarsi è il seguente
http://www.microsoft.com/italy/technet/eventi/dvd/default.mspx
che dirvi.... buona visione.
Qualora si ha la necessità di avviare una sola instanzia del programma, senza che venga aperto più volte il medesimo processo, dobbiamo utilizzare la classe process.
Di seguito si riporta un esempio.
Prima fase, bisogna creare una funzione (possibilmente nel modulo), questa funzione restituisce un valore boolean, che indica se è gia aperta un instanza (true) oppure no.
utilizzando il metodo getprocessesbyname, otteniamo quante instanze sono aperte. Di seguito si riporta una funzione di esempio, che restituisce true se sono aperte una o più instanze.
Function PrevInstance() As Boolean
If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0 Then
Return True
Else
Return False
End If
End Function
All'avvio del progetto (sub main a livello di modulo o form_load nella form) verifichiamo tramite la funzione appena creata se è aperta o no una instanza(true), se risulta vera, chiudiamo il programma tramite la parola chiave end di vb.net.
Di seguito si riporta tale esempio.
If PrevInstance() = True Then
End
End If
Vi segnalo questo programma free ed open source, il quale rappresenta un ambiente di sviluppo su tecnologia .Net, si può scaricare dal seguente link http://www.icsharpcode.net/OpenSource/SD/Default.aspx
Che dirvi.... buono sviluppo.
Vi segnalo questo articolo, su come bloccare la rotella del mouse in ambiente access, l'articolo è consultabile a questo indirizzo http://blog.shareoffice.it/emanuele/articles/556.aspx
che dirivi...buona lettura :-)))
Aprire il cassetto dell'unità cd-rom
Il trucco di oggi e come aprire il cassetto del cd o dvd del nostro computer, utilizzando l'api mciSendString
Apriamo un progetto Winapplication ed inseriamo nella form un pulsante, importiamo la classe per la gestione delle api ossia delle interoperabilità delle dll come riportato qui di seguito.
Imports
System.Runtime.InteropServices
Poi a livello dentro la classe della nostra form, inseriamo il seguente codice.
<DllImport("winmm.dll")> _
Public Shared Function mciSendString(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
End Function
Nell'evento click del pulsante scriviamo il seguente codice:
Dim
Strmssg, Strdriveletter As String
Dim ReturnValue As Long
Strdriveletter = "d:\"
ReturnValue = mciSendString("open " & Strdriveletter & _
" Type cdaudio Alias cd", Strmssg, 255, 0)
ReturnValue = mciSendString("set cd door open", _
vbNullString, 0, 0)
'chiudo il cd
ReturnValue = mciSendString("close cd", 0&, 0, 0)
In questo sito si può scaricare un file pdf o word con esempi su .net
http://www.skilldrive.com/
Qualora si vuole rendere la propria applicazione più accattivamente in fatto di grafica, si potrebbe aggiungere una finestra Splash, quste finestre hanno il compito di visualizzare un immagine all'utente, prima che il programma venga avviato, di solito si usa per verificare la connessione con database ed eseguire query, ma a volte possono tornare utili per rendere il nostro programma più accattivante.
Inserire nel progetto WindowApplication due form una con il nome scree e l'altra main, quest'ultima sarà la finestra del programma, la finestra Screen, avrà al suo interno una label per il titolo del progrmma ed un controllo image, il quale conterrà un immagine.
Inserire nel progetto un modulo ed inserire il codice riportato qui di seguito.
La funzione Sub Main verrà richiamata all'avvio del progetto, per impostare la funzione Main come progetto di avvio, bisogna entrare nelle proprietà del progetto, (tasto destro del mouse sul nome del progtto e scegliere la voce proprietà) aperta la finestra delle proprietà, selezionare la voce generale, impostare nella voce progetto di avvio, la dicitura sub main. Il codice è semplice, avvio la finestra, il metodo refresh mi permette di Visualizzare la form, il metodo sleep della classe thread, mi crea una pausa ("dorme...beato lui :-)) " ) di 3 secondi al processo. il metodo run della classe application mi avvia la form principale.
Module
MdlDichiarazioni
Sub main()
'form splash
Dim FrmAvvio As New Screen
FrmAvvio.Show()
FrmAvvio.Refresh()
'la fermo per 3 secondi
System.Threading.Thread.Sleep(3000)
'chiudo la form
FrmAvvio.Close()
'Avvio la form princiaple
Application.Run(
New Form1)
End Sub
End
Module
More Posts
Next page »