|
Hi Dear freinds.
How can I add a bitmap picture(existing in my project resource) for my control toolboxbitmap?
|
|
|
|
|
Mansourgh wrote: my control toolboxbitmap
What kind of control is it, a toolbar, or a custom control?
My advice is free, and you may get what you paid for.
|
|
|
|
|
Johan Hakkesteegt wrote: My advice is free, and you may get what you paid for.
I love the signature! 
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
1- add your 16x16 bitmap to your project
2- the name of bitmap must be the same as your user control (YourControl.bmp)
3- in property tab of your bitmap, set build action to embeded recource
4- rebuild your project
now after adding your control to toolbox you will see that bitmap.
----------------------------------
another way is using ToolboxBitmapAttribute
|
|
|
|
|
How do you build a string from parts of another string. ie: If I have a stringIn$ with the following: "C",,,4,,3,,,C6mn,,,,. How do I select parts out of stringIn$ out and put them into stringOut$. I know how to test for the parts(bytes)I might want. I need to know how to move them over to specific places in the output string. I can do it in 3 other languages but not in Basic. Any and all will be appreciated.
|
|
|
|
|
VB6, or VB.NET ? In VB.NET, the split method would turn that into a bunch of substrings, based on the , or any delimiter you like.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
Thanks for the reply. I am trying to learn VB6 but the split method I don't know?
T hanks
Ronw
|
|
|
|
|
Not sure if VB6 has it. Why would you learn VB6 ? It's out of date and unsupported. VB.NET Express Edition is free.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
|
Sounds like you need research the .Split[^] and .Substring [^]
or just string basics.[^]
Example:
Dim strA as String = "Hello, World"<br />
Dim strB as String = strA.Substring(7)<br />
'strB = "World"
Hope this helps.
|
|
|
|
|
Yes, it helps and it is a good starting point.
Thanks
r west
|
|
|
|
|
to anyone who has encounter appforge.. pls help..
im encountering problem with the PDBOpen method..this is my code..
Public Function OpenPatientInfoDatabase() As Boolean
lType = PalmIDtoLong("DATA")
lCreator = PalmIDtoLong("!!)<")
' Open the database
#If APPFORGE Then
'when running on the device
dbPatientInfo = PDBOpen(Byfilename, "PatientInfo", 0, 0, 0, 0, afModeReadWrite)
#Else
'when running on windows
dbPatientInfo = PDBOpen(Byfilename, App.Path & "\PatientInfo", 0, 0, 0, 0, afModeReadWrite)
#End If
If dbPatientInfo <> 0 Then
'We successfully opened the database
OpenPatientInfoDatabase = True
Else
'We failed to open the database
OpenPatientInfoDatabase = False
#If APPFORGE Then
MsgBox "Could not open database - PatientInfo", vbExclamation
#Else
MsgBox "Could not open database - " + App.Path + "\PatientInfo.pdb" + vbCrLf + vbCrLf + "Potential causes are:" + vbCrLf + "1. Database file does not exist" + vbCrLf + "2. The database path in the PDBOpen call is incorrect", vbExclamation
#End If
End If
End Function
..at the line dbPatientInfo = PDBOpen(Byfilename, App.Path & "\PatientInfo", 0, 0, 0, 0, afModeReadWrite)
there is an error: byfilename is a variable undefined..
how could this be?i know byfilename is a keyword to pdopen..
help..
|
|
|
|
|
jbboy wrote: ..at the line dbPatientInfo = PDBOpen(Byfilename, App.Path & "\PatientInfo", 0, 0, 0, 0, afModeReadWrite)
there is an error: byfilename is a variable undefined..
how could this be?i know byfilename is a keyword to pdopen..
Keywords are specific to the language you're writing in, not the library. I think you're talking about the value of a contant or enum in the library. To VB, you tried to pass in the contents of a variable that you haven't even declared anywhere. That value should be declared in the library somewhere. I suggest going back to the documentation on the library and looking up this method or searching for a sample.
I know nohting of the library that you're using, so this is just a guess, but it looks like it should read like this:
dbPatientInfo = PDBOpen("Byfilename", App.Path & "\PatientInfo", 0, 0, 0, 0, afModeReadWrite)
or some other value, possibly like:
dbPatientInfo = PDBOpen(YourLibraryName.Byfilename, App.Path & "\PatientInfo", 0, 0, 0, 0, afModeReadWrite)
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
thanks for the reply..
actually pdbopen is under the appforge library.. appforge is an addin to vb where you can develop mobile apps..
Byfilename is like an option of PDOpen like the afModeReadWrite..
thanks again..
|
|
|
|
|
i m using vb.net2005 windows application. i've on my computer word 2003 and 2000 both. i've referenced PIA's for word 2003. everything is working fine like bookmark,save,open,add,close. but when i am using printout method , on my pc it is running fine. but i am deploying on server and trying to run from client computer ..it s giving error ..comexeption ..library is not registered and hresult#.
Client have word 2000. doesnt have 2003. but all other methods are working in word 2000 . only i m having problem with printout.
If somebody know the solution pls. reply me asap.
Thanks
Hemaxi
|
|
|
|
|
 can anyone answer to me?
