.NET (Core and Framework)

TabControl with Tabs of tabpages on both sides in a windows form

31-Mar-15 7:24

Member 11249327 wrote:
To run this setup the system, the which was made the test, says that does not
have the suitable framework.

What framework did you target? Which Windows-version would the machine running?

I haven't built setups for quite some time, but I remember that InstallShield made it as easy as marking the framework as "required".

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

fabsyl30-Mar-15 20:26

fabsyl

30-Mar-15 20:26

I know that this question have already been posted but without answer.
I would like a tabcontrol with somes tabs on top and somes tabs on bottom.
Problem is that Alignment property is for tabcontrol, maybe the best solution will be to have Alignement property to tabpage controls?
how can i do that?

Re: TabControl with Tabs of tabpages on both sides in a windows form

Eddy Vluggen31-Mar-15 7:20

Re: TabControl with Tabs of tabpages on both sides in a windows form

31-Mar-15 7:20

fabsyl wrote:
I know that this question have already been posted but without answer.

Not possible using the native TabControl. You'd have to search for one that does support said scenario.

Frankly, I'd be confused. I can imagine a nested TabControl, where one has pages within a page - that way your proposed navigation would make sense - but you are talking about having a selection of the pages shown on top, and the rest at the bottom?

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

fabsyl31-Mar-15 20:29

fabsyl

31-Mar-15 20:29

Yes, for presentation reasons, i want to show 10 tabs headers on top of my tabcontrol and 8 on bottom, bottom's tabs are same family (shortcuts).

Re: TabControl with Tabs of tabpages on both sides in a windows form

fabsyl31-Mar-15 22:26

fabsyl

31-Mar-15 22:26

In fact what i want is in the tabcontrol component of lidor systems IntegralUi but it's not free solution!

Re: TabControl with Tabs of tabpages on both sides in a windows form

Eddy Vluggen31-Mar-15 23:46

Re: TabControl with Tabs of tabpages on both sides in a windows form

31-Mar-15 23:46

We have some articles like "A highly configurable MDI tab control from scratch[^]" that show how to build your own tabcontrol. Check if any of those come close to what you want Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Gerry Schmitz1-Apr-15 0:17

Gerry Schmitz

1-Apr-15 0:17

Use 2 TabControls; both the same size; one with Tabs aligned across top; the other with Tabs across the bottom.

At design time, try placing one over the other. The designer may balk, so you will have to align them in the form's constructor; e.g.

this.tabControl2.Top = this.tabControl1.Top + 20;
this.tabControl2.Left = this.tabControl1.Left;

Note the Tops are offset by the height of the Tabs.

In the Selected event of EACH TabControl, "send" the other Tabcontrol "to the back"; e.g.

private void tabControl2_Selected( object sender, TabControlEventArgs e ) {
   this.tabControl1.SendToBack();
}

(You can get fancy and determine which TabControl is already in front and not bother with the SendToBack() if it does not need to be done; visually, it probably makes no difference).

Re-Full Text Search

Member 1116162530-Mar-15 1:55

Member 11161625

30-Mar-15 1:55

HI,

Every Body

I want to ask that, what is Full Text Search in sql server with examples.

Re: Re-Full Text Search

Richard MacCutchan30-Mar-15 2:34

30-Mar-15 2:34

Please read http://www.codeproject.com/Messages/3122367/How-to-get-an-answer-to-your-question.aspx[^].

Re: Re-Full Text Search

Eddy Vluggen30-Mar-15 3:10

i have just in time debugging problem

30-Mar-15 3:10

MSDN has a topic on those subjects. They've invested some time in it. I suggest you do the same Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

Re: Re-Full Text Search

ZurdoDev30-Mar-15 4:45

ZurdoDev

30-Mar-15 4:45

As already mentioned, this is not the right group. However, please refer to https://msdn.microsoft.com/en-us/library/ms142571.aspx[^].

And you are asking questions that can be easily answered by a simple search in google.

There are only 10 types of people in the world, those who understand binary and those who don't.

Re-Index

Member 1116162530-Mar-15 1:50

Member 11161625

30-Mar-15 1:50

HI,

Every Body

I want to ask, that when to create clustered index and
non clustered index on tables in sql server.

Re: Re-Index

ZurdoDev30-Mar-15 4:44

ZurdoDev

30-Mar-15 4:44

This is the wrong discussion group, it should be asked in the Database one. However, you can only have 1 clustered index per table because the clustered index determines how the records are physically stored on the drive.

There are only 10 types of people in the world, those who understand binary and those who don't.

