VB.Net

Imports System.IO

Imports System.Data.SqlServerCe

Imports System.Data

C#

using System.Data.SqlServerCe;

La creazione del database, avviene nell’evento click di un pulsante inserito precedentemente.

VB.Net

  Private Sub BtnCreaDB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCreaDB.Click

        Dim conDati As SqlCeConnection

        Try

            ‘elimino eventualmente il db creato

            System.IO.File.Delete(“\My Documents\Miodb.sdf”)

            Dim SQLEngine As New SqlCeEngine(“data source=\My Documents\Miodb.sdf”)

            SQLEngine.CreateDatabase()

            ‘ mi connetto al db

            conDati = New SqlCeConnection(“Data Source=\My Documents\Miodb.sdf”)

            conDati.Open()

            ‘Creazione di un tabella

            Dim SQL As [String] = “CREATE TABLE MiaTabella (ID int Primary Key “ + “NOT NULL,Nome nvarchar(50) NOT NULL)”

            Dim cmdDati As New SqlCeCommand(SQL, conDati)

            cmdDati.CommandType = CommandType.Text

            cmdDati.ExecuteNonQuery()

            SQL = “”

            ‘Inserisco i dati

            SQL = “INSERT INTO MiaTabella (ID, Nome) VALUES “ + “(’0′,’Emanuele’)”

            cmdDati.CommandText = SQL

            cmdDati.ExecuteNonQuery()

            SQL = “”

            SQL = “INSERT INTO MiaTabella (ID, Nome) VALUES “ + “(’1′,’Emanuele2′)”

            cmdDati.CommandText = SQL

            cmdDati.ExecuteNonQuery()

            SQL = “”

            SQL = “Select * from  MiaTabella “

            cmdDati.CommandText = SQL

            Dim rdrDati As SqlCeDataReader = cmdDati.ExecuteReader()

            While rdrDati.Read()

                MessageBox.Show(rdrDati.GetString(1))

            End While

        Catch ex As SqlCeException

            MessageBox.Show(ex.Message)

        Finally

            conDati.Close()

        End Try

C#

private void btnCreaDB_Click(object sender, EventArgs e)

        {

            SqlCeConnection conDati = null;

            try

            {

                //elimino eventualmente il db creato

                System.IO.File.Delete(@”\My Documents\Miodb.sdf”);

                SqlCeEngine SQLEngine = new SqlCeEngine(“data source=” + @”\My Documents\Miodb.sdf”);

                SQLEngine.CreateDatabase();

                // mi connetto al db

                conDati = new SqlCeConnection(“Data Source=” + @”\My Documents\Miodb.sdf”);

                conDati.Open();

                //Creazione di un tabella

                string SQL = “CREATE TABLE MiaTabella (ID int Primary Key “ + “NOT NULL,Nome nvarchar(50) NOT NULL)”;

                SqlCeCommand cmdDati = new SqlCeCommand(SQL, conDati);

                cmdDati.CommandType = CommandType.Text;

                cmdDati.ExecuteNonQuery();

                SQL = “”;

                //Inserisco i dati

                SQL = “INSERT INTO MiaTabella (ID, Nome) VALUES “ + “(’0′,’Emanuele’)”;

                cmdDati.CommandText = SQL;

                cmdDati.ExecuteNonQuery();

                SQL = “”;

                SQL = “INSERT INTO MiaTabella (ID, Nome) VALUES “ + “(’1′,’Emanuele2′)”;

                cmdDati.CommandText = SQL;

                cmdDati.ExecuteNonQuery();

                SQL = “”;

                SQL = “Select * from  MiaTabella “;

                cmdDati.CommandText = SQL;

                SqlCeDataReader rdrDati = cmdDati.ExecuteReader();

                while (rdrDati.Read())

                {

                    MessageBox.Show(rdrDati.GetString(1));

                }

 
            }

            catch (SqlCeException ex)

            {

                MessageBox.Show(ex.Message);

            }

            finally

            {

                conDati.Close();

            }

        }

Tramite la parola Download, è possibile scaricare il file di esempio
Download

Effettuare una telefonata:

Namespace:

using

System.Runtime.InteropServices;

A livello di classe creare la seguente struttura e i due campi.

