People Ignore Design That Ignores People

People Ignore Design That Ignores People

'---------------------------------------------------------------------------------------
' Module    : frmAdsensemaker
' DateTime  : 06.01.2008 16:16
' Author    : Burkhard Schlutt
' Purpose   : Formular Adsensemaker, wird durch Start_Adsensemaker aufgerufen
'---------------------------------------------------------------------------------------
Option Explicit
Dim ImgElementAnzeigenblockAktiv As Integer

Private Sub CboAnzeigenblockFarbvorlage_Change()
Select Case CboAnzeigenblockFarbvorlage.ListIndex
  Case 0 'Google-Standard
    TbAnzeigenblockBorder.text = "FFFFFF" 'Rahmen
    TbAnzeigenblockBg.text = "FFFFFF" 'Hintergrund
    TbAnzeigenblockLink.text = "0000FF" 'Titel
    TbAnzeigenblockUrl.text = "008000" 'Url
    TbAnzeigenblockText.text = "000000" 'Text
  Case 1 'Maritim
    TbAnzeigenblockBorder.text = "FFFFFF" 'Rahmen
    TbAnzeigenblockBg.text = "FFFFFF" 'Hintergrund
    TbAnzeigenblockLink.text = "0000FF" 'Titel
    TbAnzeigenblockUrl.text = "008000" 'Url
    TbAnzeigenblockText.text = "000000" 'Text
  Case 2 'Ozean
    TbAnzeigenblockBorder.text = "336699" 'Rahmen
    TbAnzeigenblockBg.text = "FFFFFF" 'Hintergrund
    TbAnzeigenblockLink.text = "0000FF" 'Titel
    TbAnzeigenblockUrl.text = "008000" 'Url
    TbAnzeigenblockText.text = "000000" 'Text
  Case 3 'Schatten
    TbAnzeigenblockBorder.text = "000000" 'Rahmen
    TbAnzeigenblockBg.text = "F0F0F0" 'Hintergrund
    TbAnzeigenblockLink.text = "0000FF" 'Titel
    TbAnzeigenblockUrl.text = "008000" 'Url
    TbAnzeigenblockText.text = "000000" 'Text
  Case 4 'Blaue Mischung
    TbAnzeigenblockBorder.text = "6699CC" 'Rahmen
    TbAnzeigenblockBg.text = "003366" 'Hintergrund
    TbAnzeigenblockLink.text = "FFFFFF" 'Titel
    TbAnzeigenblockUrl.text = "AECCEB" 'Url
    TbAnzeigenblockText.text = "AECCEB" 'Text
  Case 5 'Tinte
    TbAnzeigenblockBorder.text = "000000" 'Rahmen
    TbAnzeigenblockBg.text = "000000" 'Hintergrund
    TbAnzeigenblockLink.text = "FFFFFF" 'Titel
    TbAnzeigenblockUrl.text = "999999" 'Url
    TbAnzeigenblockText.text = "CCCCCC" 'Text
  Case 6 'Graphit
    TbAnzeigenblockBorder.text = "CCCCCC" 'Rahmen
    TbAnzeigenblockBg.text = "CCCCCC" 'Hintergrund
    TbAnzeigenblockLink.text = "000000" 'Titel
    TbAnzeigenblockUrl.text = "666666" 'Url
    TbAnzeigenblockText.text = "333333" 'Text
  Case 7 'Benutzerdefiniert
