本文介绍了获得预期的语句错误结束的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧! 问题描述 29岁程序员,3月因学历无情被辞! 大家好 我在下面的代码中收到错误 私有 声明 功能 Shell_NotifyIcon Lib shell32.dll 别名 Shell_NotifyIconA( ByVal dwMessage 作为 长,lpData 作为 NOTIFYICONDATA)作为 长 私有类型NOTIFYICONDATA cbSize 作为 长 hWnd As Long uID 作为 长 uFlags 作为 长 uCallbackMessage 作为 长 hIcon 作为 长 szTip 作为 字符串 * 64 结束键入 私有 Const NIF_MESSAGE =& H1 私有 Const NIF_ICON =& H2 私有 Const NIF_TIP =& H4 公开 枚举 Acoes NIM_ADD =& H0 NIM_ DELETE =& H2 NIM_MODIFY =& H1 结束 枚举 公共 Sub 托盘( ByVal hWnd&, ByVal hIcon 作为 StdPicture, ByVal sTip $,Acao As Acoes) Dim i 作为 NOTIFYICONDATA 使用 i .hWnd = hWnd .hIcon = hIcon .szTip = sTip& vbNullChar .uFlags = NIF_MESSAGE 或 NIF_ICON 或 NIF_TIP .uCallbackMessage =& H200 .uID = vbNull .cbSize = Len(i) Shell_NotifyIcon Acao,i 结束 使用 结束 子 请告诉我这里的问题解决方案 ,Acao As Acoes) Dim i As NOTIFYICONDATA 使用 i .hWnd = hWnd .hIcon = hIcon .szTip = sTip& vbNullChar .uFlags = NIF_MESSAGE 或 NIF_ICON 或 NIF_TIP .uCallbackMessage =& H200 .uID = vbNull .cbSize = Len(i) Shell_NotifyIcon Acao,i 结束 使用 结束 子 请告诉我这里的问题 试试这个 公共 Sub 托盘( ByVal hWnd&, ByVal hIcon 作为 StdPicture, ByVal sTip ,Acao As Acoes) Dim i As NOTIFYICONDATA 使用 i .hWnd = hWnd .hIcon = hIcon .szTip = sTip& vbNullChar .uFlags = NIF_MESSAGE 或 NIF_ICON 或 NIF_TIP .uCallbackMessage =& H200 .uID = vbNull .cbSize = Len(i) 结束 With Shell_NotifyIcon Acao,i 结束 Sub Hi AllI am getting error in the below codePrivate Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As LongPrivate Type NOTIFYICONDATAcbSize As LonghWnd As LonguID As LonguFlags As LonguCallbackMessage As LonghIcon As LongszTip As String * 64End TypePrivate Const NIF_MESSAGE = &H1Private Const NIF_ICON = &H2Private Const NIF_TIP = &H4Public Enum AcoesNIM_ADD = &H0NIM_DELETE = &H2NIM_MODIFY = &H1End EnumPublic Sub Tray(ByVal hWnd&, ByVal hIcon As StdPicture, ByVal sTip$, Acao As Acoes)Dim i As NOTIFYICONDATAWith i.hWnd = hWnd.hIcon = hIcon.szTip = sTip & vbNullChar.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP.uCallbackMessage = &H200.uID = vbNull.cbSize = Len(i)Shell_NotifyIcon Acao, iEnd WithEnd SubPlease let me know the problem here 解决方案 , Acao As Acoes)Dim i As NOTIFYICONDATAWith i.hWnd = hWnd.hIcon = hIcon.szTip = sTip & vbNullChar.uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP.uCallbackMessage = &H200.uID = vbNull.cbSize = Len(i)Shell_NotifyIcon Acao, iEnd WithEnd SubPlease let me know the problem hereTry thisPublic Sub Tray(ByVal hWnd&, ByVal hIcon As StdPicture, ByVal sTip, Acao As Acoes) Dim i As NOTIFYICONDATA With i .hWnd = hWnd .hIcon = hIcon .szTip = sTip & vbNullChar .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP .uCallbackMessage = &H200 .uID = vbNull .cbSize = Len(i) End With Shell_NotifyIcon Acao, iEnd Sub 这篇关于获得预期的语句错误结束的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持! 上岸,阿里云!
05-27 20:08
查看更多