摘要:
下面是程序的源代码:/**//**//**//// /// A conversion class./// Use this class to transform CHS words to PinYin./// public class Chs2Py{ private static int[] pyvalue = new int[] { ... 阅读全文
摘要:
Private Sub Form1_Resize()Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize Static isFirstLoad = True If isFirstLoad = False And WindowState... 阅读全文
摘要:
'判断系统是否已经被打开 Dim lnPress() As Process = System.Diagnostics.Process.GetProcessesByName("Liaoning") If lnPress.Length > 1 Then MessageBox.Show("您已经打开一个防汛水情值班系统,不能打开多个系统。... 阅读全文
摘要:
Private Sub MenuItem2_Click()Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click Me.StatusBar1.Text = "稍等." Dim layCount As Object... 阅读全文
摘要:
一、 Dim arrb() As ByteDim desStr As Stringarrb = Encoding.Default.GetBytes(x)desStr = Encoding.Default.GetString(arrb, 0, 255) 二、 Public Class BLStringClass BLString ''' ----------------------------... 阅读全文