|
void tblTemplate_DragDrop(object sender, DragEventArgs e)
{
try
{
if (tblTemplate.Controls.Count < tblTemplate.RowCount * tblTemplate.ColumnCount)
{
RasterImageViewer rViewer = (RasterImageViewer)e.Data.GetData("MyData");
Point loc = this.tblTemplate.PointToClient(new Point(e.X, e.Y));
int ColumnIndex = -1;
int RowIndex = -1;
int x = 0;
int y = 0;
while (ColumnIndex <= this.tblTemplate.ColumnCount)
{
if (loc.X < x)
{
break;
}
ColumnIndex++;
x += this.tblTemplate.GetColumnWidths()[ColumnIndex];
}
while (RowIndex <= this.tblTemplate.RowCount)
{
if (loc.Y < y)
{
break;
}
RowIndex++;
y += this.tblTemplate.GetRowHeights()[RowIndex];
}
this.tblTemplate.Controls.Add(rViewer, ColumnIndex, RowIndex);
tblTemplate.GrowStyle = System.Windows.Forms.TableLayoutPanelGrowStyle.AddColumns;
tblTemplate.PerformLayout();
}
else
{
return;
}
}
catch (Exception ex)
{
}
}
void tblTemplate_DragEnter(object sender, DragEventArgs e)
{
e.Effect = e.Data.GetDataPresent("MyData") ? DragDropEffects.Move : DragDropEffects.None;
}
write this code in move event of control which u want move
try
{
if (e.Button == MouseButtons.Left)
{
tblTemplate.AllowDrop = true;
RasterImageViewer objRaster = (RasterImageViewer)sender;
DataObject data = new DataObject("MyData", objRaster);
objRaster.DoDragDrop(data, DragDropEffects.Move);
}
}
catch (Exception ex)
{
}
|
|
|
|
|
Just what I was looking for - thanks...
|
|
|
|
|
I tried code from
http://support.microsoft.com/default.aspx?scid=kb;en-us;312839#XSLTH4156121122120121120120
As we are using window2003 we need to use CDOSYS code from given URL.
Its working on our side.
But giving problem on client side.
Can any one help me this?????
http://support.microsoft.com/default.aspx?scid=kb;en-us;312839#XSLTH4156121122120121120120
|
|
|
|
|
run a port sniffer on the server and see if any of the ports used are blocked on the firewall, or rely on IP or layer 2 broadcasts.
it may be an SMTP relay issue as well. if your sec policy disables the right that might be it.
I would typically advise against sending email from SQL (at least SQL2000). we had issues with it at work.
hey...slang is the vernacular for the vernacular...wow
|
|
|
|
|
hello my self is a beginner and this is my first question on vb code, I Like to now how to generate a vb code to show a picture ; as forum signature if img code is off and also html and smilies off. Is there a Way to show a picture in vb code? Thank you for any help. Greez Roger
-- modified at 0:42 Wednesday 5th April, 2006
|
|
|
|
|
line42 wrote: as forum signature if img code is off and also html and smilies off.
If you're hoping to show a picture in a forum, how do you expect your code to be run ?
In general, a picturebox lets you easily show a picture, Image.FromFile will let you load an image from the file system.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
hello guys anyone could help me on how to set column in MSHFlexGrid in VB.Net..... hope you can give a sample code.....
thanks!
|
|
|
|
|
There is no .Net component called MSFlexGrid, It is a COM component.
Right Click MSFlexGrid control
Select properties
Select General tab
Now you can create columns and rows
Regards,
Chatura Dilan
If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.
|
|
|
|
|
thank you! i tried that already what i mean is how can i set the column width of MSHFlexGrid? i have this code "MSHF.set_ColWidth(1, 1, 50)" in run time but the result is the column did not adjust i want it to be widen....sorry for the confusion i've made in my previous posted message i forgot to type "width" hehehe my question is how to set column width..... thank for your support!
|
|
|
|
|
you have used three arguments, wilde that's the error. You can use only two arguments according to this format
AxMSFlexGrid1.set_ColWidth(coloumn Number,width)
example
AxMSFlexGrid1.set_ColWidth(1,3000)
Regards,
Chatura Dilan
If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.
|
|
|
|
|
thanks chatura! i tried this format but it still didnt work......
AxMSFlexGrid1.set_ColWidth(coloumn Number,width)
example
AxMSFlexGrid1.set_ColWidth(1,3000)
but i tried this one it works ....
AxMSFlexGrid1.set_ColWidth(1, ,3000)
|
|
|
|
|
I am new to the vb.net thing and am trying to self teach myself so any help is appreciated.
I need to be able to make sure that a textbox entry is only numbers and that I can backspace it to remove a bad entry.
I think its probably something like a bunch of ASCII characters to reference and valadate the entry but I am not sure.
Sub Text_KeyPress(KeyAscii As Integer)
If uiEnterInterNumTextBox.Text = KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
and uiEnterInterNumTextBox.Text = KeyAscii
End Sub
|
|
|
|
|
heres how I would do it. remember, in vb, try not to do it the hard way. most of the time you'll find an easy one.
BTW somthing seems wrong with your keypress event handler, I'm used to
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
now if your working in vb 6 or VBA this code may not work.
by the way if this is homework, at least paraphrase... geta little edu for your money.
Sub Text_KeyPress(KeyAscii As Integer)
If isAllNumbers(uiEnterInterNumTextBox.Text)Then
KeyAscii = 0
uiEnterInterNumTextBox.Text = KeyAscii
End If
End Sub
Private Function isAllNumbers(ByVal teststring As String) As Boolean
Dim isgood As Boolean = True
For Each c As Char In teststring
If Not Char.IsDigit(c) and not(c = ".") and not( c = ",") Then
isgood = False
Exit For
End If
Next
Return isgood
End Function
hey...slang is the vernacular for the vernacular...wow
|
|
|
|
|
Or
You can use a MaskedTestbox to do it
Or
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress<br />
If (AscW(e.KeyChar) < 48 Or AscW(e.KeyChar) > 57) Then<br />
e.KeyChar = Nothing<br />
End If<br />
End Sub
Regards,
Chatura Dilan
If at first you don't succeed, try; try again, so that you know
what not to do the next time. The answer is out there.
-- modified at 23:25 Tuesday 4th April, 2006
'sorry.. when you use e.KeyChar = Chr(Keys.Back), other keys always do backspace's job. I corrected it. It must be e.KeyChar = Nothing
|
|
|
|
|
see...easy answers
hey...slang is the vernacular for the vernacular...wow
|
|
|
|
|
This is the code:
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
TextBox1 = Nothing
TextBox2 = Nothing
TextBox3 = Nothing
TextBox5 = Nothing
TextBox6 = Nothing
DateOfbirth = Now
TextBox7 = Nothing
TextBox8 = Nothing
TextBox9 = Nothing
TextBox10 = Nothing
TextBox11 = Nothing
Department = "Administration"
personal = New Personal
when i click the rest button nothing happens. when i use Form.reset() it doesnt change anything either. Can someone please help?
-- modified at 20:16 Tuesday 4th April, 2006
|
|
|
|
|
That is because you are not doing anything at all to the controls. The TextBox1 variable is not a textbox, it's only a reference to the textbox. When you set the variable to Nothing, you are only throwing away your reference to the control. That doesnt affect the control the least bit, it couldn't care less whether you have a reference to it or not.
If you want to change the contents of the control, set the Text property of the control.
---
b { font-weight: normal; }
|
|
|
|
|
Thankyou heaps i have got it to work now. your a great help.
just one more thing, im trying to get my application to send an email to the user if they forget their password, the code is:
If My.User Is Authenticated Then
txtUser.Text = My.User.Name
If userExists(My.User.Name) Then
txtPassword.Focus()
Else : NewUser = True
MessageBox.Show("You are new to the system, please select request account and enter your details", "User Information")
End If
Else if
MessageBox.Show("Sorry you are not authenticated to use this program" & vbNewLine & "If you are a staff member please select help or contact us")
End If
im not sure how to declair Authenticated,userExists and new user. With userExists i need to get it to check the database where all the users are stored yes? but im not to sure how to do this
|
|
|
|
|
on the topic of email, this is how I do it for VB forms. it also works when exposed through a web service.
Imports system.net.Mail
public class mailer
Private email As MailMessage
Private webmailer As System.Net.Mail.SmtpClient
Private Sub sendMail()
email = New MailMessage("Sender Email", "Reciepient Email", "Subject Text", _
"Body Text")
webmailer = New System.Net.Mail.SmtpClient("SMTP Server Name as String", _
"SMTP service port: usually 25")
With email
.Attachments(0) = New Attachment("c:\SomeFile.txt")
.Attachments(1) = New Attachment("c:\SomeOtherFile.txt")
End With
webmailer.Send(email)
End Sub
end class
server admin has a big impact on whether this will work. if it fails it may not be the code, but the smtp server configuration.
good luck
hey...slang is the vernacular for the vernacular...wow
-- modified at 21:35 Tuesday 4th April, 2006
|
|
|
|
|
Make sure you are setting the .Text property to "" or String.Empty. You are attemting to set the Controls (TextBox1, TextBox2, etc.) to Nothing.
Example
TextBox1.Text = String.Empty
This also works
TextBox1.Clear
Hope this helps
"Some people spend an entire lifetime wondering if they made a difference. The Marines don't have that problem."
( President Ronald Reagan)
|
|
|
|
|
this is A weird way to use a service, I know, but I'd like to query/modify a property within a running windows service, from an interactive VB app.
I've crafted a service with a public property that return an object,
and I'd like to query the value of that object from another application.
Does any one know of a way to hook to the running service (call it by name or whatever) so I can call the property?
hey...slang is the vernacular FOR the vernacular...wow
|
|
|
|
|
Hello all, I received a .csv file containing the HTML code generated from running a web-based report. I need to parse the file to get rid of all the HTML, leaving only the viewable text. I would like to just run a macro to perform this but if someone knows another way, say in VB.Net, that will be fine also. Unfortunately I cannot attach the file due to the sensative nature of the data. Thanks in advance for any help provided.
Mark Oium
Mark Oium
|
|
|
|
|
simple answer:
copy the .csv to a backup file
open the copy in word and find/Replace "," with " ".
then rename the file extension to .html
then open it with your favorite browser.
if the information displays as desired,
copy out the desired text (cntrl + a or Shift + End help a lot)
and paste it into another word or text document.
that should work...
as for an script or applet, that would take some time and trouble.
depending on the html, it would probably be quite dificult to define all the things you need to strip out. probably longer than editing it cy hand...
hey...slang is the vernacular for the vernacular...wow
|
|
|
|
|
How to you a command button to select a picture to add it to a database.
|
|
|
|
|
the answer is multipart.
1) use a fileBrowseDialog to browse to teh pic. u can find samples all over.
2) open a filestream to the file and read it into a bytearray (or whatever is compatile with your dataset schema). reading a pic is the same as reading a text file if you stay at the bin/hex level. it's just a datastream...treat it like one.
3) add the bytearray to your dataset, and update.
hey...slang is the vernacular for the vernacular...wow
|
|
|
|