Yes Smart Install Maker register Wiaaut.dll and it work perfect :). THANKS

I use Smart Install Maker, are this installer make this? Are this dll is ActiveX, because in this installer have a ActiveX section

Hi I use wiaaut.dll to scan, but in some PC it's not work because it not register in PC. How I register this dll programatically and only one time?

give me some example how to do this

what You mean? This

Public Sub ConnectToAccess()
Dim conn As New System.Data.OleDb.OleDbConnection()
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & databasePath.dbPath & ";Persist Security Info=False;"

    Try
   conn.Open()
   .......
Catch ex As Exception
   conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & databasePath.dbPath & ";User ID=Admin;Password="
conn.Open()

........
Finally
conn.Close()
End Try
End Sub

how to detect installed oledb provider in my PC. Jet 4.0 or ACE 12

I want to connect without install Microsoft Office 12.0 Access Database Engine in the client mashine, because my program is 2MB, but Microsoft Office 12.0 Access Database Engine is 26MB.

Can I use same DB connection string to connect to MS Access 2003 and MS Access 2007? I use this "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & databasePath.dbPath & ";Persist Security Info=False;"

How to Convert MS Word 2003 doc to PDF

How to Add 3 columns from database to ComboBox, I want to visible 2 of them I use this

reader = OleDbCommand1.ExecuteReader()
Dim dt = New System.Data.DataTable()
dt.Load(reader)
ComboBox2.DataSource = dt
ComboBox2.DisplayMember = "column1"
ComboBox2.ValueMember = "column3"
ComboBox2.SelectedIndex = -1
reader.Close()

this work but can I use this

ComboBox2.DisplayMember = "column1" + "column2"

I want to scan with all scanners not only in my scanner.

Hi I want to scan from ADF (Feeder) in my scanner. How to make this?

for example I have 1 query in who participate 3 columns in 2 table and I want to add 1 column in first table and column in query will be 4. I want do this with code.

Hi I use this

ALTER TABLE table_name
ADD column_name datatype

to add column in table. How to use Alter Query to add column in query? I use MS Access 2003.

This work for me thanks

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 Base

I use this

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

How to use ComboBox DisplayMember and ValueMember without database?

Can I use MS Windows theme as GUI in my project?

Can I use skins and how

Hello. I am using VB 2010 under Windows XP to create a MDI Windows Form application. Question : is it possible to change the color or the title bar and of the border of the children forms, form by form ?

modified on Monday, July 18, 2011 7:27 AM