End Select
ImgAnzeigenblockBorder.BackColor = "&H" & TbAnzeigenblockBorder.Value
ImgAnzeigenblockBg.BackColor = "&H" & TbAnzeigenblockBg.Value
ImgAnzeigenblockLink.BackColor = "&H" & TbAnzeigenblockLink.Value
ImgAnzeigenblockUrl.BackColor = "&H" & TbAnzeigenblockUrl.Value
ImgAnzeigenblockText.BackColor = "&H" & TbAnzeigenblockText.Value
End Sub
Private Sub
cmdSchreiber_Click() Dim mydata As DataObject If OpbAnzeigenblockDivOptJA = True Then TbOutput.text = DivB1 & TbAnzeigenblockBreite.text TbOutput.text = TbOutput.text & DivB2 & TbAnzeigenblockHoehe.text TbOutput.text = TbOutput.text & DivB3 & DivB4 & TbAnzeigenblockLinks.text TbOutput.text = TbOutput.text & DivB5 & TbAnzeigenblockOben.text TbOutput.text = TbOutput.text & DivB6 & vbCrLf End If TbOutput.text = TbOutput.text & JsVorspann1a & vbCrLf & JsVorspann2 & vbCrLf TbOutput.text = TbOutput.text & GoClient & vbCrLf TbOutput.text = TbOutput.text & GoWidth & TbAnzeigenblockBreite & ";" & vbCrLf TbOutput.text = TbOutput.text & GoHeight & TbAnzeigenblockHoehe & ";" & vbCrLf Select Case CboAnzeigenblockFormate.ListIndex Case 0 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "728x90_as" & _ Chr(34) & ";" & vbCrLf Case 1 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "468x60_as" & _ Chr(34) & ";" & vbCrLf Case 2 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "234x60_as" & _ Chr(34) & ";" & vbCrLf Case 3 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "120x600_as" & _ Chr(34) & ";" & vbCrLf Case 4 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "160x600_as" & _ Chr(34) & ";" & vbCrLf Case 5 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "120x240_as" & _ Chr(34) & ";" & vbCrLf Case 6 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "336x280_as" & _ Chr(34) & ";" & vbCrLf Case 7 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "300x250_as" & _ Chr(34) & ";" & vbCrLf Case 8 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "250x250_as" & _ Chr(34) & ";" & vbCrLf Case 9 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "200x200_as" & _ Chr(34) & ";" & vbCrLf Case 10 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "180x150_as" & _ Chr(34) & ";" & vbCrLf Case 11 TbOutput.text = TbOutput.text & GoFormat & Chr(34) & "125x125_as" & _ Chr(34) & ";" & vbCrLf End Select 'TbOutput.text = TbOutput.text & GoFormat & vbCrLf Select Case CboAnzeigenblockTyp.ListIndex Case 0 TbOutput.text = TbOutput.text & GoType & Chr(34) & "text_image" & Chr(34) _ & ";" & vbCrLf Case 1 TbOutput.text = TbOutput.text & GoType & Chr(34) & "text" & Chr(34) & ";" _ & vbCrLf Case 2 TbOutput.text = TbOutput.text & GoType & Chr(34) & "image" & Chr(34) & _ ";" & vbCrLf End Select 'TbOutput.text = TbOutput.text & GoType & vbCrLf TbOutput.text = TbOutput.text & GoChannel & Chr(34) & Chr(34) & ";" & vbCrLf TbOutput.text = TbOutput.text & GoBorder & Chr(34) & TbAnzeigenblockBorder.text _ & Chr(34) & ";" & vbCrLf TbOutput.text = TbOutput.text & GoBg & Chr(34) & TbAnzeigenblockBg.text & _ Chr(34) & ";" & vbCrLf TbOutput.text = TbOutput.text & GoLink & Chr(34) & TbAnzeigenblockLink.text & _ Chr(34) & ";" & vbCrLf TbOutput.text = TbOutput.text & GoText & Chr(34) & TbAnzeigenblockText.text & _ Chr(34) & ";" & vbCrLf TbOutput.text = TbOutput.text & GoUrl & Chr(34) & TbAnzeigenblockUrl.text & _ Chr(34) & ";" & vbCrLf TbOutput.text = TbOutput.text & JsNachspann1 & vbCrLf TbOutput.text = TbOutput.text & JsNachspann2 & vbCrLf TbOutput.text = TbOutput.text & JsVorspann1b & vbCrLf TbOutput.text = TbOutput.text & JsCode & vbCrLf TbOutput.text = TbOutput.text & JsNachspann2 & vbCrLf If OpbAnzeigenblockDivOptJA = True Then TbOutput.text = TbOutput.text & DivE & vbCrLf End If MultiPage1.Value = 3 Set mydata = New DataObject mydata.SetText TbOutput.text mydata.PutInClipboard End Sub
Private Sub
ImgAnzeigenblockBorder_Click() ImgAnzeigenblockBorder.SpecialEffect = fmSpecialEffectSunken ImgAnzeigenblockBg.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockLink.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockText.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockUrl.SpecialEffect = fmSpecialEffectFlat ImgElementAnzeigenblockAktiv = 1 TbAnzeigenblockUpdater (TbAnzeigenblockBorder.Value) End Sub
Private Sub
ImgAnzeigenblockBg_Click() ImgAnzeigenblockBorder.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockBg.SpecialEffect = fmSpecialEffectSunken ImgAnzeigenblockLink.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockText.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockUrl.SpecialEffect = fmSpecialEffectFlat ImgElementAnzeigenblockAktiv = 2 TbAnzeigenblockUpdater (TbAnzeigenblockBg.Value) End Sub
Private Sub
ImgAnzeigenblockLink_Click() ImgAnzeigenblockBorder.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockBg.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockLink.SpecialEffect = fmSpecialEffectSunken ImgAnzeigenblockText.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockUrl.SpecialEffect = fmSpecialEffectFlat ImgElementAnzeigenblockAktiv = 3 TbAnzeigenblockUpdater (TbAnzeigenblockLink.Value) End Sub
Private Sub
ImgAnzeigenblockText_Click() ImgAnzeigenblockBorder.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockBg.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockLink.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockText.SpecialEffect = fmSpecialEffectSunken ImgAnzeigenblockUrl.SpecialEffect = fmSpecialEffectFlat ImgElementAnzeigenblockAktiv = 4 TbAnzeigenblockUpdater (TbAnzeigenblockText.Value) End Sub
Private Sub
ImgAnzeigenblockUrl_Click() ImgAnzeigenblockBorder.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockBg.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockLink.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockText.SpecialEffect = fmSpecialEffectFlat ImgAnzeigenblockUrl.SpecialEffect = fmSpecialEffectSunken ImgElementAnzeigenblockAktiv = 5 TbAnzeigenblockUpdater (TbAnzeigenblockUrl.Value) End Sub
Private Sub
TbAnzeigenblockBorder_AfterUpdate() ImgAnzeigenblockBorder.BackColor = "&H" & TbAnzeigenblockBorder.Value TbAnzeigenblockUpdater (TbAnzeigenblockBorder.Value) End Sub
Private Sub
TbAnzeigenblockBg_AfterUpdate() ImgAnzeigenblockBg.BackColor = "&H" & TbAnzeigenblockBg.Value TbAnzeigenblockUpdater (TbAnzeigenblockBg.Value) End Sub
Private Sub
TbAnzeigenblockLink_AfterUpdate() ImgAnzeigenblockLink.BackColor = "&H" & TbAnzeigenblockLink.Value TbAnzeigenblockUpdater (TbAnzeigenblockLink.Value) End Sub
Private Sub
TbAnzeigenblockText_AfterUpdate() ImgAnzeigenblockText.BackColor = "&H" & TbAnzeigenblockText.Value TbAnzeigenblockUpdater (TbAnzeigenblockText.Value) End Sub
Private Sub
TbAnzeigenblockUrl_AfterUpdate() ImgAnzeigenblockUrl.BackColor = "&H" & TbAnzeigenblockUrl.Value TbAnzeigenblockUpdater (TbAnzeigenblockUrl.Value) End Sub
Private Sub
TbAnzeigenblockUpdater(ColorStr As String) Dim rot As String, blau As String, gruen As String rot = Mid(ColorStr, 1, 2) gruen = Mid(ColorStr, 3, 2) blau = Mid(ColorStr, 5, 2) SbAnzeigenblock_rot.Value = Val("&H" & rot) SbAnzeigenblock_gruen.Value = Val("&H" & gruen) SbAnzeigenblock_blau.Value = Val("&H" & blau) End Sub
Private Sub
UserForm_Initialize() CboAnzeigenblockFormate.AddItem ("728 x 90 Leaderboard") CboAnzeigenblockFormate.AddItem ("468 x 60 Banner") CboAnzeigenblockFormate.AddItem ("234 x 60 Half Banner") CboAnzeigenblockFormate.AddItem ("120 x 600 Skyscrapper") CboAnzeigenblockFormate.AddItem ("160 x 600 Wide Skyscrapper") CboAnzeigenblockFormate.AddItem ("120 x 240 Vertikal Banner") CboAnzeigenblockFormate.AddItem ("336 x 280 Large Rectangle") CboAnzeigenblockFormate.AddItem ("300 x 250 Medium Rectangle") CboAnzeigenblockFormate.AddItem ("250 x 250 Square") CboAnzeigenblockFormate.AddItem ("200 x 200 Small Square") CboAnzeigenblockFormate.AddItem ("180 x 150 Small Rectangle") CboAnzeigenblockFormate.AddItem ("125 x 125 Button") CboAnzeigenblockFormate.ListIndex = 0 CboAnzeigenblockTyp.AddItem ("Text-/Imageanzeigen") CboAnzeigenblockTyp.AddItem ("nur Textzeigen") CboAnzeigenblockTyp.AddItem ("nur Imagezeigen") CboAnzeigenblockTyp.ListIndex = 0 CboAnzeigenblockFarbvorlage.AddItem ("Google-Standard") CboAnzeigenblockFarbvorlage.AddItem ("Maritim") CboAnzeigenblockFarbvorlage.AddItem ("Ozean") CboAnzeigenblockFarbvorlage.AddItem ("Schatten") CboAnzeigenblockFarbvorlage.AddItem ("Blaue Mischung") CboAnzeigenblockFarbvorlage.AddItem ("Tinte") CboAnzeigenblockFarbvorlage.AddItem ("Graphit") CboAnzeigenblockFarbvorlage.AddItem ("Benutzer") CboAnzeigenblockFarbvorlage.ListIndex = 0 End Sub
Private Sub
SbAnzeigenblock_rot_Change() SbAnzeigenblockChanger End Sub
Private Sub
SbAnzeigenblock_gruen_Change() SbAnzeigenblockChanger End Sub
Private Sub
SbAnzeigenblock_blau_Change() SbAnzeigenblockChanger End Sub
Sub
SbAnzeigenblockChanger() 'weiss=16777215=256*256*255+256*255+255 Dim x As Long, blau As String, gruen As String, rot As String x = SbAnzeigenblock_rot.Value * 256 * 256 + SbAnzeigenblock_gruen.Value * 256 + SbAnzeigenblock_blau.Value blau = Hex(SbAnzeigenblock_blau.Value) gruen = Hex(SbAnzeigenblock_gruen.Value) rot = Hex(SbAnzeigenblock_rot.Value) If Len(blau) = 1 Then blau = "0" & blau If Len(gruen) = 1 Then gruen = "0" & gruen If Len(rot) = 1 Then rot = "0" & rot Select Case ImgElementAnzeigenblockAktiv Case 1 ImgAnzeigenblockBorder.BackColor = x TbAnzeigenblockBorder.text = blau & gruen & rot Case 2 ImgAnzeigenblockBg.BackColor = x TbAnzeigenblockBg.text = blau & gruen & rot Case 3 ImgAnzeigenblockLink.BackColor = x TbAnzeigenblockLink.text = blau & gruen & rot Case 4 ImgAnzeigenblockText.BackColor = x TbAnzeigenblockText.text = blau & gruen & rot Case 5 ImgAnzeigenblockUrl.BackColor = x TbAnzeigenblockUrl.text = blau & gruen & rot End Select CboAnzeigenblockFarbvorlage.ListIndex = 7 End Sub
Private Sub
CommandButton1_Click() TbOutput.text = TbOutput.text & CboAnzeigenblockFormate.text TbOutput.text = TbOutput.text & "der Wert ist " & SbAnzeigenblock_rot.Value + SbAnzeigenblock_gruen.Value * 256 + SbAnzeigenblock_blau.Value * 256 * 256 & vbCrLf TbOutput.text = TbOutput.text & "oder #" & TbAnzeigenblockBorder.text & vbCrLf Dim x As MultiPage Set x = MultiPage1 MultiPage1.Value = 3 End Sub
Private Sub
CboAnzeigenblockFormate_Change() If OpbAnzeigenblockDivOptJA = True Then Select Case CboAnzeigenblockFormate.ListIndex Case 0 TbAnzeigenblockHoehe.Value = 90 TbAnzeigenblockBreite.Value = 728 Case 1 TbAnzeigenblockHoehe.Value = 60 TbAnzeigenblockBreite.Value = 468 Case 2 TbAnzeigenblockHoehe.Value = 60 TbAnzeigenblockBreite.Value = 234 Case 3 TbAnzeigenblockHoehe.Value = 600 TbAnzeigenblockBreite.Value = 120 Case 4 TbAnzeigenblockHoehe.Value = 600 TbAnzeigenblockBreite.Value = 160 Case 5 TbAnzeigenblockHoehe.Value = 240 TbAnzeigenblockBreite.Value = 120 Case 6 TbAnzeigenblockHoehe.Value = 280 TbAnzeigenblockBreite.Value = 336 Case 7 TbAnzeigenblockHoehe.Value = 250 TbAnzeigenblockBreite.Value = 300 Case 8 TbAnzeigenblockHoehe.Value = 250 TbAnzeigenblockBreite.Value = 250 Case 9 TbAnzeigenblockHoehe.Value = 200 TbAnzeigenblockBreite.Value = 200 Case 10 TbAnzeigenblockHoehe.Value = 150 TbAnzeigenblockBreite.Value = 180 Case 11 TbAnzeigenblockHoehe.Value = 125 TbAnzeigenblockBreite.Value = 125 End Select End If End Sub

Ratgeber Paint.Net Kostenlose Flashtools Analytenblog Gleimstraße 50 iMacro Impressum & Kontakt