|
thxx man ..
that's help me a lot ..
|
|
|
|
|
Dim col1 As New DataColumn
Dim col2 As New DataColumn
Dim col3 As New DataColumn
DataGridView1.DataSource = tbl
col1.ColumnName = "ID"
col1.Caption = "ID"
tbl.Columns.Add(col1)
col2.ColumnName = "Name"
col2.Caption = "Name"
tbl.Columns.Add(col2)
col2.ColumnName = "Age"
col2.Caption = "Age"
tbl.Columns.Add(col2)
DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView1.Columns(0).DefaultCellStyle.BackColor = Color.LightSkyBlue
DataGridView1.Columns(1).DefaultCellStyle.BackColor = Color.LightSkyBlue
DataGridView1.Columns(2).DefaultCellStyle.BackColor = Color.LightSkyBlue
Dim r As DataRow
j=1 to 10
r = tbl.NewRow
tbl.Rows.Add(r)
r = tbl.Rows(j-1)
r("ID") = j
Next
'something like this should help
etc etc
Delighted to have been able to help
Nige
1000 monkeys at a 1000 computers for 1000 years = 1 working apps.
|
|
|
|
|
col2.ColumnName = "Age"
col2.Caption = "Age"
tbl.Columns.Add(col3) ' sorry wrong columb name here
1000 monkeys at a 1000 computers for 1000 years = 1 working apps.
|
|
|
|
|
Like I say in my signature try and try again: 3's not 2's
col3.ColumnName = "Age"
col3.Caption = "Age"
tbl.Columns.Add(col3)
1000 monkeys at a 1000 computers for 1000 years = 1 working apps.
|
|
|
|
|
If anybody has an help on crystal reports plz send it as soon as possible.
I need it urgently .such as txtfiles or any other pdf files .
Thankful.
|
|
|
|
|
I am trying to install an application developed in VB6 (English version) in
Win/2000 "SPANISH Version"
While installing the application it give error you are trying install
English Version of the DLL By removing SPANISH version ( something simliar
to that effect...)
Does anyone can pointout the SPANSIH version files for the following:
1) MSCPXL32.dll
2) msorcl32.dll
3) odbccp32.cpl
4) odbcint.dll
I have created thge package with IExpress & win/2000 (English) version many users are using.. NO PROBLEM.
Some how Cannot install Win/2000 Spanish
5) Does Microsoft has a Different MDAC for Spanish version of Window/2000?
Appreciate any help in advance!
s pereira
-- modified at 16:51 Monday 7th November, 2005
|
|
|
|
|
Hi, I am trying to set the attributes for an entire tree for subfolders using VB 6.0, like it’s done in Explorer if you select “Apply changes to this folder, subfolder”.
The only way I can do this so far is to loop at each level. The following script is just getting me two levels down.
Does anyone a trick in changing the attributes on a folder that would replicate down to all levels of children? I have not found any posting where this was ever accomplished. So it would take a very smart person to figure this one out. ;- )
Thanks for sharing my problem and thinking about it.
Function File_Check()
'Test if the folders are read-Only
Dim objFSO, objFolder, colFiles, objFile, objSub, colSub, objFSO2, objFolder2, colSub2, objSub2, colFiles2, objFile2, colFiles1, bypass As Integer
Const ReadOnly = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("G:\Internal")
Set colSub = objFolder.SubFolders
Set colFiles = objFolder.Files
For Each objFile In colFiles
If objFile.Attributes And ReadOnly Then
objFile.Attributes = objFile.Attributes Xor ReadOnly
End If
Next
For Each objSub In colSub
Set colFiles1 = objSub.Files
For Each objFile In colFiles1
If objFile.Attributes And ReadOnly Then
objFile.Attributes = objFile.Attributes Xor ReadOnly
End If
Next
'Repeat one layer down.
Set colSub2 = objSub.SubFolders
For Each objSub2 In colSub2
Set colFiles2 = objSub2.Files
For Each objFile2 In colFiles2
If objFile2.Attributes And ReadOnly Then
objFile2.Attributes = objFile2.Attributes Xor ReadOnly
End If
Next
Next
Next
End If
End Function
|
|
|
|
|
hello there, I am new to programing
I have a problem, I imported the file Authentication.dll and it's under Reference in the solution window.
However, when I try to use it as a funtion I get this blue line with message the Authentication is namespace and it's not valid. I tried puting imports statement as you can see below, but it still didn't work. The authentication.dll suppose to check if name and password are good and return true/false.
Imports Authentication
Public Class Login_Control
Inherits System.Windows.Forms.UserControl
Public Event allowed()
Public Event Denied()
Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim name, password As String
name = txtUserName.Text
password = txtPassWord.Text
If Authentication("name", "password") = True Then
End If
End Sub
|
|
|
|
|
Hi there,
EliBoby wrote: name = txtUserName.Text
password = txtPassWord.Text
If Authentication("name", "password") = True Then
it looks like that u are using the namespace's name as a method
<< >>
|
|
|
|
|
O,K
so authentication is namespece. So what I need to write to single VB.NET that I want to use the function authentication.dll?
thank you for responding so fast
eliboby
|
|
|
|
|
just simply call functions exposed from that DLL in ur application
<< >>
|
|
|
|
|
I am sorry but I just don't understand.
the function and the dll are both called Authentication, how can I call it without writing it?
Can you give me an example?
|
|
|
|
|
EliBoby wrote: the function and the dll are both called Authentication, how can I call it without writing it?
Since I dont know much about VB.NET  , but generally to use a dll, just simply follow these steps
did u have Authentication.dll ?
if so...
- create a project
- add a reference to that dll
- in ur project call dll's functions
<< >>
-- modified at 18:40 Friday 4th November, 2005
|
|
|
|
|
This is exactly what I did, and I still getting this blue line, that tell the my function name isn't a method.
Can you send me a simple code example, so I can see what I do wrong?
thank for your help
|
|
|
|
|
Currenyly, I have no any code here ;(. So u might google a bit
Let's check again, in the Authentication.dll, how many functions there?
and fucntions's name? And remember that u have to call a method (using method's name) not namespace's name.
I assume that there is a function named "test(...)" in the Authentication.dll
in ur app, just call test(...)
<< >>
|
|
|
|
|
this is exacltly what I am doing, and it's still don't work. I still get an error, this time it tell that the function name (login) is not declared. I probably have problem in my dll.
Thank you for your help, i am giving up on it from tonight.
|
|
|
|
|
Unfortunately, he can't show you any code that is going to help. What you have to do/type in depends heavily on your .DLL. You can glean some information from the Object Browser (View menu in Visual Studio). Since you already have a reference to the .DLL, it's namespace and objects will show up in the browser. Since the Imports line doesn't error out, you apparently have the namespace right, or the top level name at least. You could also try hitting period after you type Authentication so the Intellisense list pops up.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I am not a .NET programmer, but have years of VB1-6. Can you reference the DLL explicitly so you don't get a clash with the routine name??
as an example ADODB.Connection as oppossed to Connection
|
|
|
|
|
I have a windows application with two forms. Both forms work and will pass information and button clicks between them. The problem is a none update of Form2 until after Form1 completes all of its task.
Form1 is the one doing all the work. Form 2 has a Progress Bar and a large TextBox that I want to use like a console/debug window.
When the begin button is clicked on Form1, The “Outline Only” of Form2 displays. It says that way until Form1 finishes all of its work. Then the TextBox displays all of the messages sent to it and completes the display.
How can you make Form2 complete its display and show the messages and progress bar as Form1 is performing the updates.
|
|
|
|
|
I think you'll need to use Application.DoEvents()a good place to put it would be right after data is sent to Form2. Also you could call Form2.Invalidate to force it to redraw.
|
|
|
|
|
When I tab to the second column of my datagrid I would like to bring up a form when the enter key is hit. How can I do this?
Thanks
|
|
|
|
|
i have this data and i want to use regular expression to get particular sets so as to put it into an array, then to excell. For now am stack at how to use regex method or any regular xpression method to get the the first occuranse of the double zeros, the the subsequent zeros separtely.
5 188631 004 TUMUSHABE BENSON -357,609 00 00 00 20901 0.00
5 446478 003 BAGONZA LYNETTE -261,350 00 00 00 20901 60,000.00
5 420413 019 MAGALA STEPHEN -128,019 00 00 00 20901 40,000.00
5 199311 001 LUBEGA BOBBY MICHEAL -10,000 19 06 19 20901 0.00
i need2capture the first '00', 2nd '00' and so on up to the last 0.00. by the way these values can change eg '00' --> '16' etc
using the string split() method may not work as "5 188631 004" is to be taken as one number. So are the names. after that every space inbetween the numbers is indiacates a new column.
Some one please help
-- modified at 2:09 Saturday 5th November, 2005
|
|
|
|
|
why go through all of that? it appears that values are separated by a space (" ") so try using split():
dim vArray as Variant
dim sLineIn as string
vArray = Split(sLineIn, " ")
'creates a 0-based array separating the input string by spaces
'in the case of your first sample line
'vArray(7) is your first set of "00"
'in foruth sample you are missing a space after "-"
'this is still no problem as you can count back from UBound(vArray)
'vArray(UBound(vArray)-4) is the first set of "00"
'just build logic around recognizing which array elements are actually "00"
for i = 0 to Ubound(vArray)
if vArray(i) = "00" then
'here is where you start
else
'something
end if
next i
|
|
|
|
|
i have this data and i want to use regular expression to get particular sets so as to put it into an array, then to excell. For now am stack at how to use regex method or any regular xpression method to get the the first occuranse of the double zeros, the the subsequent zeros separtely.
5 188631 004 TUMUSHABE BENSON -357,609 00 00 00 20901 0.00
5 446478 003 BAGONZA LYNETTE -261,350 00 00 00 20901 60,000.00
5 420413 019 MAGALA STEPHEN -128,019 00 00 00 20901 40,000.00
5 429873 004 TUSABE STELLA -44,400 00 00 00 20905 0.00
i need2capture the first '00', 2nd '00' and so on up to the last 0.00. by the way these values can change eg '00' --> '16' etc
Some one please help
elms world
|
|
|
|
|
I have to send data to another domain/url via the post method. If the url name is https://theirwebaddress.com and I need to send two text fields first and last name.
How would you code this?
Thanks
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
