|
VB6 was retired many, many years ago; it was replaced with VB.NET.
It is very unlikely you will get a response on how to accomplish your task in VB6; possibly, someone may answer if it is VB.NET related.
Having said that, if you would like some help with an issue, please provide what you've already done. No one will write the code for you, but they may provide help if you show what you've done and explain what it is you're trying to do.
|
|
|
|
|
I want to Fit the Font in Fixed length Textbox and Label how can i do?
|
|
|
|
|
Did you read what I wrote?
Have you provided a code sample?
No one will write the code for you; show what you've done and they may help.
|
|
|
|
|
I have a form which have textbox and dtpicker for inputting data which I store those data in msaccess database. When I export those data to ms excel from another form the date data becomes meaningless or its not exporting as the date enter in the form. Is there anyway to rectify this problem or should I use a text box for inputing date on my form instead of datepicker.
Would be grateful if anyway suggest a way to solve this problem.
Thank you.
Zela
|
|
|
|
|
lazy_dude wrote: the date data becomes meaningless What exactly do you mean?
|
|
|
|
|
I have a vb form where i have number of textbox and dtpicker field, the data input are store in ms access file. When I extract those data from a vb form to ms excel those textbox data comes fine, but the date data which I enter using dtpicker box comes out as numeric not as date enter. I need to transfer those data enter using ms excel file but the date data doesnot come out as I want, thats my problem.
Hope you understand.
|
|
|
|
|
Well, that is basically what you said in your original question, and we still have no idea what you are doing with these values.
|
|
|
|
|
Maybe he's not English Literate.
I'd really like to understand what hep he needs.
Regards, Graham
|
|
|
|
|
So would I, hence my comment.
|
|
|
|
|
We seem to be on the same page, my British friend.
I'm an Australian with Scottish Heritage.
Regards, Graham
|
|
|
|
|
I'm British with mixed heritage, and family connections to Australia.
|
|
|
|
|
Lovely to say hello.
You can eMail me on Graham@sotidi.com.au if you wish.
I'm a retired Programmer of about 25 years experience.
Regards, Graham
|
|
|
|
|
Make sure you are storing your date data in Access in the correct format - date or datetime.
After you export to excel check the format of the date field, it may be set to general or numeric therefore it will be meaningless.
NEVER use text format to store date data!
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Trying to connect to a web API using a simple HttpWebRequest but failing to connect with error: “Could not establish trust relationship for the SSL/TLS secure channel”
When I try using the Postman app I can connect – but only after disabling the “SSL certificate verification” option in Settings.
SO am assuming something similar is the issue with the code, and am wondering if there is a way to do the same there?
|
|
|
|
|
As per this[^] answer found on Stackoverflow.
A comment does warn about the security implications of this, but that's the client's concern - I've informed them....
|
|
|
|
|
Hello coders ^^
+++++ ----- +++++
I work on my 1st project and after the project is done, i made a setup file to be able to install it on different PC.
My problems are:
****************
1- I need to specify the paths for the (.jpg & .wav) files that were used in creating the project to be compatible with the setup file location (which is different from PC to another)
2- I use arabic letters in creating the project, so I can't proceed to install step and I get 3 errors:
A- "Error: -7184: the filename column of the file table includes characters that aren't available on code page 1252 "
B- "Error: -7184: the value column of the MsiAssemblyName table includes characters that aren't available on code page 1252 "
C- "Error: -7185: the English (united States) translation for string identifier IDS_SHORTCUT_DISPLAY_NAME1 includes characters that aren't available on code page 1252 "
Can anyone help about that issue ?
|
|
|
|
|
In general you should avoid using non-ASCII characters for file names and resources. If you still want to use such, you should store them as Unicode strings and ensure that the setup supports Unicode.
For better help you should tell us which kind of setup tool you are using.
|
|
|
|
|
I use install shield 2015
|
|
|
|
|
I'm not using InstallShield but it should support Unicode. A quick web research shows that it is controlled by the "Setup Launcher Type" option which can be ANSI or Unicode.
|
|
|
|
|
How do I restrict a Listbox to 4 entries?
Thanks for looking.
Solved, found this
Listbox1.Items.Count
modified 2-Feb-18 13:50pm.
|
|
|
|
|
The ListBox doesn't support such limitations. You'd have to create your own ListBox and add that functionality.
|
|
|
|
|
It may not be supported but using this
If LstMat1.Items.Count = 4 Then it did what I required.
|
|
|
|
|
Seriously, I thought you were writing this for other developers to use. Of course, it's that easy if you're the only one doing this for a single ListBox.
If you're looking to reuse this in multiple places, you'd have to make your own version of the ListBox.
|
|
|
|
|
Hi Dave,
I only ever code for myself, it's a hobby nothing more, this program is for the bowling club that I attend on Wednesday nights, we have 4 mats and when your game is finished the names of the 4 players go back in to the pool and the next 4 players use the mat you've just left.
Below is the complete code, not that you need it but you can see what I did, no comments as it's only for me to play with.
Public Class Form1
Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
If e.KeyCode = Keys.Enter Then
Static Fillup = 1
Select Case Fillup
Case 1
LstMat1.Items.Add(TextBox1.Text)
TextBox1.Text = String.Empty
If LstMat1.Items.Count = 4 Then
Fillup = 2
End If
Case 2
LstMat2.Items.Add(TextBox1.Text)
TextBox1.Text = String.Empty
If LstMat2.Items.Count = 4 Then
Fillup = 3
End If
Case 3
LstMat3.Items.Add(TextBox1.Text)
TextBox1.Text = String.Empty
If LstMat3.Items.Count = 4 Then
Fillup = 4
End If
Case 4
LstMat4.Items.Add(TextBox1.Text)
TextBox1.Text = String.Empty
If LstMat4.Items.Count = 4 Then
Fillup = 5
End If
Case 5
LstNames.Items.Add(TextBox1.Text)
TextBox1.Text = String.Empty
End Select
End If
End Sub
Private Sub BtnMat1_Click(sender As Object, e As EventArgs) Handles BtnMat1.Click
Static num = 3
For clearLb = 0 To 3
LstNames.Items.Add(LstMat1.Items(num))
LstMat1.Items.Remove(LstMat1.Items(num))
num = num - 1
If num = -1 Then
For fillLb = 0 To 3
LstMat1.Items.Insert(0, LstNames.Items(0))
LstNames.Items.Remove(LstNames.Items(0))
num = 3
Next
End If
Next
End Sub
Private Sub BtnMat2_Click(sender As Object, e As EventArgs) Handles BtnMat2.Click
Static num = 3
For clearLb = 0 To 3
LstNames.Items.Add(LstMat2.Items(num))
LstMat2.Items.Remove(LstMat2.Items(num))
num = num - 1
If num = -1 Then
For fillLb = 0 To 3
LstMat2.Items.Insert(0, LstNames.Items(0))
LstNames.Items.Remove(LstNames.Items(0))
num = 3
Next
End If
Next
End Sub
Private Sub BtnMat3_Click(sender As Object, e As EventArgs) Handles BtnMat3.Click
Static num = 3
For clearLb = 0 To 3
LstNames.Items.Add(LstMat3.Items(num))
LstMat3.Items.Remove(LstMat3.Items(num))
num = num - 1
If num = -1 Then
For fillLb = 0 To 3
LstMat3.Items.Insert(0, LstNames.Items(0))
LstNames.Items.Remove(LstNames.Items(0))
num = 3
Next
End If
Next
End Sub
Private Sub BtnMat4_Click(sender As Object, e As EventArgs) Handles BtnMat4.Click
Static num = 3
For clearLb = 0 To 3
LstNames.Items.Add(LstMat4.Items(num))
LstMat4.Items.Remove(LstMat4.Items(num))
num = num - 1
If num = -1 Then
For fillLb = 0 To 3
LstMat4.Items.Insert(0, LstNames.Items(0))
LstNames.Items.Remove(LstNames.Items(0))
num = 3
Next
End If
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
LstNames.Items.Remove(LstNames.SelectedItem.ToString)
End Sub
End Class
|
|
|
|
|
A gentle suggestion...
Even though you are the only user, I still advise you to rename your textboxes to more meaningful names than the default TextBox1 - get into good habits
|
|
|
|