I fill imagelist at design time. when i check imagelist1.imagestream,it is nothing at run time .i intend to use Application.EnableVisualStyles But i tried both case(using EVS and not using EVS),Nothing changed. if i fill imageList at run time, it is working. But i have to save ico files in to the project folder in this case. But i dont wantto do this. what Can u offer me ?
Just Greeky Creek
Posts
-
ImageList -
I cant see toolbar button images at run timehi i have a form with toolbar. if i use application.enablevisualstyles, all images on toolbar doesnt seem at run time, if i dont use application.enablevisualstyles, u can see images on toolbar buttons. What is problem? Thank u
-
InVisible images on ToolBarI have a toolbar on form, i set some images to image list, then i set it to toolbar. In Design Time, i see images on Toolbar buttons. But they are not visible at run time. What s Wrong. NOTE : first I used Application.EnableVisualStyle then i commented it. it doesnt work in both situation.
-
what's significant diferrences between vb 6.0 and vb.net -
OLEDB Connectionat the end i solved my problem myself :D Line i missed is Bold.
Dim oOleDbConnection As New OleDb.OleDbConnection Dim strPassword As String = "123456" Dim strDataBasePath As String = "C:\Documents and Settings\creek\Desktop\AC115DataBase.mdb" Dim sConnString As String = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strDataBasePath & ";" & _ "**Jet OLEDB:Database Password=" & strPassword & ";**"
-
OLEDB ConnectionI have a mdb database.It has a password (123456), i found out password with a password cracker program. I exactly dont know why this password exist . I try to connect this database via VB.Net, OLEDB Connection. My Connection string is
"Provider=Microsoft.Jet.OLEDB.4.0;Password=123456;Data Source=C:\Documents and Settings\creek\Desktop\AC115DataBase.mdb; Mode=Read;Persist Security Info=True"
i cant connect to database with this connection string. I get this error "Application cannot be started. Work File is missed, or any user opened file excluesive mode" i dont know user name or any extra information about mdb file. I am so confused. Question is What is wrong, -
How to print a gridTry this
Dim ActivePageNumber As Short = 1 Dim pageCount As Short = 0 Dim ItemCountOnPerPage As Integer = 30 Dim dtSource As DataTable Dim index As Short Private Sub btnPrintDataGrid_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrintDataGrid.Click ActivePageNumber = 1 pageCount = Math.Ceiling(dtSource.Rows.Count / ItemCountOnPerPage) PrintDocument1.Print() End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage If Not ActivePageNumber > pageCount Then PrintDataTable(e.Graphics) ActivePageNumber += 1 e.HasMorePages = True Else e.HasMorePages = False End If End Sub Public Sub PrintDataTable(ByVal e As Graphics) Dim x, y As Short Dim fArial As New Font("Arial", 8) x = 20 y = 20 Dim cci As Short = index Do While (cci <> ItemCountOnPerPage Or index <> dtSource.Rows.Count - 1) For columnIndex As Short = 0 To dtSource.Columns.Count - 1 e.DrawString(dtSource.Rows(index)(columnIndex), fArial, New SolidBrush(Color.Black), x, y) x += 30 ' set this to column width Next y += fArial.Height cci += 1 index += 1 Loop End Sub
-
How to use com port -
Compare datarowsDim greeky As Boolean = True Dim xDs1 As New DataSet Dim xDs2 As New DataSet For i As Short = 0 To xDs2.Tables(1).Rows.Count - 1 greeky = greeky And xDs1.Tables(0).Rows.Contains(xDs2.Tables(1).Rows(i)) Next If greeky Then MessageBox.Show("xDs1.Tables(0) contains all rows of xDs2.Tables(1)") End If
-
Exporting DataIs there any easy way to Export data between tables with one SQL command without using DTS? I found ExportData , i used but it doesnt work? how will i use it?
DB1.dbo.TheSameTable.ExportData (DB2.dbo.TheSameTable)
Thanks a lot I remember an Easy Way, Select Into Command :laugh: then alter table for key fields -
Compare datarowsu can do ,if the table schemes r the same.
-
DataGrid ColumnsPlease First Check MAppingName property of DataGridTableStyle either u have already set or not. U have to set that to TableName
-
Looping through a form...try this
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Ctrl As Control Dim Grp As Control For Each Ctrl In me.Controls Messagebox.show (Ctrl.Name) Next For Each Grp In GroupBox1**.Controls** (This is where YOU get stuck) 'CODE NEXT
Note: useMessagebox.show
instead ofMessagebox
-
Making a font bold at runtimeu have to need creating a new font, then use that. Dont forget The Bold property of any Font is ReadOnly
Dim newFont as new Font (previousFont.Name, FontStyle.Bold ) lblPageStatus.Font=newFont
-
Subroutines in VBhave u tried using
ByRef
-
Custom Shaped Window (form):mad: why havent u tried set a animated gif image to any picturebox control before asking this question,new bee?
-
Auto BCCFirst Pls Look Name :D , Second I have a proxy server, Norton checking mails is installed on proxy. I donna how can i catch email network packets to alter? What will do use, socket programming, or net.mail namespace, Do u know any sample ? or any artical about this aim.?_
-
Problem in Sql CommandUSE
Public const strTest As string = "TEST" Dim ProductAdapter As New OleDb.OleDbDataAdapter( _ "SELECT * FROM TCAP WHERE NTCIDCODE LIKE '" & strTest & "' ", _ sConn)
-
Custom Shaped Window (form)First set an image to the background of form then set Form's
Transparent Color
Property to Form's Background Color. -
printing text straight to the printerplease offer next time Both :D How The Raw Data is Printed[^] and HOW TO: Send Raw Data to a Printer by Using Visual Basic .NET[^].[^] Noww I m Bronze Member of code project yuppiiiiiiiii