My Win32 App #2 - Message Boxes with Icons
This program displays a message in a small default Windows message box along with an icon. It performs no other function.
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Upload Upload Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress e.Handled = NumbersOnly(e.KeyChar, TextBox1) End Sub Private Function NumbersOnly(ByVal pstrChar As Char, ByVal oTextBox As TextBox) As Boolean 'validate the entry for a textbox limiting it to only numeric values and the decimal point If (Convert.ToString(pstrChar) = "." And InStr(oTextBox.Text, ".")) Then Return True 'accept only one instance of the decimal point If Convert.ToString(pstrChar) <> "." And pstrChar <> vbBack Then Return IIf(IsNumeric(pstrChar), False, True) 'check if numeric is returned End If Return False 'for backspace End Function
Original Comments (3)
Recovered from Wayback Machine