Visual Basic

Henry Minute wrote:

shedload

s426 wrote:

Are there any built in functions in VB.Net that send sms??

s426 wrote:

To send SMS messages from an application, you have to write the source code for connecting to and sending AT commands to the mobile phone...[sic]

s426 wrote:

Sir kindly help me that from which link I can download setup of VB.Net??

s426 wrote:

Sir I have worked alot on C++ and .net2003

dateTimePicker1.Value = DateTime.Now.AddDays(10)

Public Class cTxtBoxProperties

        <Category("Misc")> <Description("Displays the type of data associated with the control")> _
    <TypeConverter(GetType(MyDataType))> _
    Public Property DataType()
        Get
            Return _DataType
        End Get
        Set(ByVal value As Object)          
            _DataType = value
        End Set
    End Property
    <Category("Misc")> <TypeConverter(GetType(NumberFormats))> _
    <Description("Displays the format of the control")> _
    Public Property Format() As String
        Get
            Return _Format
        End Get
        Set(ByVal value As String)
            _Format = value
        End Set
    End Property    
End Class
Dim tPropertyName As String = "DataType"
            Dim objTxt As Type = GetType(cTextBoxProperties)
            Dim PiInfo As PropertyInfo = objTxt.GetType.GetProperty("DataType")
            Dim ObjPropertyValue As Object = PiInfo.GetValue(objTxt, Nothing)



Public Class NumberFormats : Inherits System.ComponentModel.StringConverter

    Dim alist As New ArrayList
    Dim ControlNames() As String

    Public Overloads Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
        alist = New ArrayList
        alist = GetNumberFormats()
         ControlNames = CType(alist.ToArray(GetType(System.String)), String())
        Return New StandardValuesCollection(ControlNames)
    End Function

    Public Overloads Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function

    Public Overloads Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
        Return True
    End Function

    Protected Friend Function GetNumberFormats() As ArrayList
        GetNumberFormats = Nothing
        Dim objFStream As FileStream = Nothing
        Dim objReader As StreamReader = Nothing
        Dim fiInfo As FileInfo = Nothing
        Dim tFontSizeFilePath As String = ""
        Dim tNumberFormats() As String
        Dim alist As New ArrayList
        Dim CTextbox As cTextBoxProperties = Nothing
        Dim tFileName As String = ""

        Try

'' Here Raising the ERROR 

            Dim tPropertyName As String = "DataType"
            Dim objTxt As Type = GetType(cTxtBoxProperties)
            Dim PiInfo As PropertyInfo = objTxt.GetType.GetProperty("DataType")
            Dim ObjPropertyValue As Object = PiInfo.GetValue(objTxt, Nothing)
         
<b>'' Here Raising the ERROR </b>          
                tFontSizeFilePath = String.Concat(AppDomain.CurrentDomain.SetupInformation.ApplicationBase, tFileName)
            
            fiInfo = New FileInfo(tFontSizeFilePath)
            If fiInfo.Exists Then
                objFStream = New FileStream(tFontSizeFilePath, FileMode.OpenOrCreate, FileAccess.Read)
                objReader = New StreamReader(objFStream)
                While objReader.Peek <> -1
                    alist.Add(objReader.ReadLine.ToString.Trim)
                End While
                objReader.Close()
                objFStream.Close()
                Return alist
            Else
                MsgBox(tFileName & "is not existed in Application Path.")
                Exit Try
            End If
        Catch ex As Exception
            MsgBox("GetNumberFormats : " & Err.Description, MsgBoxStyle.Critical)
        Finally
            If Not fiInfo Is Nothing Then fiInfo = Nothing
            If Not objFStream Is Nothing Then objFStream = Nothing
            If Not objReader Is Nothing Then objReader = Nothing
            If Not CTextbox Is Nothing Then CTextbox = Nothing
            Erase tNumberFormats
        End Try

    End Function
End Class