|
Hi,
I'm trying to print a form in vb6.0, without the background? The option
Printform, prints with the background even if i make forms DrawStyle Transparent. Is there a way to print a forms components as Textbox, Labels without the background????
It's quite urgent!!!
Thanks & Regards!!!
|
|
|
|
|
Hi
I want to generate on Demand Report /Nested Report in Crystal report 8.0 using Visual Basic 6.0 . I genegrate the
on demand report in Crystal report , it work at design mode well, but Calling It from Visual Basic , It works Simple Report , Link does not work .
Can u Suggest me , or Give some code for to solve the problem .
Thanks in Advance.
Manoj
|
|
|
|
|
hi to all
i have datagrid that contain a field with text .
i can not view all the text in the datagrid when i click on it ,
i remmber in vb 6.0 there was an option that when i click on the datagrid i can view it with all the text in the fields , the data grid exspand to height
thxx for anyhelp .
|
|
|
|
|
Try:
textboxname.TextBox.Multiline = True
textboxname.TextBox.ScrollBars = ScrollBars.Vertical
could also use:
ScrollBars.Horizontal
ScrollBars.Both
ScrollBars.None
hope that helps..
|
|
|
|
|
Hi.
Assume that we have an extender control (such as tooltip).
How can we add a Custom TypeEditor for extended property (such as tooltiptext).
Reza
|
|
|
|
|
Can you help me by providng with necessary code
Ravi Pratap
|
|
|
|
|
code:
Dim strme As String = Directory.GetCurrentDirectory
txtStatPath.Text = strme
error:
An unhandled exception of type 'System.NullReferenceException' occurred in foldingathomestatcompare.exe
Additional information: Object reference not set to an instance of an object.
don't know what the heck is going on but when i put it in a msgbox it works but as soon as i try and assign it to a textbox it doesn't work. someone please tell me what is wrong, and at all possible why.
|
|
|
|
|
My guess is that this code is in your constructor (ie: Sub New) just above the InitializeComponent() method. Am I right?
You see, your member variable txtStatPath (which I'm guessing is a TextBox) is assigned a reference in the InitializeComponent() method. Before that method gets called, txtStatPath is initialized to Nothing which would cause that NullReferenceExcepection that you are seeing.
The best place to put this code is in your Form Load event.
|
|
|
|
|
Private Sub frmSettings_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
'retrieves settings from registry
getSettings()
'sets default path if not set to current directory
Dim strme As String = Directory.GetCurrentDirectory
txtStatPath.Text = strme
End Sub
as you can see it is not set and it is in the form load, altho this is a form that is loaded after the main form would that make a difference?
|
|
|
|
|
I recommend that you do a search for txtStatPath within your source file. Make sure that you search within all #Regions.
You'll want to make sure that txtStatPath gets assigned. You should see something like...
txtStatPath = New TextBox
|
|
|
|
|
Friend WithEvents txtStatPath As System.Windows.Forms.TextBox
Me.txtStatPath = New System.Windows.Forms.TextBox
Me.Controls.Add(Me.txtStatPath)
i pulled out all the txtStatPath info except for it's size location and such but it was in there.
|
|
|
|
|
Hmmm... it looks like your TextBox member variable is okay.
Have you tried stepping through your code in debug mode? Try placing a break point at the beginning of your Form Load event code and see exactly where your exception is occuring. It might not be crashing where you think it is.
|
|
|
|
|
HI, VB Net used.I have this form that has tree View on the left and a data grid
On the right being fill by a Database Access from a dataset. I have
Already set the connection with Oledb 4.0 making a dataset, and using the following
Request requete = "SELECT * FROM PRODUITS WHERE CATEGORIE = 'Inventaire\Bushing';"
Up to hire OK. I would like to know if it is possible to replace the condition in the WHERE clause like this example 'Inventaire\Bushing';" by a variable like this 'lb1Path.Text. I try this, but it doesn’t work see my example: request
requete = "SELECT * FROM PRODUITS WHERE CATEGORIE = 'lb1Path.Text';"
As you can see what I am trying to do is when I click on one of the tree nodes who
Are by the way Category to put up trough the variable lb1Path.Text. May be there are other ways to do that, if so a lot of help will be appreciate. Thank you
See my code sorry for the French.
Private Sub se_connecter(ByVal requete As String, ByVal table As String)
Dim base, chemin As String
'Chemin d'accès à la b.d. située dans le dossier bin
chemin = Application.StartupPath & "\INVENTAIRE.MDB"
base = "provider=microsoft.jet.oledb.4.0;data source=" + chemin
Dim connexion As OleDbConnection = New OleDbConnection(base)
connexion.Open()
'Lien entre la base et la requête
Dim Liaison As New OleDbDataAdapter(requete, base)
Dim Memoire As New DataSet
'Charge la table en mémoire
Liaison.Fill(Memoire, table)
Dim Vue As New DataView(Memoire.Tables(table))
grille.DataSource = Vue
connexion.Close()
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
Dim node As System.Windows.Forms.TreeNode
node = TreeView1.SelectedNode
lb1Path.Text = sender.SelectedNode.FullPath
'MessageBox.Show(TreeView1.SelectedNode.ToString)
'Dim choix As Byte
Dim requete, table As String
'Sélectionne tout
requete = "SELECT * FROM PRODUITS WHERE CATEGORIE = 'Inventaire\Bushing';"
table = "PRODUITS"
se_connecter(requete, table)
'J’essaiyé ceci mais ca marche pas
requete = "SELECT * FROM PRODUITS WHERE CATEGORIE = 'lb1Path.
|
|
|
|
|
Try out this code:
requete = "SELECT * FROM PRODUITS WHERE CATEGORIE='"& lb1Path.text & "'"<br />
or <br />
requete = "SELECT * FROM PRODUITS WHERE CATEGORIE ='"+lb1Path.text+"';"
I hope it'll work fine
go ahead... happy programming....
Uttam;)
try to be the best... whereever you go,
|
|
|
|
|
I dount there is a way to do this, but does anybody know if i could make a program in VB.Net that will save Word Documents your working on every so often? (I hope you can understand my question)
|
|
|
|
|
Microsoft Word can already do this for you.
Just go to Tools\Options on the menu, select the Save tab, and check "Allow background saves" and "Save AutoRecovery info".
|
|
|
|
|
Hi every body.
I have some problem using date while changing My.Application.culture.
let we say that the regional setting have the date MM/dd/yyyy, and My.Application.Culture have the date dd/MM/yyyy, so any parsing from string to date or from date to string will reverse day and month.
in my project I have a combobox that was be filled using some date from a database. while filling it, all date was converted automatically from MM/dd/yyyy to dd/MM/yyyy. when I choose an item and I click on my button, I use CDate(combobox1.text) because I will call a function that need a date parameter: Sub New(ByVal SchoolId As Integer, ByVal YearStartDate As Date)
the cdate return the string to MM/dd/yyyy, so YearStartDate will be in MM/dd/yyyy format. i
n the sub New, I will search the date in a database , I use a command:
Dim command As New OleDb.OleDbCommand( _
"SELECT tYears.* FROM tYears WHERE tYears.YearStartDate = #" & YearStartDate & "# AND tYears.SchoolId=" & SchoolId _
, cn)
in this command the date will be reformatted in MM/dd/yyyy so it was reversed....
example:
1-the date in the first database is 10/05/2005 with MM/dd/yyyy format as same as regional setting.
2-it will appear 05/10/2005 in the combobox because my culture have the dd/MM/yyyy format.
3-when I use CDate it makes it 10/05/2005
4-when I use the Select command the string make it 05/10/2005, so I will search 05/10/2005 that will be never found!!!!!!!!!!!!!!!!!!
what is the solution?????????????????????//
thanks
OmarMallat
|
|
|
|
|
May I found the solution, but how can I get and set the regional setting date format from my application????
OmarMallat
|
|
|
|
|
You can get the current regional setting's date format via...
Application.CurrentCulture.DateTimeFormat.ShortDatePattern
Setting the date format is another matter. The above property is read-only, so the only way to change the date format just for your application is to overwrite your app's current CultureInfo.
Dim info As System.Globalization.CultureInfo<br />
info = System.Globalization.CultureInfo.CurrentCulture<br />
info = New System.Globalization.CultureInfo(info.LCID, True)<br />
info.DateTimeFormat.ShortDatePattern = "dd/MM/yyyy"<br />
System.Threading.Thread.CurrentThread.CurrentCulture = info
|
|
|
|
|
I know how to change a culture and read the date format for a culture, but I want to read the and set the date format of the windows, like if I go to Regional and languages control and change it...
Don't worry and thank you very much, but can you help me. I think that I can do a same thing using API (GetLocalInfo, SetLocalInfo), but still searching....
OmarMallat
|
|
|
|
|
Hi all,
anyone knows if can convert a pdf page to image?
if so, where can i find examples? or anybody can tell me how.
thanks, an happy Xmas from Spain...
|
|
|
|
|
I have a web page, where after the users enters the data, they should be able to go back and modify data on all the pages. I am using ASP and VBSCript. I am using session variables and getting all the data, into the controls for modifying, but there is a page, which it has a radio button "yes" and "no", if you click yes, it shows more controls.
now, my question is when they come back to modify data and if the session values is yes, it is checked yes, but how shall I show the other controls without clicking on the radio buttons, or how to call the click event within the VBScript.
I need to call the "show('hideable1') method from VBScript if, the session value is yes....
Thanx,
abhi
example code....
onClick="show('hideable1')" name="radio_aspiration" value="yes" '<%if Session("rdaspiration") = "yes" then %>' checked '<%end if%>'> yes
' checked '<%end if%>'> no
abhi
|
|
|
|
|
I would do something like this:
<script>
window.onload = LoadDefaults(<% Session("rdaspiration") %>);
</script>
<script>
function LoadDefaults(rdaspiration)
{
if (rdaspiration == "yes" ) { show("hideable1") }
else {show("hideable2") }
}
</script>
I think something like that should work. I didn't try it in a browser so the syntax may not be correct but the general idea should work.
"Half this game is ninety percent mental."
- Yogi Berra
|
|
|
|
|
I wantto override Textbox class for date entry.
Format is gg.mm.yyyy
I wrote code below, but user enters 3. number for month, cursor goes to begining of the date.
what do u offer me. (I CANT USE MASKEDTEXTBOX, because clients use Windows ME)
Private Sub DateTimeExtended_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress<br />
Dim asciiInteger As Integer = Asc(e.KeyChar)<br />
Select Case asciiInteger<br />
Case 48 To 57 'Sayi<br />
select case me.text.length<br />
case 2: me.text &= "."<br />
case 5: me.text &= "."<br />
end select<br />
e.Handled = False<br />
Case 8 'Backspace<br />
e.Handled = False<br />
Case Else<br />
e.Handled = True<br />
End Select<br />
End Sub
|
|
|
|
|
You need to set the cursor back to the end of the string. You can do that with the following line:
DateTimeExtended.SelectionStart = me.text.length
However, this would still cause problems, for instance, if the length is 5, and you go back and change character 2. You need more length checking. Try the following code:
Private Sub DateTimeExtended_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress<br />
Dim asciiInteger As Integer = Asc(e.KeyChar)<br />
Dim currentPosition As Integer<br />
Select Case asciiInteger<br />
Case 48 To 57 'Sayi<br />
currentPosition = Me.SelectionStart<br />
If currentPosition = Me.Text.Length Then<br />
Select Case Me.Text.Length<br />
Case 2<br />
Me.Text &= "."<br />
currentPosition = currentPosition + 1<br />
Case 5<br />
Me.Text &= "."<br />
currentPosition = currentPosition + 1<br />
End Select<br />
End If<br />
Me.SelectionStart = currentPosition<br />
e.Handled = False<br />
Case 8 'Backspace<br />
e.Handled = False<br />
Case Else<br />
e.Handled = True<br />
End Select<br />
e.Handled = False<br />
Case 8 'Backspace<br />
e.Handled = False<br />
Case Else<br />
e.Handled = True<br />
End Select<br />
End Sub
Roy.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