rafizan4629-Mar-15 23:01

29-Mar-15 23:01

and this is the error .. somebody please help me Frown | :(

The device is not ready

See the end of this message for details on invoking
just-in-time (JIT) debugging instead of this dialog box.

************** Exception Text **************
System.IO.IOException: The device is not ready.

at System.IO.__Error.WinIOError(Int32 errorCode, String maybeFullPath)
at System.IO.__Error.WinIODriveError(String driveName, Int32 errorCode)
at System.IO.DriveInfo.get_TotalSize()
at SYSINFO.Form1.TextBox11_TextChanged(Object sender, EventArgs e)
at System.EventHandler.Invoke(Object sender, EventArgs e)
at System.Windows.Forms.Form.OnLoad(EventArgs e)
at System.Windows.Forms.Form.OnCreateControl()
at System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
at System.Windows.Forms.Control.CreateControl()
at System.Windows.Forms.Control.WmShowWindow(Message& m)
at System.Windows.Forms.Control.WndProc(Message& m)
at System.Windows.Forms.ScrollableControl.WndProc(Message& m)
at System.Windows.Forms.ContainerControl.WndProc(Message& m)
at System.Windows.Forms.Form.WmShowWindow(Message& m)
at System.Windows.Forms.Form.WndProc(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
at System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

************** Loaded Assemblies **************
mscorlib
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll
----------------------------------------
SYSINFO
Assembly Version: 4.0.0.0
Win32 Version: 4.0.0.0
CodeBase: file:///H:/SYSINFO.exe
----------------------------------------
Microsoft.VisualBasic
Assembly Version: 10.0.0.0
Win32 Version: 12.0.53323.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll
----------------------------------------
System
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll
----------------------------------------
System.Core
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll
----------------------------------------
System.Windows.Forms
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll
----------------------------------------
System.Drawing
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll
----------------------------------------
System.Runtime.Remoting
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll
----------------------------------------
System.Configuration
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll
----------------------------------------
System.Xml
Assembly Version: 4.0.0.0
Win32 Version: 4.0.30319.36323 built by: FX45W81RTMLDR
CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll
----------------------------------------

************** JIT Debugging **************
To enable just-in-time (JIT) debugging, the .config file for this
application or computer (machine.config) must have the
jitDebugging value set in the system.windows.forms section.
The application must also be compiled with debugging
enabled.

For example:

<configuration>
<system.windows.forms jitDebugging="true" />
</configuration>

When JIT debugging is enabled, any unhandled exception
will be sent to the JIT debugger registered on the computer
rather than be handled by this dialog box.

Richard MacCutchan29-Mar-15 23:10

29-Mar-15 23:10

Member 11558919 wrote:
The device is not ready

Which device, and what is your code trying to do?

rafizan4629-Mar-15 23:19

29-Mar-15 23:19

this is my code..

Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic
Imports System.Diagnostics
Imports System.Management
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic.Devices
Imports System.Net.NetworkInformation
Imports System.Net
Imports System.Text
Imports System.ComponentModel

Public Class Form1
Inherits System.Windows.Forms.Form
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub

<System.Diagnostics.DebuggerNonUserCode()> _
Private Sub me_load(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Value = PerformanceCounter1.NextValue
ProgressBar2.Value = PerformanceCounter2.NextValue
Label3.Text = ProgressBar1.Value.ToString + "%"
Label4.Text = ProgressBar2.Value.ToString + "%"
End Sub

Private WithEvents MyProcess As Process
Private Delegate Sub AppendOutputTextDelegate(ByVal text As String)

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox1.Text = System.Environment.MachineName
End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox2.Text = System.Environment.UserName
End Sub

Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox3.Text = My.Computer.Info.OSFullName
End Sub

Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox4.Text = My.Computer.Info.OSPlatform
End Sub

Private Sub TextBox5_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox5.Text = My.Computer.Info.OSVersion
End Sub

Private Sub TextBox6_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox6.Text = My.Computer.Info.InstalledUICulture.ToString
End Sub

Private Sub TextBox7_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox7.Text = System.Math.Round(My.Computer.Info.TotalPhysicalMemory / (1024 * 1024)).ToString
End Sub

Private Sub Label15_Click(sender As Object, e As EventArgs) Handles MyBase.Load
Timer2.Start()
End Sub

Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
Label15.Text = TimeOfDay
End Sub

Private Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles Timer1.Tick
TextBox13.Text = (" " & getBatteryStatus() + vbOKOnly)

End Sub

Public Function getBatteryStatus() As Integer
Dim obj As Object, obj2 As Object, stat As Integer
' Get Battery Status
' Return Value Meaning
'0 No battery
'1 The battery is discharging.
'2 The system has access to AC so no battery is being discharged. However, the battery is not necessarily charging.
'3 Fully Charged
'4 Low
'5 Critical
'6 Charging
'7 Charging and High
'8 Charging and Low
'9 Charging and Critical
'10 Undefined
'11 Partially Charged
stat = 0
obj = GetObject("winmgmts:").InstancesOf("Win32_Battery")
For Each obj2 In obj 'loop in objects
stat = obj2.BatteryStatus
Next
getBatteryStatus = stat
End Function

Private Sub TextBox9_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox9.Text = My.Computer.FileSystem.GetDriveInfo("C:\").TotalSize \ 1000000000 & " GB"
End Sub

Private Sub TextBox10_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox10.Text = My.Computer.FileSystem.GetDriveInfo("C:\").TotalFreeSpace \ 1000000000 & " GB"
End Sub

Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox11.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalSize \ 1000000000 & " GB"
End Sub

Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox12.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalFreeSpace \ 1000000000 & " GB"
End Sub

Private Sub TextBox14_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
TextBox14.Text = My.Computer.Registry.GetValue("HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0", "ProcessorNameString", Nothing)
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Process.Start("https://www.facebook.com/Land.RoverF")
End Sub

Private Sub CheckForUpdates()

Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/s/02c0p66bqihq79z/version.txt.txt?dl=0")
Dim response As System.Net.HttpWebResponse = request.GetResponse()

Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())

Dim newestversion As String = sr.ReadToEnd()
Dim currentversion As String = Application.ProductVersion
If newestversion > currentversion Then
MsgBox("There is a new update..")
System.Diagnostics.Process.Start("https://www.dropbox.com/s/mbshbyd582zrcuc/SYSINFO%20V.2.0.exe?dl=0")
Else
MsgBox("Update is the latest..")
End If
End Sub
Private Sub button3_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim proc = Process.GetProcessesByName("explorer")
For i As Integer = 0 To proc.Count - 1
proc(i).Kill()
Next i
End Sub

Private Sub outputtextbox_text(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.AcceptButton = ExecuteButton
MyProcess = New Process
With MyProcess.StartInfo
.FileName = "CMD.EXE"
.UseShellExecute = False
.CreateNoWindow = True
.RedirectStandardInput = True
.RedirectStandardOutput = True
.RedirectStandardError = True
End With
MyProcess.Start()

MyProcess.BeginErrorReadLine()
MyProcess.BeginOutputReadLine()
AppendOutputText("Process Started at: " & MyProcess.StartTime.ToString)
End Sub

Private Sub MyProcess_ErrorDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.ErrorDataReceived
AppendOutputText(vbCrLf & "Error: " & e.Data)
End Sub

Private Sub MyProcess_OutputDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.OutputDataReceived
AppendOutputText(vbCrLf & e.Data)
End Sub

Private Sub ExecuteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExecuteButton.Click
MyProcess.StandardInput.WriteLine(InputTextbox.Text)
MyProcess.StandardInput.Flush()
InputTextbox.Text = ""
End Sub

Private Sub AppendOutputText(ByVal text As String)
If OutputTextbox.InvokeRequired Then
Dim myDelegate As New AppendOutputTextDelegate(AddressOf AppendOutputText)
Me.Invoke(myDelegate, text)
Else
OutputTextbox.AppendText(text)
End If
End Sub

Private Sub ExecuteButton_MouseHover(ByVal sender As Object, ByVal e As System.EventArgs) Handles ExecuteButton.MouseHover

End Sub

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
MyProcess.StandardInput.WriteLine("systeminfo", "/k systeminfo ")
MyProcess.StandardInput.Flush()

End Sub

Private Sub ABOUTToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ABOUTToolStripMenuItem1.Click
MsgBox("This software still in BETA Version. All Right Reserved. rafizan46 Corporation. 2015.")
End Sub

Private Sub CHECKUPDATESToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CHECKUPDATESToolStripMenuItem1.Click
CheckForUpdates()
End Sub

Private Sub SLEEPToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SLEEPToolStripMenuItem.Click
Shell("shutdown -l")
End Sub

Private Sub RESTARTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RESTARTToolStripMenuItem.Click
Shell("shutdown -r")
End Sub

Private Sub SHUTDOWNToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SHUTDOWNToolStripMenuItem.Click
Shell("shutdown -s")
End Sub

Private Sub AlertStringDownloaded(ByVal sender As Object, ByVal e As DownloadStringCompletedEventArgs)
' Did the request go as planned (no cancellation or error)?
If e.Cancelled = False AndAlso e.Error Is Nothing Then
' Do something with the result here
'e.Result
End If
End Sub

Dim WithEvents client As New WebClient

Private Sub DirectX9ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DirectX9ToolStripMenuItem.Click
Try
client.DownloadFileAsync(New Uri("https://dl.dropboxusercontent.com/s/cn3q0u70ds57x4r/Direct%20X%2011%20Update.rar?dl=0"), "C:\Documents and Settings\All Users\Documents\Direct X 11 Update.RAR")
Catch ex As Exception
MsgBox("File already exists or is corrupted!")
End Try
End Sub

Private Sub client_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs) Handles client.DownloadFileCompleted
MsgBox("Download Complete!", MsgBoxStyle.Information)
Label48.Visible = False
Label49.Visible = False
ProgressBar3.Visible = False
Label48.Text = "0 &"
Label49.Text = "0 / 0"
ProgressBar3.Value = 0
End Sub

Private Sub client_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs) Handles client.DownloadProgressChanged
Label48.Visible = True
Label49.Visible = True
ProgressBar3.Visible = True
Label48.Text = ProgressBar3.Value & "%"
Label49.Text = e.BytesReceived & " / " & e.TotalBytesToReceive
ProgressBar3.Value = e.ProgressPercentage

End Sub
Private Sub GeForceExperienceV2000ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GeForceExperienceV2000ToolStripMenuItem.Click

Try
client.DownloadFileAsync(New Uri("https://dl.dropboxusercontent.com/s/apd4kq76v1xqpwi/GeForce_Experience_v2.2.2.0.exe?dl=0"), "C:\Documents and Settings\All Users\Documents\GeForce_Experience_v2.2.2.0.exe")
Catch ex As Exception
MsgBox("File already exists or is corrupted!")
End Try
End Sub

Private Sub ABOUTTHISPARTToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ABOUTTHISPARTToolStripMenuItem.Click
MsgBox("This 'Software' section require internet connection to work.")
MsgBox("This part still in BETA.")
MsgBox("All downloaded file will be placed on directory C:\All Users\Documents\")
MsgBox("For every completed download, a message box will appear that tell you download has completed.")
End Sub
End Class

Richard MacCutchan29-Mar-15 23:25

29-Mar-15 23:25

And you expect us to guess where the error occurs?

rafizan4629-Mar-15 23:28

29-Mar-15 23:28

actually my code trying to get information like OS name, processor name, user name and computer name.. Poke tongue | ;-P

Richard Deeming30-Mar-15 2:13

Richard Deeming

30-Mar-15 2:13

Since you haven't bothered to tell us the line where the error occurs, I'll have to guess:

VB.NET

Private Sub TextBox11_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
    TextBox11.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalSize \ 1000000000 & " GB"
End Sub

Private Sub TextBox12_TextChanged(sender As Object, e As EventArgs) Handles MyBase.Load
    TextBox12.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalFreeSpace \ 1000000000 & " GB"
End Sub

On computers with a single hard-drive, drive D: (if it exists) is typically the DVD drive. If there is no DVD in the drive, then you won't be able to read the drive's information, and you'll get a "device not ready" error. You need to check the IsReady property before trying to access the other properties:

VB.NET

Dim drive As DriveInfo = My.Computer.FileSystem.GetDriveInfo("D:\")
If drive.IsReady Then
    TextBox12.Text = drive.TotalFreeSpace \ 1000000000 & " GB"
End If

You should also give your controls meaningful names - without reading the code, it's not possible to know what TextBox11 should contain.

Also, give your methods less confusing names. At first glance, it looks like TextBox11_TextChanged will handle the TextChanged event of the TextBox11 control, which would send your code into an infinite loop.

"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer

rafizan4630-Mar-15 9:17

how to adjust the size of drawn rectangle at runtime

30-Mar-15 9:17

oh.. wow.. thanks a lot... i appreciate it!! Wink | ;)

-- modified 30-Mar-15 15:45pm.

Member 1144146829-Mar-15 20:12

Member 11441468

29-Mar-15 20:12

<pre lang="vb.net">hi,,

it is possible to adjust the size of a rectangle which is drawn in a picturebox with drawrectangle function.. During run time i want to adjust my rectangle width using numericupdown control..

thank u</pre>

Re: how to adjust the size of drawn rectangle at runtime

Richard MacCutchan29-Mar-15 21:12