Private Sub Command1_Click()
With Text1
.Text = "测试"
.FontSize = 20
.FontName = "黑体"
End With
End Sub
string dir = basename(fullPath);
if(!_fileUtils->isDirectoryExist(dir)) {
if(!_fileUtils->createDirectory(dir)) {
// Failed to create directory
CCLOG("AssetsManagerEx : can not create directory %s\n", fullPath.c_str());
unzClose(zipfile);
return false;
}
VB 默认宋体,无需设置吧。Me.Font = "宋体"
奴才平身.............