how can i get info of my connection? like sent or received bytes and pockets, how much is it connected and other info? and how can i connect to adsl trough my application, i am currently connecting through shortcut of connection which is on my desktop so i use:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Process.Start(Environment.SpecialFolder.Desktop + "\Adsl.lnk")
End Sub
This works but i want that in my app i can chose from combobox which connection i want to connect to and that it gets connections that are stored in control panel or whatever and that i connect directly so i don't have to create shortcuts, and that i can see info about connection ad that i can disconnect through a button and other stuff... Pleaseeeeeeeee Help!
Thanks for any help...
|
|
|
|
|
|
not really but thanks for giving even a little help... ![Beer | [beer]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/beer.gif)
|
|
|
|
|
I am trying to set a status column equal to 1 or 3 if it contains certain text in the lineitemnotes column. For example, if lineitemnotes contain the text "refunded" then the status is equal to 1 and if lineitemnotes contain the text "Added During Receiving" then status equal to 3. The problem I am having is it will set the first column with the text "refunded" and all the other stauts columns to 1 until it hit the column with the text "Added During Receiving" then all the status columns will be set to 3. However, I only want the status column to be 1 if the lineitemnites column contains the text "refunded" and status column equal to 3 if lineitemnotes column contains "Added During Receiving". Hope this is understandable. Here is my broke code to give an idea of what I am trying to do.
If Trim(row("wtnumber").ToString()) & Trim(row("wtcustomername").ToString()) = "" Then
If Trim(row("lineitemnotes").ToString.Contains("Refunded")) Then
customername = "Refunded"
status = "1"
ElseIf Trim(row("lineitemnotes").ToString.Contains("Added During Receiving")) Then
customername = "Stock"
status = "3"
End If
End If
I don't know if the contains command is correct or not. Any ideas will help.
jds1207
|
|
|
|
|
What is customername? A String variable? A column name?
Nate Lindley
|
|
|
|
|
customername is a string variable.
Dim customername As String
Dim status As String = vbEmpty
|
|
|
|
|
If the lineitemnotes column will be exactly 'Refunded' or 'Added During Recieving' then try this:
If Trim(row("wtnumber")).ToString() & Trim(row("wtcustomername")).ToString() = "" Then
If Trim(row("lineitemnotes")).ToLower() = "refunded" Then
customername = "Refunded"
status = "1"
ElseIf Trim(row("lineitemnotes")).ToLower() = "Added During Receiving" Then
customername = "Stock"
status = "3"
End If
End If
What exactly are you doing with the variables after you set them each time? If you're trying to iterate through a table and set the fields of the rows (customername, status) then you should be putting this code inside a For Each loop and either submitting each row individually or updating at the end via a dataset. This code should work though as far as checking the row's column for a certain value.
Nate Lindley
|
|
|
|
|
The variables are being inserted into a MySQL database. I am using a For Each Loop. Here is the code:
For Each row In dtTable.Rows
If row("WTNumber").ToString() = "" Then
SoNum = vbEmpty
Else
SoNum = row("WTNumber").ToString()
End If
If Trim(row("wtnumber").ToString()) & Trim(row("wtcustomername").ToString()) = "" Then
If Trim(row("lineitemnotes").ToString.Contains("Refunded")) Then
customername = "Refunded"
status = 1
ElseIf Trim(row("lineitemnotes").ToString.Contains("Added During Receiving")) Then
customername = "Stock"
status = 3
Else
customername = "Stock"
status = 3
End If
End If
Next row
|
|
|
|
|
No, the lineitemnotes column will not be exactly 'Refunded' or 'Added During Recieving', it comtains othe data too.
|
|
|
|
|
I was wondering if you can add a custom class to the My.Settings object. I mean I know you can because I did, but the problem I'm having is the class won't persist ie. the data isn't saved. The only requirment (I thought) was that the object needed to be serializable, which mine is. So am I doing something wrong, or is this just not an option. I looked for a while but just couldn't find an answer or an example. Also as a general rule, if there even is one, what kind of data should I save using the my.settings object? Should I just stick with basics like form location and color settings or is it appropriate to store whatever you want as long as you wish to store it in an xml format?
Here is a very simple class I made for testing.
<Serializable()> _
Public Class TestClass
Public Name As String
Public Sub New(ByVal name As String)
Me.Name = name
End Sub
End ClassThis is the code I used to extend My.Settings object.
Namespace My
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute(Nothing)> _
Public Property MyTestClass() As TestClass
Get
Return CType(Me("MyTestClass"), TestClass)
End Get
Set(ByVal value As TestClass)
Me("MyTestClass") = value
End Set
End Property
End Class
End Namespace
|
|
|
|
|
wrote: to anyone who has encounter appforge
If you're asking about something obscure, all the more reason to put it in your subject line, so the subset of CPians who can help, will see it. imagine how useful it would be if all the subject lines were variations on 'help help help'
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