private static long PMCF_DEFAULT = 0×00000001;private static long PMCF_PROMPTBEFORECALLING = 0×00000002;private struct PhoneMakeCallInfo{

}

public IntPtr cbSize;public IntPtr dwFlags;public IntPtr pszDestAddress;public IntPtr pszAppName;public IntPtr pszCalledParty;public IntPtr pszComment;

Dichiarazione di api per effettuare la telefonata

[

DllImport("phone.dll")]private static extern IntPtr PhoneMakeCall(ref PhoneMakeCallInfo ppmci);

Funzione che effettua la chiamata

unsafe

{

private void Telefona(string numero)bool avvisa = true;IntPtr res;//numero += ”; 

{

info.cbSize = (

info.pszDestAddress = (

{

info.dwFlags = (

}

char[] cPhoneNumber = numero.ToCharArray();fixed (char* pAddr = cPhoneNumber)PhoneMakeCallInfo info = new PhoneMakeCallInfo();IntPtr)Marshal.SizeOf(info);IntPtr)pAddr;if (avvisa)IntPtr)PMCF_PROMPTBEFORECALLING;else{

info.dwFlags = (

}

res = PhoneMakeCall(

}

}

IntPtr)PMCF_DEFAULT;ref info);

Eseguire la funzione per effettuare la chiamata

{

Telefona(

}

private void btnChiama_Click(object sender, EventArgs e)“4250010001″);

Rilevare il numero di telefono, individuare gli sms che si possono ricevere ed il numeri di quelli ricevuti.

Dichiarazione a livello di classe

//Identificazione numero

public enum AddressType{

Unknown,

International,

National,

NetworkSpecific,

Subscriber,

Alphanumeric,

Abbreviated

}

//informazioni numero 

public struct PhoneAddress{

/// <summary>The address type.</summary> 

public AddressType AddressType;/// <summary>The phone number in string format.</summary> 

}

[

public String Address;private static long SERVICE_PROVIDER = 0x00006F46;StructLayout(LayoutKind.Sequential)]private struct SimRecord{

}

public IntPtr cbSize;public IntPtr dwParams;public IntPtr dwRecordType;public IntPtr dwItemCount;public IntPtr dwSize;Dichiarazione api

[

[DllImport("cellcore.dll")]

public static extern int SimInitialize(uint dwFlags, int lpfnCallBack, uint dwParam, ref int lphSim);

//private static extern IntPtr SimInitialize(IntPtr dwFlags, IntPtr lpfnCallBack, IntPtr dwParam, out IntPtr lphSim);[DllImport("cellcore.dll")]

private static extern IntPtr SimGetRecordInfo(IntPtr hSim, IntPtr dwAddress, ref SimRecord lpSimRecordInfo);

[DllImport("cellcore.dll")]

private static extern IntPtr SimReadRecord(IntPtr hSim, IntPtr dwAddress, IntPtr dwRecordType, IntPtr dwIndex, byte[] lpData, IntPtr dwBufferSize, ref IntPtr lpdwBytesRead);

[DllImport("cellcore.dll")]

private static extern IntPtr SimDeinitialize(IntPtr hSim);

[DllImport("cellcore.dll")]

public static extern int SimGetSmsStorageStatus(int hSim, uint dwStorage, ref uint lpdwUsed, ref uint lpdwTotal);

DllImport(“sms.dll”)]private static extern IntPtr SmsGetPhoneNumber(IntPtr psmsaAddress);Funzione che rileva il numero del telefono e tipo

unsafe private PhoneAddress GetPhoneNumber()

{

PhoneAddress phoneaddr = new PhoneAddress();

Byte[] buffer = new Byte[516];

fixed (byte* pAddr = buffer)

{

IntPtr res = SmsGetPhoneNumber((IntPtr)pAddr);

if (res != IntPtr.Zero)

throw new Exception(“Could not get phone number from SIM”);

byte* pCurrent = pAddr;

phoneaddr.AddressType = (AddressType)Marshal.ReadInt32((IntPtr)pCurrent);

pCurrent += Marshal.SizeOf(phoneaddr.AddressType);

phoneaddr.Address = Marshal.PtrToStringUni((IntPtr)pCurrent);

}

return phoneaddr;

}

