|
I wonder if anyone could help.
How can disable or the X on a form but keep minimize button
Protected Overrides Sub OnClosed(ByVal e As System.EventArgs)
The reason is because I could have another form (child of MDI) open at the time. I want to be able to say "There is a form open cannot do this close"
Is there any code to do this or is it just a case of properties of a form.
|
|
|
|
|
on close event you get e in paramter
write
e.cancel=true ' this is stop from closing and then you can do
me.windowstate= minimize,maximized etc
or what ever
|
|
|
|
|
Not sure about removing the close button without removing the minimize button. You could use the Me.ControlBox = False property but that'll remove minimize, maximize and close.
I think a better solution would be to use the OnClosing method of the form object and set the e.Cancel = True property depending on the conditions you have set.
|
|
|
|
|
Looking at API Guide (very useful program), I found some code in VB that can help you with disabling the close button. I may post back with some udpated .NET code (I have wrote VB and VC# versions but I am at wrong computer), but as of right now this is all that I can contribute. You could also try googling the subject.
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Const MF_BYPOSITION = &H400&
Const MF_REMOVE = &H1000&
Private Sub Form_Load()
Dim hSysMenu As Long, nCnt As Long
' Get handle to our form's system menu
' (Restore, Maximize, Move, close etc.)
hSysMenu = GetSystemMenu(Me.hwnd, False)
If hSysMenu Then
' Get System menu's menu count
nCnt = GetMenuItemCount(hSysMenu)
If nCnt Then
' Menu count is based on 0 (0, 1, 2, 3...)
RemoveMenu hSysMenu, nCnt - 1, MF_BYPOSITION Or MF_REMOVE
RemoveMenu hSysMenu, nCnt - 2, MF_BYPOSITION Or MF_REMOVE ' Remove the seperator
DrawMenuBar Me.hwnd
' Force caption bar's refresh. Disabling X button
Me.Caption = "Try to close me!"
End If
End If
End Sub
|
|
|
|
|
hellow to all ..
can i load OnPaint More than one time at the same forum ?
let say i wanna load OnPaint when i click on a button ?
i am trying to do so , but i recive an error ..
help please ..
thxxx
|
|
|
|
|
What do you mean by "load OnPaint"?
What is the code that you used, and what error message do you get?
---
b { font-weight: normal; }
|
|
|
|
|
i do not get error message ..
but what i wanna do is to be able to call OnPaint , can i call it let say from a button click when i click on the button ?
|
|
|
|
|
microuser_2000 wrote: i do not get error message ..
What did you mean by "but i recive an error", then?
but what i wanna do is to be able to call OnPaint , can i call it let say from a button click when i click on the button ?
You could, but that is not the proper way of redrawing a control. Call the Invalidate method of the control, that will put a message in the queue that tells the message pump that the Paint event has to be called to redraw the control.
---
b { font-weight: normal; }
|
|
|
|
|
me.refresh() forces the form to redraw .. hopes this helps.. also
me.invalidate() I think this also do the same thing.. not sure for this option
|
|
|
|
|
me.invalidate will repaint the entire control.
|
|
|
|
|
Hi,
I am using the contextmenustrip in an application and add the items programmatically at runtime.
What I cant figure out is how to add a second level to the menu, like:
MenuItem 1
MenuItem 2 -> SubItem 1
MenuItem 3
Any help would be highly appriciated.
/Jens
-- modified at 5:20 Monday 7th August, 2006
|
|
|
|
|
Though I can provide you the code but the best thing is you do it your self...
in the design time add the child menu as you like and see the code in the windows designer code area. the same way you have to add dynamically.. also you need the addhandler option with one procedure to add the handler for a dynamically added menu item
|
|
|
|
|
Any ideas how I can have the dropdown portion of a combobox to stay down after it has lost focus. I am tring to attach a tooltip but when my tip pops up the combobox looses focus and the drop down goes back up. I am using vb.net.
Mark Thibodeaux
|
|
|
|
|
|
This is not exactly what I am looking for. Any other suggesttions?
Mark Thibodeaux
|
|
|
|
|
You could override the WndProc for the combo box and prevent the DropDownClosed message from being given to the ComboBox.
|
|
|
|
|
Hi,
I've seen people complain about this error other places, but noone ever answers them...
Can't find solution to this erro message:
'c:\documents....\...xls' could not be found. Check the selling blah blah blah
(it appears in excel when clicking the send to excel button)
It seems it's trying to open a file that doesn't exist yet or something...
Then I can click the button on my apsx page again, and it will work fine in excel...
But any help solving this problem will be very appreciated...
I'm sure some of you have seen this probelm before? :s
-- modified at 4:20 Monday 7th August, 2006
the code:
Response.Clear()
Response.Buffer = True
Response.AddHeader("Content-Disposition", "attachment;filename=Wells.xls")
Response.ContentType = "application/vnd.ms-excel"
Me.EnableViewState = False
Response.Charset = String.Empty
Dim myTextWriter As New System.IO.StringWriter()
Dim myHtmlTextWriter As New System.Web.UI.HtmlTextWriter(myTextWriter)
Exceldg.RenderControl(myHtmlTextWriter)
Response.Write(myTextWriter.ToString())
Response.End()
when i remove the line Response.AddHeader("Content-Disposition", "attachment;filename=Wells.xls")
it just opens the excel inside the browser without errors, so i'm guessing error is from that line for some unknown (to me) reason
|
|
|
|
|
Solved it myself, posting solution for others:
I had and needed this on top of my page
Response.CacheControl = "no-cache"
(Or it wouldn't show last added items..)
Had to remove that line to get the excel thing working...
And to solve the display thing, I just sent a unique new id for each time a record was added (open aaa.aspx?id="& newID &" instead of open aaa.aspx))
|
|
|
|
|
hi,
I want to use the dateTimePicker control in VB.net,with the format dd/MM/yyyy, but I want the cursor to move from dd, to MM then to yyyy,directly while changing the value, so that the user don't have to move with the left arrow.
can anybody help me, please
Regards.
MK
|
|
|
|
|
I need to simulate a mouse click by pressing a button on the keyboard, the button part is fine, i just need to know how to make the mouse click without user input. I would Preferably like to acheive this without the use of APIs, as i dont quite understand how to use them properly.
Help Appreciated! Thanks in advance.
Posted by The ANZAC
|
|
|
|
|
The ANZAC wrote: I would Preferably like to acheive this without the use of APIs, as i dont quite understand how to use them properly.
I don't want to sound harsh here, but why don't you learn how to use the APIs? - they are there to make life easier, and they will make your life easier when you learn them.
|
|
|
|
|
Ok, I am willing to learn but for this project would prefer not to use it, school is hectic at moment and haven't got that much time to learn. If it's not possible to achieve this task without API, could you recommend good place for API Newbies.
Posted by The ANZAC
|
|
|
|
|
hi
all
How to change password of sa (SQLSERVER 2000) through VB.Net code ?
ankesh
|
|
|
|
|
Try it with this stored procedures build in in SQLSERVER 2000.. See also the help to transact SQL
EXEC sp_password NULL, 'ok', 'Victoria'
Hans Braun
|
|
|
|
|
1st, i check for a valid id for the user n if its valid, a new form will show
the new form contains textboxes and a combo box
i would wan the textboxes and the combo box to display the corresponding stuff from the database
for exmaple
name: my name
address : my address
the followin is the code i used
--------
this 1 is which i validate the id, it works, but jus in case i wana know if the other code did not work because of it
--------
Private Sub submitB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles submitB.Click
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Jasmine\My Documents\project\db1.mdb"
Dim con As OleDb.OleDbConnection
Dim dr As OleDb.OleDbDataReader
Dim cmd As New OleDb.OleDbCommand
Try
Dim strselect As String = "Select BorrowerId from member where BorrowerId = '" & idTB.Text & "'"
'create a new connection
con = New OleDb.OleDbConnection(strcon)
con.Open()
cmd.Connection = con
cmd.CommandText = strselect
dr = cmd.ExecuteReader
If dr.Read Then
If idTB.Text = dr("BorrowerId") Then
MessageBox.Show("Valid Id")
EditMember.Show()
End If
Else
MessageBox.Show("Invalid Id")
End If
If idTB.Text = "" Then
MessageBox.Show("Please Enter The BorrowerID")
End If
dr.Close()
Catch eException As Exception
MessageBox.Show(eException.Message)
End Try
End Sub
--------
this 1 is where i wan the info to display out on the textboxes n combo box
--------
Private Sub EditMember_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strcon As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =C:\Documents and Settings\Jasmine\My Documents\project\db1.mdb"
Dim con As OleDb.OleDbConnection
Dim dr As OleDb.OleDbDataReader
Dim cmd As New OleDb.OleDbCommand
Try
Dim strselect As String = "Select Fname, Lname, Address1, Address2, Address3, ContactNo, HandPhNo, Email, CourseOfStudy from member where BorrowerId = '" & EditMemberLog.idTB.Text & "'"
'create a new connection
con = New OleDb.OleDbConnection(strcon)
con.Open()
cmd.Connection = con
cmd.CommandText = strselect
dr = cmd.ExecuteReader(CommandBehavior.SingleRow Or CommandBehavior.CloseConnection)
If dr.Read Then
Me.fNameTB.Text = dr("Fname")
Me.lNameTB.Text = dr("Lname")
Me.add1TB.Text = dr("Address1")
Me.add2TB.Text = dr("Address2")
Me.add3TB.Text = dr("Address3")
Me.hmTB.Text = dr("ContactNo")
Me.hpTB.Text = dr("HandPhNo")
Me.emailTB.Text = dr("Email")
Me.cosCB.Text = dr("CourseOfStudy")
End If
dr.Close()
Catch eException As Exception
MessageBox.Show(eException.Message)
End Try
End Sub
---------------------
pls, i need help asap...my tis proj is dued tml 9am >.<
oh btw, tis is my 1st proj on vb so...er, nothing too complicated pls >.<
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
