|
i have two identical datagrids in my winform:
in one of them i have a vertical scrollbar that has to scoll the datagrids both and put them in the same position
well i can i do it with VS2003
in class mydatagrid
**************************************
ublic Class mydatagrid
Inherits DataGrid
Public Function getPositionScoll() As Integer
Dim pt As New Integer
If Not Me.DataSource Is Nothing Then
pt = Me.VertScrollBar.Value
End If
Return pt
End Function
Public Sub setPositionScoll(ByVal pt As Integer)
If Not Me.DataSource Is Nothing Then
Me.VertScrollBar.Value = pt
End If
End Sub
end class
*************************
in my winform
Private Sub DataGrid1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.Scroll
Dim ttt As Integer = DataGrid1.getPositionScoll()
DataGrid2.setPositionScoll(ttt)
End Sub
and the datagrid2 does not move
SECOND TRY
in class mydatagrid
**************************************
ublic Class mydatagrid
Inherits DataGrid
Sub ScrollToRow(ByVal row As Integer)
If Not Me.DataSource Is Nothing Then
Me.GridVScrolled(Me, New ScrollEventArgs(ScrollEventType.LargeIncrement, row))
End If
End Sub
end class
*************
in my winform
Private Sub DataGrid1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.Scroll
DataGrid2.ScrollToRow( an integer that you want)
End Sub
**********
now datagrid1's scrollbar moves datagrid2 to the the row but it moves only at that row...
the idea is in the scroll mathod event get the point of the scroll and than take the number of the first visible row of the datagrid1 and give it to DataGrid2.ScrollToRow:
For Each c As Control In DataGrid1.Controls
If c.GetType() Is GetType(VScrollBar) Then
pt = VScrollBar.MousePosition()
End If
Next
using pt point can i do what i want????
is this the right way to do it????
are there other ways to tune the position of my two datagrid with scroll????
|
|
|
|
|
Can I load svg image into the picturebox in vb.net application? And how do I load the image from a certain location? Could someone show me the code?
Thanks
|
|
|
|
|
How to create a setup for application incuding odbc setup,
for project done in Visual Basic 6.0
(ie with out manually creating odbc on target machine)
The setup should install application as well as odbc on target machine
for project Visual Basic 6.0
Thanks in Advance!
|
|
|
|
|
Hi,
is it possible to create an object by its class name? I want to handle some objects (in my situation these are diffent window form classes) in a manager class, but i don´t want to create every window "by hand" like this:
Dim win as new CWindow1<br />
ManagerClass.RegisterWindow(win)<br />
<br />
Dim win2 as new CWindow2<br />
ManagerClass.RegisterWindow(win2)
What i want is something like this:
ManagerClass.CreateObject("CWindow1") <br />
ManagerClass.CreateObject("CWindow2")
The object handling should be completely managed by the ManagerClass.
I found some information about the Activator class, but i don´t know if its possible to use it for my problem
Thanks for your help.
greetz
|
|
|
|
|
Create a Type object from the class name, use the GetConstructor method to get a ConstructorInfo object, and use it's Invoke method to create the object.
---
b { font-weight: normal; }
|
|
|
|
|
Hi All i have no experience of working in vb or vb dot net although i have worked a little bit in C# dot net.
now i have to access a database using VB.Net the database i m using is ms access so plzz anyone tell me that wat is the best and easier to implement way of doing it
Looking forward for help,
Regards,
|
|
|
|
|
|
Thxx Sir, it was really very helpful and written in very easy to understand manner....thxx once again 
Regards,
|
|
|
|
|
Hi all!
I need help in getting information from a MS Project file via vb.net application.Can any body deliever me the documentation and some sample code for help please.
Thanks in advance,
shani
|
|
|
|
|
dear sir, will u please help me how to disable the main menu when all its child menus are disabled.i am also sending the code what i have done but it is not working effectively.some menus will get disabled and some wont.please help me out regarding this problem.
Sub sbSubMenu(ByVal mnu As MenuItem)
Dim boolVisible As Boolean
Try
Dim intIndex As Integer
Dim intInnerIndex As Integer
For intIndex = 0 To mnu.MenuItems.Count - 1
If mnu.IsParent = True Then
For intInnerIndex = 0 To mnu.MenuItems.Count - 1
boolVisible = True = False
If mnu.MenuItems(intInnerIndex).Visible Then
mnu.Visible = True
boolVisible = True
Exit For
Else
mnu.Visible = False
End If
Next
If boolVisible Then Call sbSubMenu(mnu.MenuItems(intIndex))
End If
Next
Catch ex As Exception
Call fnErrorLog(objFrmMain.Name, ex.Message, " frmMain_Load Block")
End Try
End Sub
|
|
|
|
|
first of all i m unable to follow this statement( may causing problems)
avinashprabhu.t.p wrote: boolVisible = True = False
shani
|
|
|
|
|
The statement is a bit more readable in this form:
boolVisible = (True = False)
As the two operands are not equal, the (True = False) comparison will result in the value False. That means that the code does the same as:
boolVisible = False
---
b { font-weight: normal; }
|
|
|
|
|
Hi,
I'm working on VB.Net (Window Base), I have add crystal report in my application. When I make a setup file in my own PC and I have try to run the exe file, it seem work nice on my own PC. Then I try to run the setup in other machine, and try to run the exe as well, when I open the report from it, it give me a error msg. The error msg are look like this 'Cannot find keycodev2.dll or invalid keycode.'
Can anyone teach me step by step to slove this error? Thanks.
|
|
|
|
|
it's actually quite simple. assuming you've added a setup project to your solution, what you gotta do is
1. right click on the setup project in solution explorer and go to "
Add > Merge Module..."
2. add the Crystal_regwiz2003.msm to your project.
3. to get your license key, click on "Help > About Microsoft Development Environment", click on the list box item for crystal reports and then click on the "copy info" button.
5. now right click on Crystal_regwiz2003.msm in solution explorer and select "Properties".
6. expand the (MergeModuleProperties) node in the properties window. you should see a "License Key" property. Paste the license key that you obtained from step 3 (remember to delete the other junk that was copied with it).
to explain a bit... (from MSDN)
Crystal_regwiz2003.msm configures registration information on deployed computers (server or client) in order to track licensing information.
When Crystal_regwiz2003.msm is added to a setup project, it exposes a LicenseKey property that must be set before building the setup project.
The license key is emailed to you when the product is registered. This key is also available from the About Microsoft Visual Studio .NET dialog box from the Help menu. Enter this license key into the LicenseKey property for the Crystal_regwiz2003.msm merge module.
Note: If the license key is not set for the Crystal_regwiz2003.msm merge module, an error will occur when building the project. If the setup is installed on a target computer without specifying the license key for the merge module, various keycodedev2.dll errors will occur.
---
sorry for the long explanation.
|
|
|
|
|
In the step 6, it is I only need to paste the 19 digit inside the license key? After paste the license key, I have try to build the setup by right click the setup file at the solution explorer and choose build. After success everyting, I have copy the setup file and try to install at other machine, but the error still come out? What mistake I have make? Can give some advice?
|
|
|
|
|
have you also included the correct merge module for your database type?
|
|
|
|
|
What you mean by merge module for my database? I not understand this? Can you explain a bit? Thanks.
|
|
|
|
|
erm... read this[^]
they always put it better than i can.
|
|
|
|
|
Hi,
I already follow your step by step to create the setup file and the licensing key. but also have the same error. I really dun know what mistake I have make. I have try many way to found out the error, but also no use. so what should I need to do?
|
|
|
|
|
you followed this[^] step by step? then you shouldn't have a problem (solved it for me...)
how big is your app? if it's not too big and if you'd like to, zip it and mail it to me and i'll see where you've gone wrong and point you in the right direction.
|
|
|
|
|
Ok, I not mind, but i dun know how to send my application to you. Hope you not mind, because I very poor on computer even programming also.
|
|
|
|
|
HI,
How can should this issue? I already try all the step you teach me, but still get the same answer. Why can be like that? I wana zip my project to you but I no idea how to attach it to you? Can you give me some advice on this? Thanks.
|
|
|
|
|
Hi
I can't get the MSDN's example for Listbox to work.The example is below. I
get an error in Listbox's sub ListBox1_SelectedValueChanged at row
textBox1.Text = ListBox1.SelectedValue and it happens after the line
ListBox1.ValueMember = "ShortName" is run. The error says Cast from type
'USState' to type 'String' is not valid.
I don't know why the code doesn't work, can anyone please explain what I have to do to make it work.
Thank's
Fia
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Collections
Public Class Form1
Inherits System.Windows.Forms.Form
Public Class USState
Private myShortName As String
Private myLongName As String
Public Sub New(ByVal strlongName As String, ByVal strShortName As String)
MyBase.New()
Me.myShortName = strShortName
Me.myLongName = strLongName
End Sub
Public ReadOnly Property ShortName() As String
Get
Return myShortName
End Get
End Property
Public ReadOnly Property LongName() As String
Get
Return myLongName
End Get
End Property
Public Overrides Function ToString() As String
Return Me.ShortName & " - " & Me.LongName
End Function
End Class
Public Class ListBoxSample3
Inherits Form
Friend WithEvents ListBox1 As ListBox = New ListBox
Dim textBox1 As TextBox = New TextBox
<system.stathreadattribute()> _
Public Shared Sub Main()
System.Windows.Forms.Application.Run(New ListBoxSample3)
End Sub
Public Sub New()
Me.AutoScaleBaseSize = New Size(5, 13)
Me.ClientSize = New Size(292, 181)
Me.Text = "ListBox Sample3"
ListBox1.Location = New Point(24, 16)
ListBox1.Name = "ListBox1"
ListBox1.Size = New Size(232, 130)
textBox1.Location = New Point(24, 160)
textBox1.Name = "textBox1"
textBox1.Size = New Size(40, 24)
Me.Controls.AddRange(New Control() {ListBox1, textBox1})
' Populates the list box using DataSource.
' DisplayMember is used to display just the long name of each state.
Dim USStates As New ArrayList
USStates.Add(New USState("Washington", "WA"))
USStates.Add(New USState("West Virginia", "WV"))
USStates.Add(New USState("Wisconsin", "WI"))
USStates.Add(New USState("Wyoming", "WY"))
ListBox1.DataSource = USStates
ListBox1.DisplayMember = "LongName"
ListBox1.ValueMember = "ShortName"
End Sub
Private Sub InitializeComponent()
End Sub
Private Sub ListBox1_SelectedValueChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles ListBox1.SelectedValueChanged
If ListBox1.SelectedIndex <> -1 Then
textBox1.Text = ListBox1.SelectedValue
End If
End Sub
End Class
End Class
|
|
|
|
|
IF possible can i make application that can search any email address?
Socheat
................
|
|
|
|
|
You'll have to explain what you mean by "search any email address"...
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
