|
hi every one,i would like to draw a single line in my form,for that i am using the following code which i got from the samle code,but i just dont know what wrong with my code as i not geting the line,
Dim g As Graphics<br />
'Sets g to a Graphics object representing the drawing surface of the<br />
' control or form g is a member of.<br />
'g = BtnLogin.CreateGraphics<br />
g = Me.CreateGraphics<br />
Dim myPen As New Pen(Color.White)<br />
myPen.DashStyle = Drawing.Drawing2D.DashStyle.Dash<br />
myPen.Width = 2<br />
g.DrawLine(myPen, 4, 2, 12, 6)<br />
pls get back to me.after viewing this
|
|
|
|
|
Where in your app is this code? Is it in the OnPaint Event of your form?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Here's a user control that draws a 3D line like vb 6 has built-in.
'-------------------------------------
Imports System.Drawing
Public Class ThreeDLine
Inherits System.Windows.Forms.UserControl
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'UserControl overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
'
'ThreeDLine
'
Me.Name = "ThreeDLine"
Me.Size = New System.Drawing.Size(472, 152)
End Sub
#End Region
Public Enum tOrientation
Horizontal
Vertical
End Enum
Public Property Orientation() As tOrientation
Get
Return m_Orientation
End Get
Set(ByVal Value As tOrientation)
m_Orientation = Value
'Set a "default" height and width
If m_Orientation = tOrientation.Horizontal Then
Me.Width = 120
Me.Height = 2
Else
Me.Width = 2
Me.Height = 100
End If
End Set
End Property
Private m_Orientation As tOrientation
Private Sub ThreeDLine_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
'Draws the line
'Point Variables
Dim pL1 As Point
Dim pL2 As Point
Dim pL3 As Point
Dim pL4 As Point
'Create a pen, you can change the colours if they're wrong.
Dim DP As New Pen(System.Drawing.SystemColors.ControlDark)
Dim LP As New Pen(SystemColors.ControlLight)
'Determine orientation then set the height of the control
'Set the starting points for first and second lines:
If m_Orientation = tOrientation.Horizontal Then
Me.Height = 2 '(2 pixels)
pL1 = New Point(0, 0)
pL2 = New Point(1, 1)
pL3 = New Point(Me.Width - 1, 0)
pL4 = New Point(Me.Width, 1)
Else
Me.Width = 2
pL1 = New Point(0, 0)
pL2 = New Point(1, 1)
pL3 = New Point(0, Me.Height - 1)
pL4 = New Point(1, Me.Height)
End If
'Draw the lines. Simple.
e.Graphics.DrawLine(DP, pL1, pL3)
e.Graphics.DrawLine(LP, pL2, pL4)
End Sub
Private Sub ThreeDLine_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
'--------------------------
REF:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cpref/html/frlrfSystemDrawing.asp
|
|
|
|
|
In a Windows 2000 domain, is there a way for me to check the Users ID currently are login from which Computer name. Currently I am supporting users Computer from various Countries and at location in my company. I know the login Users ID but would not know from which Computer name they are login from. I am trying to write a program either using VB.Net or VB to see the user is currently login from which Computer. This will help me locate the users computer faster and more efficient for troubleshooting from remote. This program will likely to run from my Computer. Else I will have to guide the user how to find out thier Computer name or IP addresss. Or is there any alternative way to find out the Users ID login from which Computer name. Thanks
|
|
|
|
|
The legacy domains don't save such information, so finding it would be impossible.
In Active Directory, though, you can try the Network Address property, or the Last-Workstation property of the User object, though it is documented as "not used". Other than those properties, the information is not stored anywhere else.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I wonder if the original BASIC is an interpreted language, since the original BASIC uses an interpreter rather than a compiler.
Also, what is the extension of the BASIC file? (for example, .c is for C language, then what is BASIC's)
Okay, now, is Visual Basic an interpreted language or compiled language?
Thanks
-----------------------------
C++ without virtual functions is not OO. Programming with classes but without dynamic binding is called "object based", but not "object oriented".
|
|
|
|
|
IIRC from my Basic class ye so many years ago, the extension would be .bas
VB is now a compiled language.
"if you vote me down, I shall become more powerful than you can possibly imagine" - Michael P. Butler.
|
|
|
|
|
Actually, the BASIC language predates Microsoft by 11 years. The BASIC programming language was developed in 1964 by John Kemeny and Thomas Kurtz.
"If a man empties his purse into his head, no man can take it away from him, for an investment in knowledge pays the best interest." -- Joseph E. O'Donnell
Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!
|
|
|
|
|
Colin Angus Mackay wrote:
Actually, the BASIC language predates Microsoft by 11 years.
Did I say otherwise? 
"if you vote me down, I shall become more powerful than you can possibly imagine" - Michael P. Butler.
|
|
|
|
|
Nick Seng wrote:
Did I say otherwise?
When you said the original file extension was .bas that was the implication. I have used BASIC language implementations where that is not the case and they have been equally as old as Microsoft themselves.
"If a man empties his purse into his head, no man can take it away from him, for an investment in knowledge pays the best interest." -- Joseph E. O'Donnell
Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!
|
|
|
|
|
Well, it WAS a long time ago(about 15 years or so), and I could remember writing those basic codes:
10 Do something
20 do something else
30 Run
in those dinky ancient apple machines. I could've sworn the extension was .bas but I'm probably mistaken.
So, what is the extension?
"if you vote me down, I shall become more powerful than you can possibly imagine" - Michael P. Butler.
|
|
|
|
|
I don't know what the original file extension was or even if the OS supported file extensions, or if the original creators deemed it necessary to give a file extension way back in 1964.
The point I was making was that as you said "IIRC from my Basic class ye so many years ago" that you were unlikely to have used the first version of BASIC (I'm guessing your first BASIC class would have been when you were around 13 to 15 [most schools don't teach programming earlier], give-or-take a couple of years, so that would put that class around 1992-4. Or about 30 years after BASIC was invented.
"If a man empties his purse into his head, no man can take it away from him, for an investment in knowledge pays the best interest." -- Joseph E. O'Donnell
Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!
|
|
|
|
|
Hello,
Currently I'm working on an application with a simple datastructure. That simple that I use XML as datasource for the tables. Now reading, changing, adding, deleting and writing to and from the xml files goes perfect.
However this app also needs to export text files with fixed width. Also that is working, even with xml based specifications for exporting (fieldname and startpositiong). The only thing is that I would like to query the dataset/datasource with a select statement and export this query instead of the table. How can I do this?
Thanks so much in advance.
|
|
|
|
|
You may want to check out the collections class:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbcon/html/vaconCreatingYourOwnCollectionClass.asp
|
|
|
|
|
Hi
when i extract icon from exe or dll and try to save it with icon.save(--) method . icon color change from 32bit to
16 color so if anyone can tell me the way to save it in 32bit.there is VC# project ("IconBrowser") do this put i cant convert it to VB.NET
|
|
|
|
|
Does anyone know of a good website with tutorials on creating custom skins for windows forms using vb.net?
|
|
|
|
|
I am developing outlook Com Addin.
At loading mynotes.msg( notes ) to outlook,
I also want to launch this note. NoteItem as member function called
Display, however it doesn't do anything. The following is the exact code
from my app for launching loaded note(msg file). Something wrong with my
code or know workaround to launch this loaded note item?
Dim objNameSpace As Outlook.NameSpace
Dim objMAPIFolder As Outlook.MAPIFolder
Dim objNoteItem As Outlook.NoteItem
Dim str_Body As String
Set objNameSpace = otlkDoc.GetNamespace("MAPI")
Set objMAPIFolder = objNameSpace.GetDefaultFolder(olFolderNotes)
Set objNoteItem = otlkDoc.CreateItemFromTemplate(str_FileName)
objNoteItem.Save
objNoteItem.Display
Set objNoteItem = Nothing
|
|
|
|
|
I am looking for a tutorial that would teach me vb.net online about the syntax and everything else you have to know about vb.net, it doesn't matter how long it is.
|
|
|
|
|
Check this out , offered from microsoft
http://msdn.microsoft.com/vbasic/atthemovies/
|
|
|
|
|
Im developing a Snap-in in VB6.0 (using the Snap-in Designer).
but the problem im facing is that:
Whenever I click on an Added Node (in the MMC Scope-Pane)I get the following Error Message
"The Selected Snap-In did not initialize properly"
and after that, the opened snap-in doesn't work correctly
Plz help me out
Im using
VB 6.0
MS Win2k
MMC 1.2
raheela
|
|
|
|
|
I found this error message in Here[^]. Please read it for further information.
Roath Kanel
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Thanx for replyin'
The link u send says :
"If a language other than English, French,
German, Japanese, or Spanish was selected in
Regional Settings, the message "The selected
snap-in did not initialize properly" was
displayed when you tried to start the
ePolicy Orchestrator console. Now,
regardless of the language selected, the
console starts. In addition, if the language
selected is something other than English,
French, German, Japanese, or Spanish, the
console displays in English."
but I have the "English Regional Settings", and still have this problem.
plz help me out
raheel
|
|
|
|
|
Hi everyone,
I have 2 quetions:
1. I want to know if there is a way giving a dataset to c.report at runtime, so it would take the data from there...
2.I have a general report and I want to change its sql query at runtime...
I use VB.Net 2003
Thanks
Roy.
|
|
|
|
|
you can create parameter fields and assign values to it in your VB code from the dataset.
Dim rpt1 As New ReportDocument
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Dim pvCollection As New CrystalDecisions.Shared.ParameterValues
Dim pdvCustomerName As New CrystalDecisions.Shared.ParameterDiscreteValue
Dim obj_Report As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim Anndesc As New CrystalDecisions.Shared.ParameterDiscreteValue
rpt1.Load("C:\CrystalReport3.rpt")
' Set the connection information for all the tables used in the report
' Leave UserID and Password blank for trusted connection
For Each tbCurrent In rpt1.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = "AK"
.UserID = "X"
.Password = "Y"
.DatabaseName = "DB"
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
pdvCustomerName.Value = dataset.tables(0).Rows(0)(0)
'frm_Viewer.crv_ReportViewer.ReportSource = obj_Report
'Me.crv1.
' Add it to the parameter collection.
pvCollection.Add(pdvCustomerName)
rpt1.DataDefinition.ParameterFields("@pra_id").ApplyCurrentValues(pvCollection)
pvCollection.Clear()
Anndesc.Value = "Announcement Description"
pvCollection.Add(Anndesc)
rpt1.DataDefinition.ParameterFields("@AnnDesc").ApplyCurrentValues(pvCollection)
' Zoom viewer to fit to the whole page so the user can see the report
Dim myrep As New CrystalReport3
crv1.Zoom(2)
crv1.ReportSource = rpt1
|
|
|
|
|
I am currently trying to make software to send bulk emails. As im running a website, im importing text files to import email addresses. The software is almost complete.
Im using SMTP to send the emails, the smtp server has been set as LocalHost which works fine as when I change it an error occurs.
using LocalHost, the software successfully completes its task by sending the email. However, the emails do not send, when i shut down the computer and im not connected it trys requesting information from the domain inwhich im sending the email to, I assume its trying to send the email but it wont send it. Ive only ever recieved one out of loads but it took about 30 minutes, ive also recieved one at the from address which I set saying it couldn't send the email due to some SMTP server error.
Can anybody help me sort this problem out, I want the emails to send instantly?
You can reply to this or email tonymaclennan@yahoo.co.uk 
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