Richiamare la funzione da un evento click del pulsante (numero telefono e tipo)

private void btnnumero_Click(object sender, EventArgs e)

{

string informazioni = “Numero: “ + GetPhoneNumber().Address + ” Tipo: “ + GetPhoneNumber().AddressType;

MessageBox.Show(informazioni);

}

Richiamare la funzione da un evento click di un pulsante per la gestione degli sms (totali e ricevuti)

private

{

SimInitialize(0, 0, 0,

SimGetSmsStorageStatus(hSim, SIM_SMSSTORAGE_SIM,

}

void btnSms_Click(object sender, EventArgs e)int hSim = 0;uint smsUsed = 0;uint smsTotal = 0;uint SIM_SMSSTORAGE_SIM = 0×2;ref hSim);ref smsUsed, ref smsTotal);MessageBox.Show(“Sms Usati: “ + smsUsed.ToString());MessageBox.Show(“Sms Totali: “ + smsTotal.ToString());Tramite la parola download è possibile scaricare il file di esempio

Download

VB.Net

Declare Function CreateProcess Lib “coredll.dll” (ByVal imageName As String, ByVal cmdLine As String, ByVal lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal boolInheritHandles As Int32, ByVal dwCreationFlags As Int32, ByVal lpEnvironment As IntPtr, ByVal lpszCurrentDir As IntPtr, ByVal si As Byte(), ByVal pi As ProcessInfo) As Integer

Public Class ProcessInfo

Public hProcess As IntPtr

Public hThread As IntPtr

Public ProcessId As Int32

Public ThreadId As Int32

End Class

C#

[DllImport("coredll.dll", SetLastError = true)]

static extern bool CreateProcess(String imageName,

String cmdLine,

IntPtr lpProcessAttributes,

IntPtr lpThreadAttributes,

bool boolInheritHandles,

Int32 dwCreationFlags,

IntPtr lpEnvironment,

IntPtr lpszCurrentDir,

byte[] si,

ProcessInfo pi);

public class ProcessInfo

{

public IntPtr hProcess;

public IntPtr hThread;

public Int32 ProcessId;

public Int32 ThreadId;

}

Codice da inserire in un evento click di un pulsante

VB.Net

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim pi As New ProcessInfo

Dim si(128) As Byte

Dim resultato As Int32

resultato = CreateProcess(“calc.exe”, “”, IntPtr.Zero, IntPtr.Zero, 0, 0, IntPtr.Zero, IntPtr.Zero, si, pi)

End Sub

C#

private void button1_Click(object sender, EventArgs e)

{

ProcessInfo pi = new ProcessInfo();

byte[] si = new byte[128];

bool resultato = CreateProcess(“calc.exe”, ” “, IntPtr.Zero, IntPtr.Zero, false, 0, IntPtr.Zero, IntPtr.Zero, si, pi);

}

Tramite la parola download è possibile scaricare il file di esempio.

Download esempio

Figura 1

Introduzione:

In questo articolo, vedremo come applicare ad un controllo GridView (Asp.Net) la paginazione ed inserire nella prima colonna un pulsante per il rilevamento del dato della riga a cui si è fatto click. Si crea un nuovo progetto Web, inseriamo nella nuova pagina, un controllo gridView ed una label, l’aspetto dev’essere simile come mostrato in figura 1.

Fatto ciò si creano tre colonne per il controllo gridView, due di tipo boundfield ed una tipo buttonField

Di seguito è riportato il frammento di codice delle suddette operazioni.

<Columns>

<asp:ButtonField ButtonType=”Button” CommandName=”Seleziona” Text=”Seleziona” />

<asp:BoundField DataField=”Valore A” HeaderText=”Valore A” />

<asp:BoundField DataField=”Valore B” HeaderText=”Valore B” />

Impostare le proprietà del controllo GridView.

Per applicare la paginazione ad un controllo GridView, occorre impostare a true la proprietà “AllowPaging” del controllo, fatto ciò si imposta la proprietà EnabledSortingAndPagingCallBacks a true (figura 2), in questo modo ci permette di evitare di scrivere il codice per la gestione della paginazione, tale proprietà indica se deve essere eseguito il rendering dello script client per l’ordinamento e la paginazione ai client browser che supportano il callback. La proprietà pageSize, la impostiamo a 5, in questo modo avremo per ogni pagina 5 record.

