易截截图软件、单文件、免安装、纯绿色、仅160KB

VB 中颜色互相转换的两个小函数(REG和 VB颜)

VB颜色和RGB色互相转换头疼了我好一段时间,如今找到解决办法了
特别贴出来与大家共享 
Type RGB
    Red As String
    Green As String
    Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
    Dim clrHex As String
    clrHex = Replace(Format(Hex$(dwColor), "@@@@@@"), " ", "0")
    ColorToRGB.Red = Mid$(clrHex, 5, 2)
    ColorToRGB.Green = Mid$(clrHex, 3, 2)
    ColorToRGB.Blue = Mid$(clrHex, 1, 2)    '
End Function
Public Function RgbToColor(ByVal rColor As String)
    Dim tempColor As String, RedColor As String, GreenColor As String, BlueColor As String
    tempColor = Replace(rColor, "0x", "")
    RedColor = Mid(tempColor, 1, 2)
    GreenColor = Mid(tempColor, 3, 2)
    BlueColor = Mid(tempColor, 5, 2)
    RgbToColor = RGB(Val("&H" & RedColor), Val("&H" & GreenColor), Val("&H" & BlueColor))
End Function
说明===============
ColorToRGB 作用是将VB中的颜色转换成RGB的颜色 比如 &H00FFFFFF& 会变成FFFFFF
RgbToColor 作用是将16进制的颜色 如FFFF00 转换成对应的十进制 再通过VB自带的RGB函数 转换成VB需要的颜色


相关文档:

VB 任务栏透明

代码:
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetW ......

C代码语言转VB代码的问题:

谁能帮我把这段代码转成Vb的代码,不胜感激,谢谢!
void CTempDlg::OnOK()
{
  UpdateData(1);
  int nlen=m_edit1.GetLength();
  char *username=m_edit1.GetBuffer(nlen);//定义一个新字符串username,长度为nlen,并将m_edit1中的字符串一个个放入到username数组中
  char strA[]="90123456 ......

再谈用VB无窗口透明Usercontrol编写透明浮动按钮

    去年曾写过一篇博文,名称叫《用VB无窗口透明Usercontrol编写透明浮动按钮》,该文有一个观点是错误的,即透明无窗口Usercontrol不支持设计时点选。其实,通过在UserControl_HitTest过程里加入HitResult = vbHitResultHit语句,就可以实现设计时的点选了,为此,修改代码如下:
'* ******************* ......

VB OpenGL绘图

最近在使用和研究OpenGL绘图,遇到不少问题。网上查阅资料的时候,发现大部分资料都是C语言,和C++写的,VB这方面的资料太少了,VB6.0的就更少,现在都流行dotnet。自己买了本OpenGL书是也是C语言版的。这个博客也开了2年多了,都没写点东东上来。趁晚上睡不着,上来写点。
 
 一、什么是OpenGL?
OpenGL是Ope ......

VB遍历当前目录

Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()

currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))

End Sub ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号