|
Try adding the control to the frame
if yor frame is frame1 then write:
dim tmpctl as new windows.forms.button
frame1.controls. add(tmpctl)
tmpctl.visable=true
bah10z
|
|
|
|
|
How can I create a setup for a VB6.0 application which uses the MS SQL Server as database? Can anyone help me? I want to run a setup by which the sql server will be loaded with the database and tables along with the application.
|
|
|
|
|
I can't believe people still deploy VB6 apps..... It's the stone age.
You need to install SQL Server, and either attach a DB you deploy, or run scripts to create it.
Christian Graus
Driven to the arms of OSX by Vista.
"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.
I can do things with my brain that I can't even google. I can flex the front part of my brain instantly anytime I want. It can be exhausting and it even causes me vision problems for some reason. - CaptainSeeSharp
|
|
|
|
|
I am just fresher to programming. May I use the MSDE service for creating the database?
|
|
|
|
|
Member 4745632 wrote: I am just fresher to programming
That is even worse.
Sometimes there are legacy apps in VB6, but as a n00b you should get VB.Net
It is a freeby download as express, and is both supported here and supported by MS with easier controls for nailing on a database and other functionality.
------------------------------------
"When Belly Full, Chin Hit Chest"
Confucius 502BC
|
|
|
|
|
Well said, but to add, VB.Net is by far extremely more beneficial to the beginner due to it's simplistic syntax and readability. Starting off with a depreciated language will lead to bad practice and poor customs.
You will round yourself off to be a better programming with vb.net and if you ever make the jump to other programming languages the practices you learn from VB.Net will be extremely valuable.
|
|
|
|
|
Member 4745632 wrote: I am just fresher to programming.
As someone else said, then it is pure idiocy for you to use VB6. Has a class made you learn this ? It is a terrible language, and it's unsupported. You should move to VB.NET.
In answer, you can use MSDE as a database server, but you still need to attach or script your database to it.
Christian Graus
Driven to the arms of OSX by Vista.
"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.
I can do things with my brain that I can't even google. I can flex the front part of my brain instantly anytime I want. It can be exhausting and it even causes me vision problems for some reason. - CaptainSeeSharp
|
|
|
|
|
Hello,
i want to design my Panels like what we have on the right hand side when we open mycomputer.but the problem is at bottom panels,i've used 5 diff panels,2buttons one on panel3 and the other on panel5.
when iam clicking on up arrow button1(which is on panel3) to hide(unexpand) the labels of panel2 i want that panel4 and panel5 should move up next to the panel3 and hide the labels of panel2..
here is the code..
button1.click
If expanded = True Then
expanded = False
Button1.Image = ImageList1.Images(1)
Panel2.Height = Panel3.Height
'Me.Panel5.Height = Me.Panel5.Height - 35(Here there should be code which will move my panel5 up)
'Me.Panel4.Height = Me.Panel4.Height - 68((Here there should be code which will move my panel4 up)
Else
expanded = True
Button1.Image = ImageList1.Images(0)
Panel2.Height = oldheight
'Me.Panel5.Height = Me.Panel5.Height + 90(Here i want my panel5 to get back to their original location or height)
'Me.Panel4.Height = Me.Panel4.Height + 144(Here i want my panel4 to get back to their original location or height)
End If
Anyone specially MVP Plzzz Help me...
Thanks.
|
|
|
|
|
The way that the Explorer Bar in My Computer works is different to the way that you are trying to do it.
In My Computer clicking the button on Panel 3 hides the content of panel 3, it does not hide panel 2.
Do you want to continue doing it the way you are, or do you want to do it like the ExplorerBar actually does it?
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
I want like Standard ExplorerBar.Please i need the code of when one panel shrink or unexpand, the others panels comes towards up..
Waiting for ur reply
Thanks a lot
|
|
|
|
|
OK.
This could take a long time, because it is quite complicated.
All of the ExplorerBar implementations I have seen have a Control that acts as the host for the XPPanels. It is this Host control that maintains a list of it's XPPanels and organizes them when one shrinks or grows.
It goes something like this.
The XPPanel Control has an event (just for this explanation I'll call it PanelSizeChanged).
The host control overrides the OnControlAdded method something like this
Protected Overrides Sub OnControlAdded(ByVal e As System.Windows.Forms.ControlEventArgs)
MyBase.OnControlAdded(e)
If e.Control Is XPPanel Then
newPanel As XPPanel = e.Control
Me.panels.Add(newPanel) ' panels is a collection in the host control for keeping track of XPPanels
AddHandler newPanel.PanelSizeChanged, New XPPanelSizeChangeHandler(AddressOf Me.SizeChangeMethod)
' and whatever else needs doing
End If
End Sub
Now whenever a XPPanel changes size the host runs the SizeChangeMethod. In that method it starts with the XPPanel that changed (the sender from the ByVal sender As System.Object parameter), finds its index in the panels collection and makes a note of where its bottom is (something like lastBottom AS Int32 = panels(index).Bottom).
Then it gets the next XPPanel and sets its top to be lastBottom plus whatever you choose as the gap between panels, after that it sets lastBottom to equal the bottom of this XPPanel. Then it gets the next panel, repeats the above until it has dealt with all the panels.
If you do not know how to raise Events or create EventHandlers, you will need to do some research on that before proceeding.
Henry Minute
Do not read medical books! You could die of a misprint. - Mark Twain
Girl: (staring) "Why do you need an icy cucumber?"
“I want to report a fraud. The government is lying to us all.”
|
|
|
|
|
Dear All,
Our requirement is a cab has assigned to Pick and Drop the employee for each and every shifts for the selective date. So, we need to show how much distance a cab has travelled, then we need to show that cab has been assigned for Pick/Drop for all the selective date.
As per my Procedure we can get the "Shift Date Time", "Cab No", "Pick/Drop" value, etc....
In Range chart I need to show the "Shift Time" in "X Axis" like "9 AM", "10 AM", "11 AM".....upto Next day "8 AM".
then In "Y Axis" I need to show "Shift Date Time" & "Cab No." which come from table.
In "Y Axis" i can not show the "Shift Date Time", So, I tried to show in "X Axis", but I can show only shift Date not time.
Actually I need to show the shift date in "Y Axis" only.
If any one have the solution, Please reply me.
Thanks in Advance.
Regards,
Jegan.K
9994388922
Jegan
|
|
|
|
|
Hello, I like to make a simple application which can execute mail-merge that I've made before using ms word. The application load that document, then I can fill the merge-field from the datagridview in vb.net. Can someone help me, I need some references or maybe final source-code. I've searched through google, but I couldn't find it. Projects that were found there using database as the datasource (not datagridview).
Thanks,
Indra Permana Rusli
- No Signature Available -
|
|
|
|
|
hi,i am trying to design a property grid that consisits of multiple drop downs of user defined and move those values selected to a variable in back end vb.net code and perform some matha matical calculations.
But i am not able to create multiple dropdowns in single group can any one help?
modified on Tuesday, June 23, 2009 7:34 AM
|
|
|
|
|
That's great news. Why are you telling us this ? Did you have a specific problem ? You should tell us what it is, and post some code so we can help.
Christian Graus
Driven to the arms of OSX by Vista.
"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.
I can do things with my brain that I can't even google. I can flex the front part of my brain instantly anytime I want. It can be exhausting and it even causes me vision problems for some reason. - CaptainSeeSharp
|
|
|
|
|
above i modified my question in proper way.
My main problem is i am creating multiple drop downs using class for each dropdown.i created one drop down but i can not able to create multiple.
Getting error called base class have multiple definetions. code i am trying for drope down is:
Imports System.ComponentModel
Public Class MotoList1 : Inherits System.ComponentModel.StringConverter
'''
'''
Private _Title As String
Private _Show As Boolean
Private _Number As Short
'''
<CategoryAttribute("Other Inputs"), _
Browsable(True), _
[ReadOnly](False), _
BindableAttribute(False), _
DefaultValueAttribute(""), _
DesignOnly(False), _
DescriptionAttribute("Enter Title for the application")> _
Public Property Title() As String
Get
Return _Title
End Get
Set(ByVal Value As String)
_Title = Value
End Set
End Property
'''
<CategoryAttribute("Other Inputs"), _
Browsable(True), _
[ReadOnly](False), _
BindableAttribute(False), _
DefaultValueAttribute("True"), _
DesignOnly(False), _
DescriptionAttribute("Show option")> _
Public Property Show() As Boolean
Get
Return _Show
End Get
Set(ByVal Value As Boolean)
_Show = Value
End Set
End Property
'''
<CategoryAttribute("Other Inputs"), _
Browsable(True), _
[ReadOnly](False), _
BindableAttribute(False), _
DefaultValueAttribute("0"), _
DesignOnly(False), _
DescriptionAttribute("Enter a number")> _
Public Property Number() As Short
Get
Return _Number
End Get
Set(ByVal Value As Short)
_Number = Value
End Set
End Property
Dim _Motor1in As String() = New String() {"400", "500"}
Public Overloads Overrides Function GetStandardValues(ByVal context As System.ComponentModel.ITypeDescriptorContext) As System.ComponentModel.TypeConverter.StandardValuesCollection
Return New StandardValuesCollection(_Motor1in)
End Function
'''
Public Overloads Overrides Function GetStandardValuesSupported(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
Return True
End Function
'''
Public Overloads Overrides Function GetStandardValuesExclusive(ByVal context As System.ComponentModel.ITypeDescriptorContext) As Boolean
Return True
End Function
'''
End Class
here while am trying to create another drop down --GetStandardValues-- i got error as function can not be over ride
that is the my problem
|
|
|
|
|
i have written this code for adding the values in to the database
i m using vb6 and Microsoft Access
i m gettin an error " SYNTAX ERROR IN INSERT INTO STATEMENT "
PLS HELP ME...
Private Sub Command1_Click()
Dim db As New ADODB.Connection
Set db = New ADODB.Connection
Dim adoRecordset As ADODB.Recordset
Set adoRecordset = New ADODB.Recordset
Dim sSQL As String
Dim name As String
Dim number As String
Dim qualification As String
Dim experience As String
Dim phone_no As String
Dim dealer As String
name = Text1.Text
number = Text2.Text
qualification = Text3.Text
experience = Text4.Text
phone_no = Text5.Text
dealer = Text6.Text
sSQL = "INSERT INTO datatable (Name, Number, Qualification, Experience, Phone_No, New_Dealer) values('name','number', 'qualification', 'experience', 'phone_no', 'dealer')"
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\helpdesk-ngp\My Documents\sp\dataend.mdb;Persist Security Info=False"
adoRecordset.Open sSQL, db, adOpenDynamic, adLockOptimistic
adoRecordset.Close
End Sub
spruhas
|
|
|
|
|
instead of this
sSQL = "INSERT INTO datatable (Name, Number, Qualification, Experience, Phone_No, New_Dealer) values('name','number', 'qualification', 'experience', 'phone_no', 'dealer')"
you will have to construct a string like this
sSQL = "INSERT INTO datatable (Name, Number, Qualification, Experience, Phone_No, New_Dealer) values('" & name & "','" & qualification .....etc
as name,qualification are variables
cheers 
TheMrProgrammer
|
|
|
|
|
i m still getting the same error
at this line
adoRecordset.Open sSQL, db, adOpenDynamic, adLockOptimistic
purvas
|
|
|
|
|
It's obvious you have no idea what you're doing. I therefore assume you're new to VB6. VB6 is unsupported, and was always garbage. Abandon it if you can, and learn a real language, or, at least, VB.NET.
Christian Graus
Driven to the arms of OSX by Vista.
"! i don't exactly like or do programming and it only gives me a headache." - spotted in VB forums.
I can do things with my brain that I can't even google. I can flex the front part of my brain instantly anytime I want. It can be exhausting and it even causes me vision problems for some reason. - CaptainSeeSharp
|
|
|
|
|
Change your SQL Statement like this
sSQL = "INSERET INTO datatable (Name, Number, Qualification, Experience, Phone_No, New_Dealer) VALUES ('" & Name & "','" & Number & "','" & qualification & "','" & experience & "','" & phone_no & "','" & dealer & "'"
|
|
|
|
|
i have changed but still get the same error at this line
adoRecordset.Open sSQL, db, adOpenDynamic, adLockOptimistic
purvas
|
|
|
|
|
NAME and NUMBER are reserved keywords in Microsoft Access and you should avoid using them as column names. The best solution is to rename the columns in your table to something like DEALER_NAME and DEALER_NO. If you can't rename the columns, then you can change your insert statement to
INSERT INTO datatable ([Name], [Number], Qualification... etc. But that is a workaround, not a real fix. Much better in the long run to fix it properly.
|
|
|
|
|
THANK YOU EVERY BODY
THE PROBLEM IS SOLVED
purvas
|
|
|
|
|
Hello,
I would like to know how to work with OpenGL with Visual Basic .Net.
Thanks
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