Figura 2

A questo punto non ci resta, che scrivere nell’evento load della pagina, il codice per il caricamento dei dati nel controllo gridiview.

Di seguito si riporta il frammento di codice per il caricamento dei dati, il dataTable, verrà popolata con 15 righe.

VB.Net

Dim dtcColonnaA As New DataColumn(“Valore A”

Dim dtcColonnaB As New DataColumn(“Valore B”

Dim dttDati As New

dttDati.Columns.Add(dtcColonnaA)

dttDati.Columns.Add(dtcColonnaB)

For conta As Integer = 1 To

Dim dtrRiga As

dtrRiga(0) =

“Valore A di “

dtrRiga(1) =

“Valore B di “

dttDati.Rows.Add(dtrRiga)

Next

GridView1.DataSource = dttDati

GridView1.DataBind()

C#

DataColumn

dtcColonnaA = new DataColumn(“Valore A”

DataColumn dtcColonnaB = new DataColumn(“Valore B”

DataTable dttDati = new DataTable

dttDati.Columns.Add(dtcColonnaA);

dttDati.Columns.Add(dtcColonnaB);

for (int

{

DataRow

dtrRiga[0] =

“Valore A di “

dtrRiga[1] =

“Valore B di “

dttDati.Rows.Add(dtrRiga);

}

GridView1.DataSource = dttDati;

GridView1.DataBind();

A questo punto non ci resta che eseguire la nostra pagina.

Altri consigli.

Con il metodo precedente, si è visto come dotare il controllo gridiview,di paginazione, se nel caso, lasciamo la proprietà EnabledSortingAndPagingCallBacks a false, possiamo gestire la paginazione da codice, nel seguente modo.

Nell’evento PageIndexChanging, del controllo GridView, assegniamo alla proprietà PageIndex, del gridiview il valore della proprietà NewPageIndex della classe GridViewPageEventArgs .

Di seguito si riporta il codice, che permette di gestire la paginazione del controllo.

VB.Net

Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles

GridView1.PageIndex = e.NewPageIndex

GridView1.DataBind()

End Sub

C#

protected

void GridView1_PageIndexChanging(object sender, GridViewPageEventArgs

{

GridView1.PageIndex = e.NewPageIndex;

GridView1.DataBind();

}

Il pulsante buttonField

Tramite il pulsante buttonField, possiamo aggiungere al controllo GridView, un pulsante di comando. Di seguito si riporta un esempio di codice, che al click di tale pulsante, imposta la proprietà Text del controllo label, con il valore della prima colonna (A) della riga a cui si è fatto click sul pulsante.

VB.Net

Protected

Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles

‘Verifo che il pulsante a cui si è fatto click è quello giusto

If e.CommandName = “Seleziona” Then

Dim intRiga As Integer = CType(e.CommandArgument, Integer

lbltesto.Text = GridView1.Rows(intRiga).Cells(1).Text

End If

End Sub

C#

protected void GridView1_RowCommand(object sender, GridViewCommandEventArgs

{

//Verifo che il pulsante a cui si è fatto click èquello giusto

if(e.CommandName == “Seleziona”

{

int riga = Convert

lbltesto.Text = GridView1.Rows[riga].Cells[1].Text;

}

}

Conclusioni:

In questo articolo, si è visto come applicare ad un controllo gridiview la paginazione senza scrivere un riga di codice, inoltre si è visto come aggiungere un pulsante di comando per rilevare determinati dati. Tramite la parola download è possibile scaricare il file di esempio.

Download

Figura 1

Introduzione

In questo articolo, vedremo come applicare in un controllo GridView un checkbox, e selezionare o deselezionare gli elementi di ogni riga.

Dopo aver creato un nuovo progetto web in Visual Studio 2005, inseriamo nella pagina web, un controllo gridview e due pulsanti, come mostra in figura 1.

Impostazione delle colonne del gridView.

Il gridView sarò composto da tre colonne, una di tipo checkbox e due che fanno riferimento ad una fonte dati (colonne di un datatable), nell’intestazione del gridiview, si troverà un checkbox che permette di selezionare e deselezionare tutti gli elementi checkbox di quella pagina.

Di seguito si riporta l’impostazione delle colonne.

<

Columns

>

<asp:TemplateField

>

<HeaderTemplate

>

<input id=”Seleziona” onclick=”javascript:Seleziona(this);” runat

=”server”

type=”checkbox”

/>

</HeaderTemplate

>

<ItemTemplate

>

<asp:CheckBox ID=”chkSeleziona” runat=”server” Text=” “ Width=”18px”

/>

</ItemTemplate

>

</asp:TemplateField

>

<asp:BoundField HeaderText=”Valore A” DataField=”Valore A”

/>

<asp:BoundField HeaderText=”Valore B” DataField=”Valore B”

/>

</Columns

>

Come mostrato dal codice html, l’evento onClick del controllo checkbox, eseguirà una funzione javascript, la quale seleziona o deseleziona i vari checkbox nel controllo.

Di seguito si riporta il codice della funzione javascript.

var theBox= (Chkbox.type==“checkbox”

elemento=theBox.form.elements;

for

if

}

Seleziona e deselezina elemento.

Di seguito si riporta il codice in VB.Net e C#. che permette di selezionare e deselezionare gli elementi del controllo gridview.

Questa funzione a differenza della precedente, premette di selezionare e deselezionare gli elementi direttamente dal codice VB.Net e C#.

Codice VB.Net

if

for (int

CheckBox ChkDeSeleziona = (CheckBox)GridView1.Rows[contatore].FindControl(“chkSeleziona”

else

for (int

CheckBox ChkSeleziona = (CheckBox)GridView1.Rows[contatore].FindControl(“chkSeleziona”

}

Per selezionare l’elemento, dovrebbe eseguire la funzione passando come valore true, mentre per deselezionare tali elementi utilizzeremo false.

Di seguito si riporta un esempio di codice.

True

End Sub 

False

C#

true

false

Conclusioni:

In questo articolo, si è visto come applicare in un controllo gridiview delle checkbox e permettere la selezione e deselezione sia con il linguaggio VB.Net e sia con C#.

Tramite la parola download è possibile scaricare il file di esempio utilizzato nell’articolo.

Download

L’esempio di codice riportato qui di seguito, visualizza una notifica, nella quale si trova un controllo checkbox, un controllo combobox , un collegamento ipertestuale per l’invio di un email e due pulsanti (submit ed annulla) .

Il pulsante submit visualizzerà il testo contenuto nella combobox.

System;

System.Collections.Generic;

System.ComponentModel;

System.Data;

System.Drawing;

System.Text;

System.Windows.Forms;

public partial class FrmNotifica : Form

public

Configurazione();

}

private void BtnNotifica_Click(object sender, EventArgs

//imposto la durata di quanto dovrà rimanere visualizzata

//visualizzo la notifica

true

//pulisco la barra di stato

“”

void

try

//Imposto il testo del titolo

“Testo del titolo della notifica”

//In caso che è true visualizza un contorno rosso

false

//creo un oggetto di tipo testo, che poi sarà visualizzato come pagina web

StringBuilder HTMLString = new StringBuilder

//Valorizzo tale oggetto con testo html

“<html><body>”

“<font color=\”#0000FF\”><b>Indirizzo E-mail:</b></font>”

“&nbsp;&nbsp;&nbsp;&nbsp;<a href=\”mailto:emanuelemattei@dominio.it\”>E-mail</a>”

“<br><form method=\”GET\” action=notifica>”

“<SELECT NAME=\”lstbx\”>”

“<OPTION VALUE=\”0\”>Città</OPTION><OPTION VALUE=\”1\”>Roma</OPTION>”

“<OPTION VALUE=\”2\”>Firenze</OPTION><OPTION VALUE=\”3\”>Milano</OPTION>”

“<OPTION VALUE=\”4\”>Palermo</OPTION></SELECT>”

“<input type=checkbox name=chkbx>Notifica completata”

“<br><input type=’submit’ value=’Ok’>”

“<input type=button name=’cmd:2′ value=’Annulla’>”

“</body></html>”

//Imposto la proprietà text che conterrà il testo da visualizzare

catch (Exception

MessageBox

//l’evento ballonChanged mi indica quando la notifica cambia, ossia se è visualizzata o no (apertura è chiusura)

private void OnBalloonChanged(object obj, BalloonChangedEventArgs

if (balevent.Visible == true

//Cambio il testo del pulsante

“Notifica2″

else

“Notifica”

//Evento che si scatena al click del pulsante (ho iperlink)

void OnResponseSubmitted(object obj, ResponseSubmittedEventArgs

// Variabile contenente l’eventuale testo

string StrTesto = “”

//Tramite l’oggetto resevent ottengo le informazioni in risposta all’azione eseguitasulla notifica.

if (resevent.Response.Substring(0, == “notifica”

Int32 posizione = Convert

switch

case

“submit”

break

case

“Roma”

break

case

“Firenze”

break

case

“Milano”

break

case

“Palermo”

break

//Verifico che la checkbox sia valorizzata

if (resevent.Response.EndsWith(“on”

” checkbox = Si”

else if (resevent.Response == “mailto:emanuelemattei@dominio.it”

//se così fosse avvio il programma di posta elettronica predefinito

Process.Start(“mailto:emanuelemattei@dominio.it”, “”

// visualizzo il messaggio nella barra di stato

” Valore: “ + resevent.Response.ToString();

Tramite la parola download è possibile scaricare il file di esempio

Download

Namespace

VB.Net

Imports microsoft.SharePoint.Utilities

C#
using Microsoft.SharePoint.Utilities;

Codice

VB.Net

SPUtility.SendEmail(SPContext.Current.Web, False, False, “destinatario@dominio.it”, “oggetto”, “testo nella email”)C#
SPUtility.SendEmail(SPContext.Current.Web, false, false,“destinatario@dominio.it”, “oggetto”, “testo nel corpo”);

Tramite il metodo subtract otteniamo un oggetto timespan, di cui possiamo rilevare la differenza in giorni, ore, minuti e secondi.

Di seguito si riporta l’esempio di codice nel linguaggio VB.Net e C#

VB.Net

Dim data As New DateTime(2008, 3, 20, 10, 20, 5)

        Dim data2 As New DateTime(2008, 5, 20, 11, 21, 7)

        ‘ottengo la differenza tra due date

        Dim diff As TimeSpan = data2.Subtract(data)

        MessageBox.Show(“Giorni: “ & diff.Days)

        MessageBox.Show(“Ore: “ & diff.Hours)

        MessageBox.Show(“Minuti: “ & diff.Minutes)

        MessageBox.Show(“Secondi: “ & diff.Seconds)

        ‘differenza in un unico passaggio

        MessageBox.Show(diff.ToString())

C#

DateTime data = new DateTime(2008, 3, 20, 10, 20, 5);

            DateTime data2 = new DateTime(2008, 5, 20, 11, 21, 7);

            //ottengo la differenza tra due date

            TimeSpan diff = data2.Subtract(data);

            MessageBox.Show(“Giorni: “ + diff.Days);

            MessageBox.Show(“Ore: “ + diff.Hours);

            MessageBox.Show(“Minuti: “ + diff.Minutes);

            MessageBox.Show(“Secondi: “ + diff.Seconds);

            //differenza in un unico passaggio

            MessageBox.Show(diff.ToString());

Aggiungere il riferimento a Microsoft Scripting RunTime.

‘caricare il file system object
Dim Fso As FileSystemObject
Dim ObjDrive As Drive
Set Fso = New FileSystemObject
Set ObjDrive = Fso.GetDrive(“C:\”)
MsgBox “Il numero seriale Hard Disk: ” & ObjDrive.SerialNumber, vbInformation, “Drive”
MsgBox “Spazio libero: ” & ObjDrive.FreeSpace, vbInformation, “Drive”
MsgBox “Sistema: ” & ObjDrive.FileSystem, vbInformation, “Drive”
MsgBox “Quantità massima: ” & ObjDrive.TotalSize, vbInformation, “Drive”
MsgBox “Nome Hard Disk ” & ObjDrive.VolumeName, vbInformation, “Drive”