主页 > 问答社区 > > (mad里的字体效果怎么做)请问这种字体效果怎么做
最佳回答 最佳答案

本回答由网友推荐

漫过黑夜

Visual Basic允许程序员改变一个CommandButton的背景色--简单的将样式设为Graphical然后改变BackColor就行了。
但却没有提供一个简单的方法去改变CommandButton的文字的颜色。
本文将告诉你怎样根据你的意愿改变CommandButton的文本颜色,而且如果按钮上有图片的话,还可以将文本显示在按钮的底部。
在工程中添加以下模块(Module): Module modExtButtonbas Option Explicit ' ' modExtButtonbas ' ' 本模块可让你改变命令按钮的文本颜色。
' 使用方法: ' ' - 在设计时将文本的Style设为Graphical ' ' - 随意设定背景色和图象属性 ' ' - 在Form_Load中调用 SetButton : ' SetButton Command1hWnd, vbBlue ' (你可以任意次的调用该过程甚至不必先调用 RemoveButton) ' ' - 在Form_Unload中调用 RemoveButton : ' RemoveButton Command1hWnd ' ' Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetParent Lib "user32" _ (ByVal hWnd As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias _ "GetWindowLongA" (ByVal hWnd As Long, _ ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias _ "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Const GWL_WNDPROC = (-4) Private Declare Function GetProp Lib "user32" Alias "GetPropA" _ (ByVal hWnd As Long, ByVal lpString As String) As Long Private Declare Function SetProp Lib "user32" Alias "SetPropA" _ (ByVal hWnd As Long, ByVal lpString As String, _ ByVal hData As Long) As Long Private Declare Function RemoveProp Lib "user32" Alias _ "RemovePropA" (ByVal hWnd As Long, _ ByVal lpString As String) As Long Private Declare Function CallWindowProc Lib "user32" Alias _ "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _ ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _ (Destination As Any, Source As Any, ByVal Length As Long) 'Owner draw constants Private Const ODT_BUTTON = 4 Private Const ODS_SELECTED = &H1 'Window messages we're using Private Const WM_DESTROY = &H2 Private Const WM_DRAWITEM = &H2B Private Type DRAWITEMSTRUCT CtlType As Long CtlID As Long itemID As Long itemAction As Long itemState As Long hwndItem As Long hDC As Long rcItem As RECT itemData As Long End Type Private Declare Function GetWindowText Lib "user32" Alias _ "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, _ ByVal cch As Long) As Long 'Various GDI painting-related functions Private Declare Function DrawText Lib "user32" Alias "DrawTextA" _ (ByVal hDC As Long, ByVal lpStr As String, ByVal nCount As Long, _ lpRect As RECT, ByVal wFormat As Long) As Long Private Declare Function SetTextColor Lib "gdi32" (ByVal hDC As Long, _ ByVal crColor As Long) As Long Private Declare Function SetBkMode Lib "gdi32" (ByVal hDC As Long, _ ByVal nBkMode As Long) As Long Private Const TRANSPARENT = 1 Private Const DT_CENTER = &H1 Public Enum TextVAligns DT_VCENTER = &H4 DT_BOTTOM = &H8 End Enum Private Const DT_SINGLELINE = &H20 Private Sub DrawButton(ByVal hWnd As Long, ByVal hDC As Long, _ rct As RECT, ByVal nState As Long) Dim s As String Dim va As TextVAligns va = GetProp(hWnd, "VBTVAlign") 'Prepare DC for drawing SetBkMode hDC, TRANSPARENT SetTextColor hDC, GetProp(hWnd, "VBTForeColor") 'Prepare a text buffer s = String$(255, 0) 'What should we print on the button? GetWindowText hWnd, s, 255 'Trim off nulls s = Left$(s, InStr(s, Chr$(0)) - 1) If va = DT_BOTTOM Then 'Adjust specially for VB's CommandButton control rctBottom = rctBottom - 4 End If If (nState And ODS_SELECTED) = ODS_SELECTED Then 'Button is in down state - offset 'the text rctLeft = rctLeft + 1 rctRight = rctRight + 1 rctBottom = rctBottom + 1 rctTop = rctTop + 1 End If DrawText hDC, s, Len(s), rct, DT_CENTER Or DT_SINGLELINE _ Or va End Sub Public Function ExtButtonProc(ByVal hWnd As Long, _ ByVal wMsg As Long, ByVal wParam As Long, _ ByVal lParam As Long) As Long Dim lOldProc As Long Dim di As DRAWITEMSTRUCT lOldProc = GetProp(hWnd, "ExtBtnProc") ExtButtonProc = CallWindowProc(lOldProc, hWnd, wMsg, wParam, lParam) If wMsg = WM_DRAWITEM Then CopyMemory di, ByVal lParam, Len(di) If diCtlType = ODT_BUTTON Then If GetProp(dihwndItem, "VBTCustom") = 1 Then DrawButton dihwndItem, dihDC, dircItem, _ diitemState End If End If ElseIf wMsg = WM_DESTROY Then ExtButtonUnSubclass hWnd End If End Function Public Sub ExtButtonSubclass(hWndForm As Long) Dim l As Long l = GetProp(hWndForm, "ExtBtnProc") If l <> 0 Then 'Already subclassed Exit Sub End If SetProp hWndForm, "ExtBtnProc", _ GetWindowLong(hWndForm, GWL_WNDPROC) SetWindowLong hWndForm, GWL_WNDPROC, AddressOf ExtButtonProc End Sub Public Sub ExtButtonUnSubclass(hWndForm As Long) Dim l As Long l = GetProp(hWndForm, "ExtBtnProc") If l = 0 Then 'Isn't subclassed Exit Sub End If SetWindowLong hWndForm, GWL_WNDPROC, l RemoveProp hWndForm, "ExtBtnProc" End Sub Public Sub SetButton(ByVal hWnd As Long, _ ByVal lForeColor As Long, _ Optional ByVal VAlign As TextVAligns = DT_VCENTER) Dim hWndParent As Long hWndParent = GetParent(hWnd) If GetProp(hWndParent, "ExtBtnProc") = 0 Then ExtButtonSubclass hWndParent End If SetProp hWnd, "VBTCustom", 1 SetProp hWnd, "VBTForeColor", lForeColor SetProp hWnd, "VBTVAlign", VAlign End Sub Public Sub RemoveButton(ByVal hWnd As Long) RemoveProp hWnd, "VBTCustom" RemoveProp hWnd, "VBTForeColor" RemoveProp hWnd, "VBTVAlign" End Sub 将Form命名为frmDemo。
添加4个CommandButton,不必更改它们的名称,将它们的Style设为Graphical,给第3个按钮设置一幅图片。
CommandButton也可以放置在一个容器如PictureBox或Frame中,模块会判断,如果需要的话将CommandButton的容器也子类化。
在Form中加入如下代码:
Private Sub Form_Load() 'Initialize each button color SetButton Command1hWnd, vbRed SetButton Command2hWnd, &H8000& '深绿色 'Assign this one a DT_BOTTOM alignment because SetButton Command3hWnd, vbBlue, DT_BOTTOM '含有图片,将文本放置在按钮底部 SetButton Command4hWnd, &H8080& '暗棕黄色 End Sub Private Sub Form_Unload(Cancel As Integer) '手动解除按钮的子类化 '这并不是必须的 RemoveButton Command1hWnd RemoveButton Command2hWnd RemoveButton Command3hWnd RemoveButton Command4hWnd End Sub

赞同 (17172)

反对 (906)

其它回答
拉扯四季

这是最终的图像开始之前我们可以看到我们将创建通过本教程出最终的图像。
您可以下载分层的 PSD 文档,在本文最下面 创建文本让我们开始通过创建一个新文档,即 1000年像素宽、 600 像素高和,分辨率为 300 像素/英寸。
在”背景”层充满 75%灰色。
获取类型的工具,并键入”光环”。
设置字体,将字体大小设置为 40 pt 和字间距60。
实际上您正在使用的字体不重要,它将指导我们,从头大约绘制每个字母。
绘制创建一个新的图层命名为”文本”。
获取钢笔工具、 路径选择。
如在字母上方绘制路径,下面图像。
每个字母应该是如此,完成命令并单击外部路径之前,另一个的信后) 的单独的路径。
地方画笔描边后绘制最后的字母命令并单击路径外可取消选择。
获取画笔工具。
选择一个圆形画笔,请转至窗口 > 画笔把画笔调板。
请关闭形状动态,到 36 设置直径 px 和间距为 255%。
倒一些颜色删除”奥拉”层,因为您不需要它。
前景颜色设置为黑色。
转到路径组件面板,打开路径菜单,然后选择描边路径。
请确保在描边路径对话框中选择画笔,打好。
现在您已经沿小径大点。
现在我们需要将添加一些的颜色。
选择”文字”图层图层面板中,并应用使用这些设置一个渐变叠加:
模式=渐变叠加,里面有默认的渐变色。
组织层次获取涂抹工具从工具箱,请选择其中一个标准的圆形画笔,打开画笔调板、 关闭形状动态,设置直径 50px,间距在 5%。
创建一个新的图层,上面的”文字”图层,选择这个新图层,并在”文本”图层,然后打命令 + E 将合并。
该图层名称”文本”。
涂抹涂料转到路径面板,选择描边路径菜单。
请确保在描边路径对话框中选择涂抹,点击确定。
这会有点涂抹油漆。
重复此步骤,两次以上。
现在,您可以单击外摆脱路径的路径面板中”工作路径”。
将图层样式的应用返回到图层面板中,并以使文本变得更为明显的情况下,请选择”文字”图层和打命令 + J 复制。
打了要合并这两个命令 + E。
打命令 + J 复制一次多层和命名此副本为”线”,现在,使”光线”层不可见。
将一个斜面和浮雕图层样式应用于使用这些设置的”文本”层:
风格 = > 内斜角、 技术 = > 光滑,深度 = > 175,方向 = > 上大小 = > 20,角 = > 145,高度 = > 60 和突出显示不透明度 = > 90。
使的反射打命令 + J 复制”文本”图层,并命名为”反思”副本。
转至 编辑 > 变换 > 垂直翻转 。
放置在文本下方反射,如下所示。
我们会应用到淡反映一个图层蒙版。
单击添加图层蒙版按钮、 获取渐变工具、 挑黑色,白色渐变和线性渐变应用于图层蒙版,如下所示。
将图层不透明度设置在 25%。
创建光射线选择”光线”图层,并使其可见。
转至 筛选器 > 模糊 > 径向模糊,并使用这些设置:
量 = > 100,模糊方法 = > 放大质量 = > 最佳。
打了两次,两次更应用筛选器的 Commad + F。
为颜色减淡和不透明度”光线”层,在 55%设置混合模式。
命中命令 + T,然后在 140%设置水平和垂直缩放。
放置在光线,下面图像。
转到图层面板并拖动”光线”图层”文本”层下面。
处理背景现在我们会将图层样式应用到”背景”的图层。
第一次增加一倍,请单击”背景”层。
您会看到一个新图层对话框,只需按确定。
图层命名为图层 0 现在。
使用这些设置的 Graient 覆盖应用:
混合模式 = > 屏幕、 Graident = > 黑色,白色,不透明度 = > 中反向的添百分之四十基地。
= > 签,规模 = > 55%。
创建地创建一个新的图层,上述”Layer0″。
获取椭圆的马克工具并做出选择下图所示,用白色填充它。
打命令 + D 可取消选择。
转至 筛选器 > 模糊 > 高斯模糊,与一个 Raidus 40 像素的应用。
设置图层不透明度为 65%。
创建阴影复制”文本”层并命名副本”阴影”。
在图层调板中拖动”文本”层下面图层”阴影”。
使图层样式不可见。
打命令 + T 和缩小它并将其置于文本和作为中的反射之间,下面图像。
创建阴影打命令 + U 把色相/饱和度对话框。
设置为-90 的亮度和应用。
转至 筛选器 > 模糊 > 高斯模糊 和 5 的像素的半径与应用,然后转到 筛选器 > 模糊 > 动感模糊,设置角度为 0 和距离为 60 像素。
最终的特质现在我们把颜色更鲜艳。
重复的”文字”图层。
转至 筛选器 > 模糊 > 高斯模糊 和应用具有 5 个像素的一个 Raidus。
将混合模式设置为 Overlay。
祝贺是,那是所有。
如果您想要试本教程,请记住,您可以实现不同的效果,使用不同的画笔来创建该点并涂抹漆。
使用不同的渐变画笔描边着色结果也会有所不同。
我希望这是一个有用的和有趣的教程。
注:
更多精彩教程请关注三联photoshop教程栏目,三联PS群:311270890欢迎你的加入

赞同 (27815)

反对 (959)

巳為、亽妇

首先介绍了一系列的“谎言”。
“谎言” - BIGBANG。
玉珠贤。
金孝妍。
T-ARA。
BUZZ。
索尼娅(谎言真的是一首流行歌曲。) “每个人都每个人石”,“我,我是你的”(歌听着良好的精神状态和说)“超级明星” - 珠宝“DIVA “AH” - 放学后 “谎言” - Gavy NJ(看来,也被称为骗人的。) 我donnot护理“火” - 2NE1 “旋律”TONY AN />“对不起对不起” - SJ “GEE”精灵“ - 少女时代 ”BAD BOY“,”即使第二 - 孙丹菲 DISCO - 嗯 “在相同的幻想表 - H-尤金(技艺。
恩ofWG), “疯狂” - MC梦 “一”的“粉丝”,“爱爱爱” - ?埃皮克高 “给你” - 碰不得的(技艺。
宋之蒽) 恨爱“ - 打破preal ”不要叫“爱是如此简单” - 我不关心,家庭“再见爱” - ?时代 - Seeya&Davichi - SJ 希望 - 东方神起 疯了 - 孙丹菲 GEE - 少女时代 哈哈 - 少女时代 BR /> Edute - 少女时代 一时间,好吗? - 珠宝首饰 为什么我喜欢你 - SJ 一点点 - 徐Jin年轻 :
“听着运动OST”韩国明星专辑 12。
通过扑通听我的心 3To的心4Save我的心 5My心的故事6Listen我的心(机构) 7Save我的心“(机构) “爱的第一张专辑”韩国明星专辑 1。
精彩的2Ready爱 3。
一个爱离别公式 5Remember 6。
所写的笔记 所以别说希望 9。
二对一的灵魂(混音) 11Remember(混音)12。
离别公式(Bossa版) “阶段#1 - TOP”韩国明星专辑 刺鱼的爱真的 如果在今天之后。
街道 2008年夏季节“,韩国明星专辑 1I相信21分娩奠定持有 3。
从里面夏天(混音版)4Cocktail爱(Madteam混音孙满) 5。
根据6Love座椅 7海公主(俱乐部版)8Ocean男子 9Paradise 10。
孙满(2007年版。) 11。
13Summer通过水晶(水晶)12Summer梦天14Cheju执行近海 15Homerun 16Sun的海滩 17。
程海为young女士,18It会离开,好!
哦!
19。
海洋

赞同 (18494)

反对 (990)

暮雨青萝绾丝烟

问题:http://vyoukucom/v_show/id_XMTM2MzgxNDQ4html 像这样的mad用什么制作?AE?PR?难不难?自学成不?!
谢谢!
这种叫静止系mad,用的是AE(动画系用PR或vegas)自学的话,完全没问题,有点耐心的话,学一个星期就可以做了(去年寒假学了一个星期确实可以做mad了,只不过太高端的不会) 51自学网,把AE的入门篇学了基本就可以做普通的mad了,要搞高端点就进阶和高级也学了,但那个费时间,看耐心了 有不懂的去mad吧问问就行 ps:AE对电脑配置要求较高要装就装AE cs4,这个版本最完美你好!
我也不会,,如有疑问,请追问。

赞同 (23224)

反对 (871)

何处归途

已经压制好的视频是没办法清除的。
动画刚开始放送的时候 各大天朝动漫网站会提供rmvb和mp4等已经有字幕动画的下载。
这些是录制的,清晰度不算很高,还有日本电视台台标。
后期DVD发售便会有人分享高清的画质,比如外挂字幕的MKV,还有WMV 因为高清动画文件比较大,所以能保存的网络硬盘不多 推荐ACG专用 极享网盘 百度搜索一下极享就可以

赞同 (50755)

反对 (245)

何以梦

问题:大家好,我想问下“新春团拜会”这种字体效果怎么做呀!
就是感觉厚重的感觉!
哪位大侠有了解了,给个教程,谢谢!
:)
搜西安,用3D软件做立体文字,如果不会3DMANX的话就下载个3D文字软件,有很多,推荐:
Xara3D6制作好之后到处PNG图片用PS打开处理颜色,细节。

赞同 (7467)

反对 (794)

匿名网友

绘声绘影,文字效果里有。
photoshop里边 楷书描个白边再阴影要不就楷书描个白边再把楷书那个几个字复制个图层半透明滤镜里把半透明的图层来个高斯模糊移动下位置拖到最下层就ok很多方法的慢慢搞吧会有意想不到的效果

赞同 (83757)

反对 (862)

迷路月亮

问:
《疯狂的麦克斯》怎么换字体? 答:
换字体教程如下:
字体下载:
点击进入
1、把度盘中的3DMTTF放到Mad Max/3DMGAME下替换原文件(原来的3DMTTF建议备份)
2、打开同目录下的3dmlocini,把size_adjust =0一行的0改为1,即可达到截图中的效果

赞同 (38828)

反对 (369)

她已醉

新建视频轨道,右键点空轨,插入文字,然后编辑:
第一个选项卡为字体字号,第二个为位置,三四为颜色特效等等。

赞同 (70372)

反对 (975)

等你回答

换一换