Visual Basic

daemonsead2008 wrote:

I only want is to display the records only on the column1.

bobmc11 wrote:

Textbox.TEXT = format(1.0,"0.0")

txtBox1.Text = myNumber.ToString("c"); //c = currency

"[Current_Date]='" & txtCurrentDate.Text & "'"

"[Current_Date]=#" & Convert.ToDateTime(txtCurrentDate.Text).ToString("MM/DD/YYYY") & "#"

System.Diagnostics.Process.Start("regsvr32.exe", username, password, domain);

Process.Start("C:\Windows\Microsoft.NET\Framework\v2.0.50727\RegAsm.exe", """" & "C:\Program Files\CompanyApp\System\dbDAL.dll" & _
   """" & " /codebase", "AdminAcct", pw, "Domain")

 color1 = New BaseColor() {iTextSharp.text.BaseColor.BLACK, iTextSharp.text.BaseColor.BLUE, iTextSharp.text.BaseColor.CYAN, iTextSharp.text.BaseColor.DARK_GRAY, iTextSharp.text.BaseColor.GRAY, iTextSharp.text.BaseColor.GREEN, iTextSharp.text.BaseColor.LIGHT_GRAY, iTextSharp.text.BaseColor.MAGENTA, iTextSharp.text.BaseColor.ORANGE, iTextSharp.text.BaseColor.PINK, iTextSharp.text.BaseColor.RED, iTextSharp.text.BaseColor.WHITE, iTextSharp.text.BaseColor.YELLOW}
        color2 = New String() {"Черен", "Син", "Циан", "Тъмно сиво", "Сиво", "Зелено", "Светло сиво", "Магента", "Оранжево", "Розово", "Червено", "Бяло", "Жълто"}
        For i = 0 To color1.Length - 1
            ComboBox2.Items.Add(color2(i))
        Next



If File.Exists(TextBox1.Text) Then
            File.Delete(TextBox1.Text)
            Dim bf As BaseFont = BaseFont.CreateFont(k & "\\arial.ttf", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
            Dim bc As BaseColor
            bc = color1(ComboBox2.SelectedIndex)
            ' bc = CType(iTextSharp.text.BaseColor.BLACK, "BaseColor" & "." & color1(ComboBox2.SelectedIndex))

            AddWatermarkText(TextBox3.Text, TextBox1.Text, TextBox2.Text, bf, NumericUpDown1.Value, bc, 50.0F, NumericUpDown2.Value)
        Else
            Dim bf As BaseFont = BaseFont.CreateFont(k & "\\arial.ttf", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
            Dim bc As BaseColor
            bc = color1(ComboBox2.SelectedIndex)
            ' bc = CType(iTextSharp.text.BaseColor.BLACK, "BaseColor" & "." & color1(ComboBox2.SelectedIndex))

            AddWatermarkText(TextBox3.Text, TextBox1.Text, TextBox2.Text, bf, NumericUpDown1.Value, bc, 50.0F, NumericUpDown2.Value)

        End If

Public Class WatermarColors
    Private mWatermarkColor As iTextSharp.text.BaseColor
    Private mWatermarkBGName As String

    Public Sub New(ByVal name As String, ByVal code As iTextSharp.text.BaseColor)

        mWatermarkBGName = name
        mWatermarkColor = code
    End Sub

    Public Property WatermarkBGNames() As String
        Get
            Return mWatermarkBGName
        End Get
        Set(ByVal value As String)
            mWatermarkBGName = value
        End Set
    End Property

    Public Property WatermarkColors() As iTextSharp.text.BaseColor
        Get
            Return mWatermarkColor
        End Get
        Set(ByVal value As iTextSharp.text.BaseColor)
            mWatermarkColor = value
        End Set
    End Property

    Public Overrides Function ToString() As String

        Return mWatermarkBGName
    End Function
End Class



color1 = New BaseColor() {iTextSharp.text.BaseColor.BLACK, iTextSharp.text.BaseColor.BLUE, iTextSharp.text.BaseColor.CYAN, iTextSharp.text.BaseColor.DARK_GRAY, iTextSharp.text.BaseColor.GRAY, iTextSharp.text.BaseColor.GREEN, iTextSharp.text.BaseColor.LIGHT_GRAY, iTextSharp.text.BaseColor.MAGENTA, iTextSharp.text.BaseColor.ORANGE, iTextSharp.text.BaseColor.PINK, iTextSharp.text.BaseColor.RED, iTextSharp.text.BaseColor.WHITE, iTextSharp.text.BaseColor.YELLOW}
        color2 = New String() {"Черен", "Син", "Циан", "Тъмно сиво", "Сиво", "Зелено", "Светло сиво", "Магента", "Оранжево", "Розово", "Червено", "Бяло", "Жълто"}
        For i = 0 To color1.Length - 1
            CboWatermarkColor.Items.Add(New WatermarColors(color2(i), color1(i)))
        Next

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If File.Exists(TextBox1.Text) Then
            File.Delete(TextBox1.Text)
            Dim bf As BaseFont = BaseFont.CreateFont(k & "\\arial.ttf", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
            Dim bc As BaseColor
            Dim WatermarkSelectColor As WatermarColors

            WatermarkSelectColor = CType(CboWatermarkColor.SelectedItem, WatermarColors)

            bc = WatermarkSelectColor.WatermarkColors
            
            AddWatermarkText(TextBox3.Text, TextBox1.Text, TextBox2.Text, bf, NumericUpDown1.Value, bc, 50.0F, NumericUpDown2.Value)
        Else
            Dim bf As BaseFont = BaseFont.CreateFont(k & "\\arial.ttf", BaseFont.IDENTITY_H, BaseFont.EMBEDDED)
            Dim bc As BaseColor
            bc = color1(CboWatermarkColor.SelectedIndex)
            
            AddWatermarkText(TextBox3.Text, TextBox1.Text, TextBox2.Text, bf, NumericUpDown1.Value, bc, 50.0F, NumericUpDown2.Value)

        End If

Dim lst as New List(Of WatermarkColor)
lst.Add(New WatermarkColor(watermarkBGName,watermarkColor)

cboWatermarkColors.DataSource = lst
cboWatermarkColors.DisplayMember = "WatermarkBGName"
cboWatermarkColors.ValueMember = "WatermarkColor"