For those new to message boards please try to follow a few simple rules when posting your question.
Choose the correct forum for your message. Posting a VB.NET question in the C++ forum will end in tears.
Be specific! Don't ask "can someone send me the code to create an application that does 'X'. Pinpoint exactly what it is you need help with.
Keep the subject line brief, but descriptive. eg "File Serialization problem"
Keep the question as brief as possible. If you have to include code, include the smallest snippet of code you can.
Be careful when including code that you haven't made a typo. Typing mistakes can become the focal point instead of the actual question you asked.
Do not remove or empty a message if others have replied. Keep the thread intact and available for others to search and read. If your problem was answered then edit your message and add "[Solved]" to the subject line of the original post, and cast an approval vote to the one or several answers that really helped you.
If you are posting source code with your question, place it inside <pre></pre> tags. We advise you also check the "Encode "<" (and other HTML) characters when pasting" checkbox before pasting anything inside the PRE block, and make sure "Use HTML in this post" check box is checked.
Be courteous and DON'T SHOUT. Everyone here helps because they enjoy helping others, not because it's their job.
Please do not post links to your question into an unrelated forum such as the lounge. It will be deleted. Likewise, do not post the same question in more than one forum.
Do not be abusive, offensive, inappropriate or harass anyone on the boards. Doing so will get you kicked off and banned. Play nice.
If you have a school or university assignment, assume that your teacher or lecturer is also reading these forums.
No advertising or soliciting.
We reserve the right to move your posts to a more appropriate forum or to delete anything deemed inappropriate or illegal.
I downloaded and installed two Express your solutions:
1) Studio 2013 Express for Windows Desktop
2) Studio Express 2013 for the Web.
Having developed an application that works on a DataBase nature of medical and health, I thought
create a setup for a possible distribution to doctors my friends. Following the information
found on the Internet, I clicked on the Solution Explorer and My Project.
Of the two versions Express, only the one for Windows Desktop presents the "Publish".
I tried to create a setup using this version for Windows Desktop but I Setup
past to try one of my friends does NOT work. To run this setup the system, the
which was made the test, says that does not have the suitable framework. I tried
suggestions on the Internet saying to click on File -> New Project. From the window
proposal select Setup and Deployment Projects folder and then the project
installation. But this window with the folder Setup Projects NOT exist.
With Visual Basic Express 2013 for the Web, clicking on the Solution Explorer and My Project item
"Publish" does NOT exist.
Question: How can I create a setup that allows the installation of my application
on systems, not having the necessary Framework, need to install it with Setup
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?
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
If you can't read my code, try converting it here[^]
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.
and this is the error .. somebody please help me :(
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)
************** 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.
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)
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
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click MyProcess.StandardInput.WriteLine("systeminfo", "/k systeminfo ") MyProcess.StandardInput.Flush()
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_v18.104.22.168.exe?dl=0"), "C:\Documents and Settings\All Users\Documents\GeForce_Experience_v22.214.171.124.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
Since you haven't bothered to tell us the line where the error occurs, I'll have to guess:
PrivateSub TextBox11_TextChanged(sender AsObject, e As EventArgs) HandlesMyBase.Load
TextBox11.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalSize \ 1000000000 & " GB"EndSubPrivateSub TextBox12_TextChanged(sender AsObject, e As EventArgs) HandlesMyBase.Load
TextBox12.Text = My.Computer.FileSystem.GetDriveInfo("D:\").TotalFreeSpace \ 1000000000 & " GB"EndSub
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:
Dim drive As DriveInfo = My.Computer.FileSystem.GetDriveInfo("D:\")
If drive.IsReady Then
TextBox12.Text = drive.TotalFreeSpace \ 1000000000 & " GB"EndIf
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