图集1/2

正文 20509字数 1,134,983阅读

Private Const SWP_NOSIZE = &H1 Private Const SWP_NOMOVE = &H2 Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Sub Command1_Click() SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE '取消置顶 pth = "d:\date_save" 'App.Path '新建文件夹所在的路径 fd = Format(Date, "yyyy年mm月dd日") '新建文件夹名称 t = Dir(pth, vbDirectory) If t = "" Then MkDir (pth) 'MsgBox "路径不存在！": 'Exit Sub t = Dir(pth & "\" & fd, vbDirectory) If t <> "" Then Shell "explorer.exe " & pth & "\" & fd, vbNormalFocus: Exit Sub 'MsgBox "文件夹已存在！" MkDir pth & "\" & fd t = Dir(pth & "\" & fd, vbDirectory) If t <> "" Then Shell "explorer.exe " & pth & "\" & fd, vbNormalFocus End Sub Private Sub Command2_Click() Clipboard.Clear Clipboard.SetText Getpy(hanzi) MsgBox "拼音已经复制到剪切板" End Sub Private Function Getpy(Txt) Dim d, TmpTxt Dim wzcode, i, TmpWZ, a, b, ii Set d = CreateObject("Scripting.Dictionary") d.Add "a", -20319 d.Add "ai", -20317 d.Add "an", -20304 d.Add "ang", -20295 d.Add "ao", -20292 d.Add "ba", -20283 d.Add "bai", -20265 d.Add "ban", -20257 d.Add "bang", -20242 d.Add "bao", -20230 d.Add "bei", -20051 d.Add "ben", -20036 d.Add "beng", -20032 d.Add "bi", -20026 d.Add "bian", -20002 d.Add "biao", -19990 d.Add "bie", -19986 d.Add "bin", -19982 d.Add "bing", -19976 d.Add "bo", -19805 d.Add "bu", -19784 d.Add "ca", -19775 d.Add "cai", -19774 d.Add "can", -19763 d.Add "cang", -19756 d.Add "cao", -19751 d.Add "ce", -19746 d.Add "ceng", -19741 d.Add "cha", -19739 d.Add "chai", -19728 d.Add "chan", -19725 d.Add "chang", -19715 d.Add "chao", -19540 d.Add "che", -19531 d.Add "chen", -19525 d.Add "cheng", -19515 d.Add "chi", -19500 d.Add "chong", -19484 d.Add "chou", -19479 d.Add "chu", -19467 d.Add "chuai", -19289 d.Add "chuan", -19288 d.Add "chuang", -19281 d.Add "chui", -19275 d.Add "chun", -19270 d.Add "chuo", -19263 d.Add "ci", -19261 d.Add "cong", -19249 d.Add "cou", -19243 d.Add "cu", -19242 d.Add "cuan", -19238 d.Add "cui", -19235 d.Add "cun", -19227 d.Add "cuo", -19224 d.Add "da", -19218 d.Add "dai", -19212 d.Add "dan", -19038 d.Add "dang", -19023 d.Add "dao", -19018 d.Add "de", -19006 d.Add "deng", -19003 d.Add "di", -18996 d.Add "dian", -18977 d.Add "diao", -18961 d.Add "die", -18952 d.Add "ding", -18783 d.Add "diu", -18774 d.Add "dong", -18773 d.Add "dou", -18763 d.Add "du", -18756 d.Add "duan", -18741 d.Add "dui", -18735 d.Add "dun", -18731 d.Add "duo", -18722 d.Add "e", -18710 d.Add "en", -18697 d.Add "er", -18696 d.Add "fa", -18526 d.Add "fan", -18518 d.Add "fang", -18501 d.Add "fei", -18490 d.Add "fen", -18478 d.Add "feng", -18463 d.Add "fo", -18448 d.Add "fou", -18447 d.Add "fu", -18446 d.Add "ga", -18239 d.Add "gai", -18237 d.Add "gan", -18231 d.Add "gang", -18220 d.Add "gao", -18211 d.Add "ge", -18201 d.Add "gei", -18184 d.Add "gen", -18183 d.Add "geng", -18181 d.Add "gong", -18012 d.Add "gou", -17997 d.Add "gu", -17988 d.Add "gua", -17970 d.Add "guai", -17964 d.Add "guan", -17961 d.Add "guang", -17950 d.Add "gui", -17947 d.Add "gun", -17931 d.Add "guo", -17928 d.Add "ha", -17922 d.Add "hai", -17759 d.Add "han", -17752 d.Add "hang", -17733 d.Add "hao", -17730 d.Add "he", -17721 d.Add "hei", -17703 d.Add "hen", -17701 d.Add "heng", -17697 d.Add "hong", -17692 d.Add "hou", -17683 d.Add "hu", -17676 d.Add "hua", -17496 d.Add "huai", -17487 d.Add "huan", -17482 d.Add "huang", -17468 d.Add "hui", -17454 d.Add "hun", -17433 d.Add "huo", -17427 d.Add "ji", -17417 d.Add "jia", -17202 d.Add "jian", -17185 d.Add "jiang", -16983 d.Add "jiao", -16970 d.Add "jie", -16942 d.Add "jin", -16915 d.Add "jing", -16733 d.Add "jiong", -16708 d.Add "jiu", -16706 d.Add "ju", -16689 d.Add "juan", -16664 d.Add "jue", -16657 d.Add "jun", -16647 d.Add "ka", -16474 d.Add "kai", -16470 d.Add "kan", -16465 d.Add "kang", -16459 d.Add "kao", -16452 d.Add "ke", -16448 d.Add "ken", -16433 d.Add "keng", -16429 d.Add "kong", -16427 d.Add "kou", -16423 d.Add "ku", -16419 d.Add "kua", -16412 d.Add "kuai", -16407 d.Add "kuan", -16403 d.Add "kuang", -16401 d.Add "kui", -16393 d.Add "kun", -16220 d.Add "kuo", -16216 d.Add "la", -16212 d.Add "lai", -16205 d.Add "lan", -16202 d.Add "lang", -16187 d.Add "lao", -16180 d.Add "le", -16171 d.Add "lei", -16169 d.Add "leng", -16158 d.Add "li", -16155 d.Add "lia", -15959 d.Add "lian", -15958 d.Add "liang", -15944 d.Add "liao", -15933 d.Add "lie", -15920 d.Add "lin", -15915 d.Add "ling", -15903 d.Add "liu", -15889 d.Add "long", -15878 d.Add "lou", -15707 d.Add "lu", -15701 d.Add "lv", -15681 d.Add "luan", -15667 d.Add "lue", -15661 d.Add "lun", -15659 d.Add "luo", -15652 d.Add "ma", -15640 d.Add "mai", -15631 d.Add "man", -15625 d.Add "mang", -15454 d.Add "mao", -15448 d.Add "me", -15436 d.Add "mei", -15435 d.Add "men", -15419 d.Add "meng", -15416 d.Add "mi", -15408 d.Add "mian", -15394 d.Add "miao", -15385 d.Add "mie", -15377 d.Add "min", -15375 d.Add "ming", -15369 d.Add "miu", -15363 d.Add "mo", -15362 d.Add "mou", -15183 d.Add "mu", -15180 d.Add "na", -15165 d.Add "nai", -15158 d.Add "nan", -15153 d.Add "nang", -15150 d.Add "nao", -15149 d.Add "ne", -15144 d.Add "nei", -15143 d.Add "nen", -15141 d.Add "neng", -15140 d.Add "ni", -15139 d.Add "nian", -15128 d.Add "niang", -15121 d.Add "niao", -15119 d.Add "nie", -15117 d.Add "nin", -15110 d.Add "ning", -15109 d.Add "niu", -14941 d.Add "nong", -14937 d.Add "nu", -14933 d.Add "nv", -14930 d.Add "nuan", -14929 d.Add "nue", -14928 d.Add "nuo", -14926 d.Add "o", -14922 d.Add "ou", -14921 d.Add "pa", -14914 d.Add "pai", -14908 d.Add "pan", -14902 d.Add "pang", -14894 d.Add "pao", -14889 d.Add "pei", -14882 d.Add "pen", -14873 d.Add "peng", -14871 d.Add "pi", -14857 d.Add "pian", -14678 d.Add "piao", -14674 d.Add "pie", -14670 d.Add "pin", -14668 d.Add "ping", -14663 d.Add "po", -14654 d.Add "pu", -14645 d.Add "qi", -14630 d.Add "qia", -14594 d.Add "qian", -14429 d.Add "qiang", -14407 d.Add "qiao", -14399 d.Add "qie", -14384 d.Add "qin", -14379 d.Add "qing", -14368 d.Add "qiong", -14355 d.Add "qiu", -14353 d.Add "qu", -14345 d.Add "quan", -14170 d.Add "que", -14159 d.Add "qun", -14151 d.Add "ran", -14149 d.Add "rang", -14145 d.Add "rao", -14140 d.Add "re", -14137 d.Add "ren", -14135 d.Add "reng", -14125 d.Add "ri", -14123 d.Add "rong", -14122 d.Add "rou", -14112 d.Add "ru", -14109 d.Add "ruan", -14099 d.Add "rui", -14097 d.Add "run", -14094 d.Add "ruo", -14092 d.Add "sa", -14090 d.Add "sai", -14087 d.Add "san", -14083 d.Add "sang", -13917 d.Add "sao", -13914 d.Add "se", -13910 d.Add "sen", -13907 d.Add "seng", -13906 d.Add "sha", -13905 d.Add "shai", -13896 d.Add "shan", -13894 d.Add "shang", -13878 d.Add "shao", -13870 d.Add "she", -13859 d.Add "shen", -13847 d.Add "sheng", -13831 d.Add "shi", -13658 d.Add "shou", -13611 d.Add "shu", -13601 d.Add "shua", -13406 d.Add "shuai", -13404 d.Add "shuan", -13400 d.Add "shuang", -13398 d.Add "shui", -13395 d.Add "shun", -13391 d.Add "shuo", -13387 d.Add "si", -13383 d.Add "song", -13367 d.Add "sou", -13359 d.Add "su", -13356 d.Add "suan", -13343 d.Add "sui", -13340 d.Add "sun", -13329 d.Add "suo", -13326 d.Add "ta", -13318 d.Add "tai", -13147 d.Add "tan", -13138 d.Add "tang", -13120 d.Add "tao", -13107 d.Add "te", -13096 d.Add "teng", -13095 d.Add "ti", -13091 d.Add "tian", -13076 d.Add "tiao", -13068 d.Add "tie", -13063 d.Add "ting", -13060 d.Add "tong", -12888 d.Add "tou", -12875 d.Add "tu", -12871 d.Add "tuan", -12860 d.Add "tui", -12858 d.Add "tun", -12852 d.Add "tuo", -12849 d.Add "wa", -12838 d.Add "wai", -12831 d.Add "wan", -12829 d.Add "wang", -12812 d.Add "wei", -12802 d.Add "wen", -12607 d.Add "weng", -12597 d.Add "wo", -12594 d.Add "wu", -12585 d.Add "xi", -12556 d.Add "xia", -12359 d.Add "xian", -12346 d.Add "xiang", -12320 d.Add "xiao", -12300 d.Add "xie", -12120 d.Add "xin", -12099 d.Add "xing", -12089 d.Add "xiong", -12074 d.Add "xiu", -12067 d.Add "xu", -12058 d.Add "xuan", -12039 d.Add "xue", -11867 d.Add "xun", -11861 d.Add "ya", -11847 d.Add "yan", -11831 d.Add "yang", -11798 d.Add "yao", -11781 d.Add "ye", -11604 d.Add "yi", -11589 d.Add "yin", -11536 d.Add "ying", -11358 d.Add "yo", -11340 d.Add "yong", -11339 d.Add "you", -11324 d.Add "yu", -11303 d.Add "yuan", -11097 d.Add "yue", -11077 d.Add "yun", -11067 d.Add "za", -11055 d.Add "zai", -11052 d.Add "zan", -11045 d.Add "zang", -11041 d.Add "zao", -11038 d.Add "ze", -11024 d.Add "zei", -11020 d.Add "zen", -11019 d.Add "zeng", -11018 d.Add "zha", -11014 d.Add "zhai", -10838 d.Add "zhan", -10832 d.Add "zhang", -10815 d.Add "zhao", -10800 d.Add "zhe", -10790 d.Add "zhen", -10780 d.Add "zheng", -10764 d.Add "zhi", -10587 d.Add "zhong", -10544 d.Add "zhou", -10533 d.Add "zhu", -10519 d.Add "zhua", -10331 d.Add "zhuai", -10329 d.Add "zhuan", -10328 d.Add "zhuang", -10322 d.Add "zhui", -10315 d.Add "zhun", -10309 d.Add "zhuo", -10307 d.Add "zi", -10296 d.Add "zong", -10281 d.Add "zou", -10274 d.Add "zu", -10270 d.Add "zuan", -10262 d.Add "zui", -10260 d.Add "zun", -10256 d.Add "zuo", -10254 TmpTxt = "" For i = 1 To Len(Txt) wzcode = Asc(Mid(Txt, i, 1)) If wzcode > 0 And wzcode < 160 Then TmpWZ = Chr(wzcode) Else If wzcode < -20319 Or wzcode > -10247 Then TmpWZ = "" Else a = d.Items b = d.keys For ii = d.Count - 1 To 0 Step -1 If a(ii) <= wzcode Then Exit For Next TmpWZ = b(ii) End If End If TmpTxt = TmpTxt & TmpWZ Next Set d = Nothing Getpy = TmpTxt End Function Private Sub Command21_Click() SetWindowPos hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE '取消置顶 pth = "d:\date_save_text" t = Dir(pth, vbDirectory) If t = "" Then MkDir (pth) fd = "\" & Format(Date, "yyyy年mm月dd日") & ".txt" If Dir(pth & fd) = "" Then Open pth & fd For Output As #1 Close #1 End If Shell "notepad.exe " & pth & fd, vbNormalFocus End Sub Private Sub guanji_Click() Timer1.Enabled = True '启动控件 Timer1.Interval = 1000 '设定跳动频为1秒。1000＝1秒 End Sub Private Sub hanzi_Click() 'hanzi.SelText = "" hanzi.Text = "" hanzi.Locked = True hanzi.SelText = Clipboard.GetText() 'hanzi.SelStart = 0 'hanzi.SelLength = Len(hanzi.Text) 'hanzi.SetFocus Clipboard.Clear ctext = Getpy(hanzi) Label2.Caption = "转换成功 拼音已复制到剪切板" & vbCrLf & ctext Clipboard.SetText ctext 'MsgBox "拼音已经复制到剪切板" End Sub Private Sub quxiao_Click() quxiao.Visible = False Label4.Caption = "0" guanji.Caption = "开始倒计时关机" Timer1.Enabled = False Shell "Shutdown -a" End Sub Private Sub Timer1_Timer() If Label4.Caption = "-1" Then guanji.Caption = "即将关机" Exit Sub End If If Label4.Caption = "1" Then Shell "cmd /c" & "shutdown -s -t 0" Label4.Caption = "-1" Exit Sub End If If Label4.Caption = "0" Then Label4.Caption = Text1.Text * 60 - 1 '以秒计时 Else quxiao.Visible = True Label4.Caption = Label4.Caption - 1 End If guanji.Caption = Label4.Caption & "秒后关机" End Sub Private Sub Form_Load() If App.PrevInstance Then 'MsgBox "系统不允许程序运行多次，请关闭后再试。", vbInformation, "系统提示" Exit Sub End If 'Me.ZOrder SetWindowPos hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE '设置顶 With nfIconData .hWnd = Me.hWnd .uID = Me.Icon .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMOVE .hIcon = Me.Icon.Handle '定义鼠标移动到托盘上时显示的Tip '.szTip = App.Title + "(版本 " & App.Major & "." & App.Minor & "." & App.Revision & ")" & vbNullChar .cbSize = Len(nfIconData) End With Call Shell_NotifyIcon(NIM_ADD, nfIconData) End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call Shell_NotifyIcon(NIM_DELETE, nfIconData) End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim lMsg As Single lMsg = X / Screen.TwipsPerPixelX Select Case lMsg Case WM_LBUTTONUP '单击左键，显示窗体 ShowWindow Me.hWnd, SW_RESTORE End Select End Sub Private Sub Form_Unload(Cancel As Integer) Cancel = False End Sub
Run code
Cut to clipboard

    模块
    Option Explicit Public Const MAX_TOOLTIP As Integer = 64 Public Const NIF_ICON = &H2 Public Const NIF_MESSAGE = &H1 Public Const NIF_TIP = &H4 Public Const NIM_ADD = &H0 Public Const NIM_DELETE = &H2 Public Const WM_MOUSEMOVE = &H200 Public Const WM_LBUTTONDOWN = &H201 Public Const WM_LBUTTONUP = &H202 Public Const WM_LBUTTONDBLCLK = &H203 Public Const WM_RBUTTONDOWN = &H204 Public Const WM_RBUTTONUP = &H205 Public Const WM_RBUTTONDBLCLK = &H206 Public Const SW_RESTORE = 9 Public Const SW_HIDE = 0 Public nfIconData As NOTIFYICONDATA Public Type NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * MAX_TOOLTIP End Type Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
    Run code
    Cut to clipboard


      附件：常用工具箱

      工程项目附件：upload/attach/tbs-HnG0eFQg2H.rar

      VB最小化到托盘 附件：upload/attach/tbs-4KlNjHuBN3.rar

      VB_ICO图标合集 附件：upload/attach/tbs-mxTZoWmj5n.rar

      Visual Basic 6.0精简版(下载后修改文件后缀名 .rar)

      VB中文在线